Ansicht
Dokumentation

/FRE/DIF_BADI_004 - BAdI: Zusätzliche BEF-Felder

/FRE/DIF_BADI_004 - BAdI: Zusätzliche BEF-Felder

RFUMSV00 - Advance Return for Tax on Sales/Purchases   Addresses (Business Address Services)  
Diese Dokumentation steht unter dem Copyright der SAP AG.
SAP E-Book

Dieses BAdI ermöglicht es Ihnen, an die Struktur /FRE/DIF_OCCURR angehängte benutzerdefinierte Felder anzuzeigen und/oder zu pflegen.

Sie müssen zuerst die Methoden GET_DATA_FROM_SCREEN und PUT_DATA_TO_SCREEN implementieren. Diese Methoden müssen die Default-Quelltextzeilen enthalten.

Das Folgende ist ein Beispiel eines Modul-Pool-Programms Z_TEST_DIF_BADI_001:

Screen 0700 des Typs Subscreen wurde erstellt mit drei angezeigten Feldern: /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.

,,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






SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up   CPI1466 during Backup  
Diese Dokumentation steht unter dem Copyright der SAP AG.

Length: 4485 Date: 20240329 Time: 075419     sap01-206 ( 54 ms )