SAP分配分摊重过帐(迭代及累计)

《SAP分配分摊重过帐(迭代及累计)》由会员分享，可在线阅读，更多相关《SAP分配分摊重过帐(迭代及累计)（80页珍藏版）》请在装配图网上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-dateSAP分配分摊重过帐(迭代及累计)分配分摊重过帐分配分摊重过帐ERP系统中的所谓的periodic Allocation包括分配(Distribution)和分摊(Assessment).有好事者总结了几条.1.两者都可针对初级成本要素,而分摊中还可使用次级成本要素.2.分配保留了原来的成本因素,分摊则不可追溯原成本因素.3.分配比分摊有更高的性能?说到第3条,我说,

2、别逗了,还性能问题,我看不出分配比分摊性能强在哪里?举一个500年前就使用的老掉牙的例子,现在该例还能继续被广泛用于忽优菜鸟用户,说,如果电话费在缴纳时比如记在IT部门,在期末使用分配循环比根据统计指标(统计指标可以是各部门电话数量或各部门实际通话小时)或百分比分配到各部门,电话费保留初级成本要素原样分到各成本中心;又说,假如电话费,打印费,网络维护费等打包成一个次级要素叫办公费用(成本要素类别42)再分摊到各部门, 电话费,打印费,网络维护费不反应在各部门成本中心费用而是一个次级要素办公费用,性能问题? 不知是谁什么年代说的这话?现在服务器早就脱离温饱问题直奔大康了,就这么几行逻辑它就能影响

3、系统性能?小B:天天杀猪不怕人议论?老屠:浮生若梦,富贵云烟,人活着不都要说很多废话,嘴长在他人身上,难道你还能捂住人家嘴巴不行? 只要自己活着痛快,多为社会做点好事就行,俺祖师庖丁早就说过:杀自己的猪,让别人吃肉吧!某天,一个香港客人问我分配分摊如何翻译?我答曰:分配-Allocation,分摊-Assessment,忽优过去了,幸好我以前用惯了英文系统,英文原意是:Allocation(统称)包括分配-Distribution和分摊-Assessment.图1-1:如果选择”重复的”,则发送方和接受方有迭代关系，系统会将迭代的发送方金额完全从贷方发送出去,一般没有余额或极少数尾差.举一个简

4、单实例,你就会相当清楚,发送方成本中心A,一笔屠宰费(科目4000010000)100元,记帐金额,接受方追踪因素:固定百分比, 接受方成本中心:A本身20%,B 30%,C 50%.(1).如果选择”重复的”标志,则A无余额,A既在发送方又在接受方产生迭代,最终被分配到成本中心B的屠宰费37.50 ,C为62.50 (按30%和50%的权数).(2). 如果不选择”重复的” 标志,则分配到A,B,C的屠宰费分别为20,30,50元.如果想在分配后还留部分金额给本身可以考虑不选择”重复的” 标志.图1-2:”累计”标志什么意思,也非常简单,科目每月都有借贷发生额,当月余额和累计余额,如图2,原

5、材料这样的资产科目ECC6就可以使用分配将累计余额分配出去, 图1-3:分配的时候是否考虑数量,成本中心和成本费用都可统计消耗数量,接下来就此问题有个本人小小的认识Share一下.企业建立了多个业务范围,需要根据业务范围出资产负债表,同时,有很多公用料是为所有业务范围服务的,暂时记在某个业务范围内,在期末就可使用分配(ECC6新功能能在FI中分配资产科目余额) 将累计余额分配到各业务范围.如图2,如果选择了分配循环了”累计”标志则在2007/04时原材料的分配金额是第4期间的累计余额,通常我们说BS帐户是实帐户,P&L为虚帐户,根据传统的帐结法, P&L帐户在月结后基本上是结平无所谓的”累计”

6、余额的.说, 季节性生产企业基本生产车间的制造费用，一般可按制造费用的全年或停工月度预算数和产品的全年计划产量，计算确定计划分配,其制造费用允许有一定余额,莫非当时就考虑分配类似玩意?If so,I真是服了设计Allocation逻辑的那些家伙.留给读者一个问题, 图1-4业务货币和对象货币是什么东西?欢迎踊跃回答,猜中了, 万元大奖等您拿哟,你还忧郁什么,赶紧拿起手机.联通用户请发送短信SZTUSZTUSZTU至亚太研发中心.移动用户请发送短信 TUSZTUSZTUSZ至北美在线帮助.小灵通用户请发送短信TNNDTNNDTNND至欧洲支持中心.机不可失,时不再来,每条信息收费1元.说说分配时

