【正文】 YPE 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. offset = syfdpos. MOVE rfipos(offset) TO item. offset = offset + 1. ELSE. MOVE rfipos TO item. doing = 0. ENDIF. SEARCH item FOR 39。. IF sysubrc = 0. off = syfdpos. MOVE item(off) TO str. off = off + 1. r_fipossign = 39。. r_fiposoption = 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_fiposoption = 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_cashflow_fkbtr. ELSEIF 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_cashflow_fkbtr. ELSEIF 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 * ** * ........ * ** FORM out_footer. DATA: usrname(80) TYPE c. SELECT SINGLE * FROM usr21 WHERE bname = syuname. SELECT SINGLE * FROM adrp WHERE persnumber = usr21persnumber AND date_from = sydatum AND date_to = sydatum. CONCATENATE adrpname_last adrpname_first INTO usrname. CONDENSE usrname NOGAPS. WRITE: /012 39。, (12) usrname, 110 39。, sydatum, 202 39。, syuzeit. ENDFORM. *********************************************************************** ******************* 計 算 科目 段在 指定 日期 的起 始余 額 ******************** *********************************************************************** ***** ***** ***** 參數(shù)： mdate1 開 始 日 期 ( 含此天 ) ***** ***** mdate2 結(jié)束日期 ( 不 含 此 天 ) ***** ***** mstrin 科 目 編 號 的 匹 配 模 式 字 符 串 ***** ***** 結(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。. znum = znum + bsisdmbtr. ELSE. znum = znum bsisdmbtr. ENDIF. ENDSELECT. ENDSELECT. ENDFORM. DEFINE cal_data. types: begin of datatype, dnum like bsegdmbtr,