SAP SAP 交货单批导三部走（带批次）

心已赠人 2023-03-14 05:49 12阅读 0赞

第一步  CALL FUNCTION 'BAPI\_OUTB\_DELIVERY\_CREATE\_SLS'

这个参数少，没有库位，批号信息

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

第二步 BADI 增强内部传值

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2][]

![20200516105516458.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6][]

第三步 修改交货单加上批次

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 8][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 9][]

源码：

*\*&---------------------------------------------------------------------\**  
REPORT zsd017.  
TABLES: sscrfields,pbim.  
  
DATA: ls\_functxt TYPE smp\_dyntxt. *"**功能代码文本*  
DATA: gv\_flag TYPE c LENGTH  2 .  
  
TYPES: BEGIN OF ty\_upload,  
         vbeln    LIKE vbap\-vbeln ,    *" **订单号*  
         posnr    LIKE vbap\-posnr ,    *" **订单行项目*  
         posnr2   LIKE vbap\-posnr ,    *" **订单行项目*  
         erdat    LIKE lips\-erdat,  
         posnr3   LIKE lips\-posnr,  
         lgort    LIKE lips\-lgort,  
         lfimg    LIKE lips\-lfimg,  
         charg    TYPE  lips\-charg,  
         pc02     TYPE c LENGTH 10,  
         vbeln\_dn TYPE lips\-vbeln,  
         icon     TYPE icon\_d,  
         zmsg     TYPE char255,  
         zmsg2    TYPE char255,  
       END OF ty\_upload.  
  
  
  
  
DATA: lf\_vbeln  TYPE vbeln\_vl,  
      lf\_num    TYPE vbnum,  
      ls\_deli   TYPE bapishpdelivnumb,  
      lt\_deli   TYPE TABLE OF bapishpdelivnumb,  
      lt\_order  TYPE TABLE OF bapidlvreftosalesorder,  
      ls\_order  TYPE bapidlvreftosalesorder,  
      ls\_itm    TYPE bapidlvitemcreated,  
      lt\_itm    TYPE TABLE OF bapidlvitemcreated,  
      ls\_ext    TYPE bapiparex,  
      lt\_extin  TYPE TABLE OF bapiparex,  
      lt\_extout TYPE TABLE OF bapiparex,  
      ls\_ret    TYPE bapiret2,  
      lt\_return TYPE TABLE OF bapiret2.  
  
TYPES:BEGIN OF ty\_vbap,  
        vbeln  LIKE vbap\-vbeln,  
        posnr  LIKE vbap\-posnr,  
        kwmeng LIKE vbap\-kwmeng,  
        meins  LIKE vbap\-meins,  
      END OF ty\_vbap.  
  
DATA:it\_vbap TYPE TABLE OF ty\_vbap.  
DATA:ws\_vbap TYPE ty\_vbap.  
  
DATA: gt\_out TYPE TABLE OF ty\_upload,  
      gs\_out TYPE ty\_upload.  
  
  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
PARAMETERS: p\_erdat  LIKE vbak\-erdat  OBLIGATORY .  
  
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT\-001.  
  PARAMETERS: p\_path LIKE rlgrap\-filename MODIF ID m1.  
SELECTION-SCREEN END OF BLOCK blk1.  
  
  
  
INITIALIZATION.  
  SELECTION-SCREEN: FUNCTION KEY 1.  
  
  ls\_functxt\-icon\_id   = icon\_export.     *"**给**FUNCTXT\_01**按钮设置图标*  
  ls\_functxt\-quickinfo = '模版选择下载'.   *"**给**FUNCTXT\_01**按钮设置指针悬停文本*  
  ls\_functxt\-icon\_text = '模板选择下载'.   *"**给**FUNCTXT\_01**按钮设置显示文本*  
  sscrfields\-functxt\_01 = ls\_functxt.  
  
