【正文】 子程序?qū)⒌默F(xiàn)金流量表項(xiàng)和其對(duì)應(yīng)的承諾項(xiàng)目裝入內(nèi)部表INT_CASHFLOW. 裝入與現(xiàn)金流量相關(guān)的數(shù)據(jù) 這部分是邏輯數(shù)據(jù)庫裝入，屬于 SAP 標(biāo) 準(zhǔn)程序，數(shù)據(jù)關(guān)系比較復(fù)雜，建議不要做任何改動(dòng)。. payment transfer g_t_fmmpzbelnr = fmmpkblnr. g_t_fmmpzbuzei = fmmpkblpos. WHEN 39。. r_lifnroption = 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。. 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。, * 202 39。. * ENDIF. * WRITE: /012 39。, 212 39。, 116 syvline, 148 39。. CALL FUNCTION 39。 EXPORTING i_report_name = 39。 * 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。. c_text = 39。. IF sysubrc = 0. offset = syfdpos. MOVE rfipos(offset) TO item. offset = offset + 1. ELSE. MOVE rfipos TO item. doing = 0. ENDIF. SEARCH item FOR 39。. r_fiposoption = 39。. zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。, syuzeit. ENDFORM. *********************************************************************** ******************* 計(jì) 算 科目 段在 指定 日期 的起 始余 額 ******************** *********************************************************************** ***** ***** ***** 參數(shù)： mdate1 開 始 日 期 ( 含此天 ) ***** ***** mdate2 結(jié)束日期 ( 不 含 此 天 ) ***** ***** mstrin 科 目 編 號(hào) 的 匹 配 模 式 字 符 串 ***** ***** 結(jié)果： znum ***** ***** 算法：某日余額 = 年初余額 ＋ 一月余額 ＋ ．．．＋ ***** ***** 上月余額 ＋ 本月到 mdate2 余額 ***** ***** ***** *********************************************************************** FORM cal_dates_amount USING mdate1 mdate2 mstring CHANGING znum. DATA: BEGIN OF iglt0 OCCURS 0. INCLUDE STRUCTURE glt0. DATA: END OF iglt0. DATA: BEGIN OF itmp OCCURS 0, num LIKE bsegdmbtr, END OF itmp. DATA: i LIKE sytabix. SELECT * FROM glt0 INTO TABLE iglt0 WHERE bukrs = z_bukrs AND ryear = mdate1(4) AND racct LIKE mstring. LOOP AT iglt0. REFRESH itmp. itmpnum = iglt0hslvt. APPEND itmp. itmpnum = iglt0hsl01. APPEND itmp. itmpnum = iglt0hsl02. APPEND itmp. itmpnum = iglt0hsl03. APPEND itmp. itmpnum = iglt0hsl04. APPEND itmp. itmpnum = iglt0hsl05. APPEND itmp. itmpnum = iglt0hsl06. APPEND itmp. itmpnum = iglt0hsl07. APPEND itmp. itmpnum = iglt0hsl08. APPEND itmp. itmpnum = iglt0hsl09. APPEND itmp. itmpnum = iglt0hsl10. APPEND itmp. itmpnum = iglt0hsl11. APPEND itmp. LOOP AT itmp FROM 1 TO mdate1+4(2). znum = znum + itmpnum. ENDLOOP. ENDLOOP. SELECT * FROM bkpf WHERE bukrs = z_bukrs AND budat = mdate1 AND budat mdate2. SELECT * FROM bsis WHERE gjahr = bkpfgjahr AND belnr = bkpfbelnr AND hkont LIKE mstring. IF bsisshkzg = 39。. add tab2dmbtr to massetdnum. else. add tab2dmbtr to massetum. endif. when 39。. add tab2dmbtr to minvestdnum. else. add tab2dmbtr to minvestum. endif. when 39。. add tab2dmbtr to mstockdnum. else. add tab2dmbtr to mstockum. endif. when 39。. add tab2dmbtr to mlibdnum. else. add tab2dmbtr to mlibum. endif. when 39。. 所有者權(quán)益 if tab2shkzg = 39。. add tab2dmbtr to mllibdnum. else. add tab2dmbtr to mllibum. endif. when 39。 or 39。 or 39。 or 39。 or 39。, (12) usrname, 110 39。. zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。. r_fiposoption = 39。. c_text = 39。 * *amp。 Form READ_FIKRS_TEXT *amp。. SET PFSTATUS 39。, 198 syvline, 39。, 085 syvline, 087 39。, max_budat+4(2), 39。, * 103 min_budat, 113 39。. * IF min_budat(6) = max_budat(6