S分配分攤重過帳迭代及累計

1、分配分攤重過帳ERP系統(tǒng)中的所謂的 periodic Allocation包括分配（Distribution）和分攤（Assessment）.有好事者總結了幾條 .1. 兩者都可針對初級成本要素 ,而分攤中還可使用次級成本要素 .2. 分配保留了原來的成本因素 ,分攤則不可追溯原成本因素 .3. 分配比分攤有更高的性能 ?說到第 3條,我說,別逗了,還性能問題 ,我看不出分配比分攤性能強在哪里?舉一個 500 年前就使用的老掉牙的例子 ,現(xiàn)在該例還能繼續(xù)被廣泛用于忽優(yōu)菜鳥用戶,說,如果電話費在繳納時比如記在IT 部門, 在期末使用分配循環(huán)比根據(jù)統(tǒng)計指標 （統(tǒng)計指標可以是各部門電話數(shù)量或各部門實

2、際通話小時 ）或百分比分配到 各部門 , 電話費保留初級成本要素原樣分到各成本中心; 又說 , 假如電話費 , 打印費 , 網(wǎng)絡維護費等打包成一個次級要素叫辦公費用 （成本要素類別 42）再分攤到各部門 , 電話費,打印費 ,網(wǎng)絡維護費不反應在各部門 成本中心費用而是一個次級要素辦公費用 , 性能問題 ? 不知是誰什么年代說的這話?現(xiàn)在服務器早就脫離溫飽問題直奔大康了 , 就這么幾行邏輯它就能影響系統(tǒng)性能 ?小 B: 天天殺豬不怕人議論 ?老屠:浮生若夢,富貴云煙,人活著不都要說很多廢話 ,嘴長在他人身上 ,難道你還能捂住人家嘴巴不行 ? 只 要自己活著痛快 , 多為社會做點好事就行 , 俺祖

3、師庖丁早就說過 :殺自己的豬 , 讓別人吃肉吧 !某天 , 一個香港客人問我分配分攤如何翻譯?我答曰 : 分配 -Allocation, 分攤 -Assessment,忽優(yōu)過去了 , 幸好我以前用慣了英文系統(tǒng) , 英文原意是 :Allocation（ 統(tǒng)稱 ） 包括分配 -Distribution 和分攤 -Assessment.圖 1-1: 如果選擇”重復的” , 則發(fā)送方和接受方有迭代關系，系統(tǒng)會將迭代的發(fā)送方金額完全從貸方發(fā) 送出去 , 一般沒有余額或極少數(shù)尾差 .記帳金額 , 接受方追蹤因素 :固定百分比 , 接受方成本中心 :A 本身 20%,B 30%,C 50%.（1）.如果選擇

4、”重復的”標志，則A無余額,A既在發(fā)送方又在接受方產(chǎn)生迭代，最終被分配到成本中心 B的屠宰費 37.50 ,C 為62.50 （ 按30%和50%的權數(shù)）.（2）. 如果不選擇”重復的” 標志，則分配到 A，B，C 的屠宰費分別為 20，30，50 元.如果想在分配后還留部分金額給本身可以考慮不選擇”重復的”標志.圖 1-2: ”累計” 標志什么意思 ， 也非常簡單 ， 科目每月都有借貸發(fā)生額 ， 當月余額和累計余額 ， 如圖 2， 原材料這樣的資產(chǎn)科目 ECC6就可以使用分配將累計余額分配出去，圖 1-3: 分配的時候是否考慮數(shù)量 ，成本中心和成本費用都可統(tǒng)計消耗數(shù)量 ，接下來就此問題有個本

