一、确定审计目标与路径
我们首先确定的目标是运用计算机审计方法,审计查处个别探矿权人在其勘查区内“以采代探”,擅自开采问题。
审计的路径为,通过将探矿权数据、采矿权数据与地税部门矿产资源税征收数据相关联,查询出申请了探矿权而无采矿权但同时缴纳了矿产资源税的企业,将其作为疑点进一步核实出“以采代探”的问题。
二、准备审计所需数据信息
“以采代探”的计算机审计方法所需数据资料见下表。
序号 |
数据资料名称 |
结构化 |
非结构化 |
半结构化 |
1 |
资源税纳税人信息表 |
√ |
||
2 |
资源税纳税情况表 |
√ |
||
3 |
采矿权申请登记数据表 |
√ |
||
4 |
采矿权档案数据表 |
√ |
||
5 |
勘查项目登记数据表 |
√ |
||
6 |
勘查项目档案数据表 |
√ |
(二)资源税纳税情况表。数据元素:序号,纳税人识别号,纳税人名称,申报日期,所属期始,所属期止,应纳税额,减免税额,实纳税额,入库日期,行业,税务机关,征收品目等。
(三)采矿权申请登记数据表。数据元素:许可证号,项目档案号,项目类型,申请人,电话,地址,邮编,矿山名称,设计年限,开采主矿种,其他主矿种,共伴生类型,设计规模,规模单位,应缴纳采矿权价款,矿区面积,采矿权使用费,法定代表人,有效期限,有效期始,有效期止,矿权终止时间等。
(四)采矿权档案数据表。数据元素:同采矿权申请登记数据表。
(五)勘查项目登记数据表。数据元素:许可证号,项目档案号,项目类型,项目名称,受理日期,发证日期,填表时间,申请人,勘查单位,勘查矿种,项目性质,勘查阶段,地理位置,申请有效期始,申请有效期止,签发时间,有效期始,有效期止,矿权终止时间,首次设立时间,总面积,探矿权取得方式,变更类型等。
(六)勘查项目档案数据表。数据元素:同勘查项目登记数据表。
三、具体分析步骤
步骤 |
内容 |
1 |
整理资源税纳税数据。 |
1.1 |
对“资源税纳税情况表”进行整理,提取出每一个纳税人的第一次纳税时间和最后一次纳税时间,确定其纳税区间。 |
1.2 |
将1.1的结果与“资源税纳税人信息表”进行关联,查找出这些纳税人的名称。 |
2 |
矿权数据的整理。 |
2.1 |
将“采矿权申请登记数据表”与“采矿权档案数据表”合并,取得一个采矿权的完整变动情况。 |
2.2 |
对2.1结果中的同一个采矿权的多条记录进行整理,取得每一个采矿权的第一次有效期时间起到最后一次有效期的时间止,确定采矿权有效时间区间。 |
2.3 |
将“勘查项目登记数据表”与“勘查项目档案数据表”合并,取得一个探矿权的完整变动情况。 |
2.4 |
对2.3结果中的同一个探矿权的多条记录进行整理,取得每一个探矿权的第一次有效期时间起到最后一次有效期的时间止,确定探矿权有效时间区间。 |
3 |
查询以采代探情况。 |
3.1 |
将1.2步骤结果与2.2步骤结果进行关联,查出缴纳了资源税但纳税期间没有取得采矿权许可证的数据。 |
3.2 |
将3.1步骤的结果与2.4步骤的结果进行关联,查出缴纳了资源税、纳税期间没有取得采矿权许可证、但是期间有探矿权许可证的数据作为结果。 |
五、计算机方法语言
步骤 |
内容 |
1 |
整理资源税纳税数据。 |
1.1 |
var sql; begin sql:='SELECT 纳税人识别号, min(所属期始) as 首次所属期始, MAX(所属期止) as 末次所属期止 ' + 'FROM 资源税纳税情况表 GROUP BY 纳税人识别号'; CreateTempTable('temp1_1',sql); end. |
1.2 |
var sql; begin sql:='select distinct a.纳税人识别号, a.纳税人名称, a.行业, a.税务机关, a.征收品目, ' + 'b.首次所属期始, b.末次所属期止 from 资源税纳税情况表 a ' + 'join temp1_1 b ' + 'on a.纳税人识别号=b.纳税人识别号 ' + 'left join 地税_资源税纳税人信息表 c on a.纳税人识别号=c.纳税人编码'; CreateTempTable('temp1_2',sql); end. |
2 |
矿权数据的整理 |
2.1 |
var sql; begin sql:='select 项目档案号, 申请人, 矿山名称, MIN(有效期始) as "首次有效期始", ' + 'MAX(有效期止) as "末次有效期止" ' + 'from 采矿权_档案数据 group by 项目档案号, 申请人, 矿山名称 union ' + 'select 项目档案号, 申请人, 矿山名称, MIN(有效期始) as "首次有效期始", ' + 'MAX(有效期止) as "末次有效期止" ' + 'from 采矿权_申请登记 group by 项目档案号, 申请人, 矿山名称'; CreateTempTable('temp2_1',sql); end. |
2.2 |
var sql; begin sql:='select 项目档案号, 申请人, 矿山名称, MIN("首次有效期始") as "首次有效期始", ' + 'MAX("末次有效期止") as "末次有效期止" ' + 'from temp2_1'; CreateTempTable('temp2_2',sql); end. |
2.3 |
var sql; begin sql:='select 项目档案号, 申请人, MIN(有效期始) as "首次有效期始", ' + 'MAX(有效期止) as "末次有效期止" ' + 'from 勘查项目档案 group by 项目档案号, 申请人 union ' + 'select 项目档案号, 申请人, MIN(有效期始) as "首次有效期始", ' + 'MAX(有效期止) as "末次有效期止" ' + 'from 勘查项目登记 group by 项目档案号, 申请人'; CreateTempTable('temp2_3',sql); end. |
2.4 |
var sql; begin sql:='select 项目档案号, 申请人, MIN("首次有效期始") as "首次有效期始", ' + 'MAX("末次有效期止") as "末次有效期止" ' + 'from temp2_3'; CreateTempTable('temp2_4',sql); end. |
3 |
查询以采代探情况 |
3.1 |
var sql; begin sql:='select b.* from temp2_2 a join temp1_2 b ' + 'on a.申请人=b.纳税人名称 ' + 'where a.首次有效期始 not between b.首次所属期始 and b.末次所属期止 ' + 'or a.末次有效期止 not between b.首次所属期始 and b.末次所属期止'; CreateTempTable('temp3_1',sql); end. |
3.2 |
var sql; begin sql:='select * from temp3_1 a join temp2_4 b ' + 'on b.申请人=a.纳税人名称 ' + 'where b.首次有效期始 not between a.首次所属期始 and a.末次所属期止 ' + 'or b.末次有效期止 not between a.首次所属期始 and a.末次所属期止'; CreateTempTable('以采代探企业信息',sql); end. |
【关闭】 【打印】 |