RECHERCHER LES VILLES SUIVANT LE CODEPOSTAL VIA UN WEBSERVICE

Namespace Cyril.Utility

    ''' -----------------------------------------------------------------------------
    ''' Project	 : Cyril
    ''' Class	 : Utility.CodePostal
    ''' 
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Cette classe met en relation le webservice 
    ''' http://www.e-naxos.com/scripts/enwscp.dll/wsdl/IODCODESPOSTAUX
    ''' pour asp.net
    ''' 
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[DURAND Cyril]	02/04/2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Class CodePostal

        Private _CP As String

#Region "Exception"
        Private Class NotValidCodePostalException
            Inherits ArgumentException

            Public Overrides ReadOnly Property Message() As String
                Get
                    Return "Le code postal demandé était invalide"
                End Get
            End Property
        End Class
        Private Class NotFoundCodePostalException
            Inherits ArgumentException

            Public Overrides ReadOnly Property Message() As String
                Get
                    Return "Le code postal demandé est introuvable"
                End Get
            End Property
        End Class
#End Region

        ''' -----------------------------------------------------------------------------
        ''' <summary>
        ''' 
        ''' </summary>
        ''' <param name="CP"> Code Postal de la ville recherché </param>
        ''' <remarks>
        ''' </remarks>
        ''' <history>
        ''' 	[DURAND Cyril]	31/03/2004	Created
        ''' </history>
        ''' -----------------------------------------------------------------------------
        Public Sub New(ByVal CP As String)

            _CP = CP
        End Sub

        Public ReadOnly Property GetVille() As String()
            Get
                Try
                    Dim Valid As New Cyril.Utility.Validation.StringValidation
                    If Valid.isCodePostal(_CP) Then

                        Dim LesVilles As New Webservice.IODCODESPOSTAUXservice

                        Dim sGetVille As String
                        sGetVille = LesVilles.GetTownForZip(_CP.ToString, "|")
                        sGetVille = Replace(sGetVille, _CP.ToString & "=", "")

                        GetVille = sGetVille.Split("|")
                        LesVilles.Dispose()

                    Else
                        Throw New NotValidCodePostalException
                    End If

                Catch ex As NotValidCodePostalException
                    Throw New NotValidCodePostalException

                Catch ex As Exception
                    Throw New NotFoundCodePostalException

                End Try

            End Get
        End Property

        Public ReadOnly Property GetPrefecture() As String
            Get
                Try
                    Dim Valid As New Cyril.Utility.Validation.StringValidation
                    If Valid.isCodePostal(_CP) Then

                        Dim LesVilles As New Webservice.IODCODESPOSTAUXservice

                        GetPrefecture = LesVilles.GetDepartmentAdminCenterForCode(GetDepartementNumber)
                        LesVilles.Dispose()

                    Else
                        Throw New NotValidCodePostalException
                    End If

                Catch ex As NotValidCodePostalException
                    Throw New NotValidCodePostalException

                Catch ex As Exception
                    Throw New NotFoundCodePostalException

                End Try

            End Get
        End Property
        Public ReadOnly Property GetDepartementNumber() As String
            Get
                Dim Valid As New Cyril.Utility.Validation.StringValidation
                If Valid.isCodePostal(_CP) Then

                    Return Left(_CP, 2)

                Else
                    Throw New NotValidCodePostalException
                End If

            End Get
        End Property
        Public ReadOnly Property GetDepartement() As String
            Get
                Try
                    Dim Valid As New Cyril.Utility.Validation.StringValidation
                    If Valid.isCodePostal(_CP) Then

                        Dim LesVilles As New Webservice.IODCODESPOSTAUXservice

                        GetDepartement = LesVilles.GetDepartmentForCode(GetDepartementNumber)
                        LesVilles.Dispose()

                    Else
                        Throw New NotValidCodePostalException
                    End If

                Catch ex As NotValidCodePostalException
                    Throw New NotValidCodePostalException

                Catch ex As Exception
                    Throw New NotFoundCodePostalException

                End Try
            End Get
        End Property


    End Class

End Namespace