UFO报表二次开发.docVIP

UFO程序 1、 Free All//清空内存变量 Set Switch Off//关闭提示开关 Let aa1=Getstr(请输入报表全名:) OPEN REPORT aa1//打开报表 INSERT @1//在第一页前插入一页 2、 FIND FOR 年=0//寻找年份的表页 Let 单位名称=aa2 Let 单位编号=aa3 Let 年=Val (aa4) Let 月=Val (aa5) SAVE//保存表页 CLOSE//关闭当前报表 3、取各部门数值 //各部门取数 Free All//清空内存变量 Set Switch Off//关闭提示开关 Let aa1=301//赋于期初单位编号(与总帐部门对应) Let aa2=12//赋于月份 WHILE aa1=320 FIND FOR B#2=aa1//寻找C2单位编号表页 IF B#2=aa1 Let J#9=QM(5010101,aa2,,002,2003,aa1)//取账套中工资支出 Let J#22=QM(5010304,aa2,,002,2003,aa1)//取账套中补助支出 Let J#33=QM(5010401,aa2,,002,2003,aa1)//取账套中办公支出 Let J#60=QM(504020101,aa2,,002,2003,aa1)//取账套中项目支出 END Let aa1=aa