REPORT Z_POSTING_DELIVERY.
DATA: code(255) TYPE c OCCURS 0,
prog LIKE sy-repid value 'ZCHD_ZSDR021'.
*Insert '*@#@@[SAP]' into CODE
* INDEX 13 .
DATA: BEGIN OF I_VBKOK OCCURS 11.
INCLUDE STRUCTURE VBKOK.
DATA: END OF I_VBKOK.
DATA: BEGIN OF I_VBPOK_TAB OCCURS 12.
INCLUDE STRUCTURE VBPOK.
DATA: END OF I_VBPOK_TAB.
PARAMETERS: P_VBELN TYPE VBELN.
DATA:G_LIKP LIKE LIKP.
DATA:G_LIPS LIKE LIPS.
DATA GV_14(14) TYPE C.
START-OF-SELECTION.
* READ REPORT prog INTO code.
* check sy-subrc = 0.
* insert '*@#@@[SAP]' into code index 1.
* INSERT REPORT prog FROM code.
READ REPORT prog INTO code.
CHECK SY-SUBRC = 0 .
DELETE code INDEX 1.
INSERT REPORT prog FROM code.
SELECT SINGLE * INTO G_LIKP FROM LIKP
WHERE VBELN = P_VBELN.
I_VBKOK-VBELN_VL = P_VBELN. "Delivery number
I_VBKOK-WABUC = 'X'. "Automatic PGI
I_VBKOK-WADAT_IST = SY-DATUM .
APPEND I_VBKOK.
SELECT * INTO G_LIPS FROM LIPS
WHERE VBELN = P_VBELN.
I_VBPOK_TAB-VBELN_VL = P_VBELN. "Delivery number
I_VBPOK_TAB-POSNR_VL = G_LIPS-POSNR.
I_VBPOK_TAB-VBELN = P_VBELN.
I_VBPOK_TAB-POSNN = G_LIPS-POSNR.
I_VBPOK_TAB-MATNR = G_LIPS-MATNR.
GV_14 = G_LIPS-LFIMG.
CONDENSE GV_14.
I_VBPOK_TAB-PIKMG = GV_14 .
APPEND I_VBPOK_TAB.
ENDSELECT.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = I_VBKOK
COMMIT = 'X'
DELIVERY = P_VBELN
* update_picking = 'X'
TABLES
VBPOK_TAB = I_VBPOK_TAB
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ENDIF.
.