AT SELECTION-SCREEN.  
  IF sy\-ucomm = 'FC01'.  
    PERFORM frm\_download.  
  ENDIF.  
  
  
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p\_path.  
  
  DATA: l\_filename LIKE rlgrap\-filename.  
  
  CALL FUNCTION 'WS\_FILENAME\_GET'  
    EXPORTING  
*\*     DEF\_FILENAME     = ',\*.XLSX,\*.XLSX;,\*.XLS,\*.XLS;'*  
*\*     DEF\_PATH         = ' '*  
      mask             = ',Excel file,\*.xls;\*.xlsx;'  *"*  
      mode             = 'O'  
*\*     TITLE            = ' '*  
    IMPORTING  
      filename         = l\_filename  
*\*     RC               =*  
    EXCEPTIONS  
      inv\_winsys       = 1  
      no\_batch         = 2  
      selection\_cancel = 3  
      selection\_error  = 4  
      OTHERS           = 5.  
  IF sy\-subrc = 0.  
    p\_path  = l\_filename.  
  ENDIF.  
  
START-OF-SELECTION.  
  *"**提示选择导入文件*  
  IF p\_path IS INITIAL.  
    MESSAGE '请选择导入文件！' TYPE 'S' DISPLAY LIKE 'E'.  
    LEAVE LIST-PROCESSING.  
    RETURN.  
  ENDIF.  
  PERFORM frm\_upload.  
  PERFORM check\_data .  
  PERFORM display\_alv .  
  
  
  
*\*----------------------------------------------------------------------\**  
*\* END-OF-SELECTION                                                     \**  
*\*----------------------------------------------------------------------\**  
END-OF-SELECTION.  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_UPLOAD*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_upload .  
  
  DATA:  
    lt\_excel\_data                 TYPE zsalsmex\_tabline2 OCCURS 0 WITH HEADER LINE,  
    ls\_excel\_data                 TYPE zsalsmex\_tabline2,  
    ls\_result                     TYPE TY\_upload,  
    lr\_cx\_sy\_conversion\_no\_number TYPE REF TO cx\_sy\_conversion\_no\_number.  
  FIELD-SYMBOLS:  
    <fs\_value>.  
  
  CALL FUNCTION 'ZALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
    EXPORTING  
      filename                = p\_path  
      i\_begin\_col             = 1  
      i\_begin\_row             = 2        *"**读取开始行**:*  
      i\_end\_col               = 90       *"**读取的列数*  
      i\_end\_row               = 50000    *"**最多读取**5**万行** "65535.*  
    TABLES  
      intern                  = lt\_excel\_data  
    EXCEPTIONS  
      inconsistent\_parameters = 1  
      upload\_ole              = 2  
      OTHERS                  = 3.  
  
  LOOP AT lt\_excel\_data INTO ls\_excel\_data.  
    AT NEW row.  
      CLEAR ls\_result.  
    ENDAT.  
  
    TRY.  
        ASSIGN COMPONENT ls\_excel\_data\-col OF STRUCTURE LS\_result TO <fs\_value>.  
        MOVE ls\_excel\_data\-value TO <fs\_value>.  
      CATCH cx\_sy\_conversion\_no\_number INTO lr\_cx\_sy\_conversion\_no\_number.  
  
  
    ENDTRY.  
  
    AT END OF row.  
  
      APPEND ls\_result TO gt\_out .  
    ENDAT.  
  ENDLOOP.  
  
*\*  MOVE-CORRESPONDING gt\_upload\[\] TO gt\_alv\[\].*  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_DOWNLOAD*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_download .  
  DATA: lw\_key        TYPE wwwdatatab,  
        l\_filename    TYPE string,  
        l\_path        TYPE string,  
        l\_fullpath    TYPE string,  
        l\_destination TYPE rlgrap\-filename.  
  DATA: lv\_objid     TYPE w3objid VALUE 'ZSD017',  
        lv\_fieldname TYPE string.  
  
  lv\_fieldname = '交货单批导模板'.  
*\* **判断模版是否存在*  
  SELECT SINGLE \*  
  INTO CORRESPONDING FIELDS OF lw\_key  
  FROM wwwdata  
  WHERE relid EQ 'MI'  
  AND   objid EQ lv\_objid.  
  IF sy\-subrc NE 0.  
