马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？注册账号
×
看到有问资产负债表和损益表取数公式的,看了下回复,大都说使用系统自带的模版.模版的公式确实可用,有时候需要稍加修改.但是,模版里面的单元格公式不够灵活,不如使用二次开发功能编写的公式,许多东西可以自行控制.
比如:在未记账的时候生成报表数据,用二次开发的公式,修改变量的值就可以了.
下面是我用的资产负债表取数公式,欢迎批评指正.
//----------------------------------------------------------
if a1<>"资产负债表"
check a1="资产负债表" mess "当前报表不是要计算的 资产负债表，请更改后再执行。"
else
let &bhwjz="Y"
//该变量控制取数的时候是否包含未记账凭证
//变量值为"Y"或"y"时，取数的时候包含未记账凭证
//变量值为"N"或"n"时，取数的时候不包含未记账凭证
//取资产类科目期初数据
let c7=qc("1001",全年,,,年,,,,&bhwjz)+qc("1002",全年,,,年,,,,&bhwjz)+qc("1009",全年,,,年,,,,&bhwjz) //货币资金
let c9=qc("1111",全年,,,年,,,,&bhwjz) //应收票据
let c12=qc("1131",全年,"借",,年,,,,&bhwjz)+qc("2131",全年,"借",,年,,,,&bhwjz)-qc("1141",全年,,,年,,,,&bhwjz) //应收账款
let c13=qc("1133",全年,,,年,,,,&bhwjz)
//+qc("2181",全年,"借",,年,,,,&bhwjz) //其他应收款,未做重分类
let c14=qc("1151",全年,"借",,年,,,,&bhwjz)+qc("2121",全年,"借",,年,,,,&bhwjz) //预付账款
let c15=qc("1161",全年,,,年,,,,&bhwjz) //应收补贴款
let c16=qc("1201",全年,,,年,,,,&bhwjz)+qc("1211",全年,,,年,,,,&bhwjz)+qc("1243",全年,,,年,,,,&bhwjz)
let c16=c16+qc("4101",全年,,,年,,,,&bhwjz)+qc("4105",全年,,,年,,,,&bhwjz)+qc("4107",全年,,,年,,,,&bhwjz) //存货
let c20=ptotal(c7:c19) //流动资产合计
let c22=qc("1401",全年,,,年,,,,&bhwjz) //长期股权投资
let c24=c22+c23 //长期投资合计
let c26=qc("1501",全年,,,年,,,,&bhwjz) //固定资产
let c27=qc("1502",全年,,,年,,,,&bhwjz) //累计折旧
let c28=c26-c27 //固定资产净值
let c30=c28-c29 //固定资产净额
let c31=qc("1601",全年,,,年,,,,&bhwjz) //工程物资
let c32=qc("1603",全年,,,年,,,,&bhwjz) //在建工程
let c33=qc("1701",全年,,,年,,,,&bhwjz) //固定资产清理
let c34=ptotal(c30:c33) //固定资产合计
let c36=qc("1801",全年,,,年,,,,&bhwjz) //无形资产
let c37=qc("1901",全年,,,年,,,,&bhwjz) //长期待摊费用
let c39=c36+c37+c38 //无形资产等合计
let c43=c20+c24+c34+c39+c42 //资产总计
//资产类科目期末数据
let d7=qm("1001",月,,,年,,,,&bhwjz)+qm("1002",月,,,年,,,,&bhwjz)+qm("1009",月,,,年,,,,&bhwjz) //货币资金
let d9=qm("1111",月,,,年,,,,&bhwjz) //应收票据
let d12=qm("1131",月,"借",,年,,,,&bhwjz)+qm("2131",月,"借",,年,,,,&bhwjz)-qm("1141",月,,,年,,,,&bhwjz) //应收账款
let d13=qm("1133",月,,,年,,,,&bhwjz)
//+qm("2181",月,"借",,年,,,,&bhwjz) //其他应收款,未做重分类
let d14=qm("1151",月,"借",,年,,,,&bhwjz)+qm("2121",月,"借",,年,,,,&bhwjz) //预付账款
let d15=qm("1161",月,,,年,,,,&bhwjz) //应收补贴款
let d16=qm("1201",月,,,年,,,,&bhwjz)+qm("1211",月,,,年,,,,&bhwjz)+qm("1243",月,,,年,,,,&bhwjz)
let d16=d16+qm("4101",月,,,年,,,,&bhwjz)+qm("4105",月,,,年,,,,&bhwjz)+qm("4107",月,,,年,,,,&bhwjz) //存货
let d20=ptotal(d7:d19) //流动资产合计
let d22=qm("1401",月,,,年,,,,&bhwjz) //长期股权投资
let d24=d22+d23 //长期投资合计
let d26=qm("1501",月,,,年,,,,&bhwjz) //固定资产
let d27=qm("1502",月,,,年,,,,&bhwjz) //累计折旧
let d28=d26-d27 //固定资产净值
let d30=d28-d29 //固定资产净额
let d31=qm("1601",月,,,年,,,,&bhwjz) //工程物资
let d32=qm("1603",月,,,年,,,,&bhwjz) //在建工程
let d33=qm("1701",月,,,年,,,,&bhwjz) //固定资产清理
let d34=ptotal(d30:d33) //固定资产合计
let d36=qm("1801",月,,,年,,,,&bhwjz) //无形资产
let d37=qm("1901",月,,,年,,,,&bhwjz) //长期待摊费用
let d39=d36+d37+d38 //无形资产等合计
let d43=d20+d24+d34+d39+d42 //资产总计
//负债类科目期初数据
let g7=qc("2101",全年,,,年,,,,&bhwjz) //短期借款
let g8=qc("2111",全年,,,年,,,,&bhwjz) //应付票据
let g9=qc("1151",全年,"贷",,年,,,,&bhwjz)+qc("2121",全年,"贷",,年,,,,&bhwjz) //应付账款
let g10=qc("1131",全年,"贷",,年,,,,&bhwjz)+qc("2131",全年,"贷",,年,,,,&bhwjz) //预收账款
let g11=qc("2151",全年,,,年,,,,&bhwjz) //应付工资
let g12=qc("2153",全年,,,年,,,,&bhwjz) //应付福利费
let g13=qc("2161",全年,,,年,,,,&bhwjz) //应付股利
let g14=qc("2171",全年,,,年,,,,&bhwjz) //应交税金
let g15=qc("2176",全年,,,年,,,,&bhwjz) //其他应交款
let g16=qc("2181",全年,,,年,,,,&bhwjz) //其他应付款
//qc("1133",全年,"贷",,年,,,,&bhwjz)+qc("2181",全年,"贷",,年,,,,&bhwjz) //其他应付款 未做重分类
let g17=qc("2191",全年,,,年,,,,&bhwjz) //预提费用
let g22=ptotal(g7:g20) //流动负债合计
let g24=qc("2301",全年,,,年,,,,&bhwjz) //长期借款
let g29=ptotal(g24:g28) //长期负债合计
let g32=g22+g29+g31 //负债合计
let g35=qc("3101",全年,,,年,,,,&bhwjz) //实收资本
let g37=g35-g36 //实收资本净额
let g38=qc("3111",全年,,,年,,,,&bhwjz) //资本公积
let g39=qc("3121",全年,,,年,,,,&bhwjz) //盈余公积
let g40=qc("312103",全年,,,年,,,,&bhwjz) //法定盈余公积
let g41=qc("3131",全年,,,年,,,,&bhwjz)+qc("3141",全年,,,年,,,,&bhwjz) //未分配利润
let g42=g37+g38+g39+g41 //所有者权益合计
let g43=g42+g32 //负债及所有者权益合计
//负债类科目期末数据
let h7=qm("2101",月,,,年,,,,&bhwjz) //短期借款
let h8=qm("2111",月,,,年,,,,&bhwjz) //应付票据
let h9=qm("1151",月,"贷",,年,,,,&bhwjz)+qm("2121",月,"贷",,年,,,,&bhwjz) //应付账款
let h10=qm("1131",月,"贷",,年,,,,&bhwjz)+qm("2131",月,"贷",,年,,,,&bhwjz) //预收账款
let h11=qm("2151",月,,,年,,,,&bhwjz) //应付工资
let h12=qm("2153",月,,,年,,,,&bhwjz) //应付福利费
let h13=qm("2161",月,,,年,,,,&bhwjz) //应付股利
let h14=qm("2171",月,,,年,,,,&bhwjz) //应交税金
let h15=qm("2176",月,,,年,,,,&bhwjz) //其他应交款
let h16=qm("2181",月,,,年,,,,&bhwjz) //其他应付款
//qm("1133",月,"贷",,年,,,,&bhwjz)+qm("2181",月,"贷",,年,,,,&bhwjz) //其他应付款 未做重分类
let h17=qm("2191",月,,,年,,,,&bhwjz) //预提费用
let h22=ptotal(h7:h20) //流动负债合计
let h24=qm("2301",月,,,年,,,,&bhwjz) //长期借款
let h29=ptotal(h24:h28) //长期负债合计
let h32=h22+h29+h31 //负债合计
let h35=qm("3101",月,,,年,,,,&bhwjz) //实收资本
let h37=h35-h36 //实收资本净额
let h38=qm("3111",月,,,年,,,,&bhwjz) //资本公积
let h39=qm("3121",月,,,年,,,,&bhwjz) //盈余公积
let h40=qm("312103",月,,,年,,,,&bhwjz) //法定盈余公积
let h41=qm("3131",月,,,年,,,,&bhwjz)+qm("3141",月,,,年,,,,&bhwjz) //未分配利润
let h42=h37+h38+h39+h41 //所有者权益合计
let h43=h42+h32 //负债及所有者权益合计
free &bhwjz
//----------------------------------------------------------------------------
//本表审核检查
check c43=g43 mess "资产期初数与负债和权益的期初数不相等，请检查"
let a2=iff(c43<>g43,"期初数不相等","")
check d43=h43 mess "资产期末数与负债和权益的期末数不相等，请检查"
let e2=iff(d43<>h43,"期末数不相等","")
//检查资产负债表与利润表的关系
let &jlr="利润表"->d20 rela 年 with "利润表"->年,月 with "利润表"->月
let g2=iff((h41-g41)<>&jlr,"未分配利润核对不符，检查是否存在以前年度调整事项","")
free &jlr
//----------------------------------------------------------------------------
end |
|站长微信|Archiver|手机版|小黑屋|用友之家
( 蜀ICP备07505338号|
51072502110008 )
IP卡
狗仔卡
发表于 2009-4-10 09:31:47
提升卡
置顶卡
变色卡
千斤顶
显身卡
