CMOD PPCO0007 EXIT_SAPLCOZV_001
IF sy-tcode = 'CO02' OR sy-tcode = 'COHV' OR sy-tcode = 'COHVOMPP' .
CHECK header_imp-WERKS = '2300' or header_imp-WERKS = '2330'.
TABLES: zpp_afko,resb.
DATA: wa_afko TYPE zpp_afko.
DATA itab_resb LIKE TABLE OF zpp_resb WITH HEADER LINE .
MOVE-CORRESPONDING header_imp TO wa_afko.
CONCATENATE sy-datum sy-uzeit INTO wa_afko-chgdata.
wa_afko-uname = sy-uname.
wa_afko-gamngn = header_imp-gamng .
wa_afko-ip_addr = cl_gui_frontend_services=>get_ip_address( ) .
SELECT SINGLE gamng INTO wa_afko-gamngo
FROM afko WHERE aufnr = wa_afko-aufnr .
SELECT * FROM resb INTO CORRESPONDING FIELDS OF TABLE itab_resb
WHERE rsnum = wa_afko-rsnum .
LOOP AT itab_resb.
itab_resb-chgdata = wa_afko-chgdata.
MODIFY itab_resb.
ENDLOOP.
INSERT zpp_afko FROM wa_afko.
INSERT zpp_resb FROM TABLE itab_resb.
ENDIF.
另一個版本
*&---------------------------------------------------------------------*
*& 包括 ZXCO1U06 *
*&---------------------------------------------------------------------*
*CHECK sy-tcode = 'CO02'.
IF sy-tcode = 'CO02' OR sy-tcode = 'COHV' OR sy-tcode = 'COHVOMPP' .
TABLES: zpp_afko,resb.
DATA: wa_afko TYPE zpp_afko.
DATA itab_resb LIKE TABLE OF zpp_resb WITH HEADER LINE .
MOVE-CORRESPONDING header_imp TO wa_afko.
CONCATENATE sy-datum sy-uzeit INTO wa_afko-chgdata.
wa_afko-uname = sy-uname.
wa_afko-gamngn = header_imp-gamng .
wa_afko-ip_addr = cl_gui_frontend_services=>get_ip_address( ) .
SELECT SINGLE gamng INTO wa_afko-gamngo
FROM afko WHERE aufnr = wa_afko-aufnr .
SELECT * FROM resb INTO CORRESPONDING FIELDS OF TABLE itab_resb
WHERE rsnum = wa_afko-rsnum .
LOOP AT itab_resb.
itab_resb-chgdata = wa_afko-chgdata.
MODIFY itab_resb.
ENDLOOP.
INSERT zpp_afko FROM wa_afko.
INSERT zpp_resb FROM TABLE itab_resb.
ENDIF.