rsornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ OldWeight=Cast ((select weight from Fvcountry Where ID =ID) As Char)Weight=Cast ((select sum (Category) from His_customer where Fvcountry=(Select FvcountryNM FROM Fvcountry Where ID =ID))/(select count (*) from His_customer where Fvcountry=(Select FvcountryNM FROM Fvcountry Where ID =ID)) As Char) ((@ Weight!=null ) and (OldWeight!=null)) @ MidWeight=Cast (ROUND (((ABS (Weight) + ABS (OldWeight))/2), 0) As Char)OldWeight=NULLFvcountry Set Weight =Weight Where ID=@ ID @ Weight=NULLFvcountry Set Weight =OldWeight Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
Процедура перерахунку вагових коефіцієнтів, пов'язаних зі статтю
Виконуваний код процедури описаний у файлі dbo.update_gender
CREATE PROCEDURE dbo.update_gender@cursor CURSORc CURSOR FORID FROM Gender @ ID int @ Weight VarChar (20)OldWeight VarChar (20)MidWeight VarChar (20)cursor=c @ Weight=null @ OldWeight=null @ cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ OldWeight=Cast ((select weight from Gender Where ID =ID) As Char)Weight=Cast ((select sum (Category) from His_customer where Gender=(Select GenderNM FROM Gender Where ID =ID))/(select count (*) from His_customer where Gender=(Select GenderNM FROM Gender Where ID =ID)) As Char) ((@ Weight!=null ) and (OldWeight!=null)) @ MidWeight=Cast (ROUND (((ABS (Weight) + ABS (OldWeight))/2), 0) As Char)OldWeight=NULLGender Set Weight =Weight Where ID=@ ID @ Weight=NULLGender Set Weight =OldWeight Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
Процедура перерахунку вагових коефіцієнтів, пов'язаних з регіоном
Виконуваний код процедури описаний у файлі dbo.update_region
CREATE PROCEDURE dbo.update_region@cursor CURSORc CURSOR FORID FROM Region @ ID int @ Weight VarChar (20)OldWeight VarChar (20)MidWeight VarChar (20)cursor=c @ Weight=null @ OldWeight=null @ cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ OldWeight=Cast ((select weight from Region Where ID =ID) As Char)Weight=Cast ((select sum (Category) from His_customer where Fregion=(Select RegionNM FROM Region Where ID =ID))/(select count (*) from His_customer where Fregion=(Select RegionNM FROM Region Where ID =ID)) As Char) ((@ Weight!=null ) and (OldWeight!=null)) @ MidWeight=Cast (ROUND (((ABS (Weight) + ABS (OldWeight))/2), 0) As Char)OldWeight=NULLRegion Set Weight =Weight Where ID=@ ID @ Weight=NULLRegion Set Weight =OldWeight Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
Процедура прийняття рішення про видачі кредиту
Виконуваний код процедури описаний у файлі dbo.update_main
CREATE PROCEDURE dbo.update_main As @ cursor CURSORc CURSOR FORID FROM Request1 where Offer=null @ ID int @ MidWeight VarChar (20)Ftime VarChar (20)WeightFtime VarChar (20)Ident VarChar ( 20)WeightIdent VarChar (20)Wtermpres VarChar (20)WeightWtermpres VarChar (20)Wtermlast VarChar (20)WeightWtermlast VarChar (20)Wpaym VarChar (20)WeightWpaym VarChar (20)Crsum VarChar (20) WeightCrsum VarChar (20)Region VarChar (20)Workform VarChar (20)Fvcountry VarChar (20)Ayear VarChar (20)Gender VarChar (20)Ftype VarChar (20)Fampos VarChar (20)Education VarChar (20)Children VarChar (20)Comptype VarChar (20)Compamount VarChar (20)Automob VarChar (20)Travel VarChar (20)Commitment VarChar (20)Debtloan VarChar (20)cursor=c cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ Ftime=Cast ((select Ftime from Request1 Where ID =ID) As Char) (@ Ftime lt;=12)WeightFtime=6 (Ftime gt; 12) AND (Ftime lt; 60)WeightFtime=7 (Ftime gt;=60)WeightFtime=9 @ Ident=Cast ((select Add_ident from Request1 Where ID =ID) As Char) (@ Ident =1)WeightIdent=8 @ WeightIdent=7 @ Wtermpres=Cast ((select Wtermpres from Request1 Where ID =ID) As Char) (@ Wtermpres lt;=12)WeightWtermpres=6 (Wtermpres gt; 12) AND (Wtermpres lt; 60)WeightWtermpres=8 (Wtermpres gt;=60)WeightWtermpres=9 @ Wtermlast=Cast ((select Wtermlast from Request1 Where ID =ID) As Char) (@ Wtermlast lt; =12)WeightWtermlast=7 (Wtermlast gt; 12) AND (Wtermlast lt; 60)WeightWtermlast=8 (Wtermlast gt;=60)WeightWtermlast=9 @ Wpaym=Cast ((select Wpaym from Request1 Where ID =ID) As Char) (@ Wpaym lt;=30000)WeightWpaym=4 (Wpaym gt; 30000) AND (Wpaym lt; 100000)WeightWpaym=7 (Wpaym gt;=100000)WeightWpaym=9 Crsum=Cast ((select Crsum from Request1 Where ID =ID) As Char) (@ Crsum lt;=50000)WeightCrsum=9 (Crsum gt; 50000) AND (Crsum lt; 500000)WeightCrsum=7 (Crsum gt;=500000)WeightCrsum=5 @ Region=Cast ((select Weight from Region Where ID IN (SELECT RegionID from Request1 Where ID =ID)) As Char)Workform=Cast ((select Weight from Workform Where ID IN (SELECT WorkformID from Request1 Where ID =ID)) As Char)Fvcountry=Cast ((select Weight from Fvcountry Where ID IN (SELECT FvcountryID from Request1 Where I...