5、人小 小的認識 Share 一下 .企業(yè)建立了多個業(yè)務范圍 ，需要根據(jù)業(yè)務范圍出資產(chǎn)負債表 ，同時，有很多公用料是為所有業(yè) 務范圍服務的，暫時記在某個業(yè)務范圍內，在期末就可使用分配（ECC噺功能能在FI中分配 資產(chǎn)科目余額 ） 將累計余額分配到各業(yè)務范圍 .如圖 2， 如果選擇了分配循環(huán)了 ”累計” 標志則在 2007/04 時原材料的分配金額是第 4 期間 的累計余額，通常我們說BS帳戶是實帳戶，P&L為虛帳戶，根據(jù)傳統(tǒng)的帳結法，P&L帳戶在月 結后基本上 是結平無所謂的”累計”余額的 .說， 季節(jié)性生產(chǎn) 企業(yè)基本生產(chǎn)車間的制造費用，一般可按制造費用的全年或停工月度預算數(shù) 和產(chǎn)品的全年計劃產(chǎn)

6、量，計算確定計劃分配 ， 其制造費用允許有一定余額 ， 莫非當時就考慮分 配類似玩意 ?If so，I 真是服了設計 Allocation 邏輯的那些家伙 .留給讀者一個問題 ， 圖 1-4 業(yè)務貨幣和對象貨幣是什么東西 ?歡迎踴躍回答 ，猜中了， 萬元大獎等您拿喲 ，你還憂郁什么 ，趕緊拿起手機 .聯(lián)通用戶請發(fā)送短信SZTUSZTUSZT至亞太研發(fā)中心.移動用戶 請發(fā)送短信TUSZTUSZTUS至北美在線幫助.小靈通用戶 請發(fā)送短信TNNDTNNDTN至歐洲支持中心.機不可失 , 時不再來 , 每條信息收費 1 元 .說說分配時的數(shù)量問題 ,看一個圖 ,如圖3,顯示的是成本要素和成本中心主數(shù)

7、據(jù)的數(shù)量 .這數(shù)量有么子用 ? 假設我充分利用屠宰資源 ,將豬下水去養(yǎng)土鱉 , 我每月都投放一定數(shù)量的小鱉種 ,鱉這東 西不好養(yǎng)，在出塘前時不時就有些死亡 ，到目前為止，估計還沒有一家就為幾只王八去上一個ERP系統(tǒng),想摳俺的錢去上后勤門都沒有 , 但是我又非常認真地要在我花 5 塊錢買的翻版財務系統(tǒng)中來核算鱉成熟上市時 的單位成本 ， 所以這個數(shù)量金額方法核算就很重要 .以上純屬搞笑另一個實例，你家使用別人的產(chǎn)權生產(chǎn)東西,需要根據(jù)XXUSD/只付產(chǎn)權,則產(chǎn)權費科目可記錄數(shù)量 .我注意到,很多ERP都是從財務系統(tǒng)出發(fā)的,一直走到今天,那種只有某國人才能開發(fā)出某ERP的說法純屬盲人說瞎話，系統(tǒng)是在

8、各種企業(yè)的各種BT需求下慢慢增強的，沒有需求的驅動，軟件系統(tǒng)估計都得做成一張VCD沿街叫賣一個分配 (分攤)循環(huán)中可包含多個段，如圖4，詳細解釋下圖 4中 4小點的意思 圖 4-1: 發(fā)送值可以是記帳金額 ， 固定金額和固定比率 ， 如果使用固定比率 ， 則”發(fā)送方值” Tab 頁需要輸 入一個價格 你可以選擇需要發(fā)送的是實際值和計劃值 (意思是計劃費用也可做分配分攤 ， 想想 成本中心計劃 ， 讀者可以自己測試一下 )， 你還可選擇發(fā)送方值的比例 圖 4-2: 在段表頭 ， 接收方追蹤因素的接首方規(guī)則有四種選擇 :1. 可調整份額，如果選擇了它，則需要輸入可變部分類型和量度負方向跟蹤因素2.

