WMS函數組：15.WMS-RDC批量入庫

FUNCTION ZRFC_WMS_GOODSMVT_CREATE_RDC.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  TABLES
*"      IT_HEAD STRUCTURE  ZWMS_RDC_HEAD OPTIONAL
*"      IT_DETAIL STRUCTURE  ZWMS_RDC_DETAIL OPTIONAL
*"      IT_RETURN STRUCTURE  ZINTERFACE_RETURN OPTIONAL
*"      ET_LOG STRUCTURE  BAPIRET2 OPTIONAL
*"----------------------------------------------------------------------
DATA:
    MATERIALDOCUMENT LIKE        BAPI2017_GM_HEAD_RET-MAT_DOC,
    MATDOCUMENTYEAR  LIKE        BAPI2017_GM_HEAD_RET-DOC_YEAR.
DATA:
    IT_ZMKPF2   LIKE ZWMS_GOODSMOVE_HEAD,
    I_LOG       LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
    IT_RET2     LIKE ZINTERFACE_RETURN OCCURS 0 WITH HEADER LINE,
    IT_DETAIL_D LIKE IT_DETAIL OCCURS 0 WITH HEADER LINE.
*----------------CHA JWY_20170811
SORT IT_HEAD.
SORT IT_DETAIL.
*----------------CHA JWY_20170811
DATA: IT_LIPS LIKE LIPS OCCURS 0 WITH HEADER LINE.
DATA: IT_EKBE LIKE EKBE OCCURS 0 WITH HEADER LINE.
**  第一步,判斷是否是WMS傳進來的彙總項目
DELETE  IT_DETAIL WHERE ERFMG = 0 .
DATA: VBELN TYPE VBELN.
LOOP AT IT_HEAD.
SELECT SINGLE  VBELN INTO VBELN
FROM VBUK
WHERE VBELN = IT_HEAD-VBELN
AND WBSTK = 'C' .
CHECK SY-SUBRC = 0.
LOOP AT IT_DETAIL WHERE  VBELN =  IT_HEAD-VBELN.
CLEAR IT_LIPS[]. ""查出所有子項目
SELECT VBELN POSNR CHARG
        VGBEL
        VGPOS
        LFIMG
INTO CORRESPONDING FIELDS OF TABLE IT_LIPS
FROM LIPS
WHERE VBELN = IT_DETAIL-VBELN
AND  ( POSNR = IT_DETAIL-POSNR OR UECHA = IT_DETAIL-POSNR )
AND LFIMG > 0.
CLEAR IT_EKBE[].
LOOP AT IT_LIPS. "查找子項目的收貨狀態"
CLEAR IT_EKBE.
SELECT EBELN EBELP  VBELN_ST VBELP_ST MENGE BWART
INTO CORRESPONDING FIELDS OF  IT_EKBE
FROM EKBE
WHERE EBELN = IT_LIPS-VGBEL
AND EBELP = IT_LIPS-VGPOS
AND BEWTP = 'E'
AND VBELN_ST = IT_LIPS-VBELN
AND VBELP_ST = IT_LIPS-POSNR
.
IF IT_EKBE-BWART = '101'.
            IT_LIPS-LFIMG = IT_LIPS-LFIMG - IT_EKBE-MENGE.
ENDIF.
IF IT_EKBE-BWART = '102'.
            IT_LIPS-LFIMG = IT_LIPS-LFIMG + IT_EKBE-MENGE.
ENDIF.
CLEAR IT_EKBE.
ENDSELECT.
MODIFY IT_LIPS.
ENDLOOP.
LOOP AT IT_LIPS. "分配數量"
CHECK IT_DETAIL-ERFMG > 0.
        IT_DETAIL_D-VBELN = IT_DETAIL-VBELN.
        IT_DETAIL_D-POSNR = IT_LIPS-POSNR.
        IT_DETAIL_D-CHARG = IT_LIPS-CHARG.
IF IT_DETAIL-ERFMG >= IT_LIPS-LFIMG.
          IT_DETAIL_D-ERFMG = IT_LIPS-LFIMG.
