D =ID)) As Char)Ayear=Cast ((select Weight from Ayear Where AyearNM IN (SELECT Year (Bdate) from Request1 Where ID =ID)) As Char)Gender=Cast ((select Weight from Gender Where ID IN (SELECT GenderID from Request1 Where ID =ID )) As Char)Ftype=Cast ((select Weight from Ftype Where ID IN (SELECT FtypeID from Request1 Where ID =ID)) As Char)Fampos=Cast ((select Weight from Fampos Where ID IN (SELECT FamposID from Request1 Where ID =ID)) As Char)Education=Cast ((select Weight from Education Where ID IN (SELECT EducationID from Request1 Where ID =ID)) As Char)Children=Cast ((select Weight from Children Where ID IN (SELECT ChildrenID from Request1 Where ID =ID)) As Char)Comptype=Cast ((select Weight from Comptype Where ID IN (SELECT ComptypeID from Request1 Where ID =ID)) As Char)Compamount=Cast ( (select Weight from Compamount Where ID IN (SELECT CompamountID from Request1 Where ID =ID)) As Char)Automob=Cast ((select Weight from Automob Where ID IN (SELECT AutomobID from Request1 Where ID =ID)) As Char )Travel=Cast ((select Weight from Travel Where ID IN (SELECT TravelID from Request1 Where ID =ID)) As Char)Commitment=Cast ((select Weight from Commitment Where ID IN (SELECT CommitmentID from Request1 Where ID= ID)) As Char)Debtloan=Cast ((select Weight from Debtloan Where ID IN (SELECT DebtloanID from Request1 Where ID =ID)) As Char)MidWeight=Cast (ROUND ((((ABS (WeightFtime) + ABS (WeightIdent) + ABS (WeightWtermpres) + ABS (WeightWtermlast) + ABS (WeightWpaym) + ABS (WeightCrsum) + ABS (Region) + ABS (Workform) + ABS (Fvcountry) + ABS (Ayear) + ABS (Gender) + ABS (Ftype) + ABS (Fampos) + ABS (Education) + ABS (Children) + ABS (Comptype) + ABS (Compamount) + ABS (@ Automob) + ABS (Travel) + ABS (Commitment) + ABS (Debtloan)))/21), 0) As Char) (@ MidWeight lt;=6) Request1 Set Offer= NO Where ID =ID (MidWeight gt; 6) Request1 Set Offer= YES Where ID =IDnext fromcursor into @ ID @ CURSOR @ CURSORc
Процедура формування листа з рішенням
Виконуваний код процедури описаний у файлі dbo.update_text
CREATE PROCEDURE dbo.update_text As @ cursor CURSORc CURSOR FORID FROM Request1 where MessageText=null @ ID int @ Crsum money @ Term VarChar (20)ProdName VarChar (20)MessageText VarChar (5000) @ Offer VarChar (10)Prod VarChar (20)cursor=c @ cursornext fromcursor intoID (@@FETCH_STATUS=0) BEGIN @ Offer=Cast ((select Offer from Request1 Where ID =ID) As Char) Crsum=Cast ((select Crsum from Request1 Where ID =ID) As money)Term=Cast ((select Wnterm from Request1 Where ID =ID) As Char)ProdName=Cast ((Select ProdName from His_product where ProdConditID IN (Select ID_prod from His_prod_condit where ID_condit IN (Select ID from His_prodcondit where (Crsum gt;=MinSum) and (Crsum lt;=MaxSum) and (Term gt;=MinTerms) and (Term lt;=MaxTerms) ))) As Char)Prod=Cast ((Select count (ProdName) from His_product where ProdConditID IN (Select ID_prod from His_prod_condit where ID_condit IN (Select ID from His_prodcondit where (Crsum gt;=MinSum) and (Crsum lt; =MaxSum) and (Term gt;=MinTerms) and (Term lt;=MaxTerms)))) As Char) (@ Offer= YES ) and (Prod=1)MessageText=Привіт Шановний (-а) + (Select FirstName from Request1 Where ID =ID) + + (Select ThirdName from Request1 Where ID =ID) + raquo ;! Дякуємо Вам за те, що звернули свою увагу на кредити UniversityBank. Ми раді повідомити Вам, що за Вашої електронної заявці було прийнято позитивне попереднє рішення. Виходячи з Ваших побажань, зазначених у заявці, ми можемо порекомендувати Вам звернути увагу на лінійку наших кредитних продуктів" +ProdName + raquo ;. Найближчим часом наші співробітники зв'яжуться з Вами для подальшого обговорення деталей можливої ??видачі кредиту. '
Update Request1 Set MessageText =MessageText Where ID =ID (Offer= YES ) and (Prod=0)MessageText=Привіт Шановний (-а) + (Select FirstName from Request1 Where ID =ID) + + (Select ThirdName from Request1 Where ID =ID) + raquo ;! Дякуємо Вам за те, що звернули свою увагу на кредити UniversityBank. Ми раді повідомити Вам, що за Вашої електронної заявці було прийнято позитивне попереднє рішення. Виходячи з Ваших побажань, зазначених у заявці, ми поки не можемо порекомендувати Вам один з наших кредитних продуктів, але ми готові також і обговорити з Вами індивідуальні умови. Найближчим часом наші співробітники зв'яжуться з Вами для подальшого обговорення деталей можливої ??видачі кредиту. '
Update Request1 Set MessageText =MessageText Where ID=@ ID @ Offer= NO MessageText= Здрастуйте, Шановний (-а) + (Select FirstName from Request1 Where ID =ID) + + (Select ThirdName from Request1 Where ID =ID) + laquo ;! Дякуємо Вам за те, що звернули свою увагу на кредити UniversityBank. Ми з жалем повідомляємо Вам, що по Вашій електронній заявці було прийняте негативне попереднє рішення, і в даний момент наш Банк не готовий надати Вам кредит. Найближчим часом наші ...
