外向交货单发货过账BAPI：WS_DELIVERY_UPDATE_SAP刘梦_新浪博客

*&---------------------------------------------------------------------* 
*&外向交货单发货过账 
*&---------------------------------------------------------------------* 
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   =