WMS函數組：21.交貨單過賬---公司間--單行--WMS

DATA: V_VBTYP LIKE TVLK-VBTYP.
DATA: V_KOMRL LIKE TVLP-KOMRL.
DATA: ILIPS  LIKE LIPS OCCURS 0 WITH HEADER LINE.
DATA: XET_LOG LIKE  BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: ITK LIKE LIKP OCCURS 0 WITH HEADER LINE.
DATA: ITP LIKE LIPS OCCURS 0 WITH HEADER LINE.
FUNCTION ZRFC_WMS_VL02N.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     REFERENCE(IP_VBELN) LIKE  LIKP-VBELN
*"     REFERENCE(IP_CHARG) LIKE  LIPS-CHARG
*"     REFERENCE(IP_LGORT) LIKE  LIPS-LGORT
*"     REFERENCE(IP_LFIMG) LIKE  LIPSD-G_LFIMG
*"  EXPORTING
*"     REFERENCE(EX_VBELN) LIKE  LIKP-VBELN
*"     REFERENCE(EP_SUBRC) LIKE  SY-SUBRC
*"  TABLES
*"      ET_LOG STRUCTURE  BAPIRET2
*"----------------------------------------------------------------------
*TABLES: LIKP,LIPS.
*STO交貨單過賬---公司間--單行--WMS
TABLES: LIPS.
DATA: ITAB_LIPS  LIKE LIPS OCCURS 0 WITH HEADER LINE.
DATA:  DELNO   TYPE VBELN,    P_LGORT LIKE  LIPS-LGORT.
MOVE IP_VBELN TO DELNO.
MOVE IP_LGORT TO P_LGORT.
CLEAR XET_LOG[].
SELECT  VBELN POSNR MATNR
        UECHA WERKS
         VGBEL  VGPOS
      PSTYV
INTO CORRESPONDING FIELDS OF TABLE ITAB_LIPS
FROM LIPS
WHERE VBELN = DELNO
ORDER BY  POSNR.
****取出交貨單行項目
MOVE ITAB_LIPS[] TO ITP[]. "記錄交貨單行項目
DELETE ITAB_LIPS WHERE UECHA IS NOT INITIAL.
DATA:         MV TYPE I.
    MV = LINES( ITAB_LIPS ).
IF MV > 1.
WRITE  '僅支持單行的STO交貨單'.
RETURN.
ENDIF.
READ TABLE ITAB_LIPS INTO ILIPS INDEX 1.
MOVE IP_LFIMG TO ILIPS-LFIMG .
MOVE IP_LGORT TO ILIPS-LGORT.
***判斷交貨單類型和送達方（用於退貨工廠取數）*
SELECT SINGLE VBELN LFART KUNNR INTO CORRESPONDING FIELDS OF ITK
FROM LIKP WHERE VBELN = DELNO.
***判斷是否退貨精類型交貨單(H,T)*
SELECT SINGLE VBTYP INTO V_VBTYP FROM TVLK  WHERE LFART = ITK-LFART.
****交貨單是否需要減配
SELECT SINGLE KOMRL  INTO V_KOMRL  FROM TVLP WHERE PSTYV = ILIPS-PSTYV.
**第一步判讀是否批次管理,
DATA: T_XCHPF LIKE MARA-XCHPF.
SELECT SINGLE XCHPF INTO T_XCHPF FROM MARA WHERE MATNR = ILIPS-MATNR .
IF    T_XCHPF  IS INITIAL.
PERFORM CHECK_NO_BATCH_POST USING  ILIPS.
RETURN.
ENDIF.
***第二步： 刪除原有子項目.
PERFORM DEL_CHILD   USING DELNO P_LGORT.
***第三步如需要揀配，清空揀配數量，防止下步添加了項目時報錯。
IF V_KOMRL = 'X'.
PERFORM GET_PICK0 USING DELNO.
ENDIF.
***第四步: 添加新項目
PERFORM ADD_CHILD USING DELNO  P_LGORT   .
DATA: VL_LFIMG LIKE ILIPS-LFIMG .
SELECT SUM( LFIMG ) INTO VL_LFIMG FROM LIPS WHERE VBELN = DELNO.
IF  VL_LFIMG > 0."  數量更改失敗
****第五步揀配
IF V_KOMRL = 'X'.
PERFORM GET_PICK USING DELNO.
ENDIF.
***直接過帳
PERFORM CHECK_POST USING DELNO P_LGORT.
ELSE.
      XET_LOG-TYPE  = 'E'.
