|
DATA: vg_number TYPE banfn,
ls_item TYPE bapieban,
lt_items TYPE TABLE OF bapieban.
DATA: it_items_old TYPE STANDARD TABLE OF bapiebanv,
wa_items_old TYPE bapiebanv,
it_items_new TYPE STANDARD TABLE OF bapiebanv,
wa_items_new TYPE bapiebanv,
it_return TYPE STANDARD TABLE OF bapireturn.
* call bapi
SET UPDATE TASK LOCAL.
CALL FUNCTION 'BAPI_REQUISITION_GETDETAIL'
EXPORTING
number = vg_number
TABLES
requisition_items = lt_items.
* set input parameters for next call of bapi
READ TABLE lt_items INTO ls_item WITH KEY preq_no = vg_number
preq_item = wa_eban-bnfpo.
MOVE-CORRESPONDING ls_item TO wa_items_old.
APPEND wa_items_old TO it_items_old.
MOVE-CORRESPONDING ls_item TO wa_items_new.
wa_items_new-agreement = wa_eban-konnr.
wa_items_new-agmt_item = wa_eban-ktpnr.
APPEND wa_items_new TO it_items_new.
* set input parameters for next call of bapi
CALL FUNCTION 'BAPI_REQUISITION_CHANGE'
EXPORTING
number = vg_number
TABLES
requisition_items_old = it_items_old
requisition_items_new = it_items_new
return = it_return.
Espero te sirva, saludos Carlos
|