while pd<>1 do
　　begin
　　AddTransRslt(cx,'工会经费和筹备金同时不为零的记录');//将查询结果插入未落实疑点临时表中
　　pd:=qmov(cx,1);
　　pd:=qeof(cx);
　　end;
　　transbatch(cx,'同时缴纳工会经费和筹备金的记录');//把业务数据疑点从临时表写入正式表
　　 End.
　　
　　（四）审查各税务所的征收管理制度可行性。
　　通过检查两年度地税代征工会经费汇总表中各税务所征收工会经费年度计划完成情况，筛选出年度计划完成较差的几个税务所，由税务所延伸审计到所辖企业，对所辖企业的工会费缴纳情况进行详细的摸底调查，旨在找出企业未及时足额的缴纳工会费是否因税务所的征收管理制度存在弊端，即再由企业缴纳工会费现状将问题反馈到税务所。
　　脚本语言为：
　　var sqlstr,cx;
　　begin
　　//查询出年度计划完成不足百分之八十的税务所所辖企业少缴会费金额和未足额上缴会费的企业数量
　　sqlstr:='select substring(主管机关,7,2) as 税务所,(sum(本期应缴)-sum(本期已缴)) as 所辖企业应缴未缴会费金额,count(*) as 少缴会费的所辖企业数量  from 两年企业缴纳工会经费情况明细表  where substring(主管机关,7,2) in ( select substring(税务机关,9,2) from 两年度地税代征工会经费汇总表 where 年计划完成情况<80)  and 本期应缴>本期已缴  group by substring(主管机关,7,2)';
　　cx:=createq(sqlstr,-1);
　　oputchart(cx,'税务所','所辖企业应缴未缴会费金额,clblue;少缴会费的所辖企业数量,clred');//图表列示年度完成计划最差的几个税务所及所辖企业少缴会费金额和未足额上缴会费的企业数量
　　 end.
　　
　　（五）审查税务部门代征手续规范性。
　　按照国家税务总局《关于加强税务机关代收费项目管理的通知》的要求，工会费的收取统一使用“工会经费收入专用收据”，企业缴纳工会经费由所属税务所代为征收，实行新的工会会计制度，地税部门实行代征开票，开具的票据为全国总工会统一印发的“工会经费收入专用收据”，市总工会通过专用票据对企业和地税部门实行双重监管。查询2010年和2011年地税部门征收企业工会经费时有无未开票情况，以此审查地税部门代征环节的手续规范性。
　　脚本语言为：
　　var sqlstr,cx,pd;
　　begin
　　sqlstr:='select 单位名称,主管机关,是否成立工会,缴款期限,缴费日期,本期应缴,实缴筹备金,本期已缴,状态 from 两年企业缴纳工会经费情况明细表 where 状态 not like ''%已打票%'''; //查询两年企业缴纳工会经费情况明细表中未开具票据的情况
　　cx:=createq(sqlstr,-1);
　　pd:=qeof(cx);
　　while pd<>1  do
　　begin
　　AddTransRslt(cx,'缴纳工会经费未开具票据的记录');//将查询结果插入未落实疑点临时表中
　　pd:=qmov(cx,1);
　　pd:=qeof(cx);
　　end;
　　transbatch(cx,'缴纳工会经费未开具票据的记录');//把业务数据疑点从临时表写入正式表
　　 End.
　　
　　（六）审查地税部门有无滞留工会经费。
　　地税部门给企业开票代工会征收工会经费，企业根据开具的票据金额，将工会经费上缴到所属地税分局的银行户，再由地税部门将工会经费上缴到工会银行集中大户，查询地税部门开票代征工会经费时，有无滞留缴纳资金的情况发生。
　　脚本语言为：
　　var sqlstr,cx,qz,jg;
　　begin
　　//分别统计企业缴纳工会经费明细表中2010年和2011年各税务所所辖企业所缴纳工会经费金额
　　sqlstr:='select ''2010'' as 年度,substring(主管机关,7,2) as 地税代征部门,sum(本期已缴) as  本年度收取工会经费金额   from  企业上缴工会经费明细表2010  group by substring(主管机关,7,2)  union   select ''2011'' as 年度,substring(主管机关,7,2) as 地税代征部门,sum(本期已缴) as  本年度收取工会经费金额  from  企业上缴工会经费明细表2011 group by substring(主管机关,7,2)';