CONCATENATE DELNO '數量更新失敗' INTO       XET_LOG-MESSAGE .
APPEND XET_LOG.
ENDIF.
MOVE XET_LOG[] TO ET_LOG[].
ENDFUNCTION.
FORM DEL_CHILD  USING DELNO P_LGORT .
DATA : HEADER_DATA LIKE BAPIOBDLVHDRCHG. "Delivery header
DATA : HEADER_CONTROL LIKE BAPIOBDLVHDRCTRLCHG. "delivery header control
DATA : I_DELIVERY_NO LIKE BAPIOBDLVHDRCHG-DELIV_NUMB. "deliver number
DATA : TECHN_CONTROL LIKE BAPIDLVCONTROL. "TECHN_CONTROL
DATA : ITEM_DATA LIKE BAPIOBDLVITEMCHG OCCURS 0 WITH HEADER LINE. "ITEM_DATA delivery item
DATA : ITEM_CONTROL LIKE BAPIOBDLVITEMCTRLCHG OCCURS 0 WITH HEADER LINE. "ITEM_CONTROL
DATA : RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE. "Return
DATA: ITEM_DATA_SPL LIKE  /SPE/BAPIOBDLVITEMCHG OCCURS 0 WITH HEADER LINE.
*Set Delivery Header data
MOVE DELNO TO   I_DELIVERY_NO .
    HEADER_DATA-DELIV_NUMB = I_DELIVERY_NO.
    TECHN_CONTROL-UPD_IND = 'U'.
    HEADER_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
LOOP AT ITP WHERE UECHA IS NOT  INITIAL.
      ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_DATA-DELIV_ITEM = ITP-POSNR.
      ITEM_DATA-FACT_UNIT_NOM = 1.
      ITEM_DATA-FACT_UNIT_DENOM = 1.
      ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_CONTROL-DELIV_ITEM = ITP-POSNR.
      ITEM_CONTROL-DEL_ITEM = 'X'.
APPEND  ITEM_DATA.
APPEND ITEM_CONTROL.
ENDLOOP.
CLEAR: ITEM_CONTROL,ITEM_DATA.
LOOP AT ITP WHERE UECHA IS   INITIAL.
      ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_DATA-DELIV_ITEM = ITP-POSNR.
      ITEM_DATA-FACT_UNIT_NOM = 1.
      ITEM_DATA-FACT_UNIT_DENOM = 1.
      ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_CONTROL-DELIV_ITEM = ITP-POSNR.
APPEND  ITEM_DATA.
APPEND ITEM_CONTROL.
      ITEM_DATA_SPL-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_DATA_SPL-DELIV_ITEM =  ITP-POSNR.
      ITEM_DATA_SPL-STGE_LOC = P_LGORT.
APPEND ITEM_DATA_SPL.
ENDLOOP.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
        HEADER_DATA    = HEADER_DATA
        HEADER_CONTROL = HEADER_CONTROL
        DELIVERY       = I_DELIVERY_NO
        TECHN_CONTROL  = TECHN_CONTROL
TABLES
        ITEM_DATA      = ITEM_DATA
        ITEM_CONTROL   = ITEM_CONTROL
        ITEM_DATA_SPL  = ITEM_DATA_SPL
RETURN         = RETURN.
IF SY-SUBRC EQ 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.
DATA: I_ERROR_MESSAGES  LIKE  ARRANG_ERR.
DATA: ET_LOG LIKE RETURN.
DATA S(200).
LOOP  AT   RETURN INTO ET_LOG.
MOVE ET_LOG-TYPE             TO I_ERROR_MESSAGES-MSGTY.
MOVE ET_LOG-ID               TO I_ERROR_MESSAGES-MSGID.
MOVE  ET_LOG-NUMBER           TO I_ERROR_MESSAGES-MSGNO.
CALL FUNCTION 'MM_ARRANG_GET_MESSAGE_TEXT'
EXPORTING
          I_ERROR_MESSAGES = I_ERROR_MESSAGES
          I_LANGU          = SY-LANGU
