审计方法示例图表查看.docVIP

盐厂销售情况审计方法 一、方法代码 FBA/0001 二、方法名称 盐厂销售情况审计方法 三、目标功能 审计目标：检查盐厂执行价格合规性 审计功能：通过对价格合规性的检查，实现审计目标，发挥审计监督作用。 四、审计事项 收入合规性（企业审计-收入） 五、盐厂销售情况审计方法所需数据 序号 数据资料名称 结构化 非结构化 半结构化 1 食盐价格管理办法 √ 2 省公司碘盐表 √ 资料类：食盐价格管理办法 基础表：省公司碘盐表。数据元素：商品名称、规格型号、单价、数量、金额、规定单价。 六、分析步骤 1．盐厂销售情况审计方法的ER模型构建： 实体1：盐厂用盐 实体2：规定用盐 关系1：对比价格 2．盐厂销售情况审计方法的数据模型构建： 实体 关系数据元素 盐厂用盐 名称，规格，单价，数量等 规定用盐 名称，规格，定价等 3．盐厂销售情况审计方法的分析步骤： （1）根据《食盐价格管理办法》有关规定进行价格分析，确定是否存在高于政府定价多收的问题； （2）根据省城的高于定价收入表格，按照规格型号合计超收金额生成分类超收金额表；合计生成总计超收表。 七、流程图 八、方法语言 1.进行价格分析，确定是否存在高于政府定价多收的问题 var SQLstr ,CurQuery,IsEmpty,CurNum; begin SQLstr:=Select [商品名称],[规格型号],[单价],[数量],[金额],[规定单价],(([单价]-[规定单价])*[数量]) as 超收 From [省公司碘盐] WHERE [单价][规定单价];//SQLstr赋值 ShowMsg(生成的SQl 语句为: +SqlStr); //执行查询SQL CreateTempTable(高于定价收入表,SQLstr); CurQuery:=createq(SqlStr,-1); IsEmpty:=qeof(CurQuery); //查询结果集是否为空 if IsEmpty#1 then begin //循环将查询结果放入业务疑点临时库 repeat AddTransRslt(CurQuery,高于定价查询结果); IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1; //将临时库结果集放入疑点库 TransBatch(CurQuery,高于定价查询结果); end else begin ShowMsg(高于定价收入信息查询 没有发现符合条件的记录); end; end. 2.计算高于定价收入金额 var SQLstr ,CurQuery,a,b; begin SQLstr:=Select [规格型号],sum([超收]) as [超收] From [高于定价收入表] group by ([规格型号]);//SQLstr赋值 CreateTempTable(分类超收金额,SQLstr); showmsg(分类统计结果已经输出到新表分类超收金额); showmsg(你需要用图表查看结果么？需要，请输入1); read(a); if a=1 then begin OPutChart(sqlstr,规格型号,超收,clred); end; SQLstr:= Select sum([超收]) as 总计超收 From [高于定价收入表];//赋值 CreateTempTable(总计超收,SQLstr); CurQuery:=createq(SqlStr,-1); b:=QFDValue(CurQuery,总计超收); write(b);//输出总计超支金额 end. 九、适用法规 法规名称：《食盐价格管理办法》 发文文号：中华人民共和国国家发展计划委员会令 第27号第五条 食盐价格实行统一领导、分级管理。国务院价格主管部门负责制定或调整食盐的出厂价格、批发价格；省、自治区、直辖市价格主管部门制定或调整食盐零售价格和小包装费用标准。第十九条 经营者