BAPIHU_CREATE_GOODS_MOVEMENT_SAP刘梦_新浪博客

HU_CREATE_GOODS_MOVEMENT

Goods Movements for Handling Units


 

参考代码:

  "Get HU info by material number and serial number from table OBJK
  
SELECT SINGLE obknr FROM objk INTO lv_obknr
    
WHERE sernr cs_gbox_data-sernr AND
          matnr 
cs_gbox_data-matnr AND
          taser 
'SER06'.

 

CLEARlv_venum,lv_vepos,lv_exidv,lv_sernr,lv_matnr.
    
SELECT
      b
~venum
      b
~vepos
      b
~exidv
      a
~sernr
      a
~matnr
      a
~obknr
      
INTO CORRESPONDING FIELDS OF TABLE et_hu_block
*      INTO (lv_venum,lv_vepos,lv_exidv,lv_sernr,lv_matnr)
      
FROM objk AS a
      INNER 
JOIN ser06 AS ON a~obknr b~obknr
      
WHERE a~obknr lv_obknr .

 

CLEAR it_external_id[]REFRESH it_external_id.
      it_external_id
-exidv lv_exidv.
      
APPEND it_external_id.

      
CLEAR lt_hum_humseg[]REFRESH lt_hum_humseg.
      
lt_hum_humseg-venum lv_venum.
      lt_hum_humseg
-vepos lv_vepos.
      
APPEND lt_hum_humseg.

      
CLEAR it_move_to[]REFRESH it_move_to.
      it_move_to
-huwbevent =  '0022'.
      it_move_to
-lgort ls_ouput-lgort.
      it_move_to
-werks =  ls_ouput-werks.
      it_move_to
-matnr cs_gbox_data-matnr.
      it_move_to
-hu_items lt_hum_humseg[].
      
APPEND it_move_to.

      
CLEAR is_imkpf.
      is_imkpf
-budat sy-datum.

      
CLEAR it_internal_id[]REFRESH it_internal_id.
      it_internal_id
-venum lv_venum.

      "0023 block ;  0022 unblock


      
CALL FUNCTION 'HU_CREATE_GOODS_MOVEMENT'
        
EXPORTING
          if_event       
'0022' "unblock the HU
          if_commit      
space
          is_imkpf       
is_imkpf
          it_move_to     
it_move_to[]
          it_internal_id 
it_internal_id[]
          it_external_id 
it_external_id[]
        
IMPORTING
          ef_posted      
g_subrc     "return
          es_message     
wa_message  "export message
          et_messages    
it_message[]"

      
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        
EXPORTING
          
wait 'X'.

      
READ TABLE it_message WITH KEY
      msgid 
=  'HUGENERAL'
      msgty 
=    'S'
      msgno 
=   '309'.
      
IF sy-subrc 0.
        cs_data
-mblnr_ub it_message-msgv1.
        ev_mblnr 
cs_gbox_data-mblnr_ub.
      
ELSE.
         


欢迎加入交流群
群号:775662808

BAPIHU_CREATE_GOODS_MOVEMENT

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值