会计凭证完全凭证替代出口.docx
《会计凭证完全凭证替代出口.docx》由会员分享，可在线阅读，更多相关《会计凭证完全凭证替代出口.docx（8页珍藏版）》请在冰豆网上搜索。
会计凭证完全凭证替代出口
会计凭证完全凭证替代出口
2.3.2修改系统标准配置
Tcode:
OBBH创建完全凭证替代
按照创建抬头替代和行项目替代的方法创建完全凭证替代时，系统报错：
原因为：
系统针对完全凭证（调用点3）未释放任何字段，此时可进行如下处理：
此处可参考note：
42615SubstitutionsinFI
Solutions：
步骤一、修改系统表GB01记录
修改为：
通过debug程序或写段小代码，或者使用SM30维护视图VWTYGB01可修改GB01。
BOOLCLASS:
15完全凭证使用的布尔类为15
CLASSTYPE：
S表示参考可替代字段
BCLTAB：
BKPFBSEG参考表
BCLFIELD：
*不属于此等级的字段，设置为*表示所有字段均可参与替代。
步骤二、需重新运行程序：
RGUGBR00（每次针对GB01表的修改均需重新运行此程序）
2.3.2创建完全凭证替代
步骤一、创建完全凭证替代
在完成对GB01表的修改后，便可创建完全凭证替代了。
具体操作如下：
步骤二、新增出口例程EXIT，添加实现代码。
在自定义程序ZRGGBS00中添加Event：
formget_exit_titlesTABLES etab.
exits-name='U001'.
exits-param=c_exit_param_class.“仅可用于完全凭证时
exits-title=text-100.
appendexits.
……
Endform.
注：
另外两种参数类型c_exit_param_none（用于Fieldexit,onlyexit等）
c_exit_param_field.（用于Fieldexit）
实现formU001.
*--------------------------------------------------------------------
*FORMU001*
*--------------------------------------------------------------------
formu001usingbool_datatypegb002_015.
LOOPATbool_data-bsegINTObseg.
IF bseg-prctr IS NOT INITIAL.“对利润中心不为空的行项目计数
l_num = l_num + 1.
ENDIF.
ENDLOOP.
IF l_num = 0.“计数 = 0，则成功判断当前凭证所有行项目的利润中心均为空
……
call FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '02'
OBJECT = 'ZXBLNR3'
importing
NUMBER = G_LOGNO.
……
bkpf-xblnr = g_logno .“将数据填入抬头参照字段
……
ENDIF.
……
保存，激活程序。
步骤三、配置替代出口。
注意：
若出口例程已在程序中添加并激活，但选择项未出现此选项，此时：
1.确认exits-param=c_exit_param_class
2.系统存在一定的缓存，可退出系统重新进入，便可在Userexit选项中看到新添加的完全凭证出口
步骤四、配置调用点，设置为激活
TCODE:
OBBH
配置相应的公司，调用点为：
3（完全凭证），活动等级：
1（激活）.
也可参看：
Note126849-SubstitutionFI-infl.Venezuelacallup2,3Rel.3.0F
3.最终效果
以F-02为例：
当利润行项目利润中心全部为空时，可填写公共事业部（抬头增加G）至凭证抬头参照字段。
另标准程序：
RGGBS000关于完全凭证的应用如下：
FORM u102 USING bool_data TYPE gb002_015.
DATA:
SUM（10） TYPE C.
LOOP AT BOOL_DATA-BSEG INTO BSEG
WHERE SHKZG = 'S'.
BSEG-ZUONR = 'Test'.
MODIFY BOOL_DATA-BSEG FROM BSEG.
ADD BSEG-DMBTR TO SUM.
ENDLOOP.
BKPF-XBLNR = TEXT-001.
REPLACE '&' WITH SUM INTO BKPF-XBLNR.
ENDFORM.
即当抬头的一些字段的修改，需要参照行项目确定时，便可使用完全凭证替代来实现。
升级会员 