29-11-18, 03:20 PM
السلام عليكم ورحمة الله وبركاتة :
هذه الفاينكشن تم عملها بال vb واريد تحويلها الى Function داخل Sql server
ليتم استدعائها من داخل الاستعلام
هذه الفاينكشن تم عملها بال 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