【正文】 性債務(wù) z_debit_equit LIKE bsegdmbtr, 債務(wù)轉(zhuǎn)為資本 z_bond_due LIKE bsegdmbtr, 一年內(nèi)到期的可轉(zhuǎn)換公司債券 z_money_init LIKE bsegdmbtr, 貨幣資金期初余額 z_money_end LIKE bsegdmbtr, 貨幣資金期末余額 z_cashs_init LIKE bsegdmbtr, 現(xiàn)金等價物期初余額 z_cashs_end LIKE bsegdmbtr, 現(xiàn)金等價物期末余額 z_all_money LIKE bsegdmbtr. 貨幣資金及現(xiàn)金等價物凈變動 DATA: BEGIN OF itb0 OCCURS 0, txt(70) TYPE c, num LIKE bsegdmbtr, END OF itb0, mtxt(70) TYPE c. **INITIALIZATION. PERFORM fill_item_direct. *STARTOFSELECTION. GET fkrs. g_t_fkrsfikrs = fkrsfikrs. g_t_fkrsfitxt = fkrsfitxt. APPEND g_t_fkrs. GET fpos. g_t_fposfipos = fposfipos. g_t_fpospname = fpospname. COLLECT g_t_fpos. GET fmmp. MOVECORRESPONDING fmmp TO g_t_fmmp. CASE fmmpwrttp. WHEN 39。I39。BT39。日期 :39。 項 目 39。SELE39。 * 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。I39。制表人員 :39。140139。212139。S39。211139。110139。FI39。39。 * *amp。FM_DOCUMENT_DISPLAY39。單位 : 元 39。報表編號 : 會商 03 表 39。EQ39。6539。 OR 39。. DELETE r_lifnr. ENDLOOP. DESCRIBE TABLE r_lifnr LINES l_t_lines. insert IF l_t_lines = 50. insert * / LieferantenKurztexte auf einmal einlesen insert SELECT lifnr sortl FROM lfa1 INTO CORRESPONDING FIELDS OF TABLE g_t_lfa1 WHERE lifnr IN r_lifnr. ELSE. insert * / LieferantenKurztexte in Bloecken einlesen insert DO. insert * / Bloecke zu je 50 Leferanten bilden insert REFRESH lr_lifnr. insert LOOP AT r_lifnr FROM l_t_from TO l_t_to. insert lr_lifnr = r_lifnr. insert APPEND lr_lifnr. insert ENDLOOP. insert IF sysubrc NE 0. insert EXIT. insert ENDIF. insert l_t_from = l_t_to + 1. insert l_t_to = l_t_from + 50. insert * / LieferantenKurztexte lesen insert SELECT lifnr sortl FROM lfa1 insert APPENDING CORRESPONDING FIELDS insert OF TABLE g_t_lfa1 insert WHERE lifnr IN lr_lifnr. insert ENDDO. insert ENDIF. insert ENDIF. * / Lesen DebitorenTexte aus StammdatenTabelle IF NOT r_kunnr IS INITIAL. LOOP AT r_kunnr WHERE low = 39。. * IF min_budat(6) = max_budat(6). * WRITE: /104 min_budat(4), 39。, max_budat+4(2), 39。, 198 syvline, 39。 Form READ_FIKRS_TEXT *amp。. c_text = 39。. zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。 or 39。 or 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。. add tab2dmbtr to minvestdnum. else. add tab2dmbtr to minvestum. endif. when 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.