Hi, i dont know if it will help you but here goes
select * into corresponding fields of table it_bkpf from bkpf
where
"gjahr in p_gjahr and
bukrs = p_bukrs
and bstat = p_bstat
and budat in p_dt_la.
if sy-subrc = 0.
loop at it_bkpf into wa_bkpf.
if wa_bkpf-awtyp = 'RMRP' ."and dont is INITIAL.
-------------------------------------------- *
---- Construção da Chave de pesquisa ---- *
-------------------------------------------- *
invoicedocnumber = wa_bkpf-awkey(10).
fiscalyear = wa_bkpf-awkey+10(4).
-------------------------------------------- *
---- Ir buscar os dados para a criação ---- *
-------------------------------------------- *
call function 'BAPI_INCOMINGINVOICE_GETDETAIL'
exporting
invoicedocnumber = invoicedocnumber
fiscalyear = fiscalyear
importing
headerdata = headdata_detail
tables
itemdata = itemdata_detail
return = return.
move-corresponding headdata_detail to headdata_create.
headdata_create-gross_amount = headdata_detail-gross_amnt.
headdata_create-pstng_date = p_budat.
headdata_create-comp_code = p_b_dst .
clear: headdata_create-inv_doc_no,
headdata_create-dsct_days1,
headdata_create-dsct_days2,
headdata_create-dsct_pct1,
headdata_create-dsct_pct2
.
clear return.
-------------------------------------------- *
---- Mudança dos itens ---- *
-------------------------------------------- *
loop at itemdata_detail into wa_itemdetail.
clear: is_valid,ebeln_sel.
select single ebeln from ekko into ebeln_sel
where unsez = wa_itemdetail-po_number
and bukrs = 'CST'.
if sy-subrc = 0.
***Need To read the detail of the PO
call function 'BAPI_PO_GETDETAIL1'
exporting
purchaseorder = ebeln_sel
account_assignment = 'X'
version = 'X'
services = 'X'
tables
return = return
pohistory = pohistory
poitem = poitem.
read table return with key type = 'E' transporting no fields.
if sy-subrc <> 0.
------------------------------------------------------------------- *
---- Passa os dados dos itens para a nova estrutura de criação ---- *
------------------------------------------------------------------- *
move-corresponding wa_itemdetail to wa_itemcreate.
------------------------------------------------------------------------------------------- *
---- Verificação se é um item com revisão de factura com base em entrada de mercadoria ---- *
------------------------------------------------------------------------------------------- *
read table poitem into wa_item with key po_item = wa_itemdetail-po_item.
if sy-subrc = 0.
if wa_item-gr_ind = 'X' and wa_item-gr_basediv = 'X' and wa_item-ir_ind = 'X'."Case 1 - Tem revisão de facturas baseada em
" entrada de material
move-corresponding wa_itemdetail to wa_itemcreate.
read table pohistory into wa_hist with key po_item = wa_itemdetail-po_item.
if sy-subrc = 0.
wa_itemcreate-ref_doc = wa_hist-ref_doc.
wa_itemcreate-ref_doc_it = wa_hist-matdoc_itm.
wa_itemcreate-po_number = ebeln_sel.
wa_itemcreate-ref_doc_year = wa_hist-doc_year.
" Os restantes casos não precisam do documento de material
else.
if not w_hist is initial.
write at /1 wa_itemdetail-po_number.
write at ebeln_sel 20 .
endif.
endif.
endif.
else.
endif.
append wa_itemcreate to itemdata_create.
endif.
else.
endif.
clear: wa_itemdetail, wa_hist, wa_itemcreate, wa_item.
endloop.
describe table itemdata_create lines lines.
if lines >= 1 and w_hist is initial.
clear return[].
***Theres no errors on the document, process the document
call function 'BAPI_INCOMINGINVOICE_PARK'
exporting
headerdata = headdata_create
importing
invoicedocnumber = invoicedocnumber_c
fiscalyear = fiscalyear_c
tables
itemdata = itemdata_create
return = return.
read table return with key type = 'E' transporting no fields.
if sy-subrc ne 0.
it_out-old = .
it_out-new = .
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'.
Bluesky
