sap项目现金流量表开发源代码(编辑修改稿)

sap项目现金流量表开发源代码(编辑修改稿)内容摘要：

t_cashflowfi_fkbtr = int_cashflowfi_fkbtr + g_t_fmmpfkbtr. int_cashflow_fkbtr = int_cashflow_fkbtr + g_t_fmmpfkbtr. ENDIF. ENDIF. IF r_fiposoption = 39。 BT39。 . 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。 COM39。 . 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。 FI39。 . 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。 现 金 流 量 表 39。 . WRITE: /. WRITE: /210 39。 会年企 03 表 39。 . * IF min_budat(6) = max_budat(6). * WRITE: /104 min_budat(4), 39。 年 39。 , min_budat+4(2), 39。 月 39。 , * 202 39。 报表编号 : 会商 03 表 39。 . * ELSE. * WRITE: /097 39。 日期 :39。 , * 103 min_budat, 113 39。 39。 , 115 max_budat, * 202 39。 报表编号 : 会商 03 表 39。 . * ENDIF. * WRITE: /012 39。 编制单位 : 39。 , l_sav_butxt, 100 max_budat(4), 39。 年 39。 , max_budat+4(2), 39。 月 39。 , max_budat+6(2), 39。 日 39。 , 212 39。 单位 : 元 39。 . WRITE: /011 syuline. WRITE : /011 syvline, 040 39。 项 目 39。 , 085 syvline, 087 39。 行次 39。 , 093 syvline, 095 39。 金 额 39。 , 116 syvline, 148 39。 补充资料 39。 , 190 syvline, 192 39。 行次 39。 , 198 syvline, 39。 金 额 39。 , 220 syvline. WRITE: /011 syuline. *********************************************************************** * AT LINESELECTION. CHECK l_sav_hide_row_type = 39。 EPOS39。 . CALL FUNCTION 39。 FM_DOCUMENT_DISPLAY39。 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。 SELE39。 . SET PFSTATUS 39。 SELE39。 . CALL FUNCTION 39。 FM_SELECTION_CRITERIA_PRINT39。 EXPORTING i_report_name = 39。 RFFMIEP539。 EXCEPTIONS OTHERS = 1. ENDCASE. *amp。 * *amp。 Form READ_FIKRS_TEXT *amp。 * FORM read_fikrs_text USING u_fikrs CHANGING c_fitxt. g_t_fkrs = space. g_t_fkrsfikrs = u_fikrs. READ TABLE g_t_fkrs. IF sysubrc = 0. c_fitxt = g_t_fkrsfitxt. ENDIF. ENDFORM. READ_FIKRS_TEXT *amp。 * *amp。 Form READ_FIPOS_TEXT *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。 * *amp。 Form READ_BUKRS_TEXT *amp。 * FORM read_bukrs_text USING u_bukrs CHANGING c_butxt. g_t_t001 = space. g_t_t001bukrs = u_bukrs. READ TABLE g_t_t001. IF sysubrc = 0. c_butxt = g_t_t001butxt. ENDIF. ENDFORM. READ_FIPOS_TEXT *amp。 * *amp。 Form GET_KUNNR_LIFNR_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。 *39。 . c_text = 39。 *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。 *39。 . c_text = 39。 *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。 ,39。 . IF sysub。