7、的数量问题,看一个图,如图3,显示的是成本要素和成本中心主数据的数量.这数量有么子用? 假设我充分利用屠宰资源,将猪下水去养土鳖,我每月都投放一定数量的小鳖种,鳖这东西不好养,在出塘前时不时就有些死亡,到目前为止,估计还没有一家就为几只王八去上一个ERP系统,想抠俺的钱去上后勤门都没有,但是我又非常认真地要在我花5块钱买的翻版财务系统中来核算鳖成熟上市时的单位成本,所以这个数量金额方法核算就很重要.以上纯属搞笑. 另一个实例,你家使用别人的产权生产东西,需要根据XX USD/只付产权,则产权费科目可记录数量.我注意到,很多ERP都是从财务系统出发的,一直走到今天,那种只有某国人才能开发出某ER

8、P的说法纯属盲人说瞎话,系统是在各种企业的各种BT需求下慢慢增强的,没有需求的驱动,软件系统估计都得做成一张VCD沿街叫卖.一个分配(分摊)循环中可包含多个段，如图4,详细解释下图4中4小点的意思.图4-1:发送值可以是记帐金额,固定金额和固定比率,如果使用固定比率,则”发送方值”Tab页需要输入一个价格.你可以选择需要发送的是实际值和计划值(意思是计划费用也可做分配分摊,想想成本中心计划,读者可以自己测试一下),你还可选择发送方值的比例.图4-2:在段表头,接收方追踪因素的接首方规则有四种选择:1. 可调整份额,如果选择了它,则需要输入可变部分类型和量度负方向跟踪因素.2. 接收方还可选择固

9、定金额|固定百分比和固定份额,很好理解就不多说了,也不需要选择可变部分类型和量度负方向跟踪因素.我常用的分配分摊的接收方规则有两种,一是将发送方的值按固定百分比分配到发送方, 一是将发送方的值按统计指标分配分摊给接受方.图4-3: 如果选择了”可调整份额”,则可选择的可变部分类型有10种选择,我们比较常用的是第5种实际统计关键指标(想想和6计划统计关键指标的差异,接下来会讨论这个小问 题),举个实例,供水供电车间发生的费用要分配到其它各部门,分配依据是各部门实际电表和水表的发生数,就可以创建电和水关键指标(Tcode:KK01),月末将实际电表和水表的发生数做实际指标数输入(Tcode:KB3

10、1N).图4-4:关于量度负方向跟踪因素刻度问题,通常我们选择1没刻度,默认的总是最好的.到目前为止,如果你还不了解这些选择的意思,不要着急,正常的用法估计大家都很熟悉了,所以,举一个比较BT的实例,相信你认真读了后会对这些东西太了解了,如图5.图5的业务场景是这样的,从供电成本中心8233100001的电动屠宰-电费4000040001分配到杀猪和宰牛两个屠宰成本中心8233111001和8233111002,发送方规则是可调整份额,跟踪因素的可变部分类型是实际成本,没刻度,既然是实际成本,当然需要选择一个成本要素的实际成本发生额做分配标准,在参考加权因素Tab页中假设8233111001和

11、8233111002使用同样的权数100.假设我是屠宰场老板,各位知道,多年前我就不杀猪改宰ERP了,屠夫都是外面请来的,因为是自动的电动屠宰,电动屠宰-电费4000040001如何合理分配出去呢? 那就根据屠夫的劳务费实际成本额做分配依据,看成本中心报表(Tcode: S_ALR_87013611),如图6.图6几个地方强调一下,电费是111.11元,杀猪车间的劳务费4000040003是50元,宰牛车间的劳务费我上月多给了这月扣回来,-48元,刚才在图5中我强调过,电费是根据劳务费实际成本|没刻度分配的,这样分配的结果如图7.我们看到接收方追踪因素正是两车间的劳务费的实际成本(54/-48

12、,被放大100倍),那玩什么东东?一个电费是2777.75,一个是-2666.64,如果出这样的结果估计会被用户打死,我的一个死党有感于企业需求过分BT说项目二期打死也不来,我说一期没整好二期来了就被打死. 好了,修正一下分配循环量度负方向跟踪因素,结果如图8.在图8中,使用3绝对值,则接受方追踪因素是50 00/ 48 00,如果选择4,则8233111002的追踪因素由于是负数,则电费全部分配到8233111001.注意:(1).使用某科目的实际成本做分配因素,如果恰好接受方该科目恰好都没有发生额,则费用无有效接受方将分配不出,当然你可使用发送方本身科目的实际成本做分配追踪因素.(2).如

