【正文】 . 長期負(fù)債 if tab2shkzg = 39。 or 39。. znum = znum + bsisdmbtr. ELSE. znum = znum bsisdmbtr. ENDIF. ENDSELECT. ENDSELECT. ENDFORM. DEFINE cal_data. types: begin of datatype, dnum like bsegdmbtr, 借方金額 um like bsegdmbtr, 貸方金額 end of datatype. data: masset type datatype, 固定資產(chǎn)數(shù)據(jù) minvest type datatype, 投資數(shù)據(jù) mlib type datatype, 短期負(fù)債數(shù)據(jù) mstock type datatype, 庫存數(shù)據(jù) mllib type datatype, 長期負(fù)債數(shù)據(jù) mequit type datatype. 權(quán)益數(shù)據(jù) loop at tab2. case tab2hkont(4). when 39。. r_fiposlow = str. ENDIF. APPEND r_fipos. ENDWHILE. ENDFORM. ******* FORM output_info USING fi_value. DATA zcashflow LIKE fmmpfkbtr. DATA: i LIKE sytabix, j LIKE sytabix, k LIKE sytabix, l LIKE sytabix. i = 0. j = 0. k = 32. LOOP AT int_cashflow FROM 1 TO 32. IF fi_value = 39。. ELSE. * / Lesen DebitorText aus interner Tabelle g_t_kna1 = space. g_t_kna1kunnr = u_kunnr. READ TABLE g_t_kna1. IF sysubrc = 0. c_text = g_t_kna1sortl. ENDIF. ENDIF. ENDIF. IF NOT u_lifnr IS INITIAL. IF u_lifnr = 39。 EXCEPTIONS OTHERS = 1. ENDCASE. *amp。, 190 syvline, 192 39。, l_sav_butxt, 100 max_budat(4), 39。. WRITE: /. WRITE: /210 39。. r_lifnrlow = fmmplifnr. COLLECT r_lifnr. ENDIF. ENDOFSELECTION. SORT g_t_fmmp BY fikrs bukrs fipos wrttp gjahr perio zhldt zbelnr zbuzei bukrs vo_saknr. RANGES: lr_lifnr FOR lfa1lifnr, lr_kunnr FOR kna1kunnr. DATA: l_t_from LIKE sytabix VALUE 1, l_t_to LIKE sytabix VALUE 50, l_t_lines LIKE sytabix. * / Lesen KreditorenTexte aus StammdatenTabelle IF NOT r_lifnr IS INITIAL. LOOP AT r_lifnr WHERE low = 39。 REPORT zcmrp001 NO STANDARD PAGE HEADING LINESIZE 220. TABLES: fkrs, fpos, fmmp, lfa1, kna1 ,bsis, t001, usr21, adrp, bkpf, bseg, glt0. DATA: BEGIN OF g_t_fmmp OCCURS 300, fikrs LIKE fmmpfikrs, bukrs LIKE fmmpbukrs, fipos LIKE fmmpfipos, wrttp LIKE fmmpwrttp, gjahr LIKE fmmpgjahr, perio LIKE fmmpperio, zhldt LIKE fmmpzhldt, budat LIKE fmmpbudat, gsber LIKE fmmpgsber, vo_saknr LIKE fmmpvo_saknr, lifnr LIKE fmmplifnr, kunnr LIKE fmmpkunnr, fwaer LIKE fmmpfwaer, fkbtr LIKE fmsubtr001, zbelnr LIKE cooirefbn, zbuzei LIKE cooirfpos, vo_bukrs LIKE fmmpvo_bukrs, vo_gjahr LIKE fmmpvo_gjahr, fitxt LIKE fkrsfitxt, fname LIKE ffndfname, ame LIKE fctrame, pname LIKE fpospname, wtext LIKE fmmpwtext, END OF g_t_fmmp. DATA: BEGIN OF g_t_fkrs OCCURS 20, fikrs LIKE fkrsfikrs, fitxt LIKE fkrsfitxt, END OF g_t_fkrs. DATA: BEGIN OF g_t_fpos OCCURS 200, fipos LIKE fposfipos, pname LIKE fpospname, END OF g_t_fpos. DATA: BEGIN OF g_t_lfa1 OCCURS 200, lifnr LIKE lfa1lifnr, sortl LIKE lfa1sortl, END OF g_t_lfa1. DATA: BEGIN OF g_t_kna1 OCCURS 200, kunnr LIKE kna1kunnr, sortl LIKE kna1sortl, END OF g_t_kna1. RANGES: r_kunnr FOR kna1kunnr, r_lifnr FOR lfa1lifnr, r_fipos FOR fmmpfipos. DATA: BEGIN OF int_cashflow OCCURS 100, desc(66) TYPE c, r_fipos(66) TYPE c, _fkbtr LIKE fmmpfkbtr, fi_fkbtr LIKE fmmpfkbtr, fi_fwaer LIKE fmmpfwaer, END OF int_cashflow. DATA: BEGIN OF g_t_t001 OCCURS 300, bukrs LIKE t001bukrs, butxt LIKE t001butxt, END OF g_t_t001. DATA: pos TYPE i VALUE 0, num_of_bukrs TYPE i VALUE 0. DATA cashflow_detail. DATA : min_budat LIKE fmmpbudat, max_budat LIKE fmmpbudat, z_min_budat LIKE sydatum, z_max_budat LIKE sydatum, z_bukrs LIKE fmmpbukrs, z_profit LIKE bsegdmbtr, 凈利潤 z_bad_debit LIKE bsegdmbtr, 壞帳準(zhǔn)備及計提的資產(chǎn)減值準(zhǔn)備 z_asset_dep LIKE bsegdmbtr, 固定資產(chǎn)折舊 z_intang_dep LIKE bsegdmbtr, 無形資產(chǎn)攤銷 z_longpaid_dep LIKE bsegdmbtr, 長期待攤費用攤銷 z_paid_dec LIKE bsegdmbtr, 待攤費用減少 z_accrul_inc LIKE bsegdmbtr, 預(yù)提費用增加 z_asset_pro LIKE bsegdmbtr, 固定資產(chǎn)，長期資產(chǎn)處置損失 z_asset_scr LIKE bsegdmbtr, 固定資產(chǎn)報廢損失 z_fi_expen LIKE bsegdmbtr, 財務(wù)費用 z_invest_loss LIKE bsegdmbtr, 投資損失 z_defer_tax LIKE bsegdmbtr, 遞延稅款貸項 z_stock LIKE bsegdmbtr, 存貨減少 z_ar LIKE bsegdmbtr, 經(jīng)營性應(yīng)收減少 z_ap LIKE bsegdmbtr, 經(jīng)營性應(yīng)付增加 z_other LIKE bsegdmbtr, 其他 z_production LIKE bsegdmbtr, 經(jīng)營活動產(chǎn)生的現(xiàn)金凈額 z_loss LIKE bsegdmbtr, 總公司下?lián)軓?補(bǔ)虧損 z_asset_debit LIKE bsegdmbtr, 以固定資產(chǎn)償還債務(wù) z_invest_debit LIKE bsegdmbtr, 以投資償還債務(wù) z_asset_invest LIKE bsegdmbtr, 以固定資產(chǎn)投資 z_stock_debit LIKE bsegdmbtr, 以存貨償還債務(wù) z_asset_rented LIKE bsegdmbtr, 融資租賃固定資產(chǎn) z_donation LIKE bsegdmbtr, 接受捐贈非現(xiàn)金資產(chǎn) z_debit_short LIKE bsegdmbtr, 償還的經(jīng)營