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

2020-09-10 19:16发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好, 我将需要使...

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

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


大家好,

我将需要使用功能模块或类来开发程序。

我们在MM位置给出生产确认,然后Z *程序将以311运动类型传输到EWM。 创建内向交货订单。

此后,我们需要使用FM/Class创建HU,包装,收货参考的良好收货参考。

您可以共享相关的FM/Class吗?

我尝试了其中一些,但现在无法正常工作。

课程:

CL_PACK,CL_WM_PACK,/SCWM/CL_DLV_PACK_IBDL

方法:

CREATE_HU,PACK_STOCK

兄弟

M.Ozgur Unal

5条回答
四川大学会员
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

一周热门 更多>