{财务管理财务知识}小技巧财务凭证的退代.docx

{财务管理财务知识}小技巧财务凭证的退代 系统允许更复杂的替代逻辑，下面举一个结合用户出口的替代简单应用实例。 业务背景： 假设在公司代码5100中,如果发生业务招待费,则在其行项目文本摘要字段(BSEG-SGTXT)写入信息“业务招待费”以做统计。 同时，在公司代码5100的期初,会将一些调整凭证或月结凭证过帐到上期间,如果有这样的业务，无论用户输入上期间的任何一天，替代将自动将上期间的凭证的过帐日期换成上期间最后一天。 参考步骤如下： (1).自定义的退代程序(Tcode:GCX2) 最好Copy系统默认的程序出来修改，起码不要申请AccessKey!App.Area选择GBLS,输入Copy出来的自定义程序ZRGGBS00,自定义的程序名称最好不超过8位,系统只能显示程序名的前8位。 (2）。建立退代步骤(Tcode:OBBH) 建立一个替代的Step包括先决条件和退代内容,如图3,你可选择一个替代字段,表示替代这个字段的内容,在此选择”Onlyexit”,表示使用用户出口编写程序来替代。 (3).剖析替代用户出口程序ZRGGBS00(Tcode:SE38). 用户出口程序ZRGGBS00分析. 究竟自定义的Form例程是fieldexit,headerexit,lineexit或pleteexit有系统参数c_exit_param_none,c_exit_param_field和c_exit_param_class决定。通常用户可以看到替代出口程序如下（粗体部分）： exits-name=U100. exits-param=c_exit_param_none.“能用在Fieldexit,onlyexit等任何地方 exits-title=text-100. APPENDexits. exits-name=U101. exits-param=c_exit_param_field.”此Form只用于字段出口Fieldexit exits-title=text-101. APPENDexits. exits-name=U900. exits-param=c_exit_param_class.”U801只能在pletedoc才可使用. exits-title=text-900. APPENDexits. *............可以对着Copy增加自定义的例程 REFRESHETAB. LOOPATEXITS. ETAB=EXITS. APPENDETAB. ENDLOOP. 增加一个例程就5个简单步骤： 1．Exits-name=‘****’表示出口例程名称。 2．exits-param=‘***’只有c_exit_param_noneclass3种,表示例程的用法. 3．exits-title=’***’例程的抬头显示 4．APPENDexits.表示增加该出口例程。 5.接下来定义一个例程Form****/endform.在例程中编写替代逻辑。 接下来根据业务背景编写逻辑,假设使用Form100,其类型c_exit_param_none，可用于“OnlyExit”，参考代码如下表： FORMU100. DATA:Z_PSTDATETYPESY-DATUM, Z_CURPERLIKET009B-POPER, Z_CURYEARLIKET009B-BDATJ, Z_PSTPERLIKET009B-POPER, Z_PSTYEARLIKET009B-BDATJ, Z_PERLSTDAYLIKESY-DATUM. Ifbseg-hkont=‘这填写您的业务招待费科目’. BSEG-SGTXT=业务招待费.For业务招待费用文本摘要. Endif. *如果期初发生上期的财务凭证过帐,则自动将过帐日期一律调整为上期期末最后一天. *checkpostingdatesperiodandfiscalyear CALLFUNCTIONDETERMINE_PERIOD EXPORTING DATE=BKPF-BUDAT VERSION=Z1你的会计年度变式,国内多是K4 IMPORTING PERIOD=Z_PSTPER YEAR=Z_PSTYEAR. *checksysdatesperiodandfiscalyear CALLFUNCTIONDETERMINE_PERIOD EXPORTING DATE=SY-DATUM VERSION=Z1FiscalYearVar. IMPORTING PERIOD=Z_CURPER YEAR=Z_CURYEAR. *能否在输入的postingdate记帐让系统去判断. CHECKZ_CURYEARZ_PSTYEARORZ_PSTPERZ_CURPER. *如postingdate不在本期