13、果费用和成本中心记录了数量,可使用实际消耗和计划消耗数量(Tcode:KP06)来做分配依据,你甚至实际和计划作业类型,实际和计划统计成本来做分配跟踪因素.举一反三,再举一个根据以屠夫劳务费400004003计划成本做分配跟踪因素的实例,合成图9中,KP06做的第4期间的计划成本分别是8233111001-10元, 8233111002-40元,劳务好象太便宜,我不会亏待屠夫们的,剩下的以猪肉牛肉抵.跑一下分配循环,结果完全如你预料,如图10.电动屠宰-电费确实是按400004003在KP06中做的计划成本的比例10 00/30 00分配出去的.据称做CO做到的最高境界就是天天折腾分配分摊以致

14、听到这四字就想吐,正如杀猪的不想再吃猪肉一样.总结下ERP的分配分摊循环,你可以为下面的分配类型创建循环：1. 定期重过帐2. 分配3. 估价4. 处理估价5. 间接作业分配,成本中心会计6. 间接作业分配, 基于作业的成本核算各大模块常用的分配分摊事务码3KE1|3KE2|3KE3|3KE4|3KE5(3KE1-3KEC):利润中心分摊循环4KE1|4KE2|4KE3|4KE4|4KE5(4KE1-4KEC):利润中心分配循环KSW1|KSW2|KSW3|KSW4|KSW5(KSW1-KSWC):CO定期重过帐KSV1|KSV2|KSV3|KSV4|KSV5(KSV1-KSVC):CO分配循

15、环KSU1|KSU2|KSU3|KSU4|KSU5(KSU1-KSUC):CO分摊循环KEU1|KEU2|KEU3|KEU4|KEU5(KEU1-KEUC):CO-PA分摊循环KEG1|KEG2|KEG3|KEG4|KEG5(KEG1-KEGC):CO-PA间接作业分配KE27:定期评估KE28:自上而下分配现在又有一问,这些东西的交易类型是什么?(Reference to Tcode: KANK to check the number for CO)最牛B最灵活的分配分摊依据-统计指标统计指标是指反映总体现象数量特征的概念。它包括三个构成要素:指标名称,计量单位,计算方法，统计指标通常用来做

16、分配分摊系数依据。这个是抄袭剽窃经济学上的一个定义，剽窃这东西要注意度，否则剽窃太多，就容易成为传说中的“剽客“。在SAP系统中，统计指标最大的用途就是被用来做分配分摊依据，既然统计指标可以由用户方便输入，所以任何的分配分摊比例都由用户自己控制。图1-1：手工计划创建统计指标计划格式的配置。图1-2：定义统计指标数量实际过帐屏幕格式的配置，先说说统计指标实际过帐。统计指标实际过帐在实际业务中,水电辅助材料等需要根据实际消耗量(对应到统计指标)分摊到成本中心或各种订单,订单可以是内部订单,CO订单甚至是PP工单,对后两者可能需要使用Tcode: BS12让其允许业务交易RKS-输入统计指标，如果

17、使用了很多统计指标，直接使用KB31N工作量不小，所以，下面介绍如何使用BDC编程自动批导入统计指标值。第一步:定义实际过帐屏幕格式图1-2进去后进入图2，创建一个格式名叫ZFR1,将包含成本中心和订单字段。选择“为每项业务定义屏幕格式”，进入图3，业务交易选择RKS “输入统计指标”，业务交易这个词大家已不再陌生，在KANK中可以看到所有的CO业务交易并为它们分配CO凭证编号，虽然大家好象并不大关心CO的凭证。在一般字段选上“总数量”（一定要选，否则统计指标数不能输入），“项目说明文本”为每行的一个说明而已，选上吧。在接受方字段同时选上“成本中心”和“订单”，初始屏幕选择“1 清单项目”。配

