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

1、目录1.替代简介22.完全凭证替代22.1项目需求：22.2 完全凭证替代适用条件22.3完全凭证替代步骤32.3.1自定义程序配置32.3.2修改系统标准配置32.3.2创建完全凭证替代53.最终效果7完全凭证替代1.替代简介简单来讲，替代就是在会计凭证产生时（包括手工和自动过帐）允许用户根据需求对凭证抬头和凭证行项目进行一定的内容修改。SAP 可实现会计凭证的抬头替代，行项目替代，以及完全凭证替代。抬头替代：在处理抬头数据时生效，如回车，保存情况下，对凭证抬头的数据进行检查和修改。行项目替代：在处理行项目数据时生效，修改或检查行项目的内容。完全凭证替代：在会计凭证保存前修改或检查整张凭证的

2、内容。在结合User Exit的情况下，抬头以及行项目替代，基本上可实现修改会计凭证上的任何内容的功能，仅有需要对整张凭证数据进行检查或处理时，方可需要用到完全凭证替代。抬头替代和行项目替代的使用比较普遍，具体可参考文档：本文将着重介绍完全凭证替代的相关内容。2.完全凭证替代2.1项目需求： 最近在项目上遇到一个问题：在创建会计凭证时，根据会计凭证行项目上的利润中心，生成事业部凭证号；若所有行项目的利润中心都为空，此时默认为公共事业部凭证号；最后再把这个事业部凭证号的值赋给抬头的BKPF-XBLNR。但是，如何判断所有的行项目的利润中心都为空呢？抬头替代只能在处理抬头数据时生效，而行项目替代，

3、也是在处理行项目时生效，这两种替代均不能判断是否所有行项目的利润中心都为空，此时，可采用SAP的非标准功能：完全凭证替代（在凭证保存前触发）。2.2 完全凭证替代适用条件 NOTE 42615中: At callup point 3, substitution is only carried out if the document isposted in FI (with program SAPMF05A or SAPF110S) or in MM invoiceverification (with program SAPMM08R). When posting via the FI/COin

4、terface, for example, with direct input (RFBIBL00 Mode 'D' ortransfer billing document with Transaction VF01) no substitution iscarried out.完全凭证替代，仅支持FI/CO,以及 MM 发票校验，目前测试发现FI方面，对于FB08冲销凭证是不支持替代的。2.3完全凭证替代步骤2.3.1自定义程序配置Tcode: SE38 Copy 系统标准程序：RGGBS000 至 ZRGGBS00Tcode:GCX2 配置应用区域GBLS为自定义程序：ZR

5、GGBS002.3.2修改系统标准配置Tcode:OBBH 创建完全凭证替代按照创建抬头替代和行项目替代的方法创建完全凭证替代时，系统报错：原因为：系统针对完全凭证（调用点3）未释放任何字段，此时可进行如下处理： 此处可参考note：42615 Substitutions in FISolutions：步骤一、修改系统表GB01记录 修改为：通过debug程序或写段小代码，或者使用SM30维护视图VWTYGB01可修改GB01。BOOLCLASS: 15 完全凭证使用的布尔类为 15CLASSTYPE ： S 表示参考可替代字段BCLTAB： BKPF BSEG 参考表BCLFIELD： *

6、不属于此等级的字段，设置为*表示所有字段均可参与替代。步骤二、需重新运行程序：RGUGBR00（每次针对GB01表的修改均需重新运行此程序）2.3.2创建完全凭证替代步骤一、创建完全凭证替代在完成对GB01表的修改后，便可创建完全凭证替代了。具体操作如下：步骤二、新增出口例程 EXIT，添加实现代码。在自定义程序ZRGGBS00中添加Event：form get_exit_titles TABLES etab.exits-name = 'U001'.exits-param = c_exit_param_class. “仅可用于完全凭证时exits-title = te

7、xt-100.append exits.Endform.注：另外两种参数类型 c_exit_param_none （用于Field exit,only exit等）c_exit_param_field.（用于Field exit）实现form U001.*-* FORM U001 *-form u001 using bool_data type gb002_015.LOOP AT bool_data-bseg INTO bseg.IF bseg-prctr IS NOT INITIAL.“对利润中心不为空的行项目计数l_num = l

8、_num + 1.ENDIF.ENDLOOP.IF l_num = 0.“计数 = 0，则成功判断当前凭证所有行项目的利润中心均为空call FUNCTION 'NUMBER_GET_NEXT'  EXPORTING    nr_range_nr = '02'    OBJECT      =&#

9、160;'ZXBLNR3'  importing    NUMBER      = G_LOGNO.bkpf-xblnr =  g_logno . “将数据填入抬头参照字段ENDIF.保存，激活程序。步骤三、配置替代出口。注意：若出口例程已在程序中添加并激活，但选择项未出现此选项，此时：1. 确认exits-param = c_exit_param_class 2. 系统存在一定的缓存，可退出系统重新进入，便可

10、在User exit选项中看到新添加的完全凭证出口步骤四、配置调用点，设置为激活TCODE: OBBH配置相应的公司，调用点为：3（完全凭证），活动等级：1（激活）.也可参看 ：Note 126849 - Substitution FI-infl. Venezuela callup 2,3 Rel.3.0F3.最终效果以F-02为例： 当利润行项目利润中心全部为空时，可填写公共事业部（抬头增加G）至凭证抬头参照字段。另标准程序：RGGBS000 关于完全凭证的应用如下：FORM u102 USING bool_data TYPE gb002_0

11、15.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. &#