功能模块/EWM类-入库交货单/创建Hu，Pack Hu，GR

1楼 · 2020-09-10 19:54.采纳回答

你好 Juergen Pitz ， Hendrik Schulte-Bahrenberg ， Ajit Routray ，

有什么主意吗？我希望有人为EWM开发人员的FM/CLASS创建博客或Wiki页面：）

我们找到了一个类为CL_HU_PACKING的解决方案。

数据：lv_lgnum TYPE/scwm/lgnum VALUE'W001'，

       lv_matid TYPE/scwm/de_matid，

       lv_pmat TYPE sysuuid -c，

       ls_huhdr TYPE/scwm/s_huhdr_int。


 数据lo_pack类型参考/SCWM/CL_HU_PACKING。

 资料：ls_material TYPE/scwm/s_pack_stock。

 数据：ls_quantity TYPE/scwm/s_quan。


 通话功能'GUID_CONVERT'

   出口

     iv_guid_c22 ='051McJFT7jYUxULe4SPX3W'" lv_UIDC22

   输入

     ev_guid_c32 = lv_pmat

   例外情况

     no_unicode_support_yet = 1

     parameters_error = 2

     其他= 3。

 将lv_pmat移动到lv_matid。


 创建对象lo_pack。


 尝试。


 *设置LGNUM

   /scwm/cl_tm => set_lgnum（lv_lgnum）。

 *   在里面

     调用方法lo_pack-> init_pack

       出口

         iv_badi_appl ='WME'

 * IT_GUID_HU =

         iv_loc_type ='L'

         iv_loc_index ='W03'

         IV_NO_REFRESH ='X'

         iv_lgnum = lv_lgnum

 * IV_LOCK =空格

 *导入

 * ET_HUTREE =

 * ET_HUHDR = lt_huhdr

 * ET_HUITM =

 *例外

 *错误= 1

 *其他= 2

       。

     如果sy-subrc <> 0。

 *在这里实施适当的错误处理

     万一。


 调用方法lo_pack->/scwm/if_pack_bas〜create_hu

       出口

         iv_pmat = lv_matid

 * IV_HUIDENT =

 * IS_HU_CREATE =

 * IV_NOHUIDENT =

 * I_LOCATION =

 * IV_LOGHU =

       接收

         es_huhdr = ls_huhdr

 *例外

 *错误= 1

 *其他= 2

       。

     如果sy-subrc <> 0。

 *在这里实施适当的错误处理

     万一。



     ls_quantity-quan ='1'。

     ls_quantity-unit ='KI'。



 * ls_material-dguid_hu = ls_huhdr-GUID_HU。

 * ls_material-LGNUM ='W001'。

 * ls_material-VSI ='D'。

     ls_material-matid ='0050569933DD1ED89EA3B0B855F6210E'。

     ls_material-batchid ='0050569933DD1ED8A6FA1D51B56B810F'。

     ls_material-cat ='F1'。

     ls_material-owner ='BP1000'。

     ls_material-owner_role ='BP'。

     ls_material-entitled ='BP1000'。

     ls_material-ENTITLED_ROLE ='BP'。

     ls_material-vfdat ='20190719'。

 * ls_material-quan = 1。

 * ls_material-unit ='KI'。

     ls_material-qdocid ='0050569933DD1ED8ADBA26DF4A91E110'。

     ls_material-qitmid ='0050569933DD1ED8ADBA26DF4A928110'。

     ls_material-qdoccat ='PDI'。



     呼叫方法lo_pack->/scwm/if_pack_bas〜pack_stock

       出口

         iv_dest_hu = ls_huhdr-guid_hu

         is_material = ls_material

         is_quantity = ls_quantity

 * IS_VALUATION =

 * IV_CWEXACT =

 * IT_SERID =

 * IV_ALTUOM =

 *导入

 * ES_QUANTITY =

 *例外

 *错误= 1

 *其他= 2

       。

     如果sy-subrc <> 0。

 *在这里实施适当的错误处理

     万一。



 *   保存

     调用方法lo_pack->/scwm/if_pack_bas〜save。



 *   清理

   /scwm/cl_pack =>/scwm/if_pack_bas〜cleanup（）。



 ENDTRY。

兄弟

M.Ozgur Unal