ABAP資產(chǎn)負債表DEMO直接運行

1、ABAP資產(chǎn)負債表 DEMO直接運行*& *& Report ZTEST13*&*&*&*&*&-*" 報表名稱REPORT ztest13MESSAGE-ID zfirpt .*&-* *& tables & nodes*&-*TABLES : t001, " 公司主數(shù)據(jù)bkpfv_tcurrfaglflext. " 科目余額表*&-*& internal tables*&-*DATA: BEGIN OFtb_result OCCURS 0,"

2、; 資產(chǎn)負債表結(jié)果集companyid( 4) TYPE c ,asset1( 30) TYPE c ," 資產(chǎn)項目row1( 2) TYPE c ," 行次start1LIKE faglflext -hslvt, " 期初值end1LIKE faglflext -hslvt, " 期未值asset2( 30) TYPE c ," 資產(chǎn)項目row2( 2) TYPE c ," 行次start2LIKE faglflext -hslvt, " 期初值end2LIKE faglflext -hslvt, " 期未值EN

3、D OFtb_result .DATA: BEGIN OFprt_result OCCURS 0," 資產(chǎn)負債表結(jié)果集companyid( 4) TYPE c ,asset1( 30) TYPE c ," 資產(chǎn)項目row1( 2) TYPE c ," 行次DATA: i lwidthTYPE i VALUE 185 , " 橫線寬i col1TYPE i VALUE 35,"列1寬i col2TYPE i VALUE 4,"列2寬i col3TYPE i VALUE 20,"列3寬i_col4TYPE i VALUE20.&

4、quot;列4寬DATA: dynpreadLIKE TABLE OFdynpreadWITH HEADER LINE .DATA: dcurrLIKE TABLE OFbapi1093_0 WITH HEADER LINE .TYPE-POOLS :slis .DATA: fieldcatTYPE slis_t_fieldcat_alv WITH HEADER LINE ,fld_headTYPE slis_listheader ,sortcatTYPE slis_t_sortinfo_alv ,sortcatlnLIKE LINE OF sortcat ,itab_listheadTYPE

5、 slis_t_listheader ,layoutTYPE slis_layout_alv ,v_repidLIKE sy - repid ,rt_extabTYPE slis_t_extab ,eventcatTYPE slis_t_event .DATA: tmpdateLIKE sy - datum ,prtdateLIKE sy - datum ,tempcurrLIKE bapi1093_1 - from_curr ,exch_rate( 10 ) TYPE c ,txunit( 10) TYPE c ,start1( 16) TYPE c ," 期初值" 期未

6、值" 資產(chǎn)項目end1( 16)TYPE c ,asset2( 30)TYPE c ,row2( 2)TYPE c ," 行次start2( 16)TYPE c ," 期初值end2( 16)TYPE c ," 期未值END OFprt_result .*&-*& variant declare*&-*DATA: s_butxt( 50)TYPE c ," 公司名稱s_m1( 23 )TYPE c,s_m2( 23 )TYPE c,s_m3( 23 )TYPE c,s_m4( 23 )TYPE c.*PARAMTERS

7、FOR OUTPUT FORMATerrorflagtxcurrTYPE c ( 16) TYPE c*& *& selection-screen *&SELECT-OPTIONSs_rbukrsFOR bkpf - bukrs OBLIGATORY" 公司代碼PARAMETERS:i gjahrLIKE bkpf - gjahr DEFAULT sy - datum+0 ( 4) OBLIGATORY ," 財務(wù) 年i monatLIKE bkpf - monat OBLIGATORY* waers like bkpf-waers OBLIGATO

8、RY. " p_butxt ( 40) TYPE c ." 期間貨幣代碼SELECTION-SCREEN BEGIN OF BLOCKb02 WITH FRAME TITLEtit" 選擇屏幕PARAMETERS:" 單選按鈕p_1RADIOBUTTON GROUPg1p_2RADIOBUTTON GROUPg1,p_3RADIOBUTTON GROUPg1.DEFAULT 'X'SELECTION-SCREEN END OF BLOCK 結(jié)束b02 ." 選 擇屏 幕SELECTION-SCREEN BEGIN OF BLOC

9、Kb01 WITH FRAME TITLE text- 001 .m_1" 單選按鈕PARAMETERS:RADIOBUTTON GROUP g2 DEFAULT 'X' ,m_2RADIOBUTTON GROUP g2,waersp_flagLIKE bkpf - waers AS CHECKBOX ." 貨幣代碼b01 .SELECTION-SCREEN END OF BLOCK*& *& initialization *&INITIALIZATIONtit' 金額單位 ' .*&- SELECT * FR