*\*    MESSAGE S000(ZZZCOMMON001) WITH UV\_OBJID.*  
    RETURN.  
  ENDIF.  
  
*\* **调用函数打开文件选择框*  
  CALL METHOD cl\_gui\_frontend\_services=>file\_save\_dialog  
    EXPORTING  
      default\_extension         = cl\_gui\_frontend\_services=>filetype\_excel  
      default\_file\_name         = lv\_fieldname  
      file\_filter               = 'EXCEL文件(\*.XLS)|\*.XLS|全部文件 (\*.\*)|\*.\*|'  
    CHANGING  
      filename                  = l\_filename  
      path                      = l\_path  
      fullpath                  = l\_fullpath  
    EXCEPTIONS  
      cntl\_error                = 1  
      error\_no\_gui              = 2  
      not\_supported\_by\_gui      = 3  
      invalid\_default\_file\_name = 4  
      OTHERS                    = 5.  
  IF sy\-subrc <> 0.  
  ENDIF.  
  CHECK l\_fullpath NE ''.  
  
*\* **下载模版*  
  l\_destination = l\_fullpath.  
  CALL FUNCTION 'DOWNLOAD\_WEB\_OBJECT'  
    EXPORTING  
      key         = lw\_key  
      destination = l\_destination.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form frm\_dn\_create*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_dn\_create .  
  DATA: i\_vbkok TYPE vbkok.  
  
  DATA: lv\_vstel LIKE likp\-vstel,  
        lv\_vbeln LIKE likp\-vbeln.  
  DATA: lt\_soitem    LIKE bapidlvreftosalesorder OCCURS 0 WITH HEADER LINE,  
        lt\_return    LIKE bapiret2 OCCURS 0 WITH HEADER LINE,  
        lt\_extension LIKE bapiparex OCCURS 0 WITH HEADER LINE.  
  DATA: lv\_mseg(220).  
  
  DATA:lt\_out LIKE TABLE OF gs\_out .  
  DATA: ls\_out LIKE gs\_out .  
  DATA: lv\_vygid TYPE likp\-itm\_vygid .  
  
  lt\_out = gt\_out .  
  SORT lt\_out BY   vbeln   posnr   posnr2    .  
  DELETE ADJACENT DUPLICATES FROM lt\_out  COMPARING vbeln posnr posnr2 .  
  LOOP AT lt\_out INTO ls\_out .  
    lv\_vygid = 'BADI2' .  
    LOOP AT gt\_out   INTO gs\_out WHERE  vbeln = ls\_out\-vbeln AND posnr = ls\_out\-posnr AND posnr2 = ls\_out\-posnr2 AND posnr3  EQ '10' .  
      lv\_vstel =  'Z001'.  
      REFRESH: lt\_soitem, lt\_return.  
      CLEAR: lt\_soitem, lt\_return.  
  
      lt\_soitem\-ref\_doc     = gs\_out\-vbeln.  
      lt\_soitem\-ref\_item    = gs\_out\-posnr.  
      lt\_soitem\-dlv\_qty     = gs\_out\-lfimg.  
      SELECT SINGLE meins INTO lt\_soitem\-sales\_unit FROM vbap WHERE vbeln = GS\_out\-vbeln AND posnr = gs\_out\-posnr .  
      APPEND lt\_soitem.  
      CLEAR lt\_soitem.  
    ENDLOOP.  
    *"**传值给内存*  
    EXPORT ls\_out\-lgort  TO MEMORY ID 'zsd0117lgort'.  
    EXPORT lv\_vygid  TO MEMORY ID 'zsd0117vygid'.  
  
    IF lt\_soitem\[\] IS NOT INITIAL.  
      CALL FUNCTION 'BAPI\_OUTB\_DELIVERY\_CREATE\_SLS'  
        EXPORTING  
          ship\_point        = lv\_vstel  
          due\_date          = p\_erdat  
        IMPORTING  
          delivery          = lv\_vbeln  
        TABLES  
          sales\_order\_items = lt\_soitem  
          return            = lt\_return.  
  
      READ TABLE lt\_return WITH KEY type = 'E'.  
      IF sy\-subrc <> 0.  
        CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
          EXPORTING  
            wait = 'X'.  
        LOOP AT gt\_out INTO gs\_out WHERE vbeln = ls\_out\-vbeln AND posnr = ls\_out\-posnr AND posnr2 = ls\_out\-posnr2  .  
