ABAP EWM模拟 /SCWM/ADGI过账更改HU数量

需求： /SCWM/ADGI -> 库存更正 -> 过账发货部分数量进行修改数量，产生WT。

比较简单哈，封装了一个函数，话不多说，直接上代码！奥里给~~~

FUNCTION zewm_chanre_qty_adgi.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  IMPORTING
*"     VALUE(IV_LGNUM) TYPE  /SCWM/LGNUM DEFAULT 'BL01'
*"     VALUE(IV_HUIDENT) TYPE  /SCWM/DE_HUIDENT
*"     VALUE(IV_MATNR) TYPE  MATNR
*"     VALUE(IV_QTY) TYPE  /SCWM/DE_UI_QUAN
*"  EXPORTING
*"     REFERENCE(EV_MSG) TYPE  BAPI_MSG
*"     REFERENCE(EV_TYPE) TYPE  BAPI_MTYPE
*"----------------------------------------------------------------------
" 2022.3.24 模拟/scwm/adgi更改库存数量DATA: et_huitm     TYPE /scwm/tt_stock_select,lv_nwmloc    TYPE /scwm/s_adgi_sel-nwmloc,lv_reason    TYPE /scwm/s_adgi_sel-gi_process,lv_reason_wm TYPE /scwm/s_adgi_sel-reason,lt_stock_sel TYPE /scwm/tt_scrap_stock,lt_sernr_sel TYPE /scwm/tt_scrap_serid,ls_gmheader  TYPE /scwm/s_gmheader.DEFINE set_msg.ev_type = &1.ev_msg  = &2.END-OF-DEFINITION.CLEAR:ev_type,ev_msg,et_huitm.CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'EXPORTINGinput        = iv_matnrIMPORTINGoutput       = iv_matnrEXCEPTIONSlength_error = 1OTHERS       = 2.CALL FUNCTION '/SCWM/SELECT_STOCK'EXPORTINGiv_lgnum   = iv_lgnumir_huident = VALUE rseloption( ( sign = 'I' option = 'EQ' low = iv_huident ) )ir_matnr   = VALUE rseloption( ( sign = 'I' option = 'EQ' low = iv_matnr ) )IMPORTINGet_huitm   = et_huitmEXCEPTIONSerror      = 1OTHERS     = 2.IF et_huitm IS INITIAL.set_msg 'E' '未查询到HU数据'.EXIT.ENDIF.READ TABLE et_huitm INTO DATA(ls_huitm) INDEX 1.APPEND INITIAL LINE TO lt_stock_sel ASSIGNING FIELD-SYMBOL(<fs_stock_sel>).MOVE-CORRESPONDING ls_huitm TO <fs_stock_sel>." 调整数量<fs_stock_sel>-quan_int = <fs_stock_sel>-quan = iv_qty.NEW /scwm/cl_rgi_scrap_srvc( iv_lgnum = iv_lgnum )->scrap_handle(EXPORTINGit_stock_sel = lt_stock_selit_serid_sel = lt_sernr_seliv_nwmloc    = lv_nwmlociv_reason    = 'CORR'iv_reason_wm = lv_reason_wmCHANGINGcs_gmheader  = ls_gmheader ).ls_gmheader-log->get_severity(RECEIVINGe_rc_severity = DATA(lv_severity) ).IF lv_severity CA 'EAX'.lv_severity = 'E'.ELSE.lv_severity = 'S'.ENDIF.ls_gmheader-log->get_prot( RECEIVING et_protocol = DATA(et_return) ).READ TABLE et_return INTO DATA(ls_return) WITH KEY type = lv_severity.IF sy-subrc EQ 0.DATA(lv_msg) = ls_return-message.ENDIF.set_msg lv_severity lv_msg.ENDFUNCTION.

ABAP EWM模拟 /SCWM/ADGI过账更改HU数量相关推荐

加工费采购订单批准后禁止更改订单数量
应用 Oracle Purchasing 层 Level Function 函数名 Funcgtion Name PO_POXPOEPO 表单名 Form Name POXPOEPO 说明 Des ...
ABAP EWM HU打包
创建HU,分配DN并分配父HU FUNCTION zewm_pack_hu. *"------------------------------------------------------ ...
ABAP EWM PRDI交货单过账
/n/scwm/prdi 交货单过账 DATA: lo_sp_inb TYPE REF TO /scwm/cl_sp_prd_inb,lo_adapter_handler TYPE REF TO /s ...
ABAP EWM PRDO交货单过账
/N/SCWM/PRDO 交货单过账 FUNCTION zewm_post_pdo. *"-------------------------------------------------- ...
ABAP EWM 库存状态变更
仓库间调拨,更改目标仓位目标库存地点,用fm:/SCWM/STOCK_CHANGE,前台tcode:/n/scwm/post FUNCTION zewm_change_stock. *"-- ...
在ABAP里模拟实现Java Spring的依赖注入
Dependency Injection- 依赖注入,在Java Spring框架中有着广泛地应用.通过依赖注入,我们不必在应用代码里繁琐地初始化依赖的资源,非常方便. 那么ABAP能否从语言层面上也 ...
Java的Covariance设计原理和SAP ABAP的模拟实现
I am the trainer of one standard course "Programming Language Concept" within SAP and ther ...
java covariance_Java的Covariance设计原理和SAP ABAP的模拟实现
I am the trainer of one standard course "Programming Language Concept" within SAP and ther ...
【ABAP】汇票收款自动过账FM
前言:目前在SAP中很难找到一个收银行承兑汇票的标准BAPI,这里本人就分享一个自开发的经测试比较好用的FM,仅供参考学习使用,谢绝转载. [补充摘要] 银行承兑汇票是商业汇票的一种.指由在承兑银行开 ...

ABAP EWM模拟 /SCWM/ADGI过账更改HU数量

ABAP EWM模拟 /SCWM/ADGI过账更改HU数量相关推荐

最新文章

热门文章