10、OM t001 WHERE bukrs IN s_rbukrs .* errorflag = ''.* AUTHORITY-CHECK OBJECT 'ZFIRPT' " 權(quán) 限 判 斷ID 'BUKRS' FIELD t001-bukrs.*& AT SELECTION-SCREEN OUTPUT*&-*AT SELECTION-SCREEN OUTPUT.* perform read_screen.* LOOP AT SCREEN.* IF m_2 = 'X' AND ( screen-name =

11、'WAERS' or screen-name = 'P_FLAG'* or screen-name = '%_WAERS_%_APP_%-TEXT').* screen-active = 1.* if screen-name = 'WAERS'.* screen-request = 1.*screen-required = 1.* endif.* MODIFY SCREEN.* ENDIF.* IF m_2 = '' AND ( screen-name = 'WAERS' or screen-nam

12、e = 'P_FLAG* or screen-name = '%_WAERS_%_APP_%-TEXT').* screen-active = 0.* if screen-name = 'WAERS'.* screen-request = 0.*screen-required = 0.* endif.* MODIFY SCREEN.* ENDIF.* ENDLOOP.*&-*& at selection-screen*&-*AT SELECTION-SCREEN .* PERFORM check.* IF sy-subrc = 0

13、.* errorflag = 'f'.* ENDIF.* AUTHORITY-CHECK OBJECT 'ZPARK' " 權(quán)限判斷 *ID 'BUKRS' FIELD t001-bukrs.* IF sy-subrc = 0.* errorflag = 'f'.* ENDIF.* IF errorflag = ''.* MESSAGE e999(z01) WITH '沒有在公司代碼 ' t001-bukrs '操作的權(quán)限！ '.* ENDIF.* ENDSELECT.IF

14、 i_monat < 1 OR i_monat > 16. " 對期間值必須在 1-16 之間 MESSAGE e004 .ENDIF .*&-*& start-of-selection*&-*START-OF-SELECTION .CONCATENATEi_gjahr i_monat '01' INTO tmpdate . " 組合年份CALL FUNCTION'LAST_DAY_OF_MONTHS'EXPORTINGday in= tmpdate " 根據(jù)傳入的參數(shù)，輸出一個月的最后一天IMP

15、ORTINGlast_day_of_month = prtdateEXCEPTIONSday_in_no_date= 1OTHERS= 2.* 獲得當前匯率tempcurr = waers .CALL FUNCTION'BAPI_EXCHANGERATE_GETDETAIL'EXPORTINGrate_type= 'M'from_curr= tempcurrto_currncy= 'CNY'date= tmpdateIMPORTINGexch_rate= dcurr* RETURN =READ TABLE dcurr INDEX 1. exch_

16、rate = dcurr - exch_rateIF p_1 = 'X' . " 根據(jù)單選框的值給變量值txunit = ' 元 ' .ENDIF .IF p_2 = 'X' .txunit ( 取公司名稱IF s_rbukrs - high IS INITIAL ORs_rbukrs - low = s_rbukrs - high .判斷是否為空SELECT SINGLE butxt INTO s_butxt FROM t001 WHERE bukrs = s_rbukrs - low .ELSE.IF p_butxt IS NOT

17、INITIAL .s_butxt = p_butxt .ELSE.CONCATENATE ' 從' s_rbukrs - low ' 到 ' s_rbukrs - high INTO s_butxt . ENDIF .ENDIF .) = ' 千元 ' .ENDIF .IF p_3 = 'X' .txunit = ' 萬元 ' .ENDIF .* if p_flag = 'X' and i_monat = '12'. " 判斷復(fù)選框* i_monat = '16&#

18、39;.* endif.SELECT SINGLE ktext INTO txcurr " 根據(jù)貨幣單位的值返回貨幣名稱 FROM tcurtWHERE waers = waers .IF m_1 = 'X' .txcurr = ' 人民幣 ( 匯總 )' .ELSE.IF p_flag = 'X' .CONCATENATE txcurr ' 折人民幣 ' INTO txcurr .ENDIF .ENDIF .IF s_rbukrs - low (2) = s_rbukrs -high ( 2) AND s_rbukrs

