經典案例 財務管理系統（6）[2]

　　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