IMPORTING
          E_TEXT           = ET_LOG-MESSAGE
EXCEPTIONS
          PARAMETER_ERROR  = 1
OTHERS           = 2.
CONCATENATE     ET_LOG-MESSAGE
      ET_LOG-MESSAGE_V1 ET_LOG-MESSAGE_V2
      ET_LOG-MESSAGE_V3 ET_LOG-MESSAGE_V4   INTO ET_LOG-MESSAGE.
WRITE / ET_LOG-MESSAGE.
APPEND ET_LOG TO XET_LOG.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  ADD_CHILD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_DELNO  text
*----------------------------------------------------------------------*
FORM ADD_CHILD  USING    P_DELNO  P_LGORT .
DATA : HEADER_DATA LIKE BAPIOBDLVHDRCHG. "Delivery header
DATA : HEADER_CONTROL LIKE BAPIOBDLVHDRCTRLCHG. "delivery header control
DATA : I_DELIVERY_NO LIKE BAPIOBDLVHDRCHG-DELIV_NUMB. "deliver number
DATA : TECHN_CONTROL LIKE BAPIDLVCONTROL. "TECHN_CONTROL
DATA : ITEM_DATA LIKE BAPIOBDLVITEMCHG OCCURS 0 WITH HEADER LINE. "ITEM_DATA delivery item
DATA : ITEM_CONTROL LIKE BAPIOBDLVITEMCTRLCHG OCCURS 0 WITH HEADER LINE. "ITEM_CONTROL
DATA : RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE. "Return
DATA: IPK   LIKE  /SPE/BAPIOBDLVITEMCHG OCCURS 0 WITH HEADER LINE.
*Set Delivery Header data
MOVE      P_DELNO TO   I_DELIVERY_NO.
    HEADER_DATA-DELIV_NUMB = I_DELIVERY_NO.
    TECHN_CONTROL-UPD_IND = 'U'.
    HEADER_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
DATA: V_WERKS TYPE LGORT_D,V_LGORT TYPE LGORT_D.
    V_WERKS  = ILIPS-WERKS.
    V_LGORT = ILIPS-LGORT.
IF V_VBTYP = 'H'  OR V_VBTYP = 'T'. "退貨
*    MOVE ITK-KUNNR TO V_WERKS.
*    SHIFT V_WERKS LEFT DELETING LEADING '0'.
SELECT SINGLE WERKS LGORT
INTO  (V_WERKS ,V_LGORT)
FROM EKPO WHERE EBELN =
         ILIPS-VGBEL AND EBELP = ILIPS-VGPOS.
*      LOOP AT ITP .
*        MOVE V_WERKS TO ITP-WERKS.
*        MOVE V_LGORT TO ITP-LGORT.
*        MODIFY ITP.
*      ENDLOOP.
ENDIF.
*DATA: BEGIN OF ILIPS OCCURS 0,
*        POSNR LIKE  LIPS-POSNR,
*        LGORT LIKE  LIPS-LGORT,
*        LFIMG LIKE  LIPSD-G_LFIMG,
*      END OF ILIPS.
LOOP AT ITP WHERE UECHA IS   INITIAL.
      ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_DATA-DELIV_ITEM =  ITP-POSNR .
      ITEM_DATA-HIERARITEM = ITP-POSNR.            "The batch split record below delivery item hierary
*      ITEM_DATA-USEHIERITM = '1'.
*      ITEM_DATA-MATERIAL = ITP-MATNR.
*      ITEM_DATA-BATCH = LT_MCHB-CHARG.
      ITEM_DATA-DLV_QTY = 0.
*ITEM_DATA-DLV_QTY_IMUNIT = 1000.
      ITEM_DATA-FACT_UNIT_NOM = 1.
      ITEM_DATA-FACT_UNIT_DENOM = 1.
      ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
      ITEM_CONTROL-DELIV_ITEM =   ITEM_DATA-DELIV_ITEM.
      ITEM_CONTROL-CHG_DELQTY = 'X'.
      IPK-DELIV_NUMB = I_DELIVERY_NO.
      IPK-DELIV_ITEM = ITEM_DATA-DELIV_ITEM.
      IPK-STGE_LOC = P_LGORT.
