在交货中插入批次拆分项目

2020-08-18 05:14发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


人们好,

一个非常快速的问题。 我正在挖掘信息,以便将某个批次拆分的物料通过某个时间的FM WS_DELIVERY_UPDATE插入到外向交货中。 毫无疑问,时间表紧迫,我不得不选择BDC,它不是那么优雅,我想知道你们中的大师们是否已经设法在交货中为常规物料插入了批次拆分物料。 示例代码就是我想要的,建议被邀请

非常感谢。

ZAM

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


人们好,

一个非常快速的问题。 我正在挖掘信息,以便将某个批次拆分的物料通过某个时间的FM WS_DELIVERY_UPDATE插入到外向交货中。 毫无疑问,时间表紧迫,我不得不选择BDC,它不是那么优雅,我想知道你们中的大师们是否已经设法在交货中为常规物料插入了批次拆分物料。 示例代码就是我想要的,建议被邀请

非常感谢。

ZAM

付费偷看设置
发送
9条回答
ZJXianG
1楼-- · 2020-08-18 05:52

您好,ZAMUser,

我玩过批量拆分的物品,这只是代码的一小部分。 在这段代码中,我尝试更新交货数量。 也许会对您有帮助

致谢

弗雷德里克

(评论为法语,我会播放特殊的消息和文字)

 * Livraison
     刷新wlt_btc。
     移动:" SAPMV50A"到wlt_btc-program,
            '4004'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     移动:'BDC_OKCODE'到wlt_btc-fnam,
            '/00'到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。
     移动:'LIKP-VBELN'到wlt_btc-fnam,
            wlt_badge-vbeln到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。

 * PoPo。
     移动:" SAPMV50A"到wlt_btc-program,
            '1000'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     移动:'BDC_OKCODE'到wlt_btc-fnam,
            '= POPO_T'到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。

 *邮政。
     如果wlt_badge-uecha等于'00000000'。
       将wlt_badge-posnr移至wlv_poste。
     其他。
       将wlt_badge-uecha移至wlv_poste。
     万一。
     移动:" SAPMV50A"到wlt_btc-program,
            '0111'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     移动:'BDC_OKCODE'到wlt_btc-fnam,
            '= WEIT'到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。
     移动:'RV50A-POSNR'到wlt_btc-fnam,
            wlv_poste到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。

 *马克斯·勒·波斯特
     移动:" SAPMV50A"到wlt_btc-program,
            '1000'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     如果wlt_badge-uecha ne为'00000000'。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= CHSP_T'到wlt_btc-fval。
     其他。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= IDET_T'到wlt_btc-fval。
     万一。
     附加wlt_btc。
     清除wlt_btc。
     移动:'BDC_CURSOR'到wlt_btc-fnam,
            'LIPS-POSNR(01)'到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。

     如果wlt_badge-uecha ne为'00000000'。
 * Recherche le sous poste。
       移动:" SAPMV50A"到wlt_btc-program,
              '3000'到wlt_btc-dynpro,
              " x"到wlt_btc-dynbegin。
       附加wlt_btc。
       清除wlt_btc。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= POPO_T'到wlt_btc-fval。
       附加wlt_btc。
       清除wlt_btc。

 *苏斯·波斯特(Sous Poste)。
       移动:" SAPMV50A"到wlt_btc-program,
              '0111'到wlt_btc-dynpro,
              " x"到wlt_btc-dynbegin。
       附加wlt_btc。
       清除wlt_btc。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= WEIT'到wlt_btc-fval。
       附加wlt_btc。
       清除wlt_btc。
       移动:'RV50A-POSNR'到wlt_btc-fnam,
              wlt_badge-posnr到wlt_btc-fval。
       附加wlt_btc。
       清除wlt_btc。

 *马克斯·勒索邮政
       移动:" SAPMV50A"到wlt_btc-program,
              '3000'到wlt_btc-dynpro,
              " x"到wlt_btc-dynbegin。
       附加wlt_btc。
       清除wlt_btc。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= CDET_T'到wlt_btc-fval。
       附加wlt_btc。
       清除wlt_btc。
       移动:'BDC_CURSOR'到wlt_btc-fnam,
              'LIPS-POSNR(01)'到wlt_btc-fval。
       附加wlt_btc。
       清除wlt_btc。
     万一。



 * Onglet Qtt
     移动:" SAPMV50A"到wlt_btc-program,
            '3000'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     如果wlt_badge-uecha ne为'00000000'。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= T04'到wlt_btc-fval。
     其他。
       移动:'BDC_OKCODE'到wlt_btc-fnam,
              '= T05'到wlt_btc-fval。
     万一。
     附加wlt_btc。
     清除wlt_btc。

 * Miseàjour Qttlivrée
     移动:" SAPMV50A"到wlt_btc-program,
            '3000'到wlt_btc-dynpro,
            " x"到wlt_btc-dynbegin。
     附加wlt_btc。
     清除wlt_btc。
     移动:'BDC_OKCODE'到wlt_btc-fnam,
            '= SICH_T'到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。
     移动:'LIPS-LFIMG'到wlt_btc-fnam,
            wlv_poids到wlt_btc-fval。
     附加wlt_btc。
     清除wlt_btc。



 * Appels du电话交易。
     使用wlt_btc调用事务'VL02N'
                               模式" N"
                               更新'
                               消息进入wlt_error。
     按msgid msgnr排序wlt_error。
 *二进制搜索
     读取表wlt_error
          键为msgid ='ZTPL'
                   msgnr ='011'
          二进制搜索。
     如果是sy-subrc eq空间。
       消息i011(ztpl)和wlt_error-msgv1 wlt_error-msgv2。
     其他。
       读取表wlt_error
            键为msgid ='ZTPL'
                     msgnr ='010'
            二进制搜索。
       如果是sy-subrc eq空间。
         消息i010(ztpl)和wlt_error-msgv1 wlt_error-msgv2。
       其他。
 *搜寻二元搜索结果
         读取表wlt_error
              没有运输领域
              键为msgtyp ='E'。
         如果是sy-subrc eq空间。
           带有文本e01的消息i398(00)。
         其他。
 *大众化的丹麦之音
 * de livraison。
           连接wlt_lips-vbeln
                       wlt_lips-posnr
                       变成wlv_tdname。
 * Masse网。
           移动:'VBBP'到wls_thead-tdobject,
                  wlv_tdname到wls_thead-tdname,
                  'YP09'到wls_thead-tdid,
                  wlv_langu至wls_thead-tdspras。
           移动:wlt_bascule-poids到wls_tdline-tdline,
                  '*'到wls_tdline-tdformat。
           刷新wlt_tdline。
           将wls_tdline附加到wlt_tdline。
           调用函数" SAVE_TEXT"
             出口
               标头= wls_thead
               savemode_direct ='X'
             桌子
               行数= wlt_tdline
             例外情况
               id = 1
               语言= 2
               名称= 3
               对象= 4
               其他= 5。
 * Masse brut。
           移动:" YP07"到wls_thead-tdid,
                  wlt_bascule-poid2到wls_tdline-tdline,
                  '*'为wls_tdline-tdformat。
           刷新wlt_tdline。
           将wls_tdline附加到wlt_tdline。
           调用函数" SAVE_TEXT"
             出口
               标头= wls_thead
               savemode_direct ='X'
             桌子
               行数= wlt_tdline
             例外情况
               id = 1
               语言= 2
               名称= 3
               对象= 4
               其他= 5。
 *皮重。
           移动:" YP08"到wls_thead-tdid,
                  wlt_bascule-poid3到wls_tdline-tdline,
                  '*'为wls_tdline-tdformat。
           刷新wlt_tdline。
           将wls_tdline附加到wlt_tdline。
           调用函数" SAVE_TEXT"
             出口
               标头= wls_thead
               savemode_direct ='X'
             桌子
               行数= wlt_tdline
             例外情况
               id = 1
               语言= 2
               名称= 3
               对象= 4
               其他= 5。
         万一。
       万一。
     万一。

 
