SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

ЕО - перемещение на склад



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP
View previous topic :: View next topic  
Author Message
dev403k
Участник
Участник



Joined: 15 Jun 2010
Posts: 13
PostPosted: Thu Mar 15, 2012 12:44 pm    Post subject: ЕО - перемещение на склад Reply with quote
Добрый день.
Уже который день пытаемся программно правильно упаковать материал, но безрезультатно.
Проблема в том, что упаковка создается с материалом и нужным количеством на нужной партии, но у нас не получается переместить на склад партнер. Может кто-то может нам помочь?
В структуре ls_huitem существует только один склад, а склада партнера нет.
ФМ по упаковке многовато, но какие именно необходимо использовать нам непонятно. Пытались использовать HU_CREATE_GOODS_MOVEMENT, но не получилось.
Поставленная задача ограничивается только перемещением ЕО на склад. (Не привязываясь к поставке).
Если кто-то сделал обратную цепочку распаковки – будем благодарны за помощь.

Используем ФМ.
Code:
ALL FUNCTION 'BAPI_HU_CREATE'
  EXPORTING
    headerproposal = ls_huheader
  IMPORTING
    huheader       = ls_huheader_e
    hukey          = c_exidv
  TABLES
    return         = lt_return[].
********
ls_huitem-material      = '000000000000000994'. " Номер материала
ls_huitem-batch         = '060606/11'. " Номер партии
ls_huitem-pack_qty      = '10'. " Упакованное базисное количество в позиции ЕО
ls_huitem-base_unit_qty = 'TO'.
ls_huitem-plant         = '0010'. " Завод
ls_huitem-stge_loc      = '0832'. " Склад
*ls_huitem-spec_stock    = us_huitem-sobkz. " Код особого запаса
*ls_huitem-sp_stck_no    = us_huitem-sonum. " Номер особого запаса
ls_huitem-hu_item_type  = '1'.

CLEAR: lt_return, ls_return.

CALL FUNCTION 'BAPI_HU_PACK'
  EXPORTING
    hukey        = c_exidv
    itemproposal = ls_huitem
  TABLES
    return       = lt_return.

********
Back to top
View user's profile Send private message
dev403k
Участник
Участник



Joined: 15 Jun 2010
Posts: 13
PostPosted: Mon Mar 19, 2012 12:15 pm    Post subject: Reply with quote
Все получилось.
Может кому-то пригодится:
Code:
"------------------------------------
ls_huheader-pack_mat = '000000000000020710'.   "упаковочн. материал
ls_huheader-hu_exid = pac.                     "№ ЕО

ts_tab-plant          = '0010'.                "Завод
ts_tab-stge_loc       = '0832'.                "Склад
ts_tab-base_unit_qty  = 'TO'.                  "Ед.из
ts_tab-pack_qty       = '1'.                   "КОЛИЧЕСТВО
ts_tab-material       = '000000000000000994'.  "материал
ts_tab-batch          = '060606/11'.           "Номер партии
ts_tab-hu_item_type = 1.                       "Нупаковыв. материал
ts_tab-lower_level_exid = pac.                 "№ ЕО
APPEND ts_tab.

CALL FUNCTION 'BAPI_HU_CREATE'
  EXPORTING
    headerproposal = ls_huheader
  IMPORTING
    huheader       = ls_huheader_e
    hukey          = c_exidv
  TABLES
    itemsproposal  = ts_tab
    return         = lt_return[]
    huitem         = huitem0.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
  EXPORTING
    wait   = 'X'
  IMPORTING
    return = ls_return.
DATA:
sysubrc0            TYPE  sysubrc,
huitem_messages0    TYPE  huitem_messages,
huitem_messages_t0  TYPE huitem_messages_t,
emkpf0              TYPE emkpf,
vsep_t_imseg0       TYPE imseg.
DATA lf_event     TYPE  huwbevent.
**DATA: ls_hu_items TYPE hum_humseg.
**
**
*ls_hum-HUWBEVENT = '0006'.
ls_hum-matnr = '000000000000000994'.
ls_hum-charg = '060606/11'.
ls_hum-werks = '0010'.
ls_hum-lgort = 'P832'.
ls_hum-bwart = '311'.

APPEND ls_hum TO lt_hum.
lf_event = '0006'.
ls_hum1-exidv = c_exidv.
APPEND ls_hum1 TO lt_hum1.
CALL FUNCTION 'HU_PACKING_REFRESH'.

CALL FUNCTION 'HU_CREATE_GOODS_MOVEMENT'
 EXPORTING
    if_event             = lf_event
"   if_simulate          = ' '
*   if_commit            = ' '
   if_tcode             = 'HUMO'
*    IS_IMKPF             =
   it_move_to           = lt_hum
*   IT_INTERNAL_ID       = lt_hum2
   it_external_id       = lt_hum1
  IMPORTING
    ef_posted            =  sysubrc0
    es_message           =  huitem_messages0
    et_messages          =  huitem_messages_t0
    es_emkpf             =  emkpf0
*  CHANGING
*    CT_IMSEG             = VSEP_T_IMSEG0
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> ABAP All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG.
SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG.
Every effort is made to ensure content integrity. Use information on this site at your own risk.