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()

        Console.WriteLine("GreekAddressRecheck(UKCountryID)=" & GreekAddressRecheck(UKCountryID))

        Console.WriteLine("GreekAddressRecheck(GreeceCountryID)=" & GreekAddressRecheck(GreeceCountryID))

    End Sub

    Private Function GreekAddressRecheck(countryID as Integer) As Boolean

        Dim result = false

        If countryId = GreeceCountryID Then

​

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

​

          '  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

​