Imports System

​

Public Module Module1

    Private Const GreeceCountryID As Integer = 78

    Private const UKCountryID as integer = 197

    private const AddressReCheck  as integer = 1

    Public Sub Main()

​

        dim p1,p2 as integer

        dim p3,p4 as string

        p1=123

        p2=UKCountryID

        p3="n/a"

        p4="n/a"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

​

        p1=123

        p2=GreeceCountryID

        p3="CompleteAddressReCheck"

        p4="n/a"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

​

        p1=123

        p2=GreeceCountryID

        p3="CompleteAddressReCheck"

        p4="CompleteGreece"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

​

        p1=123

        p2=GreeceCountryID

        p3="rubbish"

        p4="CompleteGreece"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

​

        p1=123

        p2=GreeceCountryID

        p3="AddressReCheck"

        p4="CompleteGreece"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

​

        p1=123

        p2=UKCountryID

        p3="AddressReCheck"

        p4="CompleteGreece"

        Console.WriteLine("GreekAddressRecheck(" & p1 & "," & p2 & "," & p3 & "," & p4 & ")=" & GreekAddressRecheck(p1, p2, p3, p4))

    End Sub

    Private Function GreekAddressRecheck(userID as integer, countryID as Integer, BDDStatus as string, LicenceActivation as string) As Boolean

        Dim result = false

        If countryId = GreeceCountryID Then

​

            ' Dim rgddController As RgddStatusController = RgddStatusProvider.Load(MembersUser.UserID)

            Dim AddressReCheck = "AddressReCheck"

            Dim SuspendedAddressReCheck = "SuspendedAddressReCheck"

            Dim CompleteAddressReCheck = "CompleteAddressReCheck"

            Dim CompleteGreece = "CompleteGreece"

            if BDDStatus.Equals(AddressReCheck) OrElse

                BDDStatus.Equals(SuspendedAddressReCheck) OrElse

                BDDStatus.Equals(CompleteAddressReCheck) AndAlso

                LicenceActivation.Equals(CompleteGreece) Then

                result = true

            end if

          '  If rgddController.RGDDStatuses.BDDStatus.Value.Equals(BDDStatus.BDDValue.AddressReCheck) OrElse

          '    rgddController.RGDDStatuses.BDDStatus.Value.Equals(BDDStatus.BDDValue.SuspendedAddressReCheck) OrElse 

          '    rgddController.RGDDStatuses.BDDStatus.Value.Equals(BDDStatus.BDDValue.CompleteAddressReCheck) AndAlso 

          '    rgddController.RGDDStatuses.LicenceActivation.Value.Equals(LicenceActivation.LicenceActivationValue.CompleteGreece) Then

​

          '     result = True

​

          ' End If

        End If

        return result

    End Function

​

​

End Module

​