9、 接收方還可選擇 固定金額|固定百分比和固定份額，很好理解就不多說了 ，也不需要選擇可變 部分類型和量度負方向跟蹤因素 我常用的分配分攤的接收方規(guī)則有兩種 ， 一是將發(fā)送方的值按固定百分比分配到發(fā)送方 ， 一是將發(fā)送方的 值按 統(tǒng)計指標 分配分攤給接受方 .圖4-3:如果選擇了” 可調整份額” ，則可選擇的 可變部分類型 有10種選擇，我們比較常用的是第 5種實際統(tǒng)計關鍵指標 ( 想想和 6 計劃統(tǒng)計關鍵指標的差異 ， 接下來會討論這個小問 題)， 舉個實例 ， 供 水供電車間發(fā)生的費用要分配到其它各部門 ，分配依據(jù)是各部門實際電表和水表的發(fā)生數(shù) ，就可 以創(chuàng)建電和水關鍵指標 ( Tcode:

10、 KK01)， 月末將實際電表和水表的發(fā)生數(shù)做實際指標數(shù)輸入 (Tcode: KB31N).圖4-4: 關于量度負方向跟蹤因素刻度問題 ，通常我們選擇 1沒刻度，默認的總是最好的 .到目前為止 ， 如果你還不了解這些選擇的意思 ， 不要著急 ， 正常的用法估計大家都很熟悉了 ， 所以 ， 舉一個比 較BT的實例，相信你認真讀了后會對這些東西太了解了，如圖5.圖 5的電動屠宰 -電費可調整份額 ，跟蹤因素的可變部分類型是 實際成本 ，沒刻度，既然是實際成本 ，當然需 要選擇一個成本要素的 實際成本 發(fā)生額 做分配標準 ，在參考加權因素 Tab 頁假設我是屠宰場老板，各位知道，多年前我就不殺豬改宰

11、 ERP了，屠夫都是外面請來的，因為是自動的電動屠 宰， 電動屠宰 - 電費 那就根據(jù)屠夫的勞務費實際成本額做分配依據(jù) ， 看成本中心報表 (Tcode: S)， 如圖 6. 實際成本 | 沒刻度 分配的 ， 這樣分配的結果如 圖 7.我們看到接收方追蹤因素正是兩車間的勞務費的實際成本 (54/-48， 被放大 100 倍)， 那玩什么東東 ?一個電 費是 2777.75， 一個是 -2666.64， 如果出這樣的結果估計會被用戶打死 ， 我的一個死黨有感于企業(yè)需求過分 BT 說項目二期打死也不來 ， 我說一期沒整好二期來了就被打死 . 好了 ， 修正一下分配循環(huán) 量度負方向跟蹤 因素，結果如

12、圖8.在圖 8 中， 使用 3 絕對值(1) . 使用某科目的 實際成本 做分配因素 ，如果恰好接受方該科目恰好都沒有發(fā)生額 ，則費用無有效接受方將分配不出 ， 當然你可使用發(fā)送方本身科目的 實際成本 做分配追蹤因素 .(2) . 如果費用和成本中心記錄了數(shù)量 ， 可使用實際消耗和計劃消耗數(shù)量 (Tcode:KP06) 來做分配依據(jù) ， 你甚至實際和計劃作業(yè)類型 ， 實際和計劃統(tǒng)計成本來做分配跟蹤因素 .圖9 太便宜，我不會虧待屠夫們的，剩下的以豬肉牛肉抵跑一下分配循環(huán)，結果完全如你預料，如圖10.實際分配接收方淸單圖辺酉同囲園阿I荃本林ig莎|圄團ZDIS01殺豬費用分配循環(huán)2007. 01

13、. 01 004期間1成本中心|成本要素功能范圍RI成本范圍貨幣COCr接收方追蹤因素生8233111001400004000122. 22RMB1 1,000 4,00044B233111002400004000136.89111-11111.11RMB據(jù)稱做co做到的最高境界就是天天折騰分配分攤以致聽到這四字就想吐，正如殺豬的不想再吃豬肉一樣總結下ERP的分配分攤循環(huán)， 你可以為下面的分配類型創(chuàng)建循環(huán)：1. 定期重過帳2. 分配3. 估價4. 處理估價5. 間接作業(yè)分配，成本中心會計6. 間接作業(yè)分配，基于作業(yè)的成本核算 各大模塊常用的分配分攤事務碼3KE1|3KE2|3KE3|3KE4|

