根据“记账凭证清单”自动生成“日记账”

hzruziniu

kanny_a 发表于 2021-8-15 17:40
谢谢老师，原来这个问题你已经在17楼解答。
老师的回答结合了会计专业知识，所以还想麻烦你帮忙实现以下 ...

按照你的要求给你修改好了，增加了一列借贷方向列，所有的定义名称变量全部得重新核对修改，稍有疏忽又得重新核对查找出错地方。另外我看你在分录录入时非常麻烦，好事做到头，我给你增加了控体控件录入，在窗体中双击科目就录入到工作表。具体你看附件了。 帐簿3.rar (507.94 KB, 下载次数: 26)

2021-8-16 20:03 上传

点击文件名下载附件

kanny_a

hzruziniu 发表于 2021-8-16 20:03
按照你的要求给你修改好了，增加了一列借贷方向列，所有的定义名称变量全部得重新核对修改，稍有疏忽又得 ...

在录入科目编号时真的真的好头疼，增加控件录入解决了我另外一个大困扰。
编程+会计的专业知识让人佩服，一次次的不厌其烦的修改令我敬佩。
感谢老师，辛苦老师了！！！

hzruziniu

kanny_a 发表于 2021-8-17 11:01
在录入科目编号时真的真的好头疼，增加控件录入解决了我另外一个大困扰。
编程+会计的专业知识让人佩服 ...

帐簿3.rar (516.47 KB, 下载次数: 34)

2021-8-18 00:03 上传

点击文件名下载附件

再给你增加一项功能，在用窗体录入科目时，打开列表框发现没有需要的明细科目，则用以下方法自动添加：
1、先在列表框点击需添加明细科目的一级拉目
2、然后点击窗体下方的增加明细，弹出另一个增加明细科目窗体，
3、在弹出添加明细科目的窗体中，明细代码等各项目都自动生成，输入明细科目名称，点击保存，自动在会计科目工作表对应科目的最下方插入一
行，把相关项目动保存到该对应行内，
4、同时在选中的会计分录工作表中也自动录入该科目。具体请看附件。

kanny_a

hzruziniu 发表于 2021-8-18 00:17
再给你增加一项功能，在用窗体录入科目时，打开列表框发现没有需要的明细科目，则用以下方法自动添加： ...

老师，你好！已经看到了新增的功能了，更便捷、更人性化。

现在你已经帮忙解决自动生成日记账了，还追加了不敢想的这么多的功能。老师越是将EXCEL功能运用得如此炉火纯青，我越想请老师帮忙解决更多的问题。一上班打开这个被老师一次又一次更新的附件，纠结到现在！还是厚着脸请老师帮忙：

1、 应交税费——应交增值税出现负数：这个科目有三级科目。

2、 总账自动生成（见附件）

hzruziniu

kanny_a 发表于 2021-8-18 11:57
老师，你好！已经看到了新增的功能了，更便捷、更人性化。现在你已经帮忙解决自动生成日记账了，还追加了 ...

1、应交税费费下的应交增值税有三级科目，就得设置三级科目明细账
2、银行存款总账我这里正常。

hzruziniu

银行存款有二级科目不会生成总账，你这是怎么回事会有一级科目？我看根据你的情况还是老老实实设置三本账簿：分别为部分类账，一级明细账，二级明细账，如果需要还可设置多栏明细账，另外还需设置专用增值税明细账。这是一个庞大的系统工程，

kanny_a

hzruziniu 发表于 2021-8-18 15:28
银行存款有二级科目不会生成总账，你这是怎么回事会有一级科目？我看根据你的情况还是老老实实设置三本账簿 ...

如果是这样的话就不用了，哈哈哈
已是非常非常感谢了

zpy2

create temp table a凭证一览表2  as select * from a凭证一览表 where 科目代码='100201';create temp table a凭证一览表2_明细表  as with recursive under_alice(排序,rowid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额) as (select '00a' 排序,0 rowid,'' 年,'' 月,'' 日,'' 序号,'' 凭证编号,'期初余额' 摘要,'' 科目代码,'' 总账科目,'' 明细科目,'' 借方发生额,'' 贷方发生额,期初借方余额-期初贷方余额 余额  from a期初余额表 where 科目代码='100201' union all select a凭证一览表2.月||'b' 排序,a凭证一览表2.rowid ,a凭证一览表2.年,a凭证一览表2.月,a凭证一览表2.日,a凭证一览表2.序号,a凭证一览表2.凭证编号,a凭证一览表2.摘要,a凭证一览表2.科目代码,a凭证一览表2.总账科目,a凭证一览表2.明细科目,a凭证一览表2.借方发生额,a凭证一览表2.贷方发生额,a凭证一览表2.借方发生额-a凭证一览表2.贷方发生额+under_alice.余额 as 余额 from a凭证一览表2 join  under_alice  on  a凭证一览表2.rowid-1=under_alice.rowid) select 排序,rowid rid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额 from  under_alice;  create temp table 本月合计表  as  select 月||'c' 排序,'' rid,' ' 年,月,' ' 日,' ' 序号,' ' 凭证编号,'本月合计' 摘要,' ' 科目代码,' ' 总账科目,' ' 明细科目,sum(借方发生额) 借方发生额,sum(贷方发生额) 贷方发生额,'' 余额  from a凭证一览表2 group by  月;  with  recursive  accumulate (rowid,排序,rid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额) as ( select rowid,月||'d' 排序,'' rid,' ' 年,'' 月,' ' 日,' ' 序号,' ' 凭证编号,'本年累计' 摘要,' ' 科目代码,' ' 总账科目,' ' 明细科目,借方发生额,贷方发生额,'' 余额  from 本月合计表 where  rowid=1 union all select 本月合计表.rowid,本月合计表.月||'d' 排序,'' rid,' ' 年,'' 月,' ' 日,' ' 序号,' ' 凭证编号,'本年累计' 摘要,' ' 科目代码,' ' 总账科目,' ' 明细科目,accumulate.借方发生额+本月合计表.借方发生额 借方发生额,accumulate.贷方发生额+本月合计表.贷方发生额 贷方发生额,'' 余额  from 本月合计表 join  accumulate  on  本月合计表.rowid-1=accumulate.rowid limit 20),ledger_sorted as( select 排序,rid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额 from  accumulate  union  select 排序,rid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额 from  本月合计表  union select 排序,rid,年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,借方发生额,贷方发生额,余额 from a凭证一览表2_明细表 )select 年,月,日,序号,凭证编号,摘要,科目代码,总账科目,明细科目,number_format(借方发生额,2) 借方发生额,number_format(贷方发生额) 贷方发生额,number_format(余额,2) 余额 from ledger_sorted

佛衫丶黄非红

zpy2 发表于 2021-10-28 15:20
create temp table a凭证一览表2  as select * from a凭证一览表 where 科目代码='100201';create temp tab ...

666 sql都出来了