KAA написал(а):
Может быть кто-то посоветует другой способ загрузки начальной, вот смотрю BAPI, может у кого естьописание функции, которая позволяла бы через 561 вд загружать остатки
Заранее благодарю.
BAPI
BAPI_GOODSMVT_CREATE, а вот и пример:
Code:
report ZPM_X_BAPI_GOODSMVT_561.
tables: mara,
t001l.
* Data for BAPI_GOODSMVT_CREATE
data: gmhead type bapi2017_gm_head_01,
gmcode type bapi2017_gm_code,
mthead type bapi2017_gm_head_ret.
data: goodsmvt_item like bapi2017_gm_item_create occurs 0 with header line.
data: ls_request like bapideliciousrequest,
lt_return type bapiret2 occurs 0 with header line,
error_occured.
data: p_meins like mara-meins.
parameters: p_budat type sydatum, " Дата проводки
p_matnr type matnr, " Материал
p_charg type charg_d, " Партия
p_menge type menge_d, " Количество в БЕИ
p_dmbtr type dmbtr, " Сумма во ВВ
p_plant type werks_d, " Завод
p_lgort type lgort_d. " Склад
end-of-selection.
clear: gmhead,
gmcode,
goodsmvt_item.
refresh: goodsmvt_item.
* Fill goodsmvt_code = gmcode
move: '05' to gmcode-gm_code. "Other goods receipts
* Fill Head for Mat.document
move: p_budat to gmhead-pstng_date,
sy-datum to gmhead-doc_date,
sy-uname to gmhead-pr_uname.
move 'Stock Upload with 561 mvt' to gmhead-header_txt.
* Fill Item for Mat.document
move: '561' to goodsmvt_item-move_type,
space to goodsmvt_item-mvt_ind.
select single meins into p_meins from mara where matnr = p_matnr.
move: p_matnr to goodsmvt_item-material,
p_charg to goodsmvt_item-batch,
p_menge to goodsmvt_item-entry_qnt,
p_meins to goodsmvt_item-entry_uom,
p_plant to goodsmvt_item-plant,
p_lgort to goodsmvt_item-stge_loc,
p_dmbtr to goodsmvt_item-amount_lc.
append goodsmvt_item.
call function 'BAPI_GOODSMVT_CREATE'
EXPORTING
goodsmvt_header = gmhead
goodsmvt_code = gmcode
TABLES
goodsmvt_item = goodsmvt_item
return = lt_return.
if lt_return[] is initial.
call function 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
endif.