ZRGGBS00 GGB1替代问题
ZRGGBS00
ZRGGBS00
ZRGGBS00
和Validation不同的是,Validation只做检测,一般不做相应数据的修改,Substitution弥补了这反面的缺陷,它和user exit结合将方便用户编写更复杂的逻辑。注意的是,如果Substitution使用User exit在程序中只做检查而不替代内容,此时,Substitution可以完全取代Validation。
简单地讲,替代就是在会计凭证生产时(包括手工和自动过帐)允许用户根据需求对凭证抬头和凭证行项目进行一定的内容修改,这种灵活的功能可以满足一些非常变态的需求,要不怎么说SAP什么东西都能轻易配置出来呢?
比如国内很多企业都要求会计凭证有个文本摘要可对某些自动凭证根据规则写入一些文本摘要,或修改凭证的利润中心,功能范围等,同样,理论上讲,SAP系统几乎允许你修改会计凭证的任何内容,甚至包括会计科目,SAP一直强调科目没有级别,对自动科目设置非常严谨,所以修改会计科目通常发生在自动过帐时人工无法干预科目的情况,典型的是MIRO时科目只能对应供应商主数据科目,如果一个供应商发票校验需要对应应付或其他应付,系统就无法自动实行,就可采用科目替代。
替代Tcode:
OBBH:AP/AR/GL Doc.
OACS:AM Create Assets
OA02:Mass change Assets
GCVY:Global Substitution(In SPL,Company Level)
GCVX:Local Substitution(In SPL,Company code Level).
GGB1:各模块全部替代
按照国内很多企业的内部制度,所有的会计凭证都需要文本摘要并且多数凭证要打印出来存档,对于很多自动凭证却并不能产生文本摘要,此时可以使用替代塞一个文本进去,有的企业连ERP系统产生的特有的中间凭证也打印,真是不掀嫌浪费纸张。
图1是一个文本摘要的例子,和Validation不同的是,Substitution只有两步骤,图1表示的是如果凭证类型是折旧AF,并且科目是累计折旧类科目或折旧费用科目,则文本摘要为“计提本月折旧”。图1中建立Substitution和建立Validation步骤一样。
到目前为止,我们发现Validation和Substitution建立都非常简单,只要有简单逻辑思维的用户不需要任何编程经验拖拖拽拽就可以实现功能,国内的ERP设计者应该好好借鉴借鉴,ERP项目实施不容易,不要让可怜的业务顾问天天浪费时间去玩技术玩Coding 。
系统允许更复杂的替代逻辑,下面举一个结合用户出口的替代简单应用实例。
业务背景:
假设在公司代码5100中,如果发生业务招待费,则在其行项目文本摘要字段(BSEG-SGTXT)写入信息“业务招待费”以做统计。
同时,在公司代码5100的期初,会将一些调整凭证或月结凭证过帐到上期间,如果有这样的业务,无论用户输入上期间的任何一天,替代将自动将上期间的凭证的过帐日期换成上期间最后一天。
参考步骤如下:
(1).自定义的退代程序(Tcode:GCX2)
最好Copy系统默认的程序出来修改,起码不要申请Access Key! App. Area 选择GBLS,输入Copy出来的自定义程序ZRGGBS00,自定义的程序名称最好不超过8位,系统只能显示程序名的前8位。
(2)。建立退代步骤(Tcode:OBBH)
建立一个替代的Step包括先决条件和退代内容,如图3,你可选择一个替代字段,表示替代这个字段的内容,在此选择”Only exit”,表示使用用户出口编写程序来替代。
(3).剖析替代用户出口程序ZRGGBS00(Tcode:SE38).
用户出口程序ZRGGBS00分析.
究竟自定义的Form例程是field exit,header exit,line exit
或complete exit有系统参数c_exit_param_none, c_exit_param_field和c_exit_param_class决定。
通常用户可以看到替代出口程序如下(粗体部分):
exits-name = ‘U100′.
exits-param = c_exit_param_none. “能用在Field exit,only exit等任何地方
exits-title = text-100.
APPEND exits.
exits-name = ‘U101′.
exits-param = c_exit_param_field.”此Form只用于字段出口Field exit
exits-title = text-101.
APPEND exits.
exits-name = ‘U900′.
exits-param = c_exit_param_class.”U801只能在complete doc才可使用.
exits-title = text-900.
APPEND exits.
*…………可以对着Copy增加自定义的例程
REFRESH ETAB.
LOOP AT EXITS.
ETAB = EXITS.
APPEND ETAB.
ENDLOOP.
增加一个例程就5个简单步骤:
1.Exits-name = ‘****’表示出口例程名称。
2.exits-param =‘***’只有c_exit_param_none/field/class3种,表示例程的用法.
3.exits-title=’***’ 例程的抬头显示
4.APPEND exits.表示增加该出口例程。
5.接下来定义一个例程Form **** /endform .在例程中编写替代逻辑。
接下来根据业务背景编写逻辑,假设使用Form 100,其类型c_exit_param_none,可用于“Only Exit”,参考代码如下表:
FORM U100.
DATA:Z_PSTDATE TYPE SY-DATUM,
Z_CURPER LIKE T009B-POPER,
Z_CURYEAR LIKE T009B-BDATJ,
Z_PSTPER LIKE T009B-POPER,
Z_PSTYEAR LIKE T009B-BDATJ,
Z_PERLSTDAY LIKE SY-DATUM.
If bseg-hkont = ‘这填写您的业务招待费科目’.
BSEG-SGTXT = ‘业务招待费‘. “For业务招待费用文本摘要.
Endif.
*如果期初发生上期的财务凭证过帐,则自动将过帐日期一律调整为上期期末最后一天.
*check posting date’s period and fiscal year
CALL FUNCTION ‘DETERMINE_PERIOD’
EXPORTING
DATE = BKPF-BUDAT
VERSION = ‘Z1′ “你的会计年度变式,国内多是K4
IMPORTING
PERIOD = Z_PSTPER
YEAR = Z_PSTYEAR .
*check sysdate’s period and fiscal year
CALL FUNCTION ‘DETERMINE_PERIOD’
EXPORTING
DATE = SY-DATUM
VERSION = ‘Z1′ “Fiscal Year Var.
IMPORTING
PERIOD = Z_CURPER
YEAR = Z_CURYEAR.
*能否在输入的posting date记帐让系统去判断.
CHECK Z_CURYEAR <> Z_PSTYEAR OR Z_PSTPER <> Z_CURPER.
*如posting date不在本期间得到其期间最后一天
Z_PSTPER = Z_PSTPER + 1 .
CALL FUNCTION ‘FIRST_DAY_IN_PERIOD_GET’
EXPORTING
I_GJAHR = Z_PSTYEAR
I_PERIV = ‘Z1′
I_POPER = Z_PSTPER
IMPORTING
E_DATE = Z_PERLSTDAY .
*无论用户选择过帐到上期哪一天,都将过帐日期设置为最后一天
BKPF-BUDAT = Z_PERLSTDAY - 1 .
BKPF-MONAT = Z_PSTPER .
通过上面的业务我们可以看到,替代+用户出口能实现更复杂的业务,而这些业务通常是简单
的拖拽实现不了的,再举一个典型的有用的替代实例。
业务背景:
在SAP中,供应商主数据的科目只有一个比如通常设置的是应付帐款,在SAP中,科目和中
国传统会计不一样,其科目是不强调层级的,比如应付帐款,国内ERP可能会带供应商项目
等几个核算项目,SAP采用另一种方式,它将供应商直接看成明细科目,从其主数据自动带
出应付帐款,如果还需要区分是什么项目的应付,则可采用统计内部订单或特殊总帐标志,
但是,在后勤发票校验(Tcode:MIRO)时却不能使用特殊总帐标志。这样,比如企业从同
一供应商购买生产用材料(对应普通应付帐款)和项目材料(对应应付项目款)且需要从会
计科目上就直接区分时两种应付时就有点小麻烦。
一般的思路有这么些:
I.因为同一供应商主数据中只能有一个科目又不能特殊总帐标志,建议拆分成多个虚拟供应商来对应不同科目,此法严重违反编码唯一性原则,贼笨。
II.会计科目还是使用同一个应付帐款科目,附加一个字段比如文本/参考字段来区分同一供应商的不同应付,假设供应商还承包了你的在建项目有涉及应付劳务,如果仅用一个文本区分不严谨,也没有从科目上直接区分那样直观。
III.使用科目替代方式解决,直接从科目上区分不同应付款。
参考步骤如下:
a.SE16:V_T053定义行文本标志,其中ZNOR:MIRO 普通应付和ZPSC:MIRO 项目应付。
b.建立特殊总帐标志9表示应付项目款,并设置好应付项目款会计科目。
c.使用Only exit出口替代,这样使用替代就直接从科目上就区分出了应付帐款类型,
参考代码如下表(参考使用,责任自负):
FORM U100 .
DATA: IWA_T074 LIKE T074 ,
I_ANS(1) Type C .
Check ( SY-Tcode = ‘MIRO’ OR SY-Tcode = ‘MR8M’ )
and BSEG-KOART = ‘K’ . “检查是否为发票校验事务
condense bseg-sgtxt .
*判断用户必须输入文本摘要而且MIRO/MR8M时只能是ZNOR和ZPSC
if bseg-sgtxt <> ‘MIRO 普通应付‘ and bseg-sgtxt <>’MIRO 项目应付‘.
message E001(00) with ‘Choose ZNOR or ZPSC ‘ .
endif.
*如果文本输入应付项目款则从特殊总帐配置中读取应付项目款项目替代应付帐款
if bseg-sgtxt = ‘MIRO 项目应付‘ .
I_ANS = ‘9′ . “特殊总帐标志9表示应付项目款
SELECT SINGLE * INTO IWA_T074 FROM T074
WHERE KTOPL = ‘INT’
AND KOART = ‘K’
AND UMSKZ = I_ANS
AND HKONT = BSEG-HKONT .
IF IWA_T074-HKONT NE SPACE.
BSEG-HKONT = IWA_T074-HKONT. “特殊总帐科目
BSEG-UMSKZ = I_ANS . “特别总帐标示
BSEG-UMSKS = ‘A’ . “特别总帐事务类型,A,W,O
*SAP高度集成替代必须考虑其它模块影响,替代同时也替代特殊总帐的计划层次。
BSEG-FDLEV = IWA_T074-EBENE . “特殊总帐计划层次,如果启动CBM
BSEG-BSCHL+1(1) = ‘9′ . “记账码的第一码
ENDIF.
endif .
endform.
为什么你的替代不起作用?
替代不起作用通常有
付款条件增强:
BSEG-ZTERM -> ZBD1T
付款条件 Z060
!!!两个原因:
一.系统默认不允许你替代该字段内容。
SAP将允许字段替代-维护在GB01表中,如果该表中需要替代字段,你是不能替代的,比如会计科目BSEG-HKONT通常是不允许替代的,你就需要在此表增加。
二.替代程序需要重新自动编译。
在一些特殊情况下,你发现你的Validaton和Substitution都不起作用了,SE38运行程
序RGUGBR00| RGUGBR00, 将能选的项目全选上手工重新编译就行。
替代如何工作?
相关表格:
GB01|T001Q|T80D|GB03|GB03T|GB31|GB31T||GB907|GB90|GB92|GB922|GB901
|OXT_GENOBJDTL|。
相关函数和程序:
FI_SUBSTITUTION_ACTIVE
FI_SUBSTITUTION_DOC
FI_SUBSTITUTION_HEADER
FI_SUBSTITUTION_ITEM
GBTDMFI0|
GBTDMFIJ|
RGUGBR00|
RGUGBR00|
GBTDMFIJ|GBTDMFIG|
MF05AIENJ
在会计凭证的主程序SAPMF05A的子例程MF05AIENJ中,Module document_merge INPUT是检查和替代的处理入口,
简单理解, 系统将用户自屏幕上输入的信息首先保存在一些临时内表中,当通过所有的业务检查时最后保存到数据库,
替代是根据用户条件去替换掉内表的一些临时内容从而保存到一些字段内容最终保存到数据库。
在叙述SAP增强时会详细描述这个机制。
SAP所有模块的替代字段都由表GB01控制。
所谓release fields for substitution,就是在对应的BOOLCLASS中添加该字段,或者将该字段的GB01-BEXCLUDE = ‘X’改为GB01-BEXCLUDE = ‘ ‘。
BOOLCLASS(Boolean class)对于FI/CO,BOOLCLASS对应的是调用点:
BOOLCLASS = 008 at callup point 1
BOOLCLASS = 009 at callup point 2
BOOLCLASS = 015 at callup point 3
对于调用点3,SAP缺省的是未激活即release所以的字段,因为有如下entries:
BOOLCLASS CLASSTYPE BCLTAB BCLFIELD BEXCLUDE
15 S BKPF * X
15 S BSEG * X
所以,你会得到如此信息-”此事件可以不替换任何字段”。
解决步骤如下:
1. 确认你已经阅读并了解Note 42615- Substitution in FI和391309 - GB01 Boolean class 015: FI subst. for call-up point 3。
2. 尝试你需要替代的字段是否可以在调用点1或2实现。
3. 如果step2 failed,修改表BG01,删除相应记录:
如果是抬头字段,删除“15 S BKPF * X”,添加所需字段;
如果是行项字段,删除“15 S BSEG * X”,添加所需字段。
由于表GB01不可(通过配置)修改,你需要写一段小程序完成以上修改。
4. 运行程序RGUGBR00重新激活替代。
5. 重新维护OBBH。
更改GB01程序的源代码:
REPORT ZUPDATE_SKB1 .
PARAMETERS: P_BOOLCL LIKE GB01-BOOLCLASS OBLIGATORY,
P_CLASST LIKE GB01-CLASSTYPE OBLIGATORY,
P_BCLTAB LIKE GB01-BCLTAB OBLIGATORY,
P_BCLFIE LIKE GB01-BCLFIELD OBLIGATORY.
DATA: IT_GB01 LIKE TABLE OF GB01 WITH HEADER LINE.
SELECT *
FROM GB01
INTO TABLE IT_GB01
WHERE BOOLCLASS = P_BOOLCL
AND CLASSTYPE = P_CLASST
AND BCLTAB = P_BCLTAB
AND BCLFIELD = P_BCLFIE.
LOOP AT IT_GB01.
IT_GB01-BEXCLUDE = ‘ ‘.
MODIFY IT_GB01.
ENDLOOP.
MODIFY GB01 FROM TABLE IT_GB01.
COMMIT WORK AND WAIT.
WRITE: / ‘DONE!’.
REF:http://scnblogs.techweb.com.cn/abaplv/archives/189.html
ZRGGBS00 GGB1替代问题的更多相关文章
- MIRO做发票校验时实现替代功能的多种方式
http://blog.sina.com.cn/s/blog_3f2c03e30100ngje.html MIRO做发票校验时,如果需要对产生的会计凭证做某些字段的替代,可有多种方法. 1.GGB1替 ...
- 【ABAP系列】SAP ABAP替代校验全解析
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP替代校验全解析 ...
- PA教材提纲 TAW10-2
Unit1 Introduction to the ABAP Dictionary(ABAP字典介绍) 1.1 Describing the ABAP Dictionary(描述ABAP字典) ABA ...
- 【ABAP系列】SAP ABAP 的替代和校验
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP 的替代和校验 ...
- 用lucene替代mysql读库的尝试
采用lucene对mysql中的表建索引,并替代全文检索操作. 备注:代码临时梳理很粗糙,后续修改. import java.io.File; import java.io.IOException; ...
- Notepad2替代系统自带的记事本
事情是这样的,平时我经常把一些文字复制到记事本中编辑好了再复制到目标位置,可以在系统自带的记事本中替换删除一些内容,记事本小巧,占用很少的资源,我很喜欢:但今天复制的内容中有很多数字和一些我不想要的内 ...
- 在Wcf中应用ProtoBuf替代默认的序列化器
Google的ProtoBuf序列化器性能的牛逼已经有目共睹了,可以把它应用到Socket通讯,队列,Wcf中,身为dotnet程序员一边期待着不久后Grpc对dotnet core的支持更期待着Wc ...
- Autoit中用PrintWindow替代ScreenCapture函数实现截图
想截取躲在后面的窗体或控件,找到了PrintWindow函数,幸运的是Autoit3也对此进行了封装以方便使用. 于是乎,将帮助文件里的_WinAPI_PrintWindow()实例改写了一下,以替代 ...
- Axel替代wget
Axel替代wget 2011年11月10日admin发表评论阅读评论 Linux下用的最多的下载工具莫过于wget和curl,这两个工具虽然堪称经典.但其单线程的速度越来越不能大软件的下载.于是 ...
随机推荐
- Android 使用handler实现线程间发送消息 (主线程 与 子线程之间)、(子线程 与 子线程之间)
keyword:Android 使用handler实现线程间发送消息 (主线程 与 子线程之间).(子线程 与 子线程之间) 相信大家平时都有使用到异步线程往主线程(UI线程)发送消息的情况. 本文主 ...
- c++ 请抛弃匈牙利命名法 - 变量命名代码风格的建议。
我只针对c++码农们讲,其他语言不了解不过应该大同小异.曾几何时翻开21天学通c++系列等脑残入门书,都以匈牙利命名法示人(DWORD dwXXX, int nXXX, string strXXX). ...
- There's no Qt version assigned to this project for platform Win32. Please use the 'change Qt version' feature and choose a valid Qt version for this platform.
这个是用在vs2015时爆出的问题. 解决方法是: 1.鼠标放置在解决方案中的工程名处,用鼠标右键点击(右击). 2.选择Qt Project Settings,在弹出的对话框中的version栏处填 ...
- CDH配置JAVA_HOME
jdk成功安装 java -version 正确显示版本 echo $JAVA_HOME 正确输出路径 但CDH链接数据库还是报错: Error: JAVA_HOME is not set and ...
- jdbc 中 excute executeUpdate的用法作用
Statement 接口提供了三种执行 SQL 语句的方法:executeQuery.executeUpdate 和 execute.使用哪一个方法由 SQL 语句所产生的内容决定. 方法execut ...
- kmalloc、vmalloc、malloc的区别
简单的说: kmalloc和vmalloc是分配的是内核的内存,malloc分配的是用户的内存 kmalloc保证分配的内存在物理上是连续的,vmalloc保证的是在虚拟地址空间上的连续,malloc ...
- 使用nginx cache缓存网站数据实践
Nginx本身就有缓存功能,能够缓存静态对象,比如图片.CSS.JS等内容直接缓存到本地,下次访问相同对象时,直接从缓存即可,无需访问后端静态服务器以及存储存储服务器,可以替代squid功能. 1 ...
- 求伪逆矩阵c++代码(Eigen库)
非方阵的矩阵的逆矩阵 pseudoInverse 伪逆矩阵是逆矩阵的广义形式,广义逆矩阵 matlab中是pinv(A)-->inv(A). #include "stdafx.h&q ...
- ios - 上下滚动的新闻
#import <UIKit/UIKit.h> @interface ScrollUpDownView : UIView //设置 要现实的文字 @property(nonatomic, ...
- Android开发:《Gradle Recipes for Android》阅读笔记(翻译)3.3——整合resource文件
问题: 想要在product的flavor里面改变图片,文字或者其它资源. 解决方案: 在flavor里面增加合适的资源目录,并且改变他们包含的值. 讨论: 考虑下3.2章的“hello world ...