【正文】 IF NOT fmmpkunnr IS INITIAL. r_kunnrsign = 39。I39。. r_kunnroption = 39。EQ39。. r_kunnrlow = fmmpkunnr. COLLECT r_kunnr. ENDIF. IF NOT fmmplifnr IS INITIAL. r_lifnrsign = 39。I39。. r_lifnroption = 39。EQ39。. 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。*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。*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. insert ENDDO. insert ENDIF. insert ENDIF. SELECT bukrs butxt FROM t001 INTO CORRESPONDING FIELDS OF TABLE g_t_t001. DATA: l_sav_wrttp_text(30), l_sav_fwaer LIKE fmmpfwaer, l_sav_butxt LIKE t001butxt, l_sav_hide_row_type(4). num_of_bukrs = 0. max_budat = 0. min_budat = 39。9999123139。 . LOOP AT g_t_fmmp. IF min_budat g_t_fmmpbudat . min_budat = g_t_fmmpbudat . ENDIF. IF max_budat g_t_fmmpbudat . max_budat = g_t_fmmpbudat . ENDIF. l_sav_fwaer = g_t_fmmpfwaer. AT NEW fikrs. LOOP AT int_cashflow. CLEAR int_cashflowfi_fkbtr. MODIFY TABLE int_cashflow. CLEAR int_cashflow. ENDLOOP. ENDAT. AT NEW bukrs. PERFORM read_bukrs_text USING g_t_fmmpbukrs CHANGING g_t_t001butxt. l_sav_butxt = g_t_t001butxt. LOOP AT int_cashflow. CLEAR int_cashflow_fkbtr. MODIFY TABLE int_cashflow. CLEAR int_cashflow. ENDLOOP. ENDAT. LOOP AT int_cashflow. PERFORM input_range USING int_cashflowr_fipos. LOOP AT r_fipos. IF r_fiposoption = 39。EQ39。. IF r_fiposlow = g_t_fmmpfipos. in