交货单过账详解编程语言

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.