会计凭证完全凭证替代出口Word格式文档下载.docx
《会计凭证完全凭证替代出口Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《会计凭证完全凭证替代出口Word格式文档下载.docx（9页珍藏版）》请在冰豆网上搜索。
在结合UserExit的情况下，抬头以及行项目替代，基本上可实现修改会计凭证上的任何内容的功能，仅有需要对整张凭证数据进行检查或处理时，方可需
要用到完全凭证替代。
抬头替代和行项目替代的使用比较普遍，具体可参考文档：
财务凭证的替代.do
c
本文将着重介绍完全凭证替代的相关内容。
2.完全凭证替代
最近在项目上遇到一个问题：
在创建会计凭证时，根据会计凭证行项目上的
利润中心，生成事业部凭证号；
若所有行项目的利润中心都为空，此时默认为公
共事业部凭证号；
最后再把这个事业部凭证号的值赋给抬头的BKPF-XBLNR。
但是，如何判断所有的行项目的利润中心都为空呢？
抬头替代只能在处理抬头数据时生效，而行项目替代，也是在处理行项目时生效，这两种替代均不能判断是否所有行项目的利润中心都为空，此时，可采用
SAP的非标准功能：
完全凭证替代（在凭证保存前触发）。
2.2完全凭证替代适用条件
NOTE42615中：
Atcalluppoint3,substitutionisonlycarriedoutifthedocumentis
postedinFI（withprogramSAPMF05AorSAPF110S）orinMMinvoice
verification（withprogramSAPMM08R）.WhenpostingviatheFI/CO
interface,forexample,withdirectinput（RFBIBL00ModeDor
transferbillingdocumentwithTransactionVF01）nosubstitutionis
carriedout.
完全凭证替代，仅支持FI/CO,以及MM发票校验，目前测试发现FI方面，对于FB08冲销凭证是不支持替代的。
2.3完全凭证替代步骤
2.3.1自定义程序配置
Tcode:
SE38Copy系统标准程序：
RGGBS000至ZRGGBS00
GCX2配置应用区域GBLS为自定义程序：
ZRGGBS00
蟒改屈風F1-SL中特定容户的用尸曲口:
盘嫦
7?
刃*.uQSES
232修改系统标准配置
OBBH创建完全凭证替代
按照创建抬头替代和行项目替代的方法创建完全凭证替代时，系统报错:
原因为：
系统针对完全凭证（调用点3）未释放任何字段，此时可进行如下
处理：
此处可参考note:
42615SubstitutensinFI
sapnote_000004261
5.pdf
Solutions
步骤一、修改系统表GB01记录
修改为:
通过debug程序或写段小代码，或者使用SM30维护视图VWTYGB01可
修改GB01o
BOOLCLASS:
15完全凭证使用的布尔类为15
CLASSTYPE:
S表示参考可替代字段
BCLTAB:
BKPFBSEG参考表
BCLFIELD:
*不属于此等级的字段，设置为*表示所有字段均可参与
替代。
步骤二、需重新运行程序：
RGUGBR00（每次针对GB01表的修改均需重新运行此程序）
生成礎认/替换丿规则的ABAP代码
应用锁最|Fl]
调用*loonsj
□重sJrifiE主理宰
I1生存生氐丧交件
n±
m!
Ul
□生咸验证
□生瞒皆代
□生战觊则用途
□土咸喘证用途
□MS替代电踵
□生驕替代市澤
BOW：
MSm：
©
B：
：
Zj
跟治瑾序生戒嘀书
232创建完全凭证替代
步骤一、创建完全凭证替代
在完成对GB01表的修改后，便可创建完全凭证替代了
具体操作如下:
姙耆件ZT1HESTf抬头数据）.胡爲因—一"
寸縫爭頁费屯二|口寿站|口拯卩抽1
▼口M办芒计
►GKil怕T
*G厅贞国
•GAiftil
步骤二、新增出口例程EXIT，添加实现代码。
在自定义程序ZRGGBSOO中添加Event:
formget_exit_titlesTABLESetab.
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.
FORMU001formu001usingbool_datatypegb002_015.
LOOPATbool_data-bsegINTObseg.
IFbseg-prctrISNOTINITIAL.“对利润中心不为空的行项目计数
l_num=l_num+1.
ENDIF.
ENDLOOP.
IFl_num=0.“计数=0,贝U成功判断当前凭证所有行项目的利润中心均为空
callFUNCTION'
NUMBER_GET_NEXT'
EXPORTING
nr_range_nr='
02'
OBJECT='
ZXBLNR3'
importing
NUMBER=G_LOGNO.
保存，激活程序
步骤三、配置替代出口
注意：
若出口例程已在程序中添加并激活，但选择项未出现此选项，此时:
1.确认exits-param=c_exit_param_class
2.系统存在一定的缓存，可退出系统重新进入，便可在Userexit选项中看
到新添加的完全凭证出口
步骤四、配置调用点，设置为激活
TCODE:
OBBH
配置相应的公司，调用点为：
3（完全凭证），活动等级：
1（激活）
聶条目:
已漳加靈吕的概覽
®
BB
口住司调用点菁代
吿动等簸
□
1UOOETZTHTEST
芫全凭圧管代
EZ3
鼻1
也可参看：
Note126849-SubstitutionFl-infl.Venezuelacallup2,3
Rel.3.0F
sapnote_000012684
9.pdf
3.最终效果
以F-02为例:
帝L华改毎匹:
数据諭入擬图呼◎0諾厂师
100000159
f10W
•计锦
2010
克亜曰J!
2010712/311
dfrE4n
2010/12/31
411'
[12
EP
c/]0P!
looai40
112700
ttini匡邓
±
?
5总币汀
1?
3>
570aCN¥
测订引闻中询1?
耳聖养证
I1
250
113112
银-盯tOr：
123,457.QQ-
QNY
II
当利润行项目利润中心全部为空时，可填写公共事业部（抬头增加G）至凭
证抬头参照字段
另标准程序：
RGGBS000关于完全凭证的应用如下:
FORMu102USINGbool_dataTYPEgb002_015.
DATA:
SUM（10）TYPEC.
LOOPATBOOL_DATA-BSEGINTOBSEG
WHERESHKZG='
S'
BSEG-ZUONR='
Test'
MODIFYBOOL_DATA-BSEGFROMBSEG.
ADDBSEG-DMBTRTOSUM.
BKPF-XBLNR=TEXT-001.
REPLACE'
&
WITHSUMINTOBKPF-XBLNR.
ENDFORM.
即当抬头的一些字段的修改，需要参照行项目确定时，便可使用完全凭证替代来实现。
升级会员 