会计凭证完全凭证替代出口

目录1.替代简介 22.完全凭证替代 22.1项目需求： 22.2完全凭证替代适用条件 22.3完全凭证替代步骤 32.3.1自定义程序配置 32.3.2修改系统标准配置 32.3.2创建完全凭证替代 53.最终效果 7完全凭证替代1.替代简介简单来讲，替代就是在会计凭证产生时（包括手工和自动过帐）允许用户根据需求对凭证抬头和凭证行项目进行一定的内容修改。SAP可实现会计凭证的抬头替代，行项目替代，以及完全凭证替代。抬头替代：在处理抬头数据时生效，如回车，保存情况下，对凭证抬头的数据进行检查和修改。行项目替代：在处理行项目数据时生效，修改或检查行项目的内容。完全凭证替代：在会计凭证保存前修改或检查整张凭证的内容。在结合UserExit的情况下，抬头以及行项目替代，基本上可实现修改会计凭证上的任何内容的功能，仅有需要对整张凭证数据进行检查或处理时，方可需要用到完全凭证替代。抬头替代和行项目替代的使用比较普遍，具体可参考文档：本文将着重介绍完全凭证替代的相关内容。2.完全凭证替代2.1项目需求：最近在项目上遇到一个问题：在创建会计凭证时，根据会计凭证行项目上的利润中心，生成事业部凭证号；若所有行项目的利润中心都为空，此时默认为公共事业部凭证号；最后再把这个事业部凭证号的值赋给抬头的BKPF-XBLNR。但是，如何判断所有的行项目的利润中心都为空呢？抬头替代只能在处理抬头数据时生效，而行项目替代，也是在处理行项目时生效，这两种替代均不能判断是否所有行项目的利润中心都为空，此时，可采用SAP的非标准功能：完全凭证替代（在凭证保存前触发）。2.2完全凭证替代适用条件NOTE42615中:Atcalluppoint3,substitutionisonlycarriedoutifthedocumentispostedinFI(withprogramSAPMF05AorSAPF110S)orinMMinvoiceverification(withprogramSAPMM08R).WhenpostingviatheFI/COinterface,forexample,withdirectinput(RFBIBL00Mode'D'ortransferbillingdocumentwithTransactionVF01)nosubstitutioniscarriedout.完全凭证替代，仅支持FI/CO,以及MM发票校验，目前测试发现FI方面，对于FB08冲销凭证是不支持替代的。2.3完全凭证替代步骤2.3.1自定义程序配置Tcode:SE38Copy系统标准程序：RGGBS000至ZRGGBS00Tcode:GCX2配置应用区域GBLS为自定义程序：ZRGGBS002.3.2修改系统标准配置Tcode:OBBH创建完全凭证替代按照创建抬头替代和行项目替代的方法创建完全凭证替代时，系统报错：原因为：系统针对完全凭证（调用点3）未释放任何字段，此时可进行如下处理：此处可参考note：42615SubstitutionsinFISolutions：步骤一、修改系统表GB01记录修改为：通过debug程序或写段小代码，或者使用SM30维护视图VWTYGB01可修改GB01。BOOLCLASS:15完全凭证使用的布尔类为15CLASSTYPE：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.……保存，激活程序。步骤三、配置替代出口。注意：若出口例程已在程序中添加并激活，但选择项未出现此选项，此时：确认exits-param=c_exit_param_class系统存在一定的缓存，可退出系统重新进入，便可在Userexit选项中看到新添加的完全凭证出口步骤四、配置调用点，设置为激活TCODE:OBBH配置相应的公司，调用点为：3（完全凭证），活动等级：1（激活）.也可参看：Note126849-SubstitutionFI-infl.Venezuelacallup2,3Rel.3.0F3.最终效果以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_