|
Te tiro un codigo de ejemplo... tal vez te de una idea:
data:s_goodsmvt_header type BAPI2017_GM_HEAD_01,
s_goodsmvt_code type BAPI2017_GM_CODE,
* v_testrun LIKE BAPI2017_GM_GEN-TESTRUN,
s_goodsmvt_headret type BAPI2017_GM_HEAD_RET,
s_materialdocument type BAPI2017_GM_HEAD_RET-MAT_DOC,
s_matdocumentyear type BAPI2017_GM_HEAD_RET-DOC_YEAR,
i_goodsmvt_item type standard table of BAPI2017_GM_ITEM_CREATE
with header line,
i_goodsmvt_serialnumber type standard table of
BAPI2017_GM_SERIALNUMBER with header line,
i_return type standard table of bapiret2 with header line.
* Cabecera
S_GOODSMVT_HEADER-PSTNG_DATE = '20081226'.
S_GOODSMVT_HEADER-DOC_DATE = '20081226'.
S_GOODSMVT_HEADER-HEADER_TXT = 'Texto de cab'.
S_GOODSMVT_CODE-GM_CODE = '04'.
* Posicion
I_GOODSMVT_ITEM-MATERIAL = 'TMGARNK06101VIR'.
I_GOODSMVT_ITEM-PLANT = 'A000'.
I_GOODSMVT_ITEM-BATCH = 'NUEVO'.
I_GOODSMVT_ITEM-MOVE_TYPE = '309'.
I_GOODSMVT_ITEM-SPEC_STOCK = 'W'.
I_GOODSMVT_ITEM-CUSTOMER = '0000000542'.
I_GOODSMVT_ITEM-ENTRY_QNT = 1.
I_GOODSMVT_ITEM-MOVE_MAT = 'TMGARNK06101VIR'.
I_GOODSMVT_ITEM-MOVE_PLANT = 'A000'.
I_GOODSMVT_ITEM-MOVE_BATCH = 'NUEVO'.
I_GOODSMVT_ITEM-MOVE_VAL_TYPE = 'NUEVO'.
i_goodsmvt_item-SERIALNO_AUTO_NUMBERASSIGNMENT = 'X'.
append I_GOODSMVT_ITEM.
* Numero de serie
I_GOODSMVT_SERIALNUMBER-MATDOC_ITM = 1.
I_GOODSMVT_SERIALNUMBER-SERIALNO = '676867'.
append I_GOODSMVT_SERIALNUMBER.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
GOODSMVT_HEADER = S_GOODSMVT_HEADER
GOODSMVT_CODE = S_GOODSMVT_CODE
TESTRUN = ' '
IMPORTING
GOODSMVT_HEADRET = S_GOODSMVT_HEADRET
MATERIALDOCUMENT = S_MATERIALDOCUMENT
MATDOCUMENTYEAR = S_MATDOCUMENTYEAR
TABLES
GOODSMVT_ITEM = I_GOODSMVT_ITEM
GOODSMVT_SERIALNUMBER = I_GOODSMVT_SERIALNUMBER
RETURN = I_RETURN
.
|