在sap中用承諾項(xiàng)目出現(xiàn)金流量表(報(bào)表開(kāi)發(fā)源代碼)-閱讀頁(yè)
2025-07-15 20:58本頁(yè)面
【正文】 doing = 1. ,39。 offset = syfdpos. offset = offset + 1. ELSE. doing = 0. ENDIF. SEARCH item FOR 39。. IF sysubrc = 0. MOVE item(off) TO str. r_fipossign I39。 r_fiposoption = 39。. str. MOVE item TO str. = MOVE item TO str. = 39。. EQ39。 r_fiposlow = ENDWHILE. ENDFORM. ******* FORM output_info USING fi_value. DATA: i LIKE sytabix, j LIKE sytabix, k LIKE sytabix, l LIKE sytabix. j = 0. k = 32. COM39。 zcashflow = int_cashflow_fkbtr. ELSEIF fi_value = 39。. j = j + 1. k = k + 1. WRITE : /011 syvline, 014 int_cashflowdesc, 085 syvline, 088(2) i,093 syvline. IF zcashflow 0. l = i + 32. IF fi_value = 39。. zcashflow = int_cashflow_fkbtr. FI39。 ENDIF. IF zcashflow 0. WRITE: 204 zcashflow CURRENCY g_t_fmmpfwaer. l = i 2. IF sysubrc 0. CLEAR itb0. ENDIF. IF itb0num 0. WRITE: 204 itb0num CURRENCY g_t_fmmpfwaer. j PERFORM out_footer. ENDLOOP. FORM out_footer ........ DATA: usrname(80) TYPE c. SELECT SINGLE * FROM adrp date_from = sydatum AND = sydatum. CONDENSE usrname NOGAPS. 制表人員:39。 110 39。, sydatum, 打印時(shí)間:39。 開(kāi)始日期(含此天) mdate2 mstrin ***** ***** 結(jié)果：znum ***** ***** CHANGING znum. INCLUDE STRUCTURE glt0. DATA: BEGIN OF itmp OCCURS 0, LIKE DATA: i LIKE sytabix. WHERE bukrs = mdate1(4) LOOP AT iglt0. REFRESH itmp. itmpnum = iglt0hslvt. APPEND itmp. itmpnum = iglt0hsl02. APPEND itmp. itmpnum = iglt0hsl04. APPEND itmp. itmpnum = iglt0hsl06. APPEND itmp. itmpnum = iglt0hsl08. APPEND itmp. itmpnum = iglt0hsl10. APPEND itmp. LOOP AT itmp FROM 1 TO mdate1+4(2). ENDLOOP. = z_bukrs budat = mdate1 AND mdate2. SELECT * FROM bsis WHERE gjahr = bkpfgjahr AND belnr = bkpfbelnr AND hkont LIKE mstring. S39。 ELSE. znum = znum bsisdmbtr. ENDSELECT. ENDFORM. DEFINE cal_data. dnum like bsegdmbtr, 借方金額 data: masset 固定資產(chǎn)數(shù)據(jù) minvest type datatype, 短期負(fù)債數(shù)據(jù) mstock 庫(kù)存數(shù)據(jù) mllib 長(zhǎng)期負(fù)債數(shù)據(jù) mequit 權(quán)益數(shù)據(jù) when 39。 or 39。. S39。 add tab2dmbtr to massetdnum. else. when 39。 or 39。 or 39。. 短期投資與長(zhǎng)期投資 if tab2shkzg = 39。. add tab2dmbtr to minvestum. endif. 122139。123139。124339。 S39。 add tab2dmbtr to mstockdnum. else. when 39。 or 39。 or 39。. 經(jīng)營(yíng)性負(fù)債 if tab2shkzg = 39。. add tab2dmbtr to mlibum. endif. 232139。 S39。 add tab2dmbtr to mllibdnum. else. when 39。 or 39。. S39。 add tab2dmbtr to mequitdnum. else. endloop. 固定資產(chǎn)增加 if mllibum 0. if massetdnum mllibum. z_asset_rented = z_asset_rented + massetdnum. mllibum = mllibum massetdnum. massetdnum = 0. endif. endif. if massetum 0. 固定資產(chǎn)償還債務(wù)(經(jīng)營(yíng)性) = massetum else. z_asset_debit = z_asset_debit + massetum. z_debit_short = z_debit_short + massetum. mlibdnum = mlibdnum massetum. massetum endif. endif. if mllibdnum 0. 固定資產(chǎn)償還債務(wù)(長(zhǎng)期) = massetum else. z_asset_debit = z_asset_debit + massetum. mllibdnum = mllibdnum massetum. massetum endif. endif. if minvestdnum 0. if massetum minvestdnum. z_asset_invest = z_asset_invest + minvestdnum. massetum = massetum minvestdnum. minvestdnum else. z_asset_invest = z_asset_invest + massetum. minvestdnum massetum. massetum = 0. endif. 投資增加 if massetum 0. 以固定資產(chǎn)投資 else. z_asset_invest = z_asset_invest + massetum. minvestdnum massetum. massetum = 0. endif. 以投資償還債務(wù)（經(jīng)營(yíng)性） = z_debit_short = mlibdnum = 0. = z_debit_short = minvestum = 0. if mllibdnum minvestum. z_invest_debit = z_invest_debit + minvestum. mllibdnum = mllibdnum minvestum. minvestum else. z_invest_debit = z_invest_debit + mllibdnum. minvestum mllibdnum. mllibdnum = 0. endif. 存貨減少 if mlibdnum 0. if mlibdnum mstockum. z_stock_debit = z_stock_debit + mstockum. z_debit_short = z_debit_short + mstockum. mlibdnum = mlibdnum mstockum. mstockum else. z_stock_debit = z_stock_debit + mlibdnum. z_debit_short = z_debit_short + mlibdnum. mstockum mlibdnum. mlibdnum = 0. 以存貨償還債務(wù)（長(zhǎng)期） = 0. = mstockum endif. endif. if mequitum 0. 資本增加 if mlibdnum 0. = 0. = mequitum endif. endif. if mllibdnum 0. = 0. = mequitum endif. endif. FORM cal_indirect * ** * * ** * pbukrs * ** FORM cal_indirect USING pbukrs LIKE fmmpbukrs. 1
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1