*\*      SELECT \* INTO TABLE gt\_lips FROM lips WHERE vbeln = lv\_vbeln AND posnr < '900000'.*  
*\*      LOOP AT gt\_Out   WHERE refno = gt\_do-refno AND vstel = gt\_do-vstel.*  
          gs\_out\-vbeln\_dn = lv\_vbeln.  
          gs\_out\-zmsg    = '导入成功,批次未成功'.  
          gs\_out\-icon = icon\_led\_yellow.  
*\*          CLEAR: gt\_lips.*  
*\*          READ TABLE gt\_lips WITH KEY vgbel = gt\_result-vbeln vgpos = gt\_result-posnr.*  
*\*          gt\_result-posnr\_vl = gt\_lips-posnr.*  
          MODIFY gt\_out  FROM  gs\_out  TRANSPORTING vbeln\_dn   zmsg icon.  
        ENDLOOP.  
*\*      IF p\_pgi = 'X'.*  
*\*        CLEAR lv\_mseg.*  
*\*        PERFORM pgi\_dn USING lv\_vbeln CHANGING lv\_mseg.*  
*\*        IF lv\_mseg IS NOT INITIAL.*  
*\*          gt\_result-zmsg = '**自动过帐失败！**' && lv\_mseg.*  
*\*          gt\_result-icon = icon\_led\_green.*  
*\*          MODIFY gt\_result TRANSPORTING zmsg icon WHERE refno = gt\_do-refno AND vstel = gt\_do-vstel.*  
*\*        ENDIF.*  
*\*      ENDIF.*  
      ELSE.  
        CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'.  
        CLEAR: lv\_mseg.  
        LOOP AT lt\_return WHERE type = 'E'.  
          CONCATENATE lv\_mseg lt\_return\-message INTO lv\_mseg SEPARATED BY '|'.  
        ENDLOOP.  
        LOOP AT gt\_out INTO gs\_out WHERE vbeln = ls\_out\-vbeln AND posnr = ls\_out\-posnr AND posnr2 = ls\_out\-posnr2  .  
          gs\_out\-vbeln\_dn = ''.  
          gs\_out\-icon = icon\_led\_red.  
          gs\_out\-zmsg    = lv\_mseg.  
          MODIFY gt\_out FROM   gs\_out  TRANSPORTING   zmsg icon  .  
        ENDLOOP .  
      ENDIF.  
    ENDIF.  
    FREE MEMORY  ID  'zsd0117lgort'.  
  ENDLOOP .  
  *"**拆分批次*  
  WAIT UP TO 2  SECONDS .  
  DATA:  
    lit\_header\_partner   LIKE TABLE OF bapidlvpartnerchg           , *"**交货：合作伙伴更改*  
    lit\_header\_deadlines LIKE TABLE OF bapidlvdeadln               , *"**交货截止日期*  
    lit\_item\_data        LIKE TABLE OF bapiobdlvitemchg            , *"**更改外向交货拣配数据项目等级*  
    lit\_item\_control     LIKE TABLE OF bapiobdlvitemctrlchg        , *"**外向交货项目级别控制数据*  
    lit\_ret              LIKE TABLE OF bapiret2   WITH HEADER LINE , *"**返回参数*  
    lit\_item\_data\_spl    LIKE TABLE OF /spe/bapiobdlvitemchg       , *"**更改向外交货拣配数据项目等级（**SPE**）*  
    is\_header\_data       LIKE          bapiobdlvhdrchg             , *"**更改外向交货拣配数据表头等级*  
    is\_header\_control    LIKE          bapiobdlvhdrctrlchg         , *"**外向交货标题级别控制数据*  
    iv\_delivery          LIKE          bapiobdlvhdrchg\-deliv\_numb  . *"**交货*  
  
  DATA:  
    lwa\_header\_partner   LIKE          bapidlvpartnerchg           , *"**交货：合作伙伴更改*  
    lwa\_header\_deadlines LIKE          bapidlvdeadln               , *"**交货截止日期*  
    lwa\_item\_data        LIKE          bapiobdlvitemchg            , *"**更改外向交货拣配数据项目等级*  
    lwa\_item\_control     LIKE          bapiobdlvitemctrlchg        , *"**外向交货项目级别控制数据*  
    lwa\_return           LIKE          bapiret2                    . *"**返回参数*  
  
  
  DATA: l\_techn\_control  TYPE bapidlvcontrol.  
  DATA:  
    ls\_item         TYPE bapiobdlvitemchg,  
    ls\_item\_t       TYPE bapiobdlvitemchg,  
    ls\_item\_control TYPE bapiobdlvitemctrlchg,  
    ls\_deadlines    TYPE bapidlvdeadln.  
  
  CLEAR : ls\_out ,lt\_out\[\] .  
  lt\_out = gt\_out .  
  SORT lt\_out BY   vbeln      posnr    posnr2    .  
  DELETE ADJACENT DUPLICATES FROM lt\_out  COMPARING vbeln posnr posnr2 .  
  
  DATA : lv\_lfimg    LIKE lips\-lfimg .  
