【正文】 tr, 償還的經(jīng)營性債務(wù) z_debit_equit LIKE bsegdmbtr, 債務(wù)轉(zhuǎn)為資本 z_bond_due LIKE bsegdmbtr, 一年內(nèi)到期的可轉(zhuǎn)換公司債券 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。 OR 39。. purchase order g_t_fmmpzbelnr = fmmpebeln. g_t_fmmpzbuzei = fmmpebelp. WHEN 39。. payment transfer g_t_fmmpzbelnr = fmmpkblnr. g_t_fmmpzbuzei = fmmpkblpos. 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_kunnroption = 39。. r_kunnrlow = fmmpkunnr. COLLECT r_kunnr. ENDIF. IF NOT fmmplifnr IS INITIAL. r_lifnrsign = 39。. r_lifnroption = 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。. DELETE r_lifnr. ENDLOOP. DESCRIBE TABLE r_lifnr LINES l_t_lines. insert IF l_t_lines = 50. insert * / LieferantenKurztexte auf einmal einlesen insert SELECT lifnr sortl FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 WHERE lifnr IN r_lifnr. ELSE. insert * / LieferantenKurztexte in Bloecken einlesen insert DO. insert * / Bloecke zu je 50 Leferanten bilden insert REFRESH lr_lifnr. insert LOOP AT r_lifnr FROM l_t_from TO l_t_to. insert lr_lifnr = r_lifnr. insert APPEND lr_lifnr. insert ENDLOOP. insert IF sysubrc NE 0. insert EXIT. insert ENDIF. insert l_t_from = l_t_to + 1. insert l_t_to = l_t_from + 50. insert * / LieferantenKurztexte lesen insert SELECT lifnr sortl FROM lfa1 insert APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_lfa1 insert WHERE lifnr IN lr_lifnr. insert ENDDO. insert ENDIF. insert ENDIF. * / Lesen DebitorenTexte aus StammdatenTabelle IF NOT r_kunnr IS INITIAL. LOOP AT r_kunnr WHERE low = 39。. DELETE r_kunnr. ENDLOOP. DESCRIBE TABLE r_kunnr LINES l_t_lines. insert IF l_t_lines = 50. insert * / KundenKurztexte auf einmal einlesen insert SELECT kunnr sortl FROM kna1 INTO CORRESPONDING FIELDS OF TABLE g_t_kna1 WHERE kunnr IN r_kunnr. ELSE. insert * / KundenKurztexte in Bloecken einlesen insert DO. insert * / Bloecke zu je 50 Kunden bilden insert REFRESH lr_kunnr. insert LOOP AT r_kunnr FROM l_t_from TO l_t_to. insert lr_kunnr = r_kunnr. insert APPEND lr_kunnr. insert ENDLOOP. insert IF sysubrc NE 0. insert EXIT. insert ENDIF. insert l_t_from = l_t_to + 1. insert l_t_to = l_t_from + 50. insert * / KundenKurztexte lesen insert SELECT kunnr sortl FROM kna1 insert APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_kna1 insert WHERE kunnr IN lr_kunnr.