14、3KE5(3KE1-3KEC): 禾 U潤中心分攤循環(huán) 4KE1|4KE2|4KE3|4KE4|4KE5(4KE1-4KEC): 禾U潤中心分配循環(huán)KSW1|KSW2|KSW3|KSW4|KSW5(KSW1-KSWC):CO定期重過帳KSV1|KSV2|KSV3|KSV4|KSV5(KSV1-KSVC):CO分配循環(huán)KSU1|KSU2|KSU3|KSU4|KSU5(KSU1-KSUC):CO分攤循環(huán)KEU1|KEU2|KEU3|KEU4|KEU5(KEU1-KEUC):CO-PA分攤循環(huán)KEG1|KEG2|KEG3|KEG4|KEG5(KEG1-KEGC):CO-PA間接作業(yè)分配KE27:定期

15、評估KE28:自上而下分配現(xiàn)在又有一問，這些東西的交易類型是什么？(Referenee to Tcode: KANK to check the number for CO trans.)最牛B最靈活的分配分攤依據(jù)-統(tǒng)計指標統(tǒng)計指標是指反映總體現(xiàn)象數(shù)量特征的概念。它包括三個構成要素：指標名稱，計量單位，計算方法，統(tǒng)計指標通常用來做分配分攤系數(shù)依據(jù)。這個是抄襲剽竊經(jīng)濟學上的一個定義，剽竊這東西要注意度，否則剽竊太多，就容易成為傳說中的“剽客“。在SAP系統(tǒng)中，統(tǒng)計指標最大的用途就是被用來做分配分攤依據(jù)，既然統(tǒng)計指標可以由用戶方便輸入，所以任 何的分配分攤比例都由用戶自己控制。圖1-1:手工計劃創(chuàng)建

16、統(tǒng)計指標計劃格式的配置。圖1-2:定義統(tǒng)計指標數(shù)量實際過帳屏幕格式的配置，先說說統(tǒng)計指標實際過帳。統(tǒng)計指標實際過帳在實際業(yè)務中，水電輔助材料等需要根據(jù)實際消耗量(對應到統(tǒng)計指標)分攤到成本中心或各種訂單，訂單可以是內部訂單,CO訂單甚至是PP工單，對后兩者可能需要使用Teode: BS12讓其允許業(yè)務交易RKS -輸入統(tǒng)計指標，如果使用了很多統(tǒng)計指標，直接使用KB31N工作量不小，所以，下面介紹如何使用BDC編程自動批導入統(tǒng)計指標值。第一步 :定義實際過帳屏幕格式 圖 1-2 進去后進入 圖 2 ，創(chuàng)建一個格式名叫 ZFR1 ,將包含成本中心和訂單字段。 選擇“為每項業(yè)務定義屏幕格式”，進入圖

17、 3，業(yè)務交易選擇 RKS “輸入統(tǒng)計指標”，業(yè)務交易這個詞大家已不再陌生，在KANK中可以看到所有的 CO業(yè)務交易并為它們分配 CO憑證編號，雖然大家好象并不大關心 CO 的憑證。在一般字段選上“總數(shù)量”( 一定要選，否則統(tǒng)計指標數(shù)不能輸入 )，“項目說明文本”為每行的一 個說明而已，選上吧。在接受方字段同時選上“ 成本中心 ”和“訂單”，初始屏幕選擇“ 1 清單項目 ”。 配置非常簡單，到此就完成了，設置屏幕格式的目的其實就是隱藏不需要的垃圾字段。第二步：使用 SHDB 錄屏輸入 SHDB 建立一批記錄，輸入 Tcode- KB31N , 進入圖 4畫面,屏幕變式選擇 ZFR1 ,出現(xiàn)成本

