【正文】 z_bukrs LIKE fmmpbukrs, z_profit LIKE bsegdmbtr, 凈利潤 z_bad_debit LIKE bsegdmbtr, 壞帳準備及計提的資產(chǎ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, 預提費用增加 z_asset_pro LIKE bsegdmbtr, 固定資產(chǎn)，長期資產(chǎn)處置損失 z_asset_scr LIKE bsegdmbtr, 固定資產(chǎn)報廢損失 z_fi_expen LIKE bsegdmbtr, 財務費用 z_invest_loss LIKE bsegdmbtr, 投資損失 z_defer_tax LIKE bsegdmbtr, 遞延稅款貸項 z_stock LIKE bsegdmbtr, 存貨減少 z_ar LIKE bsegdmbtr, 經(jīng)營性應收減少 z_ap LIKE bsegdmbtr, 經(jīng)營性應付增加 z_other LIKE bsegdmbtr, 其他 z_production LIKE bsegdmbtr, 經(jīng)營活動產(chǎn)生的現(xiàn)金凈額 z_loss LIKE bsegdmbtr, 總公司下?lián)軓?補虧損 z_asset_debit LIKE bsegdmbtr, 以固定資產(chǎn)償還債務 z_invest_debit LIKE bsegdmbtr, 以投資償還債務 z_asset_invest LIKE bsegdmbtr, 以固定資產(chǎn)投資 z_stock_debit LIKE bsegdmbtr, 以存貨償還債務 z_asset_rented LIKE bsegdmbtr, 融資租賃固定資產(chǎn) z_donation LIKE bsegdmbtr, 接受捐贈非現(xiàn)金資產(chǎn) z_debit_short LIKE bsegdmbtr, 償還的經(jīng)營性債務 z_debit_equit LIKE bsegdmbtr, 債務轉為資本 z_bond_due LIKE bsegdmbtr, 一年內(nèi)到期的可轉換公司債券 z_money_init LIKE bsegdmbtr, 貨幣資金期初余額 z_money_end LIKE bsegdmbtr, 貨幣資金期末余額 z_cashs_init LIKE bsegdmbtr, 現(xiàn)金等價物期初余額 z_cashs_end LIKE bsegdmbtr, 現(xiàn)金等價物期末余額 z_all_money LIKE bsegdmbtr. 貨幣資金及現(xiàn)金等價物凈變動 DATA: BEGIN OF itb0 OCCURS 0, txt(70) TYPE c, num LIKE bsegdmbtr, END OF itb0, mtxt(70) TYPE c. **INITIALIZATION. PERFORM fill_item_direct. *STARTOFSELECTION. GET fkrs. g_t_fkrsfikrs = fkrsfikrs. g_t_fkrsfitxt = fkrsfitxt. APPEND g_t_fkrs. GET fpos. g_t_fposfipos = fposfipos. g_t_fpospname = fpospname. COLLECT g_t_fpos. GET fmmp. MOVECORRESPONDING fmmp TO g_t_fmmp. CASE fmmpwrttp. WHEN 39。. funds mitments g_t_fmmpzbelnr = fmmpkblnr. g_t_fmmpzbuzei = fmmpkblpos. WHEN OTHERS. Fi documents g_t_fmmpzbelnr = fmmpvo_belnr. g_t_fmmpzbuzei = fmmpvo_buzei. ENDCASE. APPEND g_t_fmmp. IF NOT fmmpkunnr IS INITIAL. r_kunnrsign = 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。. IF r_fiposlow = g_t_fmmpfipos. int_cashflowfi_fkbtr = int_cashflowfi_fkbtr + g_t_fmmpfkbtr. int_cashflow_fkbtr = int_cashflow_fkbtr + g_t_fmmpfkbtr. ENDIF. ENDIF. IF r_fiposoption = 39。. WRITE: /. WRITE: /210 39。. * ELSE. * WRITE: /097 39。, l_sav_butxt, 100 max_budat(4), 39。. WRITE: /011 syuline. WRITE : /011 syvline, 040 39。, 190 syvline, 192 39。 EXPORTING i_wrttp = g_t_fmmpwrttp i_belnr = g_t_fmmpzbelnr i_blpos = g_t_fmmpzbuzei i_bukrs = g_t_fmmpvo_bukrs i_gjahr = g_t_fmmpvo_gjahr. *********************************************************************** * AT USERCOMMAND. CASE syum. WHEN 39。 EXCEPTIONS OTHERS = 1. ENDCASE. *amp。 Form READ_BUKRS_TEXT *amp。. 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。. IF sysubrc = 0. off = syfdpos. MOVE item(off) TO str. off = off + 1. r_fipossign = 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。. zcashflow = int_cashflowfi_fkbtr. ENDIF. WRITE: 116 syvline, 118(60) int_cashflowdesc, 190 syvline, 193(2) k, 198 syvline. IF zcashflow 0. WRITE: 204 zcashflow CURRENCY g_t_fmmpfwaer. ENDIF. ELSE. l = i 2. READ TABLE itb0 INDEX l. IF sysubrc 0. CLEAR itb0. ENDIF. WRITE: 116 syvline, 118(60) itb0txt, 190 syvline, 193(2) k, 198 syvline. IF itb0num 0. WRITE: 204 itb0num CURRENCY g_t_fmmpfwaer. ENDIF. ENDIF. WRITE: 220 syvline. WRITE: /011 syuline. IF j = 25. j = 0. PERFORM out_footer. NEWPAGE. ENDIF. ENDLOOP. PERFORM out_footer. ENDFORM. ** * FORM out_