您好，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。
         万一。
       万一。
     万一。