18、中心和訂單 ,數(shù)量 和文本 ,正是 圖 3 中設置的屏幕變式。圖 4 是 KB31N 錄屏畫面，屏幕變式選擇 ZFR1 ，帶出的輸入類型是“ L 清單輸入項“，特別特別強調一下，因 為行項目使用的是” Table control “控件，現(xiàn)在有了一個很好的方法解決行項目動態(tài)行的問題，就是每輸入一行記錄，一定要回車，這樣在輸入行項目后，永遠只出現(xiàn)最新輸入的最后一樣，新錄的行則是第2 行，只有兩行。圖 4-3 顯示最后一行項目是 0003，輸入第 4 行，永遠只顯示兩行，我們知道通常在 Table control 輸入行項目的 各變量值是變化的，如果翻屏，變量值又是從頭開始，非常難于控制，保存后進

19、入圖 5，看看錄屏規(guī)律。在圖 5 中，你看到每次回車后產(chǎn)生都調用程序 SAPLK23F1 屏幕 1200，注意 :圖 5-1 ：你可以導出或引入 BDC 記錄文件，如果不想編寫程序，可將記錄文件直接導出然后增加需要輸入的 主數(shù)據(jù)再引入。圖 5-23 ： 在記錄第一行時，光標數(shù)據(jù) BDC-CURSOR-ELR(01), 變量值指針是 (01),4 個變量其中 EL2 表示成 本中心 ,EL3 表示訂單 ,EL4 表示統(tǒng)計指標名稱 ,ELR1 表示統(tǒng)計數(shù)量 ,第一行各變量指針是 (01)。圖 5-34 ：接下來因為是每行都回車，所以行項目的 BDC-CURSOR 都是 ELR1(02), 4 個變

20、量的指針都是 (02)。 第三步：編寫 BDC 程序請參考接下來的 小技巧 -制作 BDC 程序 。統(tǒng)計指標定值和總值Tcode：KK01可以使用 Tcode KK01 建立統(tǒng)計指標， 統(tǒng)計關鍵指數(shù)通常作為分配分攤的系數(shù) ,應用 ERP 各模塊，但是不作為作業(yè)內型的分配?？磶讉€ Tcode:FAGLGA31 : 新總帳 FI 模塊分配分攤，也可用于資產(chǎn)科目分配4KE1|3KE1 ：利潤中心分配 | 分攤,可用來分配資產(chǎn)科目余額或發(fā)生額 KSW1|KSV1|KSU1 ：成本中心重過帳 |分配|分攤 上面各模塊的幾個分配分攤事務碼都可使用統(tǒng)計指標做分配分攤系數(shù), 特別地強調下資產(chǎn)科目的分配分攤,比

21、如你使用了多個業(yè)務范圍或利潤中心 ,希望根據(jù)業(yè)務范圍 / 利潤中心出具資產(chǎn)負債表 ,管理部門的固定資產(chǎn) /某些公 用材料這些資產(chǎn)余額就可在期末根據(jù)統(tǒng)計指標分配分攤出去。統(tǒng)計指標分固定值和總值兩種，什么意思呢？宰這個東西本人就比較在行，為了說明，舉個例子，步驟如下：(1) .KK01 建立統(tǒng)計指標 ZGDZ ，采用固定值。(2) .KB31N 輸入統(tǒng)計指標數(shù)量 ,傳說做 CO 做的久的 ,最后聽到分配分攤都會胸悶嘔吐 , 那個什么電話費用分配根據(jù)電話數(shù)量統(tǒng)計指標的例子已經(jīng)用了好幾代,現(xiàn)在還有人在用 ,俺不喜歡創(chuàng)新 ,也假設 ZGDZ 就是電話數(shù)量統(tǒng)計指標 , 看圖 6。圖 6-12 ：在 07

