熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

經典案例 財務管理系統(6)[2]

2013-11-23 17:35:34  來源: Delphi編程 

  and 科目代碼 = @dm

  select @ye = isnull(@ye)

  update 本期明細帳簿

  set 余額=case when @fx=借方 then

  @ye + @jf @df else

  @ye + @df @jf end

  余額標記=

  where 內部編號=@bh

  fetch next from mycursor into @bh@dm@jf@df@fx@bj@kjqj

  end

  close mycursor

  deallocate mycursor

   更改狀態

  update 憑證表 set 過帳狀態 = 已過

   放入歷史

  insert into 憑證表歷史 select * from 憑證表

  insert into 分錄表歷史 select * from 分錄表

   清除已過帳數據注意應放到程序中清除因為要統計憑證張數/分錄張數和金額

   統計後刪除

   delete from 分錄表

   delete from 憑證表

  commit

  GO

  create proc sf_期末結帳

  as

  begin tran

   先將沒有過帳的憑證過帳

  exec sf_憑證過帳

  declare @kjqj int 當前會計期間

  select @kjqj = 會計期間 from 本期匯總帳簿

   計算科目余額表可以統計資產負債表/損溢表等

  update 科目余額表 set 本期借方發生額 = b本期借方合計本期貸方發生額 = b本期貸方合計

  會計期間 = b會計期間 余額方向 = b余額方向

  from 科目余額表 as a 本期匯總帳簿 as b

  where a科目代碼 = b科目代碼 and a會計期間=b會計期間

  update 科目余額表 set

  本年借方累計發生額 = 本年借方累計發生額 + 本期借方發生額

  本年貸方累計發生額 = 本年貸方累計發生額 + 本期貸方發生額

  本期借方余額 = 期初借方余額 + 本期借方發生額

  本期貸方余額 = 期初貸方余額 + 本期貸方發生額

  where 會計期間 = @kjqj

   更新會計期間

  update 系統參數表 set 取值 = 取值 + where 參數名稱=當前會計期間

   將本期匯總帳簿和明細帳簿倒入歷史實例程序不演示

  

   清除匯總帳簿和明細帳簿進入新的會計期間

  update 本期匯總帳簿 set 會計期間 = 會計期間 + 期初余額=余額

  本期借方合計 = 本期貸方合計 = 余額 =

  delete from 本期明細帳簿

   新會計期間的科目余額表

  insert into 科目余額表(科目代碼 期初借方余額 期初貸方余額 本期借方發生額

  本期貸方發生額 本年借方累計發生額 本年貸方累計發生額 本期借方余額

  本期貸方余額 余額方向會計期間)

  select 科目代碼 本期借方余額 本期貸方余額

  本期借方余額 本期貸方余額 余額方向會計期間+

  from 科目余額表 where 會計期間 = @kjqj

  commit

  GO

  create proc sf_計算資產負債表 @kjqj int

  as

  begin tran

   計算資產負債表這裡提供計算的方法僅供演示

   沒有列出的明細項目都歸到其他資產和其他負債裡

   注意這裡按照科目代碼統計主要說明資產負債表的含意和計算方法

[]  []  []  


From:http://tw.wingwit.com/Article/program/Delphi/201311/24739.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.