会计凭证完全凭证替代出口Word格式文档下载.docx
《会计凭证完全凭证替代出口Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《会计凭证完全凭证替代出口Word格式文档下载.docx(9页珍藏版)》请在冰豆网上搜索。
![会计凭证完全凭证替代出口Word格式文档下载.docx](https://file1.bdocx.com/fileroot1/2022-12/6/e0ba1ad1-1109-4e08-802f-e61867f8ab34/e0ba1ad1-1109-4e08-802f-e61867f8ab341.gif)
在结合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.
即当抬头的一些字段的修改,需要参照行项目确定时,便可使用完全凭证替代来实现。