参考下面公式:
if([记账凭证!Rows]>1,msgbox("有未记账凭证,不能进行年末结转工作!",0),if(username<>"主管会计" And username<>"研制者",msgbox("你无权进行年末结转工作!",0) And OpenWindow(1) ,msgbox("请输入新年度文件名称!",0) And do(338) And SetCellText("系统说明",row,"年度",text(number([年度])+1)) And SetCellText("系统说明",row,"建账日期",[年度]+"-01-01") And ClearGrid("记账凭证") And ClearGrid("已记账凭证") And ClearGrid("记账凭证明细表") And ClearGrid("记账凭证汇总表") And ClearGrid("期间费用统计表") And ClearGrid("总账") And ClearGrid("明细账") And ClearGrid("多栏账") And ClearGrid("生产成本-本年发生") And ClearGrid("年初余额") And OpenGrid("年初余额") And AppendFor("期末余额","科目编码,科目名称,明细科目,借贷,金额,科目类别,现金标记","科目编码,科目名称,明细科目,借贷,金额,科目类别,现金标记") And DelFor("年初余额","金额","=","") And DelFor("年初余额","科目名称","=","") And SetColFormula("年初余额","日期","[系统说明!建账日期]") And RecalcCol("年初余额","日期") And RecalcCol("年初余额","凭证号") And RecalcCol("年初余额","项目核算") And ClearGrid("年初余额汇总") And ClearGrid("期未余额") And ClearGrid("期未余额汇总") And RecalcCol("年初余额","摘要") And ClearGrid("生产成本-年初余额") And OpenGrid("生产成本-期末余额") And ClearSubtotal() And OpenGrid("生产成本-年初余额") And AppendFor("生产成本-期末余额","项目名称,成本项目,金额,借贷,月份","项目名称,成本项目,金额,借贷,月份") And DelFor(GridName,"金额","=","") And RecalcCol("生产成本-年初余额","凭证号") And RecalcCol("生产成本-年初余额","摘要") And ClearGrid("生产成本-期末余额") And ClearGrid("应付账款-年初余额") And OpenGrid("应付账款-期末余额") And ClearSubtotal() And OpenGrid("应付账款-年初余额") And AppendFor("应付账款-期末余额","项目名称,年份,统计标志,借贷,金额","项目名称,年份,统计标志,借贷,金额") And DelFor(GridName,"金额","=","") And RecalcCol("应付账款-年初余额","凭证号") And RecalcCol("应付账款-年初余额","摘要") And OpenGrid("原材料-本年发生") And UnLockAll() And DelFor("原材料-本年发生","出库标记","=",-1) And DelFor("原材料-本年发生","借贷","=",0) And OpenGrid("应付账款-本年发生") And UnLockAll() And DelFor("应付账款-本年发生","借贷","=",-1) And DelFor("应付账款-本年发生","付款标记","=",-1) And DelFor("备查账","标记","=",-1) And ClearGrid("期间费用") And ClearGrid("生产成本") And ReplaceFor("资产负债表","资产_年初数","") And ReplaceFor("资产负债表","资产_期未数","") And ReplaceFor("资产负债表","负债及所有者权益_年初数","") And ReplaceFor("资产负债表","负债及所有者权益_期未数","") And ReplaceFor("利润表","本月数","") And ReplaceFor("利润表","本年累计数","") And ReplaceFor("利润分配表","本年实际","") And ReplaceFor("现金流量表","金额","") And ReplaceFor("[补充资料]","金额","") And ReplaceFor("财务指标","指标值","") And openwindow(5) And msgbox("年未结转已完成,请进行审核!",0) And OpenGrid("年初余额",0) And OpenWindow(0)))