*\*  DATA : lv\_posnr\_old LIKE lwa\_item\_data-hieraritem .*  
  DATA : lv\_posnr\_old LIKE lips\-posnr .  
  LOOP AT lt\_out INTO ls\_out WHERE vbeln\_dn <> '' .  
    *"**抬头信息*  
    iv\_delivery = ls\_out\-vbeln\_dn .  
    is\_header\_data\-deliv\_numb     = ls\_out\-vbeln\_dn . *"**交货单号*  
    is\_header\_control\-deliv\_numb  = ls\_out\-vbeln\_dn .  
    lv\_lfimg  = 0 .  
  
    *"**拆分批次项目*  
    *"**获取原来行项目*  
    SELECT SINGLE posnr INTO  lv\_posnr\_old  
      FROM lips  
     WHERE vbeln =  ls\_out\-vbeln\_dn  
     AND vgbel = ls\_out\-vbeln  
     AND vgpos = ls\_out\-posnr .  
  
    LOOP AT gt\_out   INTO gs\_out WHERE posnr3+0(1) EQ '9' AND vbeln\_dn  = ls\_out\-vbeln\_dn .  
      CLEAR lwa\_item\_data.  
      lwa\_item\_data\-deliv\_numb = gs\_out\-vbeln\_dn.  
      lwa\_item\_data\-deliv\_item = gs\_out\-posnr3.       *"**拆分后的新行项目*  
      *"**上级行项目**(**交货单行项目**)*  
      lwa\_item\_data\-hieraritem = lv\_posnr\_old.             *"**上级行项目*  
  
      lwa\_item\_data\-batch      = gs\_out\-charg.   *"**新批次*  
      lwa\_item\_data\-dlv\_qty    = gs\_out\-lfimg.              *"**自己重新计算拆分后的数量，*  
      lwa\_item\_data\-dlv\_qty\_imunit = gs\_out\-lfimg.  
      lwa\_item\_data\-fact\_unit\_nom   = 1.       *"**销售数量转换成**SKU**的分子**(**因子**)*  
      lwa\_item\_data\-fact\_unit\_denom = 1.       *"**销售数量转换为** SKU **的值（除数）*  
