一、村干部骗取政策性农业保险财政补贴的审计方法 （一）需要的数据 1.良种补贴清单。数据元素：农户代码、姓名、身份证号码、直补卡号、良种补贴面积、补贴标准、补贴金额。 2.村干部工资发放表。数据元素：户主编号、户主姓名、银行账号、村名、组名、村干部姓名、职务、补助金额、村组干部与户主关系。 3.农业保险理赔清单：农户代码、姓名、身份证号码、直补卡号、赔付面积、损失率、补贴金额、家庭地址。 （二）创建审计方法需要的语句 1.查询赔付面积大于良种补贴面积的赔付明细，并生成中间表。 var sql； begin sql：=′select a.*，b.良种补贴面积from农业保险理赔清单a join良种补贴清单bona.农户代码=b.农户代码where（赔付面积-良种补贴面积）1′； CreateTempTable（′伪造损失赔付清单′，sql）； 2.查询村干部骗保明细，并生成疑点表。 var sql，a，bz； begin sql：= select*from伪造损失赔付清单where直补卡号in（select银行账号from村干部工资发放表）and补贴金额＞500′； CreateTempTable（′村干部骗取农业保险明细表′，sql）； a：=CreateQ（′select*from村干部骗取农业保险明细表′，-1）； while qeof（a）＜＞1 do begin AddTransRslt（a，′村干部骗取农业保险明细'）； bz：=qmov（a，l）； TransBatch（a，′幸福县所有村干部骗取农业保险明细'）； 3.统计村干部骗取农业保险总金额，并插入疑点。 var sql，a，bz； begin sql：=′select left（家庭地址，9）as村名，sum（补贴金额）骗保总金额from村干部骗取农业保险明细表group by left（家庭地址，9）′； CreateTempTable（′村干部骗取农业保险总金额′，sql）； a：=CreateQ（′select*from村干部骗取农业保险总金额′，-1）； while qeof（a）＜＞1 do begin AddTransRslt（a，′村干部骗取农业保险总金额'）； bz：=qmov（a，1）； TransBatch（a，′幸福县村干部骗取农业保险总金额'）； 二、承保商或经办人员骗取政策性农业保险补贴的审计方法 （一）需要的数据 1.良种补贴清单。数据元素：农户代码、姓名、身份证号码、直补卡号、良种补贴面积、补贴标准、补贴金额。 2.承保清单。数据元素：农户代码、姓名、身份证号码、直补卡号、可承包面积、农户保费、实际承包面积、农户实际自缴保费。 3.农业保险理赔清单：农户代码、姓名、身份证号码、直补卡号、赔付面积、损失率、补贴金额、家庭地址。 （二）创建审计方法需要的语句 1.查询实际承保面积大于良种补贴面积的承保单，并生成疑点表。 var sql，a，bz； begin sql：=′select a.*，b.良种补贴面积from承保清单a join良种补贴清单b on a.农户代码=b.农户代码where实际承保面积＞（良种补贴面积+1）′； CreateTempTable（′虚假承保清单′，sql）； a：=CreateQ（′select*from虚假承保清单′，-1）； while qeof（a）＜＞1 do begin AddTransRslt（a，′虚假承保单据'）； bz：=qmov（a，1）； TransBatch（a，′幸福县所有的虚假承保单据'）； 2.统计虚假承保总面积和骗取财政补贴总金额，并插入疑点。 var sql，a，bz； begin sql：=′select sum（实际承保面积-良种补贴面积）as虚假承保面积，sum（实际承保面积-良种补贴面积）*12 as虚假承保套取财政补贴资金from虚假承保清单′； CreateTempTable（′套取财政补贴总金额′，sql）； a：=CreateQ（′select*from套取财政补贴总金额′，-1）； while qeof（a）＜＞1 do begin AddTransRslt（a，′套取财政补贴总金额'）； bz：=qmov（a，1）； TransBatch（a，′幸福县农业保险承保商套取财政补贴总金额'）； 3.查询赔付面积大于良种补贴面积的赔付明细，并生成疑点表。 var sql，a，bz； begin sql：=′select a.*，b.良种补贴面积from农业保险理赔清单a join良种补贴清单bona.农户代码=b.农户代码where（赔付面积-良种补贴面积）1′；