18、置非常简单，到此就完成了，设置屏幕格式的目的其实就是隐藏不需要的垃圾字段。第二步：使用SHDB录屏输入SHDB建立一批记录，输入Tcode-KB31N, 进入图4画面,屏幕变式选择ZFR1,出现成本中心和订单,数量和文本,正是图3中设置的屏幕变式。图4是KB31N录屏画面，屏幕变式选择ZFR1，带出的输入类型是“L清单输入项“，特别特别强调一下，因为行项目使用的是”Table control“控件，现在有了一个很好的方法解决行项目动态行的问题，就是每输入一行记录，一定要回车，这样在输入行项目后，永远只出现最新输入的最后一样，新录的行则是第2行，只有两行。图4-3显示最后一行项目是0003，输入

19、第4行，永远只显示两行，我们知道通常在Table control输入行项目的各变量值是变化的，如果翻屏，变量值又是从头开始，非常难于控制，保存后进入图5，看看录屏规律。在图5中，你看到每次回车后产生都调用程序 SAPLK23F1 屏幕1200，注意:图5-1：你可以导出或引入BDC记录文件，如果不想编写程序，可将记录文件直接导出然后增加需要输入的主数据再引入。图5-23： 在记录第一行时，光标数据BDC-CURSOR-ELR(01),变量值指针是(01),4个变量其中EL2表示成本中心,EL3表示订单,EL4表示统计指标名称,ELR1表示统计数量,第一行各变量指针是(01)。图5-34：接下来

20、因为是每行都回车，所以行项目的BDC-CURSOR都是ELR1(02),4个变量的指针都是(02)。第三步：编写BDC程序请参考接下来的小技巧-制作BDC程序。统计指标定值和总值Tcode：KK01可以使用Tcode KK01建立统计指标，统计关键指数通常作为分配分摊的系数,应用ERP各模块，但是不作为作业内型的分配。看几个Tcode:FAGLGA31:新总帐FI模块分配分摊，也可用于资产科目分配4KE1|3KE1：利润中心分配|分摊,可用来分配资产科目余额或发生额KSW1|KSV1|KSU1：成本中心重过帐|分配|分摊上面各模块的几个分配分摊事务码都可使用统计指标做分配分摊系数,特别地强调下

21、资产科目的分配分摊,比如你使用了多个业务范围或利润中心,希望根据业务范围/利润中心出具资产负债表,管理部门的固定资产/某些公用材料这些资产余额就可在期末根据统计指标分配分摊出去。统计指标分固定值和总值两种，什么意思呢？宰这个东西本人就比较在行，为了说明，举个例子，步骤如下：(1).KK01建立统计指标ZGDZ，采用固定值。(2).KB31N输入统计指标数量,传说做CO做的久的,最后听到分配分摊都会胸闷呕吐,那个什么电话费用分配根据电话数量统计指标的例子已经用了好几代,现在还有人在用,俺不喜欢创新,也假设ZGDZ就是电话数量统计指标,看图6。图6-12：在07年5月份时(假设使用公历年做会计年度

22、,月份=期间),成本中心Z02的电话数量是10部,Z03是20部。图6-3：过帐后，可使用Tcode FAGLSKF3看到在2007年5月到12月都有了统计数量，数量是第5月输入的，就是说，固定值型统计指标在全年各期间保持不变除非你以后更改后，图7描述了统计指标变更情况 。现在，假设7月份成本中心Z03将10部电话转移到成本中心Z01。图7-12：输入成本中心Z01|Z02的数量10。图7-3：可看到成本中心Z03的统计指标数量从第7间开是变成10，但是前面的5/6期间依旧保留为20，而成本中心Z01则从第7期开始到12期都是10。结论：I固定值统计指标输入后，则自动生成从输入期到该年的12期

23、的统计数量。II.如果某期间统计指标发生多次变更,同样影响该期到该年第12期数量,数量是最后一次更改的统计数量而非多此数量的总和。统计指标更新逻辑为:For 本年本期间 To 本年最后第12期间Update 统计指标数量表 Set 统计数量 = 本次输入数量。 Next 期间III.KB31N可输入0,上例假设成本中心Z03电话全部被撤掉,则可输入Z03|ZGDZ统计数量为0，可使用Tcode：OBA5关闭警告消息BK 198 。那么总值型统计指标如何呢？也分两步：(1).KK01建立统计指标ZTJZ，采用总值，什么时候采用总值呢？说，国内传统的成本会计一般是按期结算的，固定资产折旧，职员工资

