Documentation View

We are hiring and constantly growing! Have a look through our vacancies to find the right role for you!

/FRE/DIF_BADI_004 - BAdI: Additional DIF Fields

/FRE/DIF_BADI_004 - BAdI: Additional DIF Fields

CPI1466 during Backup   BAL Application Log Documentation  
This documentation is copyright by SAP AG.
SAP E-Book

Allows you to display and/or maintain user-defined fields appended to structure /FRE/DIF_OCCURR.

You must first implement methods GET_DATA_FROM_SCREEN and PUT_DATA_TO_SCREEN. These methods must contain the default lines of code.

The following is an example of a Module pool program Z_TEST_DIF_BADI_001:

Screen 0700 of type subscreen was created showing three fields : /fre/dif_occurr-memoflag, /fre/dif_occurr-ins_mode, /fre/dif_occurr-ins_uname.

&---------------------------------------------------------------------*

*& Module pool Z_TEST_DIF_BADI_001

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

PROGRAM Z_TEST_DIF_BADI_001.

INCLUDE EST_DIF_BADI_INIT_0700O01.

INCLUDE EST_DIF_BADI_USER_COMMAND_0I01.

*----------------------------------------------------------------------*

***INCLUDE EST_DIF_BADI_INIT_0700O01 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Module init_0700 OUTPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE init_0700 OUTPUT.

TABLES: /fre/dif_occurr.

* BADI defintion and specific variables

DATA: ,,

,,,,g_exit TYPE REF TO /fre/if_ex_ui_dif_badi_001,

,,,,g_dif_occurr TYPE /fre/dif_occ_status_sty.

IF g_exit IS INITIAL.

,,CALL METHOD cl_exithandler=>get_instance_for_subscreens

,,,,CHANGING

,,,,,, instance = g_exit

,,,,EXCEPTIONS

,,,,,,others = 6.

ENDIF.

IF g_exit IS NOT INITIAL.

* Fill the screen structure using an interface method

,,CALL METHOD g_exit->get_data_from_screen

,, ,,IMPORTING

,,,,,,e_dif_occurr = g_dif_occurr.

,,/fre/dif_occurr-memoflag = g_dif_occurr-memoflag.

,,/fre/dif_occurr-ins_mode = g_dif_occurr-ins_mode.

,,/fre/dif_occurr-ins_uname = g_dif_occurr-ins_uname.

ENDIF.

ENDMODULE. " init_0700 OUTPUT

*----------------------------------------------------------------------*

***INCLUDE EST_DIF_BADI_USER_COMMAND_0I01 .

*----------------------------------------------------------------------*

*&---------------------------------------------------------------------*

*& Module USER_COMMAND_0700 INPUT

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

MODULE user_command_0700 INPUT.

IF g_exit IS INITIAL.

* gets the active instance

,,CALL METHOD cl_exithandler=>get_instance_for_subscreens

,,,,CHANGING

,,,,,,instance = g_exit

,,,,EXCEPTIONS

,,,,,,others = 6.

ENDIF.

IF g_exit IS NOT INITIAL.

,,CALL METHOD g_exit->get_data_from_screen

,,,,IMPORTING

,,,,,,e_dif_occurr = g_dif_occurr.

,,g_dif_occurr-memoflag = /fre/dif_occurr-memoflag.

,,g_dif_occurr-ins_mode = /fre/dif_occurr-ins_mode.

,,g_dif_occurr-ins_uname = /fre/dif_occurr-ins_uname.

,,CALL METHOD g_exit->put_data_to_screen

,,,,EXPORTING

,,,,,,i_dif_occurr = g_dif_occurr.

ENDIF.

ENDMODULE. " USER_COMMAND_0700 INPUT






TXBHW - Original Tax Base Amount in Local Currency   CPI1466 during Backup  
This documentation is copyright by SAP AG.

Length: 4526 Date: 20211128 Time: 123540     sap01-206 ( 53 ms )