19、-low <> s_rbukrshigh .CLEAR s_butxt .SELECT SINGLE butxt INTO s_butxt FROM t001 WHERE bukrs = s_rbukrs - low .CONCATENATE s_butxt '( 匯總 )'INTOs_butxt .ENDIF .DATA curr LIKE TABLE OFtcurrWITH HEADER LINE .SELECT * INTO CORRESPONDING FIELDS OF TABLEcurr FROM tcurrWHERE kurstAND fcurr= &#

20、39;M'= waersAND tcurr= 'CNY' .DATA: f tols1LIKE faglflext -hslvt ," 資產(chǎn)期初總計f_tole1LIKE faglflext -hslvt ," 資產(chǎn)期末總計f tols2LIKE faglflext -hslvt ," 負債期初總計f_tole2LIKE faglflext -hslvt ," 負債期末總計f sums1LIKE faglflext -hslvt ," 資產(chǎn)期初小計f sume1LIKE faglflext -hslvt ,"

21、資產(chǎn)期末小計f sums2LIKE faglflext -hslvt ," 負債期初小計f_sume2LIKE faglflext -hslvt ," 負債期末小計f_rlts1f_rlte1LIKE faglflext-LIKE faglflext-hslvt ,hslvt ,*zx_s LIKE FAGLFLEXT-hslvt,*zx_e LIKE FAGLFLEXT-hslvt,f_rlts2LIKE faglflext -hslvt ,f_rlte2LIKE faglflext -hslvt .DATA: f_smny1f_emny1LIKE faglflext-L

22、IKE faglflext-hslvt , hslvt .* 數(shù)據(jù)計算PERFORM add rowUSING ' 流動資產(chǎn)' 流動負債i_monat s_rbukrs i_gjahr1 1 .PERFORM add rowUSING ' 現(xiàn)金 ''1001' '1'' 短期借款 ' '2101' '46'i monat srbukrs i gjahr1 1 . " 期間-公司代碼- 年份f sums2= tb result- start2"初始值f sume2=

23、 tb result- end2 ."初始值f tols1= tb result- start1"初始值f_tole1= tb_result - end1 ."初始值PERFORMadd row USING '銀行存款 ' '1002' '2'拆入資金 ' '2102' '47'i_monat s_rbukrs i_gjahr11 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2

24、.f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '其他貨幣 ' '1009010000' '2'應(yīng)付利息 ' '2110' '80'i_monat s_rbukrs i_gjahr11 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1

25、 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '短期投資 ' '1101' '3'' 應(yīng)付手續(xù)費 ' '2111' '48'i_monat s_rbukrs i_gjahr11 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- st

26、art1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '短期投資跌價準備 ' '1102' '4'' 待返售債券 ' '2109' '48'i_monat s_rbukrs i_gjahr11 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole

27、1= f_tole1 + tb_result- end1 .PERFORMadd row USING '待回購債券 ' '1009100100' '4'' 應(yīng)付傭金 ' '2112' '49'i_monat s_rbukrs i_gjahr11 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 +

28、 tb_result- end1 .PERFORM add row USING '拆出資金 ''1111' '5'應(yīng)付分保帳款' '2113' '50'i_monat s_rbukrs i_gjahr1 1 .f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_result- end1 .PERFORM

29、add row USING '保單質(zhì)押貸款' '1112' '5'預(yù)收保費 ''2121' '51'i_monat s_rbukrs i_gjahr1 1 .f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_result- end1 .應(yīng)收款項開始PERFORM add row USING '

30、應(yīng)收利息 ''1121' '6'預(yù)收分保賠款' '2122' '52'i_monat s_rbukrs i_gjahr1 1 .f sums1= tb result- start1應(yīng)收款小計f_sume1= tb_result - end1 .應(yīng)收款小計f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_res

31、ult- end1 .PERFORM add_row USING ' 應(yīng)收紅利 ' '1125' '6'' 存入分保準備金 ' '2131' '53'i_monat s_rbukrs i_gjahr1 1 ." 應(yīng)收款小計f sums1= f sums1 + tb result- start1 .f_sume1= f_sume1 + tb_result- end1 ." 應(yīng)收款小計f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_s

32、ume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORM add_row USING ' 應(yīng)收保費 ' '1122' '7'存入保證金 ' '2132' '54'i_monat s_rbukrs i_gjahr 1 1f sums1= f sums1 + tb result- start1 ." 應(yīng)收款小計f_sume1= f_sume1 + t

33、b_result- end1" 應(yīng)收款小計f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_result- end1PERFORMadd row USING '應(yīng)收分保賬款' '1123' '8'應(yīng)付工資 ''2141' '55'i_monat s_rbukrs i_gjahr1 1f sums