24、费用需到期末才可得到实际发生额，产品的实际成本这时才能被准确计算出，国内的一些ERP软件没有所谓的作业类型概念所以这样做，哎，等到期末才得出产品实际成品，黄花菜都凉了。 温习一下ERP的作业类型，将固定资产折旧，人工建立成作业类型比如MAC，LAB，设置一个计划价格，假设每天都开工单，可将作业MAC/LAB发送到工单，注意此时产生的是成本凭证而非实际的财务凭证，相当于给工单一个应计计划值，从而可比较“实时”看到工单的“实际成本“，期末再重估实际作业价格重估工单。 假设企业使用周平衡，每10天去操一次水表或电表统计用量，统计指标使用ZTJZ。(2).KB31N输入统计指标数量,如图8 。图8-2

25、4：假设输入成本中心Z02/Z03用电（ZZJZ）数量分别为10/20度，期间5。图8-1：看到ZZJZ在成本中心第5期（只有输入的第5期）Z02/03数量分别为10/20。图8-3：再同样输入一次，可以发现统计指标数量是每次的总和。结论：I.总值统计指标输入后，只有输入当期的统计数量。II.如果在某期多次输入统计数量,则统计数量是总计累加的.统计指标更新逻辑为:Update 统计指标数量表 Set 上次统计数量 =上次统计数量 + 本次输入数量(可为负但不能为0) Where 期间 = 统计指标过帐期间 .III.KB31N不可输入0,提示错误BK 048,OBA5不可关闭,如果发现统计指标

26、数量不对比如某个成本中心的统计数量应该为0怎办呢?在一月中，如果输入多次统计指标,或有多行为了一个小错误反冲统计指标凭证不大可取,如果数量多计,可以Tcode: FAGLSKF3查询统计指标数量并输入负的调整统计指标。如果企业只在月末一次性导入且必定导入统计指标，固定型就等于总值型。假设你有上百个成本中心，有水费电费一大堆统计指标，实际上使用固定型统计指标更方便，做个Template，列举出全部成本中心，没发生水电费的即为0，每期都用这个Template就行。说，为什么我的系统里没有Tcode FAGLSKF3？如果你使用老的系统，可能会发现居然找不到一个合适的Tcode查找统计数量，那就劳驾

27、您老亲自到表COSR或根据此表制作个查询去捞数据。统计指标计划Tcode：KB85|KB86-定义统计指标计划编制格式KP46|KP47-建立显示成本中心统计指标小技巧-制作BDC程序。SHDB后，可以让每个记录自动产生程序（Shift + F5或菜单EDIT-Create Program），依旧SHDB KB31N为实例,如图1,按照屏幕格式ZFR1组织Excel后保存为文本,文本格式选择” 文本文件(制表符分割)”,参考BDC程序如下,BDC编程序无非就是将SHDB时产生的录屏程序简单组织一下而已。注意:保存为文本后可能会多出一行回车行最好手工到文本末删除,成本中心和统计订单的统计指标值可

28、混合一次性导入,但是同一行不能既有成本中心又出现订单号。REPORT ZTJZB .PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY,* 控制范围 I_KOKRS like TKA01-KOKRS default FRPC ,* 统计指标屏幕 I_PMGS like COHEADER-SEND_REC_REL default ZFR1 , i_Date like COHEADER-BUDAT OBLIGATORY DEFAULT SY-DATUM .Data : I_Count(3) TYpe N , 统计指标记录数 I_Recno(3) T

29、ype N, I_EL2(15) type C, I_EL3(15) type C, I_EL4(15) type C, I_ELR1(15) type C, I_ELRCUR(15) type c, I_BELNR like COHEADER-belnr, ITAB_MSG like BDCMSGCOLL OCCURS 0 with header line .*1.Define an internal table with BDCDATA structure *DATA BEGIN OF INT_BDC OCCURS 0.INCLUDE STRUCTURE BDCDATA.DATA END