22、年5 月份時 (假設使用公歷年做會計年度 ,月份=期間), 成本中心 Z02 的電話數(shù)量是 10 部 ,Z03 是 20 部。圖 6-3 ：過帳后，可使用 Tcode FAGLSKF3 看到在 2007 年 5 月到 12 月都有了統(tǒng)計數(shù) 量，數(shù)量是第 5 月輸入的，就是說，固定值型統(tǒng)計指標在全年各期間保持不變 除非你以后更改后， 圖 7 描述了統(tǒng)計指標變更情況 ?，F(xiàn)在，假設7月份成本中心 Z03將10部電話轉移到成本中心Z01。圖7-12:輸入成本中心 Z01|Z02 的數(shù)量10。圖7-3:可看到成本中心 Z03的統(tǒng)計指標數(shù)量從第 7間開是變成10 ,但是前面的5/6期間依舊保留為 20，

23、而成本中心Z01則從第7期開始到12期都是10。結論：I 固定值統(tǒng)計指標輸入后，則自動生成從輸入期到該年的12期的統(tǒng)計數(shù)量。II. 如果某期間統(tǒng)計指標發(fā)生多次變更，同樣影響該期到該年第12期數(shù)量,數(shù)量是最后一次更改的統(tǒng)計數(shù)量而非多此數(shù)量的總和。統(tǒng)計指標更新邏輯為：For本年本期間To本年最后第12期間Update統(tǒng)計指標數(shù)量表Set統(tǒng)計數(shù)量=本次輸入數(shù)量。Next期間III. KB31N可輸入0,上例假設成本中心 Z03電話全部被撤掉,則可輸入Z03|ZGDZ 統(tǒng)計數(shù)量為0，可使用Tcode : OBA5 關閉警告消息 BK 198。那么總值型統(tǒng)計指標如何呢？也分兩步：（1）.KK01建立統(tǒng)計

24、指標ZTJZ，采用總值，什么時候采用總值呢？說，國內傳統(tǒng)的成本會計一般是按期結算的，固定資產(chǎn)折舊，職員工資費用需到期末才可得到實際發(fā)生額，產(chǎn)品的實際成本這時才能被準確計算岀，國內 的一些ERP軟件沒有所謂的作業(yè)類型概念所以這樣做，哎，等到期末才得岀產(chǎn)品實際成品，黃花菜都涼了。溫習一下ERP的作業(yè)類型，將固定資產(chǎn)折舊，人工建立成作業(yè)類型比如MAC，LAB，設置一個計劃價格，假設每天都開工單，可將作業(yè)MAC/LAB發(fā)送到工單，注意此時產(chǎn)生的是成本憑證而非實際的財務憑證，相當于給工單一個應計計劃值，從而可比較“實時”看到工單的“實際成本“，期末再重估實際作業(yè)價格重估工單。假設企業(yè)使用周平衡，每 10

25、天去操一次水表或電表統(tǒng)計用量，統(tǒng)計指標使用 ZTJZ。（2）.KB31N輸入統(tǒng)計指標數(shù)量,如圖8。圖8-24:假設輸入成本中心 Z02/Z03 用電（ZZJZ ）數(shù)量分別為10/20 度，期間5。圖8-1:看到ZZJZ在成本中心第5期（只有輸入的第 5期）Z02/03 數(shù)量分別為10/20 。圖8-3:再同樣輸入一次，可以發(fā)現(xiàn)統(tǒng)計指標數(shù)量是每次的總和。 結論：I. 總值統(tǒng)計指標輸入后，只有輸入當期的統(tǒng)計數(shù)量。II. 如果在某期多次輸入統(tǒng)計數(shù)量,則統(tǒng)計數(shù)量是總計累加的.統(tǒng)計指標更新邏輯為：Update統(tǒng)計指標數(shù)量表Set上次統(tǒng)計數(shù)量=上次統(tǒng)計數(shù)量+本次輸入數(shù)量（可為負但不能為0） Where期間

