Code: Alles auswählen.
FORM display_object_connections.
DATA: l_t_objectconn LIKE objectconn OCCURS 0 WITH HEADER LINE,
l_sapobject LIKE toaom-sap_object VALUE 'FMRE',
go_myobject TYPE REF TO cl_gos_manager,
ls_object TYPE borident,
l_mode TYPE sgs_rwmod.
DATA: BEGIN OF l_f_wfid,
belnr LIKE kblk-belnr,
blpos LIKE kblp-blpos,
END OF l_f_wfid.
l_f_wfid-belnr = kbld-belnr.
l_f_wfid-blpos = '000'.
ls_object-objkey = l_f_wfid.
ls_object-objtype = l_sapobject.
IF status2 = st2_anz.
l_mode = 'D'.
ELSE.
l_mode = 'E'.
ENDIF.
CREATE OBJECT go_myobject
EXPORTING
ip_mode = l_mode.
CALL METHOD go_myobject->display_toolbox
EXPORTING
is_object = ls_object.
ENDFORM. " DISPLAY_OBJECT_CONNECTIONSFolgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
Frank Zet.
Hi Frank,Frank Zet. hat geschrieben: Sieht ja so aus als ob es sich bei dem von Dir genannten Customer-Exit "Customer-Function 002 (FORM customer_exit_002)" um ein CMOD-Exit handelt?