【正文】 . 所有者權(quán)益 if tab2shkzg = 39。. add tab2dmbtr to mllibdnum. else. add tab2dmbtr to mllibum. endif. when 39。. add tab2dmbtr to mlibdnum. else. add tab2dmbtr to mlibum. endif. when 39。 or 39。. add tab2dmbtr to mstockdnum. else. add tab2dmbtr to mstockum. endif. when 39。 or 39。. add tab2dmbtr to minvestdnum. else. add tab2dmbtr to minvestum. endif. when 39。 or 39。. add tab2dmbtr to massetdnum. else. add tab2dmbtr to massetum. endif. when 39。 or 39。, syuzeit. ENDFORM. *********************************************************************** ******************* 計(jì) 算 科目 段在 指定 日期 的起 始余 額 ******************** *********************************************************************** ***** ***** ***** 參數(shù)： mdate1 開(kāi) 始 日 期 ( 含此天 ) ***** ***** 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。, (12) usrname, 110 39。. zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。. zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。. r_fiposoption = 39。. r_fiposoption = 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。. c_text = 39。. c_text = 39。 * *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_FIKRS_TEXT *amp。 EXPORTING i_report_name = 39。. SET PFSTATUS 39。. CALL FUNCTION 39。, 198 syvline, 39。, 116 syvline, 148 39。, 085 syvline, 087 39。, 212 39。, max_budat+4(2), 39。. * ENDIF. * WRITE: /012 39。, * 103 min_budat, 113 39。, * 202 39。. * IF min_budat(6) = max_budat(6). * WRITE: /104 min_budat(4), 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。. 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。 . 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