26、=統(tǒng)計指標過帳期間.III. KB31N不可輸入0,提示錯誤BK 048 ,OBA5不可關閉，如果發(fā)現(xiàn)統(tǒng)計指標數(shù)量不對比如某個成本中心的統(tǒng)計數(shù)量應該為0怎辦呢？在一月中，如果輸入多次統(tǒng)計指標，或有多行為了一個小錯誤反沖統(tǒng)計指標憑證不大 可取,如果數(shù)量多計，可以Tcode: FAGLSKF3查詢統(tǒng)計指標數(shù)量并 輸入負的調整統(tǒng)計指標。如果企業(yè)只在月末一次性導入且必定導入統(tǒng)計指標，固定型就等于總值型。假設你有上百個成本中心，有水費電費一大堆統(tǒng)計指標，實際上 使用固定型統(tǒng)計指標更方便 ，做個Template ，列舉岀全部成本中心，沒發(fā)生水 電費的即為0，每期都用這個 Template 就行。說，為什么

27、我的系統(tǒng)里沒有Tcode FAGLSKF3 ?如果你使用老的系統(tǒng)，可能會發(fā)現(xiàn)居然找不到一個合適的Tcode查找統(tǒng)計數(shù)量，那就勞駕您老親自到表COSR或根據(jù)此表制作個查詢去撈數(shù)據(jù)。統(tǒng)計指標計劃Tcode: KB85|KB86 -定義統(tǒng)計指標計劃編制格式KP46|KP47 -建立顯示成本中心統(tǒng)計指標小技巧-制作BDC程序。SHDB后，可以讓每個記錄自動產(chǎn)生程序( Shift + F5或菜單EDIT-Create Program )，依舊SHDB -KB31N 為實例，如圖1,按照屏幕格式 ZFR1組織Excel后保存為文本，文本格式選擇”文本文件(制表符分割)”，參考BDC 程序如下,BDC編程序

28、無非就是將 SHDB時產(chǎn)生的錄屏程序簡單組織一下而已。注意:保存為文本后可能會多岀一行回車行最好手工到文本末刪除，成本中心和統(tǒng)計訂單的統(tǒng)計指標值可混合一次性導入，但是同一行不能既有成本中心又岀現(xiàn)訂單號。REPORT ZTJZB .PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY,*控制范圍I_KOKRS like TKA01-KOKRS default FRPC,*統(tǒng)計指標屏幕I_PMGS like COHEADER-SEND_REC_REL default ZFR1,i_Date like COHEADER-BUDAT OBLIGATORY

29、 DEFAULT SY-DATUM.Data :I_Cou nt(3)TYpe N ,統(tǒng)計指標記錄數(shù)I_Rec no (3)Type 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-bel nr,ITAB_MSG like BDCMSGCOLL OCCURS 0 with header line .*1.Define an internal table with BDCDATA structure *DATA BEGI

30、N OF INT_BDC OCCURS 0.INCLUDE STRUCTURE BDCDATA.DATA END OF INT_BDC.refresh INT_BDC.* 2. Define Key Figure Internal Table *DATA: BEGIN OF ITAB_TJZB OCCURS 0,SKOSTL like RK4OC_KBXXN-SKOSTL ,成本中心SAUFNR like RK40C_KBXXN-SAUFNR,訂單STAGR like RK40C_KBXXN-STAGR ,統(tǒng)計指標MBGBTR(15) Type C ,統(tǒng)計數(shù)量，最好使用字符型END OF IT

31、AB_TJZB.*3. Define BDC Program and Screen *FORM BDC_SCREEN TABLES P_BDC STRUCTURE BDCDATAUSING 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 BDCDATAUSI

32、NG P_NAME P_VALUE.CLEAR P BDC.CASE P VALUE.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_F4EXPORTINGSTATIC = X CHANGINGFILE_NAME = P_FILE.START-OF

33、-SELECTION.REFRESH ITAB_TJZB.CALL FUNCTION WS_UPLOADEXPORTING=P_FILE=DAT=ITAB_TJZB=1=2=3=4=5=6=7FILENAMEFILETYPETABLESDATA_TAB EXCEPTIONSCONVERSION_ERRORFILE_OPEN_ERROR FILE_READ_ERROR INVALID_TYPE NO_BATCH UNKNOWN_ERROR INVALID_TABLE_WIDTHGUI_REFUSE_FILETRANSFER = 8CUSTOMER_ERROR=10.OTHERSif sy-sub