代楠1984
2楼-- · 2020-08-18 05:59

嗨! 我想在交付中插入批量拆分项目。 该怎么做。

您能告诉我您如何使用带有示例代码的bapi解决此问题

SAP小菜
3楼-- · 2020-08-18 05:52

感谢VJ的回复,但是我需要标准的FM/BAPI才能完成此工作 。 我也在看

WS_DELIVERY_UPDATE_2,它将更新出站交货。

如果您还有其他解决方法,请告诉我。

谢谢

Raj

路亽曱_Ryan
4楼-- · 2020-08-18 05:54

你好普拉萨德,

将近8年之后,来自葡萄牙的问候????您的帖子对我非常有用。

此致

João

nice_wp
5楼-- · 2020-08-18 06:03

嗨,

我有类似的要求,但无法找到FM或BAPI对外向交货执行多个批次拆分。 您可以使用WS_DELIVERY_UPDATE/2分配单个批处理编号,但不会执行批处理拆分。

我相信4.7中提供了一个BAPI,它允许您执行多个批处理拆分,称为BAPI_OUTB_DELIVERY_CHANGE,我有

函数VB_BATCH_DETERMINATION会告诉您是否需要分配单个批号或需要进行批处理。

最后,我使用了WS_DELIVERY_UPDATE2和Batch Input的组合。 当我需要分配单个批号并在需要批量拆分时输入批量输入时,使用WS_DELIVERY_UPDATE2。

SAP德到
6楼-- · 2020-08-18 05:52

我一直在解决该问题。 我一直在尝试许多测试数据。 正如您所提到的,其中之一就是如此。

我还阅读了SAP文档。 它发表了类似的评论。

在ITEM_DATA中,

DELIV_NUMB = 80000093 DELIV_ITEM = 000010

DELIV_NUMB = 80000093 DELIV_ITEM = 900001材料= 3000000090001批次= 1000000798等级= 000010 USEHIERITM = 1 DLV_QTY = 4 DLV_QTY_IMUNIT = 4

ITEM_CONTROL。


DELIV_NUMB = 80000093 DELIV_ITEM = 000010 CHG_DELQTY

DELIV_NUMB80000093 DELIV_ITEM900001 CHG_DELQTYX


一周热门 更多>