知识大全经典案例财务管理系统（6）[2]

Posted 2022-07-22 余额

篇首语：忍耐力较诸脑力，尤胜一筹。。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全经典案例财务管理系统（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 凭证表

　　mit

　　create proc sf_期末结帐

　　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

　　mit

　　create proc sf_计算资产负债表 @kjqj int

　　begin tran

　　计算资产负债表这里提供计算的方法仅供演示

　　没有列出的明细项目都归到其他资产和其他负债里

　　注意这里按照科目代码统计主要说明资产负债表的含意和计算方法

cha138/Article/program/Delphi/201311/24739

知识大全 经典案例 财务管理系统（6）[2]

知识大全经典案例财务管理系统（6）[2]