30、OF INT_BDC.refresh INT_BDC.* 2. Define Key Figure Internal Table *DATA: BEGIN OF ITAB_TJZB OCCURS 0, SKOSTL like RK40C_KBXXN-SKOSTL , 成本中心 SAUFNR like RK40C_KBXXN-SAUFNR, 订单 STAGR like RK40C_KBXXN-STAGR , 统计指标 MBGBTR(15) Type C , 统计数量,最好使用字符型 END OF ITAB_TJZB.*3. Define BDC Program and Screen *FORM

31、BDC_SCREEN TABLES P_BDC STRUCTURE BDCDATA USING P_PROGRAM P_SCREEN. CLEAR P_BDC. P_BDC-PROGRAM = P_PROGRAM. P_BDC-DYNPRO = P_SCREEN. P_BDC-DYNBEGIN = X. APPEND P_BDC.ENDFORM. BDC_SCREEN*4.Define BDC Field Data *FORM BDC_FIELD TABLES P_BDC STRUCTURE BDCDATA USING P_NAME P_VALUE. CLEAR P_BDC. CASE P_V

32、ALUE. WHEN . WHEN OTHERS. P_BDC-FNAM = P_NAME. P_BDC-FVAL = P_VALUE. APPEND P_BDC. ENDCASE.ENDFORM. *5.Upload organized TJZB Text *AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE. CALL FUNCTION KD_GET_FILENAME_ON_F4 EXPORTING STATIC = X CHANGING FILE_NAME = P_FILE.START-OF-SELECTION. REFRESH ITAB_TJ

33、ZB. CALL FUNCTION WS_UPLOAD EXPORTING FILENAME = P_FILE FILETYPE = DAT TABLES DATA_TAB = ITAB_TJZB EXCEPTIONS CONVERSION_ERROR = 1 FILE_OPEN_ERROR = 2 FILE_READ_ERROR = 3 INVALID_TYPE = 4 NO_BATCH = 5 UNKNOWN_ERROR = 6 INVALID_TABLE_WIDTH = 7 GUI_REFUSE_FILETRANSFER = 8 CUSTOMER_ERROR = 9 OTHERS = 1

34、0. if sy-subrc 0. message i001(00) with 打开文件失败 P_FILE. exit. endif.*6.执行BDC 屏幕,KB31N初始屏 * perform BDC_SCREEN TABLES INT_BDC using SAPLSPO4 0300 . perform BDC_FIELD TABLES INT_BDC : using BDC_CURSOR SVALD-VALUE(01) , using BDC_OKCODE =FURT,using SVALD-VALUE(01) I_KOKRS .*一定要更改默认的屏幕格式为ZFR1并回车带出行格式* pe

35、rform BDC_SCREEN TABLES INT_BDC using SAPLK23F1 1200 . perform BDC_FIELD TABLES INT_BDC : using BDC_CURSOR COHEADER-SEND_REC_REL, using BDC_OKCODE =PVAR, using COHEADER-SEND_REC_REL I_PMGS , using RK23F-STATUS L, using BDC_SUBSCR SAPLK23F1 2000SUBHEADER, using BDC_SUBSCR SAPLK23F1 2100SUBTABHEAD, us

36、ing COHEADER-BLDAT i_Date, using COHEADER-BUDAT i_Date, using BDC_SUBSCR SAPLK23F1 3000SUBLIST, using BDC_SUBSCR SAPLSTC1 0100TABLECONTROL.* 7.Loop Cost center & Orders Stat. Key Figure Qty * I_Recno = 0 . I_COUNT = 0 . Loop at ITAB_TJZB .*因为每行都有回车,则类似每屏变量只有一个,第1行是指针是(01),其它是(02) If I_Recno = 0 . I_

37、ELRCUR = ELR1(01) . I_EL2 = EL2(01) . I_EL3 = EL3(01) . I_EL4 = EL4(01) . I_ELR1 = ELR1(01) . else. I_ELRCUR = ELR1(02) . I_EL2 = EL2(02) . I_EL3 = EL3(02) . I_EL4 = EL4(02) . I_ELR1 = ELR1(02) . endif. I_Recno = I_Recno + 1 . I_COUNT = I_COUNT + 1.*去掉第1行的成本中心订单统计指标数量标题 If I_COUNT 1 . perform BDC_SC

