IsEmpty:=qeof(CurQuery); until IsEmpty=1;
//将临时库结果集放入疑点库
TransBatch(CurQuery,'业务疑点查询结果'); End; end.
b. 项目支出预算的可行性检查 //定义变量
var CurQuery,IsEmpty,CurNum,SqlStr; begin //显示查询SQL
SqlStr:=' SELECT A.[预算年份],A.[预算阶段],A.[预算单位名称],A.[预算项目名称],A.[预算科目名称],A.[预算项目申请理由及主要内容],A.[预算项目总体目标],A.[预算项目组织实施条件],A.[预算项目绩效评价结论],A.[预算项目可行性报告内容],B.[预算项目目标设臵的合理性],B.[预算项目组织实施能力与条件],B.[预算项目预期社会经济效益],B.[预算项目资金筹措情况],B.[预算项目支出的合理性],B.[预算项目风险与不确定因素],B.[预算项目评审意见],B.[预算项目评审建议],C.[预算项目总投资],A.[预算项目代码],A.[预算科目代码],A.[预算单位代码] FROM [预算项
48
目其他信息视图] AS A LEFT JOIN [预算项目评审信息视图] AS B ON A.[预算年份]=B.[预算年份] AND A.[预算阶段]=B.[预算阶段]
AND A.[预算项目代码]=B.[预算项目代码] AND A.[预算科目代码]=B.[预算科目代码] AND A.[预算单位代码]=B.[预算单位代码] LEFT JOIN [预算项目总体投资情况视图] AS C ON A.[预算年份]=C.[预算年份] AND A.[预算阶段]=C.[预算阶段] AND A.[预算项目代码]=C.[预算项目代码] AND A.[预算科目代码]=C.[预算科目代码] AND A.[预算单位代码]=C.[预算单位代码] WHERE A.[预算年份] =''2007'' AND A.[预算阶段] = ''上''';
ShowMsg('生成的SQl 语句为: '+SqlStr); //执行查询SQL
CurQuery:=createq(SqlStr,-1); //查询结果集是否为空 IsEmpty:=qeof(CurQuery); if IsEmpty#1 then begin
//循环将查询结果放入业务疑点临时库 Repeat
AddTransRslt(CurQuery,'预算项目其他信息、预算项目评
49
审信息以及预算项目总体投资情况表的相关信息进行对比，检查预算项目执行的可行性');
IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1;
//将临时库结果集放入疑点库
TransBatch(CurQuery,'业务疑点查询结果'); End; end.
(5)检查部门项目支出预算草案编制程序的及时性。 //定义变量
var CurQuery,IsEmpty,CurNum,SqlStr; begin //显示查询SQL
SqlStr:='SELECT [预算单位代码],[预算项目代码],[预算项目名称],[预算项目批复日期],[预算项目负责人],[预算项目类型],[预算项目类别],[预算项目属性],[预算项目起始年份] FROM [预算项目基本信息视图] WHERE [预算年份] = ''2007'' AND [预算阶段] = ''上''';
ShowMsg('生成的SQl 语句为: '+SqlStr); //执行查询SQL
50
CurQuery:=createq(SqlStr,-1); //查询结果集是否为空 IsEmpty:=qeof(CurQuery); if IsEmpty#1 then begin
//循环将查询结果放入业务疑点临时库 Repeat
AddTransRslt(CurQuery,'预算项目基本信息表中的预算项目批复日期等信息，与财政部门的批复时间比对是否超过15天，检查项目支出预算批复及时性');
IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1;
//将临时库结果集放入疑点库
TransBatch(CurQuery,'业务疑点查询结果'); End; end.
(6) 检查部门项目支出预算草案编制程序的完整性。 a.项目支出预算批复的完整性检查 //定义变量
51
var CurQuery,IsEmpty,CurNum,SqlStr; begin //显示查询SQL
SqlStr:='SELECT [预算年份],[预算阶段],[预算单位名称],[预算科目名称],[预算项目名称],[预算项目总投资],[预算项目总投资财政拨款],[预算项目总投资预算外资金],[预算项目总投资其他资金],[预算项目总投资专项建设资金],[预算项目总投资银行贷款],[预算科目代码],[预算项目代码],[预算单位代码] FROM [预算项目总体投资情况视图] WHERE [预算年份] = ''2007'' AND [预算阶段] = ''一上''';
ShowMsg('生成的SQl 语句为: '+SqlStr); //执行查询SQL
CurQuery:=createq(SqlStr,-1); //查询结果集是否为空 IsEmpty:=qeof(CurQuery); if IsEmpty#1 then begin
//循环将查询结果放入业务疑点临时库 Repeat
AddTransRslt(CurQuery,'进一步检查项目支出预算批复的完整性');
52