*\*lwa\_item\_data-base\_uom        = 'KG'.    "**基本单位*  
*\*lwa\_item\_data-sales\_unit      = 'KG'.    "**销售单位*  
      lwa\_item\_data\-usehieritm      = '1'.  
  
      *"ctrol*  
      CLEAR lwa\_item\_control.  
      lwa\_item\_control\-deliv\_numb = gs\_out\-vbeln\_dn.  
      lwa\_item\_control\-deliv\_item = gs\_out\-posnr3. . *"**拆分后的新行项目*  
      lwa\_item\_control\-chg\_delqty = 'X'.      *"**数量修改标志*  
      APPEND lwa\_item\_control TO lit\_item\_control  .  
  
  
      APPEND lwa\_item\_data TO lit\_item\_data.  
      lv\_lfimg = lv\_lfimg + gs\_out\-lfimg .  
    ENDLOOP.  
    *"**原来行项目修改*  
    CLEAR lwa\_item\_data.  
    lwa\_item\_data\-deliv\_numb     =  ls\_out\-vbeln\_dn.  
    lwa\_item\_data\-deliv\_item     = lv\_posnr\_old.      *"**原行项目*  
    lwa\_item\_data\-batch          = ls\_out\-charg.  
    lwa\_item\_data\-dlv\_qty        =  ls\_out\-lfimg \- lv\_lfimg .  
    lwa\_item\_data\-dlv\_qty\_imunit = ls\_out\-lfimg \- lv\_lfimg ..  
*\*lwa\_item\_data-base\_uom       = 'KG'.    "**基本单位*  
*\*lwa\_item\_data-sales\_unit     = 'KG'.    "**销售单位*  
  
    lwa\_item\_data\-fact\_unit\_nom   = 1.      *"**销售数量转换成**SKU**的分子**(**因子**)*  
    lwa\_item\_data\-fact\_unit\_denom = 1.     *"**销售数量转换为** SKU **的值（除数）*  
  
    APPEND lwa\_item\_data TO lit\_item\_data .  
  
    CLEAR lwa\_item\_control.  
    lwa\_item\_control\-deliv\_numb = ls\_out\-vbeln\_dn.  
    lwa\_item\_control\-deliv\_item = lv\_posnr\_old.       *"**原行项目*  
    lwa\_item\_control\-chg\_delqty = 'X'.      *"**数量修改标志*  
  
    APPEND lwa\_item\_control TO lit\_item\_control.  
  
  
    CALL FUNCTION 'BAPI\_OUTB\_DELIVERY\_CHANGE'  
      EXPORTING  
        header\_data      = is\_header\_data  
        header\_control   = is\_header\_control  
        delivery         = iv\_delivery  
      TABLES  
        header\_partner   = lit\_header\_partner  
        header\_deadlines = lit\_header\_deadlines  
        item\_data        = lit\_item\_data  
        item\_control     = lit\_item\_control  
        return           = lit\_ret.  
  
    CLEAR :  lit\_item\_data\[\] .  
    CLEAR : lit\_item\_control\[\] .  
  
    IF lit\_ret\[\] IS INITIAL.  
      COMMIT WORK AND WAIT.  
  
      LOOP AT gt\_out   INTO gs\_out WHERE  vbeln\_dn  = ls\_out\-vbeln\_dn .  
        gs\_out\-zmsg2 = '批次拆分成功' .  
        gs\_out\-zmsg    = '导入成功'.  
        gs\_out\-icon = icon\_led\_green.  
        MODIFY gt\_out FROM gs\_out .  
      ENDLOOP .  
    ELSE .  
      CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'.  
  
  
  
    ENDIF.  
  
    CLEAR : lit\_ret\[\] .  
  
  
  ENDLOOP .  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form display\_alv*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM display\_alv .  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'ICON' '状态' .  
  append\_field: 'ZMSG' '创建消息' .  
  append\_field: 'ZMSG2' '拆分消息' .  
  append\_field: 'VBELN\_DN' '交货单号' .  
  append\_field: 'VBELN' '销售订单号' .  
  append\_field: 'POSNR' '销售订单行项目' .  
  *" append\_field: 'ZZNME' '**物料名称**' .*  
  append\_field: 'POSNR2' '自定义交货单号' .  
  append\_field: 'ERDAT' '送货日期' .  
  append\_field: 'POSNR3' '交货单行项目'.  
  append\_field: 'LGORT' '库位' .  
  append\_field: 'LFIMG' '出货数量' .  
  append\_field: 'CHARG' '生产批次' .  
  
  
  
  
