【正文】 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。. 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。. num_of_bukrs = num_of_bukrs + 1. ENDAT. AT END OF fikrs. IF num_of_bukrs NE 1. CLEAR l_sav_butxt. PERFORM output_info USING 39。. WRITE: /. WRITE: /210 39。, min_budat+4(2), 39。. * ELSE. * WRITE: /097 39。 , 115 max_budat, * 202 39。, l_sav_butxt, 100 max_budat(4), 39。, max_budat+6(2), 39。. WRITE: /011 syuline. WRITE : /011 syvline, 040 39。, 093 syvline, 095 39。, 190 syvline, 192 39。, 220 syvline. WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. CHECK l_sav_hide_row_type = 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。. CALL FUNCTION 39。 EXCEPTIONS OTHERS = 1. ENDCASE. *amp。 * *amp。 Form READ_BUKRS_TEXT *amp。 * FORM get_kunnr_lifnr_text USING value(u_kunnr) value(u_lifnr) CHANGING c_text. CLEAR c_text. IF NOT u_kunnr IS INITIAL. IF u_kunnr = 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。. ELSE. * / Lesen KreditorText aus interner Tabelle g_t_lfa1 = space. g_t_lfa1lifnr = u_lifnr. READ TABLE g_t_lfa1. IF sysubrc = 0. c_text = g_t_lfa1sortl. ENDIF. ENDIF. ENDIF. ENDFORM. GET_KUNNR_LIFNR_TEXT *********************************************************** FORM input_range USING value(rfipos). DATA: off TYPE i, offset TYPE i, doing TYPE i. DATA: item(20), str(10). off = 0. offset = 0. doing = 1. WHILE doing 0. SHIFT rfipos BY offset PLACES. SEARCH rfipos FOR 39。. IF sysubrc = 0. off = syfdpos. MOVE item(off) TO str. off = off + 1. r_fipossign = 39。. r_fiposlow = str. SHIFT item BY off PLACES. MOVE item TO str. r_fiposhigh = str. ELSE. MOVE item TO str. 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. i = i + 1. j = j + 1. k = k + 1. WRITE : /011 syvline, 014 int_cashflowdesc, 085 syvline, 088(2) i,093 syvline. IF zcashflow 0. WRITE: 099 zcashflow CURRENCY g_t_fmmpfwaer. ENDIF. IF i 3. l = i + 32. READ TABLE int_cashflow INDEX l. 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_footer * ** * ........ * *