Ansicht
Dokumentation
/FRE/DIF_BADI_004 - BAdI: Additional DIF Fields
CPI1466 during Backup CL_GUI_FRONTEND_SERVICES - Frontend ServicesThis documentation is copyright by SAP AG.
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
ROGBILLS - Synchronize billing plans ROGBILLS - Synchronize billing plans
This documentation is copyright by SAP AG.
Length: 4526 Date: 20240424 Time: 052206 sap01-206 ( 68 ms )