*\*  gs\_layout-box\_fieldname = 'MARK'.*  
  gs\_layout\-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy\-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
*\**  
*\*     I\_GRID\_SETTINGS          =*  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
*\*     ES\_EXIT\_CAUSED\_BY\_USER   =*  
    TABLES  
      t\_outtab                 = gt\_out  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
ENDFORM.  
  
FORM frm\_status\_set USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  
  IF  sy\-ucomm EQ 'IMPORT' .  
    IF gv\_flag <> 'NG' .  
      PERFORM frm\_dn\_create.  
      us\_selfield\-refresh = 'X'.  
    ELSE .  
      MESSAGE '导入数据有问题，请修正后再导入'  TYPE 'E' .  
    ENDIF .  
  ENDIF .  
ENDFORM .  
*\*&---------------------------------------------------------------------\**  
*\*& Form check\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM check\_data .  
  
  DATA: lt\_out LIKE TABLE OF gs\_out .  
  DATA: ls\_out LIKE gs\_out .  
  DATA : lv\_charg LIKE mchb\-charg .  
  DATA : lv\_matnr LIKE mara\-matnr .  
  LOOP AT gt\_out INTO gs\_out .  
    SELECT SINGLE matnr INTO lv\_matnr FROM vbap WHERE vbeln =   gs\_out\-vbeln AND posnr = gs\_out\-posnr  .  
    CLEAR : lv\_charg .  
    SELECT  SINGLE charg  INTO lv\_charg  
       FROM mch1  
      WHERE  matnr =  lv\_matnr  
      AND charg = gs\_out\-charg.  
  
    IF lv\_charg IS INITIAL .  
      gs\_out\-icon =  icon\_led\_red .  
      gs\_out\-zmsg = '批次不存在' .  
      Gv\_flag = 'NG' .  
    ELSE.  
      gs\_out\-icon =  icon\_led\_green .  
      gs\_out\-zmsg = '批次检查通过' .  
  
    ENDIF .  
    MODIFY gt\_out FROM gs\_out .  
  
  ENDLOOP .  
  
  SORT gt\_out BY posnr posnr .  
  LOOP AT gt\_out INTO gs\_out  .  
    IF gs\_out+0(1) <> '9'.  
      ls\_out\-lfimg = ls\_out\-lfimg + gs\_out\-lfimg .  
    ENDIF .  
    ls\_out\-vbeln = gs\_out\-vbeln .  
    ls\_out\-posnr = gs\_out\-posnr .  
    AT END OF posnr .  
      APPEND ls\_out TO lt\_out .  
      CLEAR :ls\_out .  
    ENDAT .  
  
  ENDLOOP .  
  
  
  
  
  
  
ENDFORM.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20230312/ac98c228e2304ebba6882bc36a097709.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20230312/8393cc6832e14596bb1cc5086b06d861.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 2]: /images/20230312/07a331e7ef85443cae193a9aadd6e7fa.png
[20200516105516458.png]: /images/20230312/8f327fb3f7fb48cb990175989ec0723c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 3]: /images/20230312/9752c87e722440869ee5303215d0d41a.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 4]: /images/20230312/854e2a1e77ed4bfabd3e3341adec243d.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 5]: /images/20230312/31c987753adb4a4e86500498f96e27fe.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 6]: /images/20230312/656b9639c50649dda7cdd98ff2c1cce6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 7]: /images/20230312/9dc1f236ad734115ae74e05ac827029c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 8]: /images/20230312/dafd812a4a19484cbccbbe987f269460.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 9]: /images/20230312/8faaf177d7d64731acfb33f8ce63a5bd.png