34、rc 0.message i001(00) with打開文件失敗P_FILE.exit.en dif.*6.執(zhí)行BDC屏幕，KB31N初始屏*perform BDC_SCREEN TABLES INT_BDCusi ngSAPLSPO4 0300.perform BDC_FIELD TABLES INT_BDC : us ing BDC_CURSOR SVALD-VALUE(OI), usi ng BDC_OKCODE =FURT, usi ng SVALD-VALUE(OI) I_KOKRS .* 一定要更改默認的屏幕格式為ZFR1并回車帶岀行格式*perform BDC_SCREEN TA

35、BLES INT_BDCusi ngSAPLK23F1 1200 .perform BDC_FIELD TABLES INT_BDC :usi ng BDC_CURSORCOHEADER-SEND_REC_REL,usi ng BDC_OKCODE=PVAR,usi ng COHEADER-SEND_REC_RELI_PMGS ,usi ng RK23F-STATUSL,usi ng BDC_SUBSCR2000SUBHEADER,2100SUBTABHEAD,3000SUBLIST,0100TABLEC0NTR0L.SAPLK23F1usi ng BDC_SUBSCRusi ng COHEA

36、DER-BLDATi_Date,usi ngCOHEADER-BUDATi_Date,usi ngBDC_SUBSCRSAPLK23F1usi ngBDC_SUBSCRSAPLSTC1* 7.Loop Cost center & Orders Stat. Key Figure QtyI_Rec no = 0 .I_COUNT = 0 .SAPLK23F1Loop at ITAB_TJZB .*因為每行都有回車，則類似每屏變量只有一個，第1行是指針是（01）,其它是（02）If I_Rec no = 0 .I_ELRCUR = ELR1(01).I_EL2 = EL2(01)I_EL3 = EL

37、3(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).en dif.I_Rec no = l_Rec no + 1 .I_COUNT = I_COUNT + 1.*去掉第1行的成本中心訂單統(tǒng)計指標數(shù)量標題If I_COUNT 1 .perform BDC_SCREEN TABLES INT_BDCus ingSAPLK23F1 1200 .perform BDC_FIELD TABLES IN

38、T_BDC :usi ng BDC_OKCODE700,usi ng COHEADER-SEND_REC_RELI_PMGS ,usi ng RK23F-STATUSL,using BDC SUBSCRSAPLK23F1usingBDC SUBSCRSAPLK23F1using COHEADER-BLDATi_Date,usingCOHEADER-BUDATi_Date,usingBDC SUBSCRSAPLK23F1usingBDC SUBSCR2000SUBHEADER,2100SUBTABHEAD,3000SUBLIST,0100TABLECONTROL,us ingBDC_CURSOR

39、I_ELRCURperform BDC_FIELDTABLES INT_BDCus ingI_EL2ITAB_TJZB-SKOSTL ,us ingI_EL3ITAB_TJZB-SAUFNR ,us ingI_EL4ITAB_TJZB-STAGRus ingI_ELR1ITAB_TJZB-MBGBTRclear ITABTJZB .SAPLSTC1en dif.endloop .*8.執(zhí)行BDC屏幕，保存統(tǒng)計指標數(shù)量perform BDC_FIELD TABLES INT_BDC :usi ng BDC_OKCODE=POST,usi ng COHEADER-SEND_REC_RELI_PMG

40、S ,us ing RK23F-STATUSL,usi ng BDC_SUBSCR SAPLK23F12000SUBHEADER,usi ng BDC_SUBSCR SAPLK23F12100SUBTABHEADusi ng COHEADER-BLDATi_Date,usi ngCOHEADER-BUDATi_Date,usi ngBDC_SUBSCRSAPLK23F13000SUBLIST,usi ngBDC_SUBSCRSAPLSTC10100TABLECONTROL,usi ngBDC_CURSORI_ELRCUR.CALL TRANSACTION KB31NUSING INT_BDCMODE EUPDATE SMESSAGES INTO ITAB_MSG .Loop at ITAB_MSG .I_BEL