CTS
FUNCTION Z_SD_DN_PGI1.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(I_VBELN) TYPE VBELN
*" REFERENCE(I_BUDAT) TYPE BUDAT DEFAULT SY-DATUM
*" EXPORTING
*" REFERENCE(E_MBLNR) TYPE MBLNR
*" TABLES
*" T_DATA STRUCTURE ZSDS0015
*" IT_RETURN STRUCTURE BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
DATA : LS_DATA LIKE LINE OF T_DATA,
LT_DATA LIKE TABLE OF ZSDS0015.
DATA: LV_VBELN LIKE LIKP-VBELN,
LW_VBKOK LIKE VBKOK,
IT_PROTT LIKE PROTT OCCURS 0 WITH HEADER LINE, "Return Message
IT_VBPOK LIKE VBPOK OCCURS 0 WITH HEADER LINE. "Delivery items
DATA : LV_PGI,
LV_VBTYP_N TYPE VBFA-VBTYP_N,
LV_COUNT TYPE I.
REFRESH IT_RETURN.
* 检查交货单是否已经过账
SELECT VBELN VBTYP_N INTO (E_MBLNR,LV_VBTYP_N)
FROM VBFA
WHERE VBELV = I_VBELN
AND POSNV = 10
AND VBTYP_N IN (‘R‘,‘h‘). "货物移动
ENDSELECT.
IF SY-SUBRC EQ 0 AND LV_VBTYP_N EQ ‘R‘."交货 h 取消交货
EXIT.
ENDIF.
LW_VBKOK-VBELN_VL = I_VBELN. "<- Delivery number
LW_VBKOK-WABUC = ‘X‘. "<- Automatic PGI
LW_VBKOK-WADAT_IST = I_BUDAT. "<- Automatic PGI Date
LT_DATA[] = T_DATA[].
LOOP AT LT_DATA INTO LS_DATA.
CLEAR IT_VBPOK.
IT_VBPOK-VBELN_VL = I_VBELN.
IT_VBPOK-POSNR_VL = LS_DATA-POSNR.
IT_VBPOK-VBELN = I_VBELN.
IT_VBPOK-POSNN = LS_DATA-POSNR.
IT_VBPOK-CHARG = LS_DATA-CHARG. "批次
IT_VBPOK-LGORT = LS_DATA-LGORT. "库存地点
IT_VBPOK-KZLGO = ‘X‘. "库存地点可修改
IT_VBPOK-PIKMG = LS_DATA-PIKMG. "捡配数量
IT_VBPOK-LFIMG = LS_DATA-LFIMG. "交货数量
APPEND IT_VBPOK.
ENDLOOP.
PERFORM FRM_LOCK_DELIVERY(ZSDS0002) USING I_VBELN.
* DO PGI
LV_PGI = ‘X‘.
FREE MEMORY ID ‘PGI‘.
EXPORT LV_PGI TO MEMORY ID ‘PGI‘.
FREE MEMORY ID ‘PGI_DATA‘.
EXPORT LT_DATA FROM LT_DATA TO MEMORY ID ‘PGI_DATA‘.
* Perform Pick and PGI
CALL FUNCTION ‘WS_DELIVERY_UPDATE‘
EXPORTING
VBKOK_WA = LW_VBKOK
SYNCHRON = ‘X‘
UPDATE_PICKING = ‘X‘
COMMIT = ‘ ‘
DELIVERY = I_VBELN
NICHT_SPERREN = ‘X‘
IF_ERROR_MESSAGES_SEND_0 = ‘X‘
TABLES
PROT = IT_PROTT
VBPOK_TAB = IT_VBPOK
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
ROLLBACK WORK.
ELSE.
LOOP AT IT_PROTT WHERE MSGTY EQ ‘E‘ OR MSGTY EQ ‘A‘ OR MSGTY EQ ‘X‘.
EXIT.
ENDLOOP.
IF SY-SUBRC NE 0.
COMMIT WORK AND WAIT.
SELECT COUNT(*) INTO LV_COUNT
FROM LIPS
WHERE VBELN = I_VBELN
AND LFIMG NE 0.
IF LV_COUNT NE LINES( LT_DATA ).
PERFORM FRM_REVERSE_POSTING(ZSDS0002) TABLES IT_RETURN USING I_VBELN I_BUDAT.
MAC_APPEND_IT_RETURN: ‘00‘ ‘000‘ ‘E‘ ‘实际交货数量与请求交货数量不一致，停止交货‘
‘实际交货数量与请求交货数量不一致‘
‘，停止交货‘
I_VBELN
‘‘.
EXIT.
ENDIF.
SELECT MBLNR
INTO E_MBLNR
FROM MKPF
WHERE LE_VBELN = I_VBELN
AND BUDAT = I_BUDAT.
ENDSELECT.
ELSE.
ROLLBACK WORK.
ENDIF.
ENDIF.
LOOP AT IT_PROTT.
CLEAR GS_RETURN.
MOVE : IT_PROTT-MSGTY TO GS_RETURN-TYPE,
IT_PROTT-MSGID TO GS_RETURN-ID,
IT_PROTT-MSGNO TO GS_RETURN-NUMBER,
IT_PROTT-MSGV1 TO GS_RETURN-MESSAGE_V1,
IT_PROTT-MSGV2 TO GS_RETURN-MESSAGE_V2,
IT_PROTT-MSGV3 TO GS_RETURN-MESSAGE_V3,
IT_PROTT-MSGV4 TO GS_RETURN-MESSAGE_V4.
MESSAGE ID IT_PROTT-MSGID TYPE IT_PROTT-MSGTY NUMBER IT_PROTT-MSGNO
WITH IT_PROTT-MSGV1 IT_PROTT-MSGV2 IT_PROTT-MSGV3 IT_PROTT-MSGV4
INTO GS_RETURN-MESSAGE.
APPEND GS_RETURN TO IT_RETURN.
ENDLOOP.
ENDFUNCTION.
FORM frm_lock_delivery USING p_delivery.
DATA : lv_time TYPE p DECIMALS 2 VALUE ‘0.50‘.
CHECK p_delivery IS NOT INITIAL.
DO 50 TIMES.
CALL FUNCTION ‘ENQUEUE_EVVBLKE‘
EXPORTING
vbeln = p_delivery
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
IF sy-subrc EQ 0.
CALL FUNCTION ‘DEQUEUE_EVVBLKE‘
EXPORTING
mode_likp = ‘E‘
mandt = sy-mandt
vbeln = p_delivery
x_vbeln = ‘ ‘
_scope = ‘3‘
_synchron = ‘ ‘
_collect = ‘ ‘.
WAIT UP TO lv_time SECONDS.
EXIT.
ELSE.
WAIT UP TO lv_time SECONDS.
ENDIF.
ENDDO.
ENDFORM. " FRM_LOCK_DELIVERY
FORM frm_reverse_posting TABLES it_return USING p_vbeln p_budat.
DATA: BEGIN OF lt_mesg OCCURS 0.
INCLUDE STRUCTURE mesg.
DATA: END OF lt_mesg.
DATA : lv_vbeln TYPE likp-vbeln,
lv_budat TYPE sy-datlo.
lv_vbeln = p_vbeln.
lv_budat = p_budat.
PERFORM frm_lock_delivery(zsds0002) USING p_vbeln.
DO 10 TIMES.
CALL FUNCTION ‘WS_REVERSE_GOODS_ISSUE‘
EXPORTING
i_vbeln = lv_vbeln
i_budat = lv_budat
i_tcode = ‘VL09‘
i_vbtyp = ‘J‘
TABLES
t_mesg = lt_mesg
EXCEPTIONS
error_reverse_goods_issue = 1
OTHERS = 2.
IF sy-subrc = 0.
* 删除交货单
COMMIT WORK.
PERFORM frm_delete_delivery_note TABLES it_return USING p_vbeln.
EXIT.
ENDIF.
WAIT UP TO 1 SECONDS.
ENDDO.
ENDFORM. " FRM_REVERSE_POSTING
FORM frm_delete_delivery_note TABLES it_return STRUCTURE bapiret2
USING p_vbeln.
DATA : lv_delivery TYPE likp-vbeln.
CHECK p_vbeln IS NOT INITIAL.
lv_delivery = p_vbeln.
PERFORM frm_lock_delivery(zsds0002) USING lv_delivery.
REFRESH bdcdata.
* Go to VL02N
* Init Screen and input DN number
PERFORM bdc_dynpro USING ‘SAPMV50A‘ ‘4004‘.
PERFORM bdc_field USING ‘BDC_CURSOR‘
‘LIKP-VBELN‘.
PERFORM bdc_field USING ‘BDC_OKCODE‘
‘/00‘.
PERFORM bdc_field USING ‘LIKP-VBELN‘
lv_delivery.
* Delete DN
PERFORM bdc_dynpro USING ‘SAPMV50A‘ ‘1000‘.
PERFORM bdc_field USING ‘BDC_OKCODE‘
‘/ELOES_T‘.
PERFORM bdc_transaction TABLES it_return USING ‘VL02N‘.
ENDFORM.
时间： 2024-10-24 18:46:23