ELSE.
          IT_DETAIL_D-ERFMG = IT_DETAIL-ERFMG.
ENDIF.
APPEND IT_DETAIL_D.
        IT_DETAIL-ERFMG = IT_DETAIL-ERFMG - IT_DETAIL_D-ERFMG.
ENDLOOP.
ENDLOOP.
ENDLOOP.
DATA: ITH LIKE ZTAB_RDC_HEAD OCCURS 0 WITH HEADER LINE.
DATA: ITD LIKE ZTAB_RDC_DETAIL OCCURS 0 WITH HEADER LINE.
LOOP AT IT_HEAD.
    IT_ZMKPF2-GM_CODE = '01'.
    IT_ZMKPF2-LFSNR = IT_HEAD-VBELN.
MOVE-CORRESPONDING IT_HEAD TO ITH.
MOVE IT_HEAD-WMSNO TO ITH-MKEY.
IF IT_DETAIL_D[] IS INITIAL.
      IT_RETURN-BILLNO =  IT_HEAD-VBELN.
      IT_RETURN-SAPNO = '空物料'.
      IT_RETURN-SUBRC = '00'.
      IT_RETURN-MSG = '行項目不存在'.
APPEND IT_RETURN.
ELSE.
LOOP AT IT_DETAIL_D WHERE CHARG IS INITIAL.
CLEAR IT_LIPS.
READ TABLE IT_LIPS WITH KEY VBELN = IT_DETAIL_D-VBELN POSNR = IT_DETAIL_D-POSNR.
IF SY-SUBRC = 0.
IF IT_LIPS-CHARG IS NOT INITIAL.
            IT_RETURN-BILLNO =  IT_HEAD-VBELN.
            IT_RETURN-SAPNO = '批次不正確'.
            IT_RETURN-SUBRC = '00'.
CONCATENATE IT_DETAIL_D-VBELN '~'  IT_DETAIL_D-POSNR INTO  IT_RETURN-MSG .
APPEND IT_RETURN.
DELETE IT_DETAIL_D.
ENDIF.
ENDIF.
ENDLOOP.
APPEND ITH.
ENDIF.
CHECK     IT_DETAIL_D[] IS NOT INITIAL.
MOVE-CORRESPONDING IT_DETAIL_D[] TO ITD[].
LOOP AT ITH.
LOOP AT ITD WHERE VBELN = ITH-VBELN.
        ITD-MKEY = ITH-MKEY.
        ITD-MPOS = SY-TABIX.
MODIFY ITD.
ENDLOOP.
ENDLOOP.
MODIFY ZTAB_RDC_HEAD FROM TABLE ITH.
MODIFY ZTAB_RDC_DETAIL FROM TABLE ITD.
CLEAR: MATERIALDOCUMENT,MATDOCUMENTYEAR.
CALL FUNCTION 'ZRFC_WMS_GOODSMVT_CREATE_D2'
EXPORTING
        IT_ZMKPF002         = IT_ZMKPF2
IMPORTING
        EP_MATERIALDOCUMENT = MATERIALDOCUMENT
        EP_MATDOCUMENTYEAR  = MATDOCUMENTYEAR
TABLES
        IT_DETAIL           = IT_DETAIL_D
        ET_LOG              = I_LOG.
APPEND LINES OF I_LOG TO ET_LOG.
    IT_RETURN-BILLNO =  IT_HEAD-VBELN.
    IT_RETURN-SAPNO = MATERIALDOCUMENT.
IF MATERIALDOCUMENT = ''.
      IT_RETURN-SUBRC = '01'.
      IT_RETURN-MSG = I_LOG-MESSAGE.
ENDIF.
APPEND IT_RETURN.
CLEAR IT_ZMKPF2.
ENDLOOP.
ENDFUNCTION.
*FORM GET_GUID USING AGUID.
*  DATA: GD TYPE GUID_32.
*  CALL FUNCTION 'GUID_CREATE'
*    IMPORTING
*      EV_GUID_32 = GD.
*  MOVE GD TO AGUID.
*ENDFORM.                    "ShowPB