这是我在一个按键中设置的公式,
这个按键的作用是将各种会计软件中的数据变成统一的试算平衡表
我的系统中,这样的按键有20多个:
if(msgbox("不任以前是否已经计算过试算平衡表,现在都将覆盖以前的结果!"+char(13)+"选择是,则继续;"+char(13)+"选择否,则不进行任何操作。",2,4),SetVariable("%进度%",1)and[%进度条%]andClearGrid("试算平衡表")andClearGrid(gridname)andAppendfor("kmk","科目编号","科目编号","科目编号","<>","")andDelRow(gridname,1)andCopyFor("试算平衡表","科目编号","科目编号","科目编号","<>","")andDelRow("试算平衡表",1)andRecalccol("试算平衡表","科目名称","科目类别")andRecalcCol("试算平衡表","科目编码位数","核算科目")andSetVariable("%进度%",3)and[%进度条%]andRecalcCol("试算平衡表","方向")andSetVariable("%进度%",4)and[%进度条%]andRecalcCol("试算平衡表","期初余额")andSetVariable("%进度%",5)and[%进度条%]andRecalcCol("试算平衡表","科目统计")andRecalcCol("试算平衡表","关联")andSetVariable("%进度%",6)and[%进度条%]andEvalFor("试算平衡表","方向","if(left([科目编号],1)=""1"",""借"",if(left([科目编号],1)=""2"",""贷"",if(left([科目编号],1)=""3"",""贷"",if(left([科目编号],1)=""4"",""借"",[方向]))))","方向","=","")andSetVariable("%进度%",7)and[%进度条%]and[%科目统计1%]andSetVariable("%进度%",8)and[%进度条%]andRecalcCol("试算平衡表",9,12)andSetVariable("%进度%",9)and[%进度条%]andRecalcCol("试算平衡表",13,16)andSetVariable("%进度%",10)and[%进度条%]andRecalcCol("试算平衡表",17,20)andSetVariable("%进度%",11)and[%进度条%]andRecalcCol("试算平衡表",21,24)andSetVariable("%进度%",12)and[%进度条%]andRecalcCol("试算平衡表",25,28)andSetVariable("%进度%",14)and[%进度条%]andRecalcCol("试算平衡表",29,32)andSetVariable("%进度%",16)and[%进度条%]andSetVariable("%判断%",0)andRecalcCol("试算平衡表","本年发生额_借方金额","期末余额")andSetVariable("%进度%",18)and[%进度条%]andRecalcCol("试算平衡表","一级科目码","标准科目类型")andRecalcCell("试算平衡表查询",1,"操作")andEvalFor("试算平衡表查询","期初报表项目","findtext(""标准科目"",""报表项目"",""标准会计科目_科目编号"",""="",[标准一级科目码])")andEvalFor("试算平衡表查询","期末报表项目","findtext(""标准科目"",""报表项目"",""标准会计科目_科目编号"",""="",[标准一级科目码])")andRecalcCol("试算平衡表查询","未级科目名称")andRecalcCol("试算平衡表查询","关联",1)andSetVariable("%进度%",20)and[%进度条%]andOpenGrid("项目建立")andOpenMenu("主菜单")andOpenWindow(4)andDockWindow(2),true)