2023-10-13 16:30:07
浏览数 (2)
代码语言：javascript
复制*&---------------------------------------------------------------------*
*& Report ZTEST_VL02N_DELIVERY1122
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_VL02N_DELIVERY1122.
DATA: LS_VBKOK TYPE VBKOK.
DATA: LT_VBKOK TYPE STANDARD TABLE OF VBKOK.
DATA: LT_PROTT TYPE STANDARD TABLE OF PROTT.
DATA: LS_PROTT TYPE PROTT.
DATA: LT_VBPOK TYPE STANDARD TABLE OF VBPOK.
DATA: LS_VBPOK TYPE VBPOK.
DATA: LV_MESSAGE TYPE STRING.
DATA: LV_ALL_MESSAGE TYPE STRING.
DATA: LV_FLAG TYPE CHAR01.
PARAMETERS : P_VBELN TYPE LIKP-VBELN OBLIGATORY.
LS_VBKOK-VBELN_VL = P_VBELN.
LS_VBKOK-KOMUE = 'X'. "交货数量 = 捡配数量
LS_VBKOK-KZKODAT = 'X'. "Picking date
LS_VBKOK-KODAT = '20210808'. "Picking date
DATA : LT_LIPS LIKE TABLE OF LIPS WITH HEADER LINE.
SELECT * FROM LIPS
INTO TABLE LT_LIPS
WHERE VBELN = P_VBELN.
LOOP AT LT_LIPS.
CLEAR:LS_VBPOK,LV_FLAG,LV_MESSAGE,LV_ALL_MESSAGE,LT_PROTT.
LS_VBPOK-VBELN_VL = LT_LIPS-VBELN.
LS_VBPOK-POSNR_VL = LT_LIPS-POSNR.
LS_VBPOK-VBELN = LT_LIPS-VGBEL.
LS_VBPOK-POSNN = LT_LIPS-VGPOS.
LS_VBPOK-PIKMG = '4.7'.
LS_VBPOK-MATNR = LT_LIPS-MATNR.
LS_VBPOK-CHARG = LT_LIPS-CHARG.
LS_VBPOK-VRKME = LT_LIPS-VRKME.
LS_VBPOK-MEINS = LT_LIPS-MEINS.
LS_VBPOK-UMVKZ = LT_LIPS-UMVKZ.
LS_VBPOK-UMVKN = LT_LIPS-UMVKN.
LS_VBPOK-LGORT = LT_LIPS-LGORT.
APPEND LS_VBPOK TO LT_VBPOK.
ENDLOOP.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = LS_VBKOK
* COMMIT = CON
DELIVERY = P_VBELN
UPDATE_PICKING = 'X'
SYNCHRON = 'X'
NICHT_SPERREN = 'X'
TABLES
VBPOK_TAB = LT_VBPOK
PROT = LT_PROTT
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2.
IF SY-SUBRC = 0 .
LOOP AT LT_PROTT INTO LS_PROTT WHERE MSGTY CA 'EAX'.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
MSGID = LS_PROTT-MSGID
MSGNR = LS_PROTT-MSGNO
MSGV1 = LS_PROTT-MSGV1
MSGV2 = LS_PROTT-MSGV2
MSGV3 = LS_PROTT-MSGV3
MSGV4 = LS_PROTT-MSGV4
IMPORTING
MESSAGE_TEXT_OUTPUT = LV_MESSAGE.
CONCATENATE LV_ALL_MESSAGE LV_MESSAGE INTO LV_ALL_MESSAGE .
LV_MESSAGE = LV_ALL_MESSAGE.
LV_FLAG = 'X' .
CLEAR LS_PROTT.
ENDLOOP.
ELSE.
CLEAR LV_MESSAGE.
CALL FUNCTION 'MESSAGE_TEXT_BUILD'
EXPORTING
MSGID = SY-MSGID
MSGNR = SY-MSGNO
MSGV1 = SY-MSGV1
MSGV2 = SY-MSGV2
MSGV3 = SY-MSGV3
MSGV4 = SY-MSGV4
IMPORTING
MESSAGE_TEXT_OUTPUT = LV_ALL_MESSAGE.
LV_MESSAGE = LV_ALL_MESSAGE.
LV_FLAG = 'X' .
ENDIF .
IF LV_FLAG IS INITIAL .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
WRITE : 'OK'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
WRITE : LV_ALL_MESSAGE.
ENDIF.
