本文共 1079 字,大约阅读时间需要 3 分钟。
这也是sap惯用的一招 CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = GT_ACC_HD
TABLES
ACCOUNTGL = GT_ACC_GL
CURRENCYAMOUNT = GT_ACC_CUR
RETURN = GT_RETURN
EXTENSION2 = GT_EXT2.
这个EXTENSION2是一个用来增强扩展FI凭证字段的结构哟 EXTENSION2 对应的字段是这样的:
STRUCTURE 1 Types TE_STRUC CHAR 30 “放你的增强结构”
VALUEPART1 1 Types VALUEPART CHAR 240 "放结构对应的值,然后根据长度写回结构字段中,实现动态匹配"
VALUEPART2 1 Types VALUEPART CHAR 240
VALUEPART3 1 Types VALUEPART CHAR 240
VALUEPART4 1 Types VALUEPART CHAR 240
__________________________________________ ______
自己先定义结构,然后在BADI中做增强,从而实现你需要而此bapi没提供的字段 BADI AC_DOCUMENT 增强中CHANGE METHOD: LOOP AT C_EXTENSION2 INTO WA_EXTENSION where structure = 'ZAFIKJPZ'.
WA_ZAFIKJPZ = WA_EXTENSION-VALUEPART1.
append WA_ZAFIKJPZ to lt_ZAFIKJPZ.
ENDLOOP.
ENDIF.
sort lt_ZAFIKJPZ by posnr.
loop at c_accit into wa_accit.
read table lt_ZAFIKJPZ into WA_ZAFIKJPZ with key posnr = wa_accit-posnr.
if sy-subrc eq 0.
MOVE-CORRESPONDING WA_ZAFIKJPZ to wa_accit.
endif.
modify c_accit from wa_accit.
endloop. 程序中这样填充 GT_EXT2-STRUCTURE = 'ZAFIKJPZ' .
GT_EXT2-VALUEPART1 = LS_EXT2 .
APPEND GT_EXT2 . 转载地址:http://rpqaf.baihongyu.com/