【文章內(nèi)容簡介】 民直接補(bǔ)貼和農(nóng)資綜合直補(bǔ)工作的實(shí)施意見》的通知（鄂財(cái)商發(fā)[2011]9號(hào)）第一條“（一）??將2011年糧食直補(bǔ)和農(nóng)資綜合直補(bǔ)資金及時(shí)全額落實(shí)到種糧農(nóng)民手中?！?、《湖北省農(nóng)作物良種補(bǔ)貼資金管理實(shí)施細(xì)則》（鄂財(cái)農(nóng)發(fā)［2010］14號(hào)）第八條“良種補(bǔ)貼資金的補(bǔ)貼對(duì)象是在農(nóng)業(yè)生產(chǎn)中使用農(nóng)作物良種的農(nóng)民?！?、《湖北省農(nóng)業(yè)廳、湖北省財(cái)政廳關(guān)于印發(fā)2007年油菜良種補(bǔ)貼項(xiàng)目實(shí)施方案的通知》（鄂農(nóng)種發(fā)〔2007〕124號(hào)）第一條“對(duì)農(nóng)民種植油菜實(shí)行良種補(bǔ)貼??”的規(guī)定。所有補(bǔ)貼對(duì)象必須是農(nóng)民，通過通過發(fā)放補(bǔ)貼對(duì)象與公安人口管理信息核對(duì)，查詢發(fā)放補(bǔ)貼對(duì)象在公安人口管理信息中是否存在戶口性質(zhì)為非農(nóng)業(yè)的情況，核實(shí)是否存在擴(kuò)大發(fā)放范圍發(fā)放補(bǔ)貼情況。步驟一、查詢糧食兩補(bǔ)人員為非農(nóng)業(yè)戶口人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[姓名],a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組],a.[土地承包面積合計(jì)],a.[補(bǔ)貼2011年面積],a.[兩補(bǔ)金額2011年合計(jì)]as [補(bǔ)貼金額],b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年糧食兩補(bǔ)表] a join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002]where like 39。39。非農(nóng)業(yè)39。39。39。CreateTempTable(39。糧食兩補(bǔ)人員為非農(nóng)業(yè)戶口人員39。,SqlStr)。addtable(39。糧食兩補(bǔ)人員為非農(nóng)業(yè)戶口人員39。)二、查詢良種補(bǔ)貼人員為非農(nóng)戶口人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。sELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)],a.[姓名], a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組], a.[土地承包面積合計(jì)], a.[種植2010年面積] as [補(bǔ)貼2011年面積] , a.[良種補(bǔ)貼2011年金額]as [補(bǔ)貼金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年良種補(bǔ)貼表] a join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002] where like 39。39。非農(nóng)業(yè)39。39。39。CreateTempTable(39。良種補(bǔ)貼人員為非農(nóng)戶口人員39。,SqlStr)。addtable(39。良種補(bǔ)貼人員為非農(nóng)戶口人員39。)三、查詢油菜補(bǔ)貼為非農(nóng)戶口人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[村組],a.[戶主姓名]as [姓名], a.[身份證號(hào)碼] as [身份證號(hào)], a.[存折號(hào)碼] as [存折帳號(hào)],a.[土地承包面積合計(jì)], a.[油菜種植面積]as [補(bǔ)貼2011年面積],a.[油菜良種補(bǔ)貼2010年金額]as [補(bǔ)貼金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2010年油菜良種補(bǔ)貼表] a join [公安201109人口信息表] b on a.[身份證號(hào)碼]=b.[AAC002] where like 39。39。非農(nóng)業(yè)39。39。39。CreateTempTable(39。油菜良種補(bǔ)貼為非農(nóng)戶口人員39。,SqlStr)。addtable(39。油菜良種補(bǔ)貼為非農(nóng)戶口人員39。)四、將前三個(gè)步驟得到的結(jié)果3張表合并匯總查詢疑點(diǎn) ，var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[姓名],a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組],a.[土地承包面積合計(jì)],a.[補(bǔ)貼2011年面積],a.[兩補(bǔ)金額2011年合計(jì)]as [補(bǔ)貼金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年糧食兩補(bǔ)表] a join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002] where like 39。39。非農(nóng)業(yè)39。39。 union SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)],a.[姓名], a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組] , a.[土地承包面積合計(jì)], a.[種植2010年面積] as[補(bǔ)貼2011年面積] , a.[良種補(bǔ)貼2011年金額]as [補(bǔ)貼金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年良種補(bǔ)貼表] a join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002] where like 39。39。非農(nóng)業(yè)39。39。 union SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[村組],a.[戶主姓名]as [姓名], a.[身份證號(hào)碼] as [身份證號(hào)], a.[存折號(hào)碼] as [存折帳號(hào)],a.[土地承包面積合計(jì)], a.[油菜種植面積]as [補(bǔ)貼2011年面積],a.[油菜良種補(bǔ)貼2010年金額]as [補(bǔ)貼金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2010年油菜良種補(bǔ)貼表] a join [公安201109人口信息表] b on a.[身份證號(hào)碼]=b.[AAC002] where like 39。39。非農(nóng)業(yè)39。39。39。CreateTempTable(39。惠農(nóng)種糧耕地補(bǔ)貼資金擴(kuò)大范圍表39。,SqlStr)。addtable(39。惠農(nóng)種糧耕地補(bǔ)貼資金擴(kuò)大范圍表39。)五、插入疑點(diǎn)表Var SqlStr,CurQuery,BZ。//定義變量 Begin SqlStr:=39。Select * From 惠農(nóng)種糧耕地補(bǔ)貼資金擴(kuò)大范圍表39。CurQuery:=CreateQ(SqlStr,1)。BZ:=qeof(CurQuery)。while BZ1 do begin AddTransRslt(CurQuery,39?；蒉r(nóng)種糧耕地補(bǔ)貼資金擴(kuò)大范圍表39。)。BZ:=Qmov(CurQuery,1)。BZ:=Qeof(CurQuery)。end。TransBatch(CurQuery,39?；蒉r(nóng)種糧耕地補(bǔ)貼資金擴(kuò)大范圍表39。)。．審計(jì)惠農(nóng)種糧耕地補(bǔ)貼（糧食兩補(bǔ)、良種補(bǔ)貼、油菜補(bǔ)貼）發(fā)放情況，看補(bǔ)貼對(duì)象身份證號(hào)是否與公安人口管理信息相符、是否存在管理不規(guī)范的情況。審計(jì)思路：根據(jù)省財(cái)政廳、省農(nóng)業(yè)廳、省農(nóng)村綜合改革領(lǐng)導(dǎo)小組辦公室關(guān)于印發(fā)《2011年對(duì)種糧農(nóng)民直接補(bǔ)貼和農(nóng)資綜合直補(bǔ)工作的實(shí)施意見》的通知（鄂財(cái)商發(fā)[2011]9號(hào)）第一條“??將2011年糧食直補(bǔ)和農(nóng)資綜合直補(bǔ)資金及時(shí)全額落實(shí)到種糧農(nóng)民手中?！?、《湖北省農(nóng)作物良種補(bǔ)貼資金管理實(shí)施細(xì)則》（鄂財(cái)農(nóng)發(fā)［2010］14號(hào)）第八條“良種補(bǔ)貼資金的補(bǔ)貼對(duì)象是在農(nóng)業(yè)生產(chǎn)中使用農(nóng)作物良種的農(nóng)民?！薄ⅰ逗笔∞r(nóng)業(yè)廳、湖北省財(cái)政廳關(guān)于印發(fā)2007年油菜良種補(bǔ)貼項(xiàng)目實(shí)施方案的通知》（鄂農(nóng)種發(fā)〔2007〕124號(hào)）第一條“對(duì)農(nóng)民種植油菜實(shí)行良種補(bǔ)貼??”的規(guī)定。通過惠農(nóng)種糧耕地補(bǔ)貼發(fā)放人員與公安人口管理信息核對(duì)，查詢是否存在身份證號(hào)不正確未按規(guī)定進(jìn)行統(tǒng)計(jì)規(guī)范管理的情況。步驟一、糧食兩補(bǔ)身份證不正確人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[姓名],a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組],a.[土地承包面積合計(jì)],a.[補(bǔ)貼2011年面積],a.[兩補(bǔ)金額2011年合計(jì)],b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年糧食兩補(bǔ)表] a left join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002] where b.[AAC002] is null39。CreateTempTable(39。糧食兩補(bǔ)身份證不正確人員39。,SqlStr)。addtable(39。糧食兩補(bǔ)身份證不正確人員39。)二、良種補(bǔ)貼身份證不正確人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)],a.[姓名], a.[身份證號(hào)],a.[存折帳號(hào)],a.[村組], a.[土地承包面積合計(jì)], a.[種植2010年面積] , a.[良種補(bǔ)貼2011年金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2011年良種補(bǔ)貼表] a left join [公安201109人口信息表] b on a.[身份證號(hào)]=b.[AAC002] where b.[AAC002] is null39。CreateTempTable(39。良種補(bǔ)貼身份證不正確人員39。,SqlStr)。addtable(39。良種補(bǔ)貼身份證不正確人員39。)三、油菜補(bǔ)貼身份證不正確人員var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[村組],a.[戶主姓名],a.[身份證號(hào)碼] , a.[存折號(hào)碼] ,a.[土地承包面積合計(jì)], a.[油菜種植面積],a.[油菜良種補(bǔ)貼2010年金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM [2010年油菜良種補(bǔ)貼表] a left join [公安201109人口信息表] b on a.[身份證號(hào)碼]=b.[AAC002] where b.[AAC002] is null39。CreateTempTable(39。油菜補(bǔ)貼身份證不正確人員39。,SqlStr)。addtable(39。油菜補(bǔ)貼身份證不正確人員39。)四、插入步驟一疑點(diǎn)表var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。SELECT a.[資金所屬],a.[鄉(xiāng)鎮(zhèn)], a.[村組],a.[戶主姓名],a.[身份證號(hào)碼] , a.[存折號(hào)碼] ,a.[土地承包面積合計(jì)], a.[油菜種植面積],a.[油菜良種補(bǔ)貼2010年金額] ,b.[AAC002],b.[AAC003], b.[HKXZ],b.[HJSZD] FROM[2010年油菜良種補(bǔ)貼表] a left join [公安201109人口信息表] b on a.[身份證號(hào)碼]=b.[AAC002] where b.[AAC002] is null39。CreateTempTable(39。油菜補(bǔ)貼身份證不正確人員39。,SqlStr)。addtable(39。油菜補(bǔ)貼身份證不正確人員39。)五、插入步驟二疑點(diǎn)表Var SqlStr,CurQuery,BZ。//定義變量 Begin SqlStr:=39。 Select * From 良種補(bǔ)貼身份證不正確人員39。CurQuery:=CreateQ(SqlStr,1)。BZ:=qeof(CurQuery)。while BZ1 do begin AddTransRslt(CurQuery,39。良種補(bǔ)貼身份證不正確人員39。)。BZ:=Qmov(CurQuery,1)。BZ:=Qeof(CurQuery)。end。TransBatch(CurQuery,39。良種補(bǔ)貼身份證不正確人員39。)。六、插入步驟三疑點(diǎn)表Var SqlStr,CurQuery,BZ。//定義變量 Begin SqlStr:=39。Select * From 油菜補(bǔ)貼身份證不正確人員39。CurQuery:=CreateQ(SqlStr,1)。BZ:=qeof(CurQuery)。while BZ1 do begin AddTransRslt(CurQuery,39。油菜補(bǔ)貼身份證不正確人員39。)。BZ:=Qmov(CurQuery,1)。BZ:=Qeof(CurQuery)。end。TransBatch(CurQuery,39。油菜補(bǔ)貼身份證不正確人員39。)。．審計(jì)惠農(nóng)種糧耕地補(bǔ)貼（糧食兩補(bǔ)、良種補(bǔ)貼）發(fā)放情況，看是否存在種糧耕地補(bǔ)貼資金不同補(bǔ)貼種類補(bǔ)貼面積應(yīng)一致而執(zhí)行不符的情況。審計(jì)思路：根據(jù)省財(cái)政廳 省農(nóng)業(yè)廳 省農(nóng)村綜合改革領(lǐng)導(dǎo)小組辦公室關(guān)于印發(fā)《2011年對(duì)種糧農(nóng)民直接補(bǔ)貼和農(nóng)資綜合直補(bǔ)工作的實(shí)施意見》的通知（鄂財(cái)商發(fā)[2011]9號(hào)）“各縣（市、區(qū)）根據(jù)全縣（市、區(qū)）統(tǒng)一的補(bǔ)貼標(biāo)準(zhǔn)和種糧農(nóng)戶2010年糧食實(shí)際種植面積，將糧食直補(bǔ)和農(nóng)資綜合直補(bǔ)資金于3月31日前一次性兌現(xiàn)到農(nóng)戶?！奔啊逗笔∞r(nóng)作物良種補(bǔ)貼資金管理實(shí)施細(xì)則》（鄂財(cái)農(nóng)發(fā)［2010］14號(hào)）第十一條“??各市、州、縣（市）財(cái)政、農(nóng)業(yè)、統(tǒng)計(jì)部門對(duì)當(dāng)年享受補(bǔ)貼的農(nóng)作物種植面積應(yīng)認(rèn)真核實(shí)，達(dá)成一致??”的規(guī)定。根據(jù)鄉(xiāng)鎮(zhèn)財(cái)政所提供的2011年糧食兩補(bǔ)和良種補(bǔ)貼發(fā)放花名冊(cè)核對(duì)發(fā)現(xiàn)，由于兩項(xiàng)補(bǔ)貼到戶面積不一致，導(dǎo)致可能存在人為調(diào)整糧食兩補(bǔ)補(bǔ)貼面積和良種補(bǔ)貼面積的情況。通過糧食兩補(bǔ)補(bǔ)貼面積與良種補(bǔ)貼面積核對(duì)，找出糧食兩補(bǔ)面積與良種補(bǔ)貼面積不一致的農(nóng)戶。步驟一、糧食兩補(bǔ)面積與良種補(bǔ)貼面積不符查詢var SqlStr。//定義變量 Begin //Sql語句賦值給變量SqlStr:=39。Select a.[鄉(xiāng)鎮(zhèn)] 兩補(bǔ)鄉(xiāng)鎮(zhèn), a.[姓名] 兩補(bǔ)姓名, a.[身份證號(hào)] 兩補(bǔ)身份證, a.[開戶銀行] 兩補(bǔ)開戶銀行,a.[存折帳號(hào)] 兩補(bǔ)存折號(hào),a.[村組] 兩補(bǔ)村組,a.[土地承包面積合計(jì)] 兩補(bǔ)土地承包面積合計(jì),a.[補(bǔ)貼2011年面積] ,a.[糧食直補(bǔ)標(biāo)準(zhǔn)],a.[糧食直補(bǔ)金額],a.[綜合直補(bǔ)標(biāo)準(zhǔn)],a.[綜合直補(bǔ)金額],a.[兩補(bǔ)金額2011年合計(jì)],b.[鄉(xiāng)鎮(zhèn)] ,b.[姓名] , b.[身份證號(hào)] ,b.[開戶銀行] ,b.[存