【正文】 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。 . 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。. 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。. IF g_t_fmmpfipos = r_fiposlow AND g_t_fmmpfipos = r_fiposhigh. int_cashflowfi_fkbtr = int_cashflowfi_fkbtr + g_t_fmmpfkbtr. int_cashflow_fkbtr = int_cashflow_fkbtr + g_t_fmmpfkbtr. ENDIF. ENDIF. ENDLOOP. MODIFY TABLE int_cashflow. CLEAR int_cashflow. CLEAR r_fipos. REFRESH r_fipos. ENDLOOP . AT END OF bukrs. PERFORM cal_indirect USING g_t_fmmpbukrs. PERFORM output_info USING 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。. ENDIF. WRITE : / text103. ENDAT. ENDLOOP. TOPOFPAGE. IF NOT ( s_budatlow IS INITIAL ). min_budat = s_budatlow. ENDIF. IF NOT ( s_budathigh IS INITIAL ). max_budat = s_budathigh. ENDIF. SKIP 2. WRITE: /100 39。. WRITE: /. WRITE: /210 39。. * IF min_budat(6) = max_budat(6). * WRITE: /104 min_budat(4), 39。, min_budat+4(2), 39。, * 202 39。. * ELSE. * WRITE: /097 39。, * 103 min_budat, 113 39。 , 115 max_budat, * 202 39。. * ENDIF. * WRITE: /012 39。, l_sav_butxt, 100 max_budat(4), 39。, max_budat+4(2), 39。, max_budat+6(2), 39。, 212 39。. WRITE: /011 syuline. WRITE : /011 syvline, 040 39。, 085 syvline, 087 39。, 093 syvline, 095 39。, 116 syvline, 148 39。, 190 syvline, 192 39。, 198 syvline, 39。, 220 syvline. WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. CHECK l_sav_hide_row_type = 39。. CALL FUNCTION 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。. SET PFSTATUS 39。. CALL FUNCTION 39。 EXPORTING i_report_name = 39。 EXCEPTIONS OTHERS = 1. ENDCASE. *amp。 Form READ_FIKRS_TEXT *amp。 * *amp。 * FORM read_fipos_text USING u_fipos CHANGING c_pname. g_t_fpos = space. g_t_fposfipos = u_fipos. READ TABLE g_t_fpos. IF sysubrc = 0. c_pname = g_t_fpospname. ENDIF. ENDFORM. READ_FIPOS_TEXT *amp。 Form READ_BUKRS_TEXT *amp。 * *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。. c_text = 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。. c_text = 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 T