34、1= f sums1 + tb result- start1. " 應(yīng)收款項小計- 減：壞帳準備f_sume1= f_sume1 + tb_result- end1. " 應(yīng)收款項小計- 減：壞帳準備f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_result- end1PERFORMadd row USING '應(yīng)收款項小計' '' &

35、#39;9'應(yīng)付福利費 ''2142' '56'i_monat s_rbukrs i_gjahr2 1f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2PERFORMadd row USING '減：壞帳準備 ' '1124' '11'應(yīng)付保戶紅利' '2143' '57'i_monat s_rbukrs i_gjahr1 1f sums1= f sums1 - tb r

36、esult- start1. " 應(yīng)收款項小計- 減：壞帳準備f_sume1= f_sume1 - tb_result - end1. " 應(yīng)收款項小計- 減：壞帳準備f_sums2= f_sums2 + tb_result- start2f_sume2= f_sume2 + tb_result- end2f_tols1 = f_tols1 - tb_result - start1 .f_tole1 = f_tole1 - tb_result - end1 .PERFORM add_row USING ' 應(yīng)收款項凈額 ' '' '1

37、2'' 應(yīng)付利潤 ' '2145' '58'i_monat s_rbukrs i_gjahr 2 1 f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .應(yīng)收款項結(jié)PERFORM add row USING '預(yù)付賠款 ' '1131' '13'f_sums2i_monat s_rbukrs i_gjahr = f_sums2 + tb_result應(yīng)交稅金 ' '2146'

38、; '59'- start2 .1 1f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORM add_row USING ' 存出分保準備金 ' '1141' '14'' 賣出回購證券款 ' '2147' '60'i_monat s_rbukrs i_gjahr 1 1f_sums2= f_sums2 +

39、tb_result- start2f_sume2= f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1f_tole1= f_tole1 + tb_result- end1 .PERFORM add_row USING ' 存出保證金 ' '1142' '15'' 其他應(yīng)付款 ' '2149' '61'i_monat s_rbukrs i_gjahr 1 1f_sums2f_sume2= f_sums2 + tb_result

40、 = f_sume2 + tb_result- start2 .- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '買入返售證券 ' '1151' '16'' 預(yù)提費用 ' '2151' '62'i_monat s_rbukrs i_gjahr1 1 .f_sums2= f_sums2 + tb_result- start2 .f_sume2=

41、f_sume2 + tb_result- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORM add row USING ' 其他應(yīng)收款 ' '1191' '17'' 未決賠款準備金' '2161' '63'f_sums2i_monat s_rbukrs i_gjahr = f_sums2 + tb_result- start2 .1 1 .f_sume2= f_sume2 +

42、 tb_result- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORM add_row USING ' 系統(tǒng)往來 ''1199' '66'' 未到期責(zé)任準備金 ' '2162' '64'i_monat s_rbukrs i_gjahr 1 1 f_sums2 = f_sums2 + tb_result - start2 .f_sume2= f_sume2 + tb_resu

43、lt- end2 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '委托資產(chǎn) ' '1198' '66'' 保戶儲金 ' '2171' '65'i_monat s_rbukrs i_gjahr1 1 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .f_tol

44、s1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '物料用品 ' '1201' '18'' 其他流動負債 ' '' '67'i_monat s_rbukrs i_gjahr1 1 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING &

45、#39;低值易耗品 ' '1211' '19'流動負債合計 ' '' '68'i_monat s_rbukrs i_gjahr3 1 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .f_tols2= f_sums2 .f_tole2= f_sume2 .f_rlts2= f_sums2 . " 流動負債合計臨時結(jié)果，用于后面計算f_rlte2= f_sume2 . "PERFORMadd_row

46、 USING '待攤費用 ' '1301' '20'PERFORM add_row USING一年內(nèi)到期的長期債券投資i_monat s_rbukrs i_gjahr 1 1* f_sums2 = f_sums2 + tb_result-start2.* f_sume2 = f_sume2 + tb_result-end2.f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '待處理流動資產(chǎn)凈損失

47、9; '190101' '21'' 長期負債 : ' '' '69'i_monat s_rbukrs i_gjahr1 1 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .' 長期責(zé)任準備金 ' '' '70' i_monat s_rbukrs i_gjahr1 1 .PERFORM add_row USING ' 其他流動資產(chǎn) ' ''

