【ABAP】BAPI资产凭证自动生成的问题和解决办法
BAPI自动生成资产凭证时,提示错误: E AU 33 无法找到区域 01 的帐户 ‘对应科目: 购置价值记帐’。
DEBUG中发现函数BAPI_ACC_DOCUMENT_POST中变量obj_key若为空值,就会产生错误。
所以添加了下面一段代码。
call function 'OWN_LOGICAL_SYSTEM_GET' "当前逻辑系统
importing
own_logical_system = l_awsys
exceptions
own_logical_system_not_defined = 1.
refresh itab_t003.
clear itab_t003.
select * into corresponding fields of table itab_t003
from t003
where numkr = '01'.
loop at itab_t003.
s_blart-sign = 'I'.
s_blart-option = 'EQ'.
s_blart-low = itab_t003-blart.
append s_blart.
clear itab_t003.
endloop.
clear l_belnr.
select single max( belnr ) from bkpf into l_belnr
where bukrs = zbapi_f_02_header-bukrs
and gjahr = zbapi_f_02_header-budat+0(4)
and blart in s_blart.
l_belnr = l_belnr + 1.
call function 'CONVERSION_EXIT_ALPHA_INPUT'
exporting
input = l_belnr
importing
output = l_belnr.
call function 'RANDOM_C' "参考字段加上2位随机码与正常凭证区分
exporting
len_min = 2
len_max = 2
char_max = 27
importing
rnd_value = rnd_value.
concatenate l_belnr zbapi_f_02_header-bukrs zbapi_f_02_header-budat+0(4) rnd_value into lt_documentheader-obj_key.
lt_documentheader-obj_type = 'ZBKPF'.
lt_documentheader-obj_sys = l_awsys.
lt_documentheader-bus_act = 'RMWE'.
</kbd>
部分字段的定义如下:
data:l_awsys type bkpf-awsys.
data: begin of itab_t003 occurs 0.
data:blart like t003-blart.
data: end of itab_t003.
ranges:s_blart for t003-blart.
data: rnd_value type datatype-char0128.
通过这段代码赋值给obj_key一个值,凭证号+公司+年度+一个随机数,经过测试,成功生成obj_key。
post SAP-Garson
原文链接:https://blog.csdn.net/weixin_45426739/article/details/103717480文章来自于网络,如果侵犯了您的权益,请联系站长删除!