[SAPABAP]预制发票，相关屏幕增强及bapi 增强

MIRO：需要对屏幕增强，实现可以输入 xref1，xref2.

 

如下图：

图中，参考代码1和参考代码2 都是通过 隐式增强放出来的，具体 操作过程请查看链接：

XREF1, XREF2, XREF3 in MIRO – the ultimate solution | SAP Blogs

在下列程序中，写隐式增强

相关表增强：

之所以在这么多表中增强，是为了后面过账的时候，能把参考码传递给财务凭证

2.  上面是前台，后台使用BAPI_INCOMINGINVOICE_CREATE 创建预制发票。

参考下列链接：BAPI_INCOMINGINVOICE_CREATE extension | SAP Community

1. Populate the structure:

DATA: I_EXTNSN TYPE STANDARD TABLE OF BAPIPAREX,

wl_ext TYPE bapiparex.

wl_ext-structure = 'MEPOHEAD'.
wl_ext-valuepart1 = field1
wl_ext-valuepart2 = field2
APPEND wl_ext TO i_extnsn.
CLEAR wl_ext.

2. Pass the table to extension parameter

CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
EXPORTING
headerdata = X_IN_HEADER
IMPORTING
INVOICEDOCNUMBER = L_DOCNO
tables
itemdata = I_IN_ITEM
TAXDATA = it_taxdata
WITHTAXDATA = I_WITHTAXDATA
return = I_RETURN
extensionin = I_EXTNSN

3. Do the following enhancement:

-In include LMRM_BAPIF32 (Form mapping_ivext_park), get the extension from BAPI parameter to your enhancement

it_extension[] = i_extensionin.

-In include LMRM_BAPITOP, declare your internal table/work area.

DATA: it_extension TYPE STANDARD TABLE OF bapiparex,
wa_ext TYPE bapiparex.

-In include LMRM_BAPIF12 (Form rbkpv_fill_from_headerdata) pass the new values to RBKP structure.

READ TABLE it_extension INTO wa_ext WITH KEY structure = 'MEPOHEAD'.
IF sy-subrc EQ 0.
MOVE: wa_ext-valuepart1 TO e_rbkpv-zfield1, "Field1
wa_ext-valuepart2 TO e_rbkpv-zfield2. "Field2
ENDIF.

具体操作如下图：

插入代码：SE37:ZINTE_CREATE_PARK_INVOICE