一、概念

《中华人民共和国政府采购法》要求各级政府、各部门、各单位的支出必须按照政府采购程序执行。政府采购程序包括下列主要步骤：编制政府采购预算，汇编政府采购计划，确定并执行采购方式，订立及履行采购合同，验收，结算等。通过时间一致性分析，审查政府采购程序履行情况。

二、审计目标

审核履行政府采购情况。

三、所需数据

履行政府采购程序审查审计方法所需数据资料见表。

履行政府采购程序审查审计方法所需数据中的“记账凭证表”属于中央部门预算执行审计数据规划的范畴，其数据规划版本号为第7号（参照现行中央部门预算执行联网审计系统），“政府采购合同表”为非规划数据，需根据被审计单位提供的政府采购合同等采购业务文书手工录入生成。

表6-1履行政府采购程序审查审计方法所需数据资料

（1）基础表：记账凭证表(AB51/0004)。数据元素：会计科目名称、记账凭证摘要、记账凭证日期、借方发生额、会计科目编号等。

（2）基础表：政府采购合同表。数据元素：合同号（文本格式）、合同金额（数字格式）、报账时间1（日期格式）、已支付金额1（数字格式）、报账时间2（日期格式）、已支付金额2（数字格式）、采购物品（文本格式）、型号（文本格式）、采购数量（数字格式）等。

四、分析步骤

（1）生成“采购商品表”。从“记账凭证表”中筛选出“办公设备购置”和“信息网络建设”科目的支出记录，生成“采购商品表”。

（2）整理“采购商品表”。将表中商品按政府采购目录分类，如摘要为“计算机”、“电脑”的归为“计算机”类。

（3）生成“履行政府采购程序业务表”。审查采购商品是否履行政府采购程序，将“政府采购合同表”与“采购商品表”连接，以采购商品报账时间和作账时间一致（报账时间就应作账）等为条件，生成“履行政府采购程序业务表”（说明：报账时间1、报账时间2是为考虑可能分期付款的情况）。

（4）生成“未履行政府采购程序业务表”。审查采购商品是否履行政府采购程序，将“政府采购合同表”与“采购商品表”连接，不符合采购商品报账时间和作账时间一致的判定为未履行政府采购程序，生成“未履行政府采购程序业务表”（注：报账时间1、报账时间2是为考虑可能分期付款的情况）。图6-1履行政府采购程序审计流程

五、计算机语言

（1）生成“采购商品表”的审计方法语言。

var SQLstr;

begin

SQLstr:='Select会计科目名称AS采购类别,记账凭证摘要,记账凭证日期,借方发生额AS金额From记账凭证表Where会计科目编号like "507010401%"or会计科目编号like"507010403%"';

//生成采购商品表

CreateTempTable('采购商品表',SQLstr); end.（2）整理“采购商品表”的审计方法语言。begin

ExecuteUpdate('update采购商品表set采购类别="计算机"where记账凭证摘要like"%计算机%"or摘要like"%电脑%"');

ExecuteUpdate('update采购商品表set采购类别="软件"where记账凭证摘要like"%软件%"');

ExecuteUpdate('update采购商品表set采购类别="服务器"where记账凭证摘要like"%服务器%"');

ExecuteUpdate('update采购商品表set采购类别="交换机"where记账凭证摘要like"%交换机%"');

ExecuteUpdate('update采购商品表set采购类别="路由器"where记账凭证摘要like"%路由器%"');

ExecuteUpdate('update采购商品表set采购类别="复印机"where记账凭证摘要like"%复印机%"');

ExecuteUpdate('update采购商品表set采购类别="打印机"where记账凭证摘要like"%打印机%"');

ExecuteUpdate('update采购商品表set采购类别="电话机"where记账凭证摘要like"%电话机%"');

ExecuteUpdate('update采购商品表set采购类别="扫描仪"where记账凭证摘要like"%扫描仪%"');

ExecuteUpdate('update采购商品表set采购类别="投影机"where记账凭证摘要like"%投影机%"');

ExecuteUpdate('update采购商品表set采购类别="碎纸机"where记账凭证摘要like"%碎纸机%"');

ExecuteUpdate('update采购商品表set采购类别="照相机"where记账凭证摘要like"%照相机%"');

ExecuteUpdate('update采购商品表set采购类别="摄像机"where记账凭证摘要like"%摄像机%"');

ExecuteUpdate('update采购商品表set采购类别="电视机"where记账凭证摘要like"%电视机%"');

ExecuteUpdate('update采购商品表set采购类别="电冰箱"where记账凭证摘要like"%电冰箱%"');

ExecuteUpdate('update采购商品表set采购类别="复印纸"where记账凭证摘要like"%复印纸%"');

ExecuteUpdate('update采购商品表set采购类别="移动存储"where记账凭证摘要like"%移动%"or记账凭证摘要like"%优盘%"or记账凭证摘要like"%U盘%"');

end.

（3）生成“履行政府采购程序业务表”的审计方法语言。

var SQLstr;

begin

SQLstr:='select a.采购类别,b.合同号,b.合同金额,a.记账凭证摘要,a.记账凭证日期AS入账时间,a.金额AS付款金额,b.报账时间1,b.已支付金额1,b.报账时间2,b.已支付金额2 from采购商品表a inner join政府采购合同表b on a.采购类别=b.采购物品AND(a.记账凭证日期=b.报账时间1 or a.记账凭证日期=b.报账时间2)';

//生成履行政府采购程序业务表

CreateTempTable('履行政府采购程序业务表',SQLstr); End.

（4）生成“未履行政府采购程序业务表”的审计方法语言。

var SQLstr;

begin

SQLstr:='select a.采购类别,a.记账凭证摘要,a.记账凭证日期AS入账时间,a.金额AS付款金额from采购商品表a inner join政府采购合同表b on a.采购类别=b.采购物品AND a.记账凭证日期<>b.报账时间1 and a.记账凭证日期<>b.报账时间2';

//生成未履行政府采购程序业务表

CreateTempTable('未履行政府采购程序业务表',SQLstr);

end.

六、延伸建议

对于未履行政府采购程序的情况，向采购办了解情况，确定原因。

参考文献

《审计署关于印发中央部门预算执行计算机审计方法体系——计算机审计实务公告第22号的通知》。