38、REEN TABLES INT_BDC using SAPLK23F1 1200 . perform BDC_FIELD TABLES INT_BDC : using BDC_OKCODE /00, using COHEADER-SEND_REC_REL I_PMGS , using RK23F-STATUS L, using BDC_SUBSCR SAPLK23F1 2000SUBHEADER, using BDC_SUBSCR SAPLK23F1 2100SUBTABHEAD, using COHEADER-BLDAT i_Date, using COHEADER-BUDAT i_Date

39、, using BDC_SUBSCR SAPLK23F1 3000SUBLIST, using BDC_SUBSCR SAPLSTC1 0100TABLECONTROL, using BDC_CURSOR I_ELRCUR . perform BDC_FIELD TABLES INT_BDC : using I_EL2 ITAB_TJZB-SKOSTL , using I_EL3 ITAB_TJZB-SAUFNR , using I_EL4 ITAB_TJZB-STAGR , using I_ELR1 ITAB_TJZB-MBGBTR . clear ITAB_TJZB . endif. en

40、dloop .*8.执行BDC 屏幕,保存统计指标数量 * perform BDC_FIELD TABLES INT_BDC : using BDC_OKCODE =POST, using COHEADER-SEND_REC_REL I_PMGS , using RK23F-STATUS L, using BDC_SUBSCR SAPLK23F1 2000SUBHEADER, using BDC_SUBSCR SAPLK23F1 2100SUBTABHEAD, using COHEADER-BLDAT i_Date, using COHEADER-BUDAT i_Date, using BDC

41、_SUBSCR SAPLK23F1 3000SUBLIST, using BDC_SUBSCR SAPLSTC1 0100TABLECONTROL, using BDC_CURSOR I_ELRCUR . CALL TRANSACTION KB31N USING INT_BDC MODE E UPDATE S MESSAGES INTO ITAB_MSG . Loop at ITAB_MSG . I_BELNR = ITAB_MSG-MSGV1 . endloop . SET PARAMETER ID BLN FIELD I_BELNR .*9.使用BDC调用KB33N查看统计指标凭证 * M

42、essage I001(00) with successfully generate Stat Key Fig. doc: I_BELNR ,Pls Check Carefully ! . refresh INT_BDC. perform BDC_SCREEN TABLES INT_BDC using SAPLSPO4 0300 . perform BDC_FIELD TABLES INT_BDC : using BDC_CURSOR SVALD-VALUE(01) , using BDC_OKCODE =FURT, using SVALD-VALUE(01) I_KOKRS . perfor

43、m BDC_SCREEN TABLES INT_BDC using SAPLK23F1 1200 . perform BDC_FIELD TABLES INT_BDC : using BDC_OKCODE /00, using COHEADER-SEND_REC_REL ZFR1, using RK23F-STATUS L, using BDC_SUBSCR SAPLK23F1 2000SUBHEADER, using BDC_SUBSCR SAPLK23F1 2100SUBTABHEAD, using COHEADER-BELNR I_BELNR, using BDC_SUBSCR SAPL

44、K23F1 3000SUBLIST, using BDC_SUBSCR SAPLSTC1 0100TABLECONTROL, using BDC_CURSOR COHEADER-BELNR . CALL TRANSACTION KB33N USING INT_BDC MODE E . 如图2，可以发现BDC的录屏有BDC屏幕和BDC屏幕字段两类，分别如下调用：(1).perform BDC_SCREEN TABLES INT_BDC （BDC程序屏幕） P_BDC-PROGRAM = P_PROGRAM. P_BDC-DYNPRO = P_SCREEN. P_BDC-DYNBEGIN = X.

45、 输入3个参数,程序名,程序屏幕, DYNBEGIN X标志。(2).perform BDC_FIELD TABLES INT_BDC （BDC屏幕字段） P_BDC-FNAM = P_NAME.P_BDC-FVAL = P_VALUE.屏幕字段只有两个参数，字段名称(通常是屏幕字段或屏幕光标)和字段内容。实际上，BDC程序就是简单将BDC屏幕和BDC字段组织成一个内表交给Tcode执行而已。接下来调用TcodeCALL TRANSACTION KB31N USING INT_BDC MODE E UPDATE S MESSAGES INTO ITAB_MSG .调用事务的类型MODE通常有：A： 显示所有屏幕（即模拟前台输入）E： 显示错误（只有错误才停顿）N： 后台的处理（后台作业）MESSAGES包含调用事务返回的信息，在本例中，可以得到返回凭证，然后KB33N显示。-