APPEND IPK.
APPEND ITEM_CONTROL.
APPEND ITEM_DATA.
ENDLOOP.
DATA: LT_MCHB LIKE MCHB OCCURS 0 WITH HEADER LINE.
CLEAR LT_MCHB[].
SELECT  CHARG CLABS MATNR WERKS LGORT
INTO CORRESPONDING FIELDS OF TABLE LT_MCHB
FROM MCHB AS M
FOR ALL ENTRIES IN ITP
WHERE MATNR = ITP-MATNR
AND WERKS = V_WERKS
AND LGORT = V_LGORT
AND CLABS > 0
.
DATA: V_OMENG LIKE VBBE-OMENG.
LOOP AT ITP WHERE UECHA IS   INITIAL.
SORT   LT_MCHB BY MATNR CHARG.
LOOP AT LT_MCHB WHERE MATNR = ITP-MATNR.
CLEAR V_OMENG.
SELECT SUM( OMENG ) INTO V_OMENG FROM VBBE
WHERE MATNR = LT_MCHB-MATNR
AND WERKS = LT_MCHB-WERKS
AND CHARG = LT_MCHB-CHARG
AND LGORT = LT_MCHB-LGORT.
        LT_MCHB-CLABS = LT_MCHB-CLABS - V_OMENG.
CHECK LT_MCHB-CLABS > 0.
CHECK  ILIPS-LFIMG > 0.
        ITEM_DATA-DELIV_NUMB = I_DELIVERY_NO.
        ITEM_DATA-DELIV_ITEM = '90000' + ITP-POSNR + SY-TABIX.
        ITEM_DATA-HIERARITEM = ITP-POSNR.            "The batch split record below delivery item hierary
        ITEM_DATA-USEHIERITM = '1'.
        ITEM_DATA-MATERIAL = ITP-MATNR.
        ITEM_DATA-BATCH = LT_MCHB-CHARG.
        IPK-DELIV_NUMB = I_DELIVERY_NO.
        IPK-DELIV_ITEM = ITEM_DATA-DELIV_ITEM.
        IPK-STGE_LOC = P_LGORT.
APPEND IPK.
IF ILIPS-LFIMG >= LT_MCHB-CLABS.
          ITEM_DATA-DLV_QTY = LT_MCHB-CLABS.
ELSE.
          ITEM_DATA-DLV_QTY = ILIPS-LFIMG.
ENDIF.
        ITEM_DATA-DLV_QTY_IMUNIT = ITEM_DATA-DLV_QTY .
        ITEM_DATA-FACT_UNIT_NOM = 1.
        ITEM_DATA-FACT_UNIT_DENOM = 1.
        ITEM_CONTROL-DELIV_NUMB = I_DELIVERY_NO.
        ITEM_CONTROL-DELIV_ITEM =   ITEM_DATA-DELIV_ITEM.
        ITEM_CONTROL-CHG_DELQTY = 'X'.
APPEND ITEM_CONTROL.
APPEND ITEM_DATA.
        IPK-DELIV_NUMB = I_DELIVERY_NO.
        IPK-DELIV_ITEM = ITEM_DATA-DELIV_ITEM.
        IPK-STGE_LOC = P_LGORT.
APPEND IPK.
        ILIPS-LFIMG =  ILIPS-LFIMG - ITEM_DATA-DLV_QTY.
ENDLOOP.
ENDLOOP.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
        HEADER_DATA    = HEADER_DATA
        HEADER_CONTROL = HEADER_CONTROL
        DELIVERY       = I_DELIVERY_NO
        TECHN_CONTROL  = TECHN_CONTROL
TABLES
        ITEM_DATA      = ITEM_DATA
        ITEM_CONTROL   = ITEM_CONTROL
        ITEM_DATA_SPL  = IPK[]
