MIR4 预制凭证修改及过账，尾差调整

FUNCTION zfm_srm_fprz.
*“----------------------------------------------------------------------
"“本地接口：
*” EXPORTING
*” VALUE(EV_STATUS) TYPE CHAR1
*" VALUE(EV_MESSAGE) TYPE CHAR100
*" TABLES
*" IT_DATA STRUCTURE ZSSRM_FPRZ OPTIONAL
*" ET_RETURN STRUCTURE ZSSRM_FPRZ_RETURN OPTIONAL
*"----------------------------------------------------------------------

DATA:ls_data TYPE zssrm_fprz.
DATA:ls_return TYPE zssrm_fprz_return.
DATA:lv_wrbtr_coll TYPE wrbtr.
DATA:lv_wrbtr_max TYPE wrbtr.
DATA:lv_wrbtr_cy TYPE wrbtr.

"预制发票修改
DATA:f_invoicedocstatus TYPE bapi_incinv_detail_header-invoice_status VALUE ‘4’,
s_tablechange LIKE bapi_incinv_chng_tables,
s_headerdatachange LIKE bapi_incinv_chng_header,
s_headerdatachangex LIKE bapi_incinv_chng_headerx,
s_adressdatachange LIKE bapi_incinv_chng_addrdata,
s_adressdatachangex LIKE bapi_incinv_chng_addrdatax,
f_invoicedocnumbernew TYPE bapi_incinv_fld-inv_doc_no,
f_fiscalyearnew TYPE bapi_incinv_fld-fisc_year,
tab_itemdata TYPE STANDARD TABLE OF bapi_incinv_create_item WITH HEADER LINE,
tab_tm_itemdata TYPE STANDARD TABLE OF bapi_incinv_create_tm_item WITH HEADER LINE,
tab_accountingdata TYPE STANDARD TABLE OF bapi_incinv_create_account WITH HEADER LINE,
tab_glaccountdata TYPE STANDARD TABLE OF bapi_incinv_create_gl_account WITH HEADER LINE,
tab_materialdata TYPE STANDARD TABLE OF bapi_incinv_create_material WITH HEADER LINE,
tab_taxdata TYPE STANDARD TABLE OF bapi_incinv_create_tax WITH HEADER LINE,
tab_withtaxdata TYPE STANDARD TABLE OF bapi_incinv_create_withtax WITH HEADER LINE,
tab_vendorsplitdata TYPE STANDARD TABLE OF bapi_incinv_create_vendorsplit WITH HEADER LINE,
tab_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
lt_return_post TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.

LOOP AT it_data INTO ls_data.

IF ls_data-rmwwr <> ls_data-wmwst + ls_data-wrbtr.

•  ls_return-bukrs = ls_data-bukrs.