منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحويل Function من Vb الى sql server - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : Microsoft SQL Server (http://vb4arb.com/vb/forumdisplay.php?fid=171)
+--- الموضوع : تحويل Function من Vb الى sql server (/showthread.php?tid=27706)

تحويل Function من Vb الى sql server - alsihran - 29-11-18

السلام عليكم ورحمة الله وبركاتة :

هذه الفاينكشن تم عملها بال vb واريد تحويلها الى Function داخل Sql server
ليتم استدعائها من داخل الاستعلام

كود :
Public Function sh(NuKind As Integer, Independent As Integer, Ser As Integer, Trav As Integer, HousValDult As Currency, HospValDult As Currency, _
BusTicValDult As Currency, VisaVal As Currency, SpecialDisc As Currency, FligTicValDult As Currency, _
           HousValChlid As Currency, HospValChlid As Currency, BusTicValChlid As Currency, FligTicValChlid As Currency, _
                   HousValBaby As Currency, HospValBaby As Currency, BusTicValBaby As Currency, FligTicValBaby As Currency)
               Dim Shiv
If Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
     ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(BusTicValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0))
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValDult, 0)
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValDult, 0)
       ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValDult, 0)

   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
     ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
 
   
         ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValDult, 0) + Nz(BusTicValDult, 0))

    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
   
        ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0))

   
   
   
   
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValDult, 0)
   
   
   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   

   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
 
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(BusTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0))
   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValChlid, 0)
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValChlid, 0)
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValChlid, 0)
 
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   
     
         ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0))

    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
   
        ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))

   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValChlid, 0)

ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
'?
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValBaby, 0)

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValBaby, 0)

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
     
             ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 10 Then

     ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
           Shiv = Nz(VisaVal, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
      Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
      Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(HospValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
      Shiv = 0
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = 0
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)


ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))




ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 8 Then
       Shiv = Nz(VisaVal, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 9 Then
       Shiv = Nz(HospValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 10 Then
       Shiv = 0
ElseIf Nz(NuKind, 0) Then
       Shiv = 0
 
   
   
   
'==========================================================================================
   Else
       Shiv = ""
End If
    On Error Resume Next
 
sh = Shiv - Nz(SpecialDisc, 0)
End Function


RE: تحويل Function من Vb الى sql server - محمد كريّم - 29-11-18

والمطلوب يا سهران؟ تبي حد يحولها لك؟!
يعني انت ما حاولتش معاها ابدا؟

RE: تحويل Function من Vb الى sql server - alsihran - 29-11-18

أخي الكريم
انا كل شغلي سابقا على قواعد بيانات اكسس مباشرة
وجديد على قواعد بيانات sql server
حاولت كم محاوله وفشلت
نعم اخي الكريم محتاج حد يحولها

RE: تحويل Function من Vb الى sql server - baha - 29-11-18

أخي الكريم

هذا الكتاب مبسط لتعلم Sql Server



أتمنى لك وللجميع التوفيقق


RE: تحويل Function من Vb الى sql server - alsihran - 30-11-18

شكر لك اخي الكريم على هذ الهدية القيمة
واحتاج الى من يساعد في تحويل الفاينكشن

RE: تحويل Function من Vb الى sql server - mero5000 - 30-11-18

ما تفعل هذه الفنكشن