RETURN         = RETURN.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
DATA: I_ERROR_MESSAGES  LIKE  ARRANG_ERR.
DATA S(200).
DATA: ET_LOG LIKE RETURN.
LOOP  AT   RETURN INTO ET_LOG.
MOVE ET_LOG-TYPE             TO I_ERROR_MESSAGES-MSGTY.
MOVE ET_LOG-ID               TO I_ERROR_MESSAGES-MSGID.
MOVE  ET_LOG-NUMBER           TO I_ERROR_MESSAGES-MSGNO.
CALL FUNCTION 'MM_ARRANG_GET_MESSAGE_TEXT'
EXPORTING
          I_ERROR_MESSAGES = I_ERROR_MESSAGES
          I_LANGU          = SY-LANGU
IMPORTING
          E_TEXT           = ET_LOG-MESSAGE
EXCEPTIONS
          PARAMETER_ERROR  = 1
OTHERS           = 2.
CONCATENATE    ET_LOG-MESSAGE
                                    ET_LOG-MESSAGE_V1
                                    ET_LOG-MESSAGE_V2
                                    ET_LOG-MESSAGE_V3
                                    ET_LOG-MESSAGE_V4
INTO ET_LOG-MESSAGE.
WRITE / ET_LOG-MESSAGE.
APPEND ET_LOG TO XET_LOG.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  CHECK_POST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_DELNO  text
*----------------------------------------------------------------------*
FORM CHECK_POST  USING    P_DELNO  P_LGORT..
DATA:
      HDATA LIKE BAPIOBDLVHDRCON,
      HCTRL LIKE BAPIOBDLVHDRCTRLCON,
      IPK   LIKE TABLE OF /SPE/BAPIOBDLVITEMCONF WITH HEADER LINE,
      RET   LIKE  BAPIRET2 OCCURS 0 WITH HEADER LINE,
      HDL   LIKE TABLE OF BAPIDLVDEADLN WITH HEADER LINE.
DATA:
      ITEM_DATA    LIKE  BAPIOBDLVITEMCON  OCCURS 0 WITH HEADER LINE,
      ITEM_CONTROL LIKE  BAPIOBDLVITEMCTRLCON OCCURS 0 WITH HEADER LINE.
    HDATA-DELIV_NUMB = P_DELNO.
    HCTRL-DELIV_NUMB = P_DELNO.
    HCTRL-POST_GI_FLG = 'X'.
"標記更更實際和計劃的過賬時間， 時間的值在 HEADER_DEADLINES 參數裏添加（這個開始沒注意看幫助，走了很多彎路，才找到）
    HCTRL-DELIV_DATE_FLG = 'X'.
    HCTRL-GDSI_DATE_FLG ='X'.
SELECT POSNR VBELN  INTO (IPK-DELIV_ITEM,IPK-DELIV_NUMB) FROM LIPS WHERE VBELN = P_DELNO.
      IPK-STGE_LOC = P_LGORT.
APPEND IPK.
ENDSELECT.
*“ 查 HEADER_DEADLINES 說明得到下面提示
*- WSHDRLFDAT  Delivery date
*- WSHDRWADAT  Goods issue date (planned)
*- WSHDRWADTI  Goods issue date (actual)
*- WSHDRLDDAT  Loading date
*- WSHDRTDDAT  Transportation planning date
*- WSHDRKODAT  Picking date
*hdl-DELIV_NUMB =  delno.
*hdl-timetype = 'WSHDRWADTI'. "實際過賬日期
*hdl-timestamp_utc = date1.
*append hdl.
*
*hdl-DELIV_NUMB =  delno.
*hdl-timetype = 'WSHDRWADAT'. "計劃日期
*hdl-timestamp_utc = date1.
*append hdl.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
EXPORTING
        HEADER_DATA      = HDATA
        HEADER_CONTROL   = HCTRL
        DELIVERY         = P_DELNO
*       TECHN_CONTROL    =
*       HEADER_DATA_SPL  =
*       HEADER_CONTROL_SPL               =
TABLES
*       HEADER_PARTNER   =
*       HEADER_PARTNER_ADDR              =
        HEADER_DEADLINES = HDL
*       ITEM_DATA        = ITEM_DATA
*       ITEM_CONTROL     = ITEM_CONTROL
*       ITEM_SERIAL_NO   =
*       SUPPLIER_CONS_DATA               =
*       HANDLING_UNIT_HEADER             =
*       HANDLING_UNIT_ITEM               =
*       HANDLING_UNIT_SERNO              =
*       EXTENSION1       =
*       EXTENSION2       =
        ITEM_DATA_SPL    = IPK[]
