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

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

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

3、text-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.IFbseg-prctrISNOTINITIAL.“对利润中心不为空的行项目计数l_num=l_num+1.ENDIF.ENDLOOP.IFl_num=0.“计数

4、=0，则成功判断当前凭证所有行项目的利润中心均为空callFUNCTIONNUMBER_GET_NEXTEXPORTINGnr_range_nr=02OBJECT=ZXBLNR3importingNUMBER=G_LOGNO.bkpf-xblnr=g_logno. “将数据填入抬头参照字段ENDIF.保存，激活程序。步骤三、配置替代出口。注意：若出口例程已在程序中添加并激活，但选择项未出现此选项，此时：1.确认exits-param = c_exit_param_class 2.系统存在一定的缓存，可退出系统重新进入，便可在User exit选项中看到新添加的完全凭证出口步骤四、配置调用点，设

5、置为激活TCODE: OBBH配置相应的公司，调用点为：3（完全凭证），活动等级：1（激活）.也可参看 ：Note 126849 - Substitution FI-infl. Venezuela callup 2,3 Rel.3.0F3.最终效果以F-02为例： 当利润行项目利润中心全部为空时，可填写公共事业部（抬头增加G）至凭证抬头参照字段。另标准程序：RGGBS000 关于完全凭证的应用如下：FORMu102USINGbool_dataTYPEgb002_015.DATA:SUM(10)TYPEC.LOOPATBOOL_DATA-BSEGINTOBSEGWHERESHKZG=S.BSEG-ZUONR=Test.MODIFYBOOL_DATA-BSEGFROMBSEG.ADDBSEG-DMBTRTOSUM.ENDLOOP.BKPF-XBLNR=TEXT-001.REPLACE&WITHSUMINTOBKPF-XBLNR.ENDFORM.即当抬头的一些字段的修改，需要参照行项目确定时，便可使用完全凭证替代来实现。