48、; '23' ' 壽險責(zé)任準備金 ' '2202' '71' i_monat s_rbukrs i_gjahr1 1 .f_sums2=tb_result-start2 .f_sume2=tb_result-end2 .f_sums1=f_tols1.f_sume1=f_tole1.PERFORM add_row USING ' 流動資產(chǎn)合計 ' '' '24'' 長期健康險責(zé)任準備金 ' '2203' '72' i_monat s_r

49、bukrs i_gjahr2 1 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 . 流動資產(chǎn) PERFORM add_row USING ' 長期投資： ' '' '25'i_monat s_rbukrs i_gjahr1 1PERFORMadd row USING '長期股權(quán)投資 ' '1401' '26'保險保障基金 ' '2211' '73'i_mona

50、t s_rbukrs i_gjahr1 1f_sums1= tb_result - start1f_sume1= tb_result - end1f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .PERFORMadd row USING '長期債權(quán)投資 ' '1402' '27'' 長期借款 &#

51、39; '' '74'i_monat s_rbukrs i_gjahr1 1f_sums1= f_sums1 + tb_result- start1 .f_sume1= f_sume1 + tb_result- end1 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORM add_row USING ' 長期基金投資 ' '1403' '35'' 長期應(yīng)付款 ' '' &

52、#39;75'i_monat s_rbukrs i_gjahr1 1 .f_sums1= f_sums1 + tb_result- start1 .f_sume1= f_sume1 + tb_result- end1 .f_tols1= f_tols1 + tb_result- start1 .f_tole1= f_tole1 + tb_result- end1 .PERFORMadd row USING '撥付所屬資金 ' '' ''貸幣兌換 ' '2241' ''i_monat s_rbukrs

53、 i_gjahr1 1 .f_sums2= f_sums2 + tb_result- start2 .f_sume2= f_sume2 + tb_result- end2 .PERFORMadd row USING '減：投資風(fēng)險準備 ' '1405' '28'' 住房周轉(zhuǎn)金 ' '' '76'i_monat s_rbukrs i_gjahr1 1f_sums1= f_sums1- tb_result- start1f_sume1= f_sume1- tb_result- end1 .f_tols1

54、= f_tols1- tb_result- start1f_tole1= f_tole1- tb_result- end1 .PERFORM add_row USING ' 長期投資合計 ' '' ''' 其他長期負債 ' '' '77'i_monat s_rbukrs i_gjahr 2 3PERFORM add_row USING ' 固定資產(chǎn)： ' '' ''' 獨立帳戶負債 ' '' '78'i_

55、monat s_rbukrs i_gjahr 1 3PERFORM add_row USING ' 固定資產(chǎn)原值 ' '1601' '30'' 獨立帳戶未實現(xiàn)利得 ' '' '79'i_monat s_rbukrs i_gjahr 1 1PERFORM add_row USING減：累計折舊 ' '1602' '31'f_sums1= tb_result- start1 .f_sume1= tb_result- end1 .f_tols1= f_tols1 +

56、 tb_result- start1f_tole1= f_tole1 + tb_result- end1 .長期負債合計 ' '' '80'i_monat s_rbukrs i_gjahr3 2 .f_sums1f_sume1= f_sums1 - tb_result= f_sume1 - tb_result- start1 .- end1 .f_tols1= f_tols1 - tb_result- start1 .f_tole1= f_tole1 - tb_result- end1 .f_tols2= f_tols2 + f_sums2f_tole2

57、= f_tole2 + f_sume2f_sums2= f_sums2 + f_rlts2. " 長期負債合計+ 流動負債合計f_sume2= f_sume2 + f_rlte2PERFORMadd row USING '減：固定資產(chǎn)減值準備 ' '1603' ''' 負債合計 ' '' '81'i_monat s_rbukrs i_gjahr3 1 .f_sums1= f_sums1 - tb_result- start1 .f_sume1= f_sume1 - tb_result- e

58、nd1 .f_tols1= f_tols1 - tb_result- start1 .f_tole1= f_tole1 - tb_result- end1 .* f_tols2 = f_tols2 + tb_result-start2.* f_tole2 = f_tole2 + tb_result-end2.PERFORMadd row USING ' 固定資產(chǎn)凈值 ' '' '32'' 所有者權(quán)益 :' '' '82'i_monat s_rbukrs i_gjahr2 3 .PERFORMadd row USING ' 在建工程 ' '1606' '33'' 實收資本 ' '3101' '83'i_monat s_rbukrs i_gjahr1 1 .f_sums1= f_sums1 + tb_result- start1 .f_sume1= f_sume1 + tb_result- e