RETURN           = RET
*       TOKENREFERENCE   =
*       HANDLING_UNIT_HEADER_CROSS       =
*       ITEM_DATA_SPL    =
*       HANDLING_UNIT_IDENTIFIERS        =
*       HANDLING_UNIT_ITEM_SPL           =
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
DATA: I_ERROR_MESSAGES  LIKE  ARRANG_ERR.
DATA: ET_LOG LIKE RET.
DATA S(200).
LOOP  AT   RET INTO ET_LOG.
MOVE ET_LOG-TYPE             TO I_ERROR_MESSAGES-MSGTY.
MOVE ET_LOG-ID               TO I_ERROR_MESSAGES-MSGID.
MOVE  ET_LOG-NUMBER           TO I_ERROR_MESSAGES-MSGNO.
CALL FUNCTION 'MM_ARRANG_GET_MESSAGE_TEXT'
EXPORTING
          I_ERROR_MESSAGES = I_ERROR_MESSAGES
          I_LANGU          = SY-LANGU
IMPORTING
          E_TEXT           = ET_LOG-MESSAGE
EXCEPTIONS
          PARAMETER_ERROR  = 1
OTHERS           = 2.
CONCATENATE    ET_LOG-MESSAGE
                                    ET_LOG-MESSAGE_V1
                                    ET_LOG-MESSAGE_V2
                                    ET_LOG-MESSAGE_V3
                                    ET_LOG-MESSAGE_V4
INTO ET_LOG-MESSAGE.
WRITE / ET_LOG-MESSAGE.
APPEND ET_LOG TO XET_LOG.
ENDLOOP.
ENDFORM.
FORM GET_PICK USING P_DELNO.
DATA:VBKOK_WA  TYPE VBKOK,
         VBPOK_TAB TYPE VBPOK OCCURS 0 WITH HEADER LINE.
    VBKOK_WA-VBELN_VL = P_DELNO.
DATA: ITPS LIKE LIPS OCCURS 0 WITH HEADER LINE.
SELECT VBELN POSNR LFIMG UECHA
INTO CORRESPONDING FIELDS OF TABLE ITPS
FROM LIPS
WHERE VBELN = P_DELNO.
LOOP AT ITPS.
      VBPOK_TAB-VBELN_VL   = ITPS-VBELN.
      VBPOK_TAB-POSNR_VL  = ITPS-POSNR.
      VBPOK_TAB-VBELN        = ITPS-VBELN.
      VBPOK_TAB-POSNN      =  ITPS-POSNR.
      VBPOK_TAB-PIKMG       =  ITPS-LFIMG .                      "實際已交貨量（按銷售單位）
APPEND VBPOK_TAB.
ENDLOOP.
DATA: PROTT LIKE  PROTT OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
EXPORTING
        VBKOK_WA  = VBKOK_WA
        SYNCHRON  = 'X'
TABLES
        VBPOK_TAB = VBPOK_TAB
        PROT      = PROTT.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDFORM.
FORM GET_PICK0 USING P_DELNO.
DATA:
      CTU              LIKE  APQI-PUTACTIVE VALUE 'X',
UPDATE           LIKE  APQI-PUTACTIVE VALUE 'L',
      I_ERROR_MESSAGES LIKE  ARRANG_ERR,
      ET_MESSTAB       LIKE  BDCMSGCOLL   OCCURS 0  WITH  HEADER   LINE,
GROUP            LIKE  APQI-GROUPID,
      USER             LIKE  APQI-USERID,
      KEEP             LIKE  APQI-QERASE,
      HOLDDATE         LIKE  APQI-STARTDATE,
      NODATA           LIKE  APQI-PUTACTIVE VALUE '/',
      SUBRC            LIKE  SY-SUBRC,
MODE             LIKE  APQI-PUTACTIVE VALUE  'N',
      I_LOG            LIKE  BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
PERFORM BDC_NODATA   USING NODATA.
PERFORM OPEN_GROUP   USING GROUP USER KEEP HOLDDATE CTU.
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'                              P_DELNO.
PERFORM BDC_DYNPRO      USING 'SAPMV50A' '1000'.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'                              '=SICH_T'.
PERFORM BDC_FIELD       USING 'LIPSD-PIKMG(01)'    ''.
PERFORM BDC_FIELD       USING 'LIPS-CHARG(01)'    ''.
PERFORM BDC_FIELD       USING 'LIPS-LGORT(01)'    ''.
PERFORM BDC_TRANSACTION TABLES ET_MESSTAB
USING 'VL02N'  CTU  MODE  UPDATE.
PERFORM CLOSE_GROUP USING CTU.
COMMIT WORK.
DATA: ET_LOG LIKE  BAPIRET2 .
DATA S(200).
LOOP  AT   ET_MESSTAB.
*    CONCATENATE     ' ET_MESSTAB-MSGID :'   ET_MESSTAB-MSGID    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGTYP: '  ET_MESSTAB-MSGTYP   INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGNR : '  ET_MESSTAB-MSGNR    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV1 : '  ET_MESSTAB-MSGV1    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV2 : '  ET_MESSTAB-MSGV2    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV3 : '  ET_MESSTAB-MSGV3    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV4 : '  ET_MESSTAB-MSGV4    INTO S. WRITE /  S.
*    CLEAR ET_LOG[].
      ET_LOG-TYPE             = ET_MESSTAB-MSGTYP.
      ET_LOG-ID               = ET_MESSTAB-MSGID.
      ET_LOG-NUMBER           = ET_MESSTAB-MSGNR.
CALL FUNCTION 'MM_ARRANG_GET_MESSAGE_TEXT'
EXPORTING
          I_ERROR_MESSAGES = I_ERROR_MESSAGES
          I_LANGU          = SY-LANGU
IMPORTING
          E_TEXT           = ET_LOG-MESSAGE
EXCEPTIONS
          PARAMETER_ERROR  = 1
OTHERS           = 2.
CONCATENATE     ET_LOG-MESSAGE  ET_MESSTAB-MSGV1 ET_MESSTAB-MSGV2 ET_MESSTAB-MSGV3 ET_MESSTAB-MSGV4   INTO ET_LOG-MESSAGE.
*    IF ET_MESSTAB-MSGNR = '311'.
*      EX_VBELN                = ET_MESSTAB-MSGV2.
**      EP_SUBRC                = 0.
*    ENDIF.
APPEND ET_LOG TO XET_LOG.
ENDLOOP.
ENDFORM.
FORM CHECK_NO_BATCH_POST USING S_LIPS TYPE LIPS ."CHANGING IS_POST TYPE C.
DATA: BEGIN OF RECORD,
* data element: VBELN_VL
            VBELN_001(025),
* data element: LGORT_D
            LGORT_01_002(004),
* data element: LFIMG
            G_LFIMG_01_003(017),
            G_PIKMG_01_003(017),
* data element: CHARG_D
            CHARG_01_004(010),
END OF RECORD.
* data element: VBELN_VL
    RECORD-VBELN_001 = S_LIPS-VBELN.
* data element: LGORT_D
    RECORD-LGORT_01_002 = S_LIPS-LGORT.
* data element: LFIMG
    RECORD-G_LFIMG_01_003 = S_LIPS-LFIMG.
* data element: CHARG_D
*  record-CHARG_01_004(010) = IP_CHARG.
    RECORD-G_PIKMG_01_003 = S_LIPS-LFIMG.
DATA:
      CTU              LIKE  APQI-PUTACTIVE VALUE 'X',
UPDATE           LIKE  APQI-PUTACTIVE VALUE 'L',
      I_ERROR_MESSAGES LIKE  ARRANG_ERR,
      ET_MESSTAB       LIKE  BDCMSGCOLL   OCCURS 0  WITH  HEADER   LINE,
GROUP            LIKE  APQI-GROUPID,
      USER             LIKE  APQI-USERID,
      KEEP             LIKE  APQI-QERASE,
      HOLDDATE         LIKE  APQI-STARTDATE,
      NODATA           LIKE  APQI-PUTACTIVE VALUE '/',
      SUBRC            LIKE  SY-SUBRC,
MODE             LIKE  APQI-PUTACTIVE VALUE  'N',
      I_LOG            LIKE  BAPIRETURN1 OCCURS 0 WITH HEADER LINE.
PERFORM BDC_NODATA   USING NODATA.
PERFORM OPEN_GROUP   USING GROUP USER KEEP HOLDDATE CTU.
*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' IP_VBELN.
*perform bdc_dynpro      using 'SAPMV50A' '1000'.
*perform bdc_field       using 'BDC_OKCODE'                            '=WABU_T'.
*perform bdc_field       using 'BDC_CURSOR'                              'LIPS-CHARG(01)'.
*perform bdc_field       using 'LIPS-LGORT(01)'                           IP_LGORT .
*perform bdc_field       using 'LIPSD-G_LFIMG(01)'                        IP_LFIMG .
*perform bdc_field       using 'LIPS-CHARG(01)'                          IP_CHARG.
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'                              S_LIPS-VBELN.
PERFORM BDC_DYNPRO      USING 'SAPMV50A' '1000'.
*  PERFORM BDC_FIELD       USING 'BDC_CURSOR'                              'LIPS-CHARG(01)'.
PERFORM BDC_FIELD       USING 'LIPS-LGORT(01)'                          S_LIPS-LGORT.
PERFORM BDC_FIELD       USING 'LIPSD-G_LFIMG(01)'                    RECORD-G_LFIMG_01_003 .
IF V_KOMRL = 'X'.
PERFORM BDC_FIELD       USING 'LIPSD-PIKMG(01)'        RECORD-G_LFIMG_01_003.
ENDIF.
*  IF  RECORD-CHARG_01_004  = ' '.
*  ELSE.
*    PERFORM BDC_FIELD       USING 'LIPS-CHARG(01)'                              RECORD-CHARG_01_004.
*  ENDIF.
PERFORM BDC_FIELD       USING 'BDC_OKCODE'                              '=WABU_T'.
PERFORM BDC_TRANSACTION TABLES ET_MESSTAB
USING 'VL02N'  CTU  MODE  UPDATE.
*  WAIT UP TO 1 SECONDS.
PERFORM CLOSE_GROUP USING CTU.
COMMIT WORK AND WAIT.
"----------------------------------------------------------------------
DATA: ET_LOG LIKE  BAPIRET2 .
DATA S(200).
LOOP  AT   ET_MESSTAB.
*    CONCATENATE     ' ET_MESSTAB-MSGID :'   ET_MESSTAB-MSGID    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGTYP: '  ET_MESSTAB-MSGTYP   INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGNR : '  ET_MESSTAB-MSGNR    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV1 : '  ET_MESSTAB-MSGV1    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV2 : '  ET_MESSTAB-MSGV2    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV3 : '  ET_MESSTAB-MSGV3    INTO S. WRITE /  S.
*    CONCATENATE     ' ET_MESSTAB-MSGV4 : '  ET_MESSTAB-MSGV4    INTO S. WRITE /  S.
*    CLEAR ET_LOG[].
      ET_LOG-TYPE             = ET_MESSTAB-MSGTYP.
      ET_LOG-ID               = ET_MESSTAB-MSGID.
      ET_LOG-NUMBER           = ET_MESSTAB-MSGNR.
CALL FUNCTION 'MM_ARRANG_GET_MESSAGE_TEXT'
EXPORTING
          I_ERROR_MESSAGES = I_ERROR_MESSAGES
          I_LANGU          = SY-LANGU
IMPORTING
          E_TEXT           = ET_LOG-MESSAGE
EXCEPTIONS
          PARAMETER_ERROR  = 1
OTHERS           = 2.
CONCATENATE     ET_LOG-MESSAGE  ET_MESSTAB-MSGV1 ET_MESSTAB-MSGV2 ET_MESSTAB-MSGV3 ET_MESSTAB-MSGV4   INTO ET_LOG-MESSAGE.
*    IF ET_MESSTAB-MSGNR = '311'.
*      EX_VBELN                = ET_MESSTAB-MSGV2.
**      EP_SUBRC                = 0.
*    ENDIF.
APPEND ET_LOG TO XET_LOG.
ENDLOOP.
ENDFORM.
*  INCLUDE BDCRECXY.