外向交货单发货过账BAPI：WS_DELIV…

*&---------------------------------------------------------------------*
*&外向交货单发货过账
*&---------------------------------------------------------------------*
PARAMETERS: P_VBELN TYPE VBELN.                                        "外向交货单

DATA:G_LIKP  
     
     
 LIKE    
     
     
  LIKP.
DATA:I_VBKOK    
     
  TYPE    
     
     
 VBKOK.
DATA:LT_LIPS  
     
   
  LIKE TABLE OF
  LIPS  
  WITH HEADER LINE.
DATA:I_VBPOK_TAB  
 TYPE TABLE OF
 VBPOK WITH HEADER LINE.
DATA ET_PROT  
     
 
 LIKE TABLE OF
  PROTT WITH HEADER LINE.

START-OF-SELECTION.

“获取交货单数据

  SELECT SINGLE * INTO G_LIKP FROM LIKP

    WHERE VBELN = P_VBELN.

  SELECT * INTO TABLE LT_LIPS FROM LIPS

    WHERE VBELN = G_LIKP-VBELN.

  "-----VL02N--------

  I_VBKOK-VBELN_VL
     
   
  = P_VBELN.
     
     
     
 
 "<- Delivery number

  I_VBKOK-WABUC
     
     
 
 = 'X'.
     
     
     
     
     
 
 "<- Automatic PGI

  I_VBKOK-WADAT_IST          = G_LIKP-BLDAT.

  "填充行项目数据

  LOOP AT LT_LIPS.

    I_VBPOK_TAB-VBELN_VL
     
  = P_VBELN.
     
     
     
 "<- Delivery number

    I_VBPOK_TAB-POSNR_VL
     
 = LT_LIPS-POSNR.

    I_VBPOK_TAB-VBELN
     
     
 = P_VBELN .

    I_VBPOK_TAB-POSNN
     
   
  = LT_LIPS-POSNR.

    I_VBPOK_TAB-MATNR
     
   
 = LT_LIPS-MATNR.             "Material Number

    I_VBPOK_TAB-PIKMG
     
   
  = LT_LIPS-LFIMG  .

    APPEND I_VBPOK_TAB.

  ENDLOOP.

  CALL FUNCTION 'WS_DELIVERY_UPDATE'

    EXPORTING

      VBKOK_WA
     
 
  = I_VBKOK

      COMMIT
     
     
  = 'X'

      DELIVERY
     
     
 = P_VBELN

      UPDATE_PICKING = 'X'

    TABLES

      VBPOK_TAB
     
   
  = I_VBPOK_TAB

      PROT
     
     
     
 
  = ET_PROT

    EXCEPTIONS

      ERROR_MESSAGE  = 1

      OTHERS