遇到一个通过BAPI_INCOMINGINVOICE_CREATE写入进项发票抬头自定义字段的需求.
研究了一下源代码和表RBKP的结构,发现SAP提供了一种新的自定义字段写入逻辑.现做一下记录.
函数是在form invoice_ext_fields_convert中进行的值转换.
lr_header_bapi_ext TYPE REF TO mmiv_si_s_bapi_header_ext,
lr_gl_acc_items TYPE REF TO mmiv_si_t_bapi_glaccitm_ext,
lr_gl_acc_item TYPE REF TO mmiv_si_s_bapi_glaccitm_ext,
lr_po_ref_items TYPE REF TO mmiv_si_t_bapi_supipr_ext,
lr_po_ref_item TYPE REF TO mmiv_si_s_bapi_supipr_ext,
抬头对应的增强结构是 mmiv_si_s_bapi_header_ext.
该结构data字段的类型是MMIV_SI_S_HEADER_INCL_EEW_PS,是被包含在进项发票抬头表RBKP中的.
在进行数据转换时用到了XML转换.
用到了辅助类:CL_CFD_BAPI_MAPPING
查看源代码发现,如果要想向抬头赋值,extensionin-structure应该是如下格式:MMIV_SI_S_BAPI_HEADER_EXT_+[0,1,2,3,4,5,6,7,8,9]{1,2},
(+[0,1,2,3,4,5,6,7,8,9]{1,2},是指正则表达式,意思是至少存在一个MMIV_SI_S_BAPI_HEADER_EXT_及连接着的0-99的数字.
且在extension中只能有一个符合条件的记录.结构名称只要符合要求即可,不需要真地建这么一个结构.
下边将具体的步骤:
- 增强结构MMIV_SI_S_HEADER_INCL_EEW_PS,起到增强rbkp的目的,为了使用bapi,务必通过此方式增强rbkp表.
- 补充extension.
- 代码如下:
DATA:lt_extensionin TYPE TABLE OF bapiparex . DATA(lo_bapi_mapping) = cl_cfd_bapi_mapping=>get_instance( ). DATA lr_source TYPE REF TO mmiv_si_s_bapi_header_ext."必须用这个类型 CREATE DATA lr_source. lr_source->*-data-xref1_hd = p_head-srcsys. lr_source->*-data-xref2_hd = p_head-srcdocno. TRY. CALL METHOD lo_bapi_mapping->map_to_bapiparex_single EXPORTING ir_source_structure = lr_source CHANGING ct_bapiparex = lt_extensionin[]. CATCH cx_cfd_bapi_mapping . ENDTRY.
然后在调用bapi的时候将lt_extensionin[]赋值给extensionin.
原创文章,作者:ItWorker,如若转载,请注明出处:https://blog.ytso.com/20236.html