337 lines
12 KiB
VB.net
337 lines
12 KiB
VB.net
'------------------------------------------------------------------------------
|
|
' <auto-generated>
|
|
' Dieser Code wurde von einem Tool generiert.
|
|
' Laufzeitversion:4.0.30319.42000
|
|
'
|
|
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
|
|
' der Code erneut generiert wird.
|
|
' </auto-generated>
|
|
'------------------------------------------------------------------------------
|
|
|
|
Option Strict Off
|
|
Option Explicit On
|
|
|
|
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Diagnostics
|
|
Imports System.Web.Services
|
|
Imports System.Web.Services.Protocols
|
|
Imports System.Xml.Serialization
|
|
|
|
'
|
|
'Der Quellcode wurde automatisch mit Microsoft.VSDesigner generiert. Version 4.0.30319.42000.
|
|
'
|
|
Namespace EORI
|
|
|
|
'''<remarks/>
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Web.Services.WebServiceBindingAttribute(Name:="validationSoapBinding", [Namespace]:="http://eori.ws.eos.dds.s/")> _
|
|
Partial Public Class validation
|
|
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
|
|
|
|
Private validateEORIOperationCompleted As System.Threading.SendOrPostCallback
|
|
|
|
Private useDefaultCredentialsSetExplicitly As Boolean
|
|
|
|
'''<remarks/>
|
|
Public Sub New()
|
|
MyBase.New
|
|
Me.Url = Global.SDL.My.MySettings.Default.SDL_EORI_validation
|
|
If (Me.IsLocalFileSystemWebService(Me.Url) = true) Then
|
|
Me.UseDefaultCredentials = true
|
|
Me.useDefaultCredentialsSetExplicitly = false
|
|
Else
|
|
Me.useDefaultCredentialsSetExplicitly = true
|
|
End If
|
|
End Sub
|
|
|
|
Public Shadows Property Url() As String
|
|
Get
|
|
Return MyBase.Url
|
|
End Get
|
|
Set
|
|
If (((Me.IsLocalFileSystemWebService(MyBase.Url) = true) _
|
|
AndAlso (Me.useDefaultCredentialsSetExplicitly = false)) _
|
|
AndAlso (Me.IsLocalFileSystemWebService(value) = false)) Then
|
|
MyBase.UseDefaultCredentials = false
|
|
End If
|
|
MyBase.Url = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Shadows Property UseDefaultCredentials() As Boolean
|
|
Get
|
|
Return MyBase.UseDefaultCredentials
|
|
End Get
|
|
Set
|
|
MyBase.UseDefaultCredentials = value
|
|
Me.useDefaultCredentialsSetExplicitly = true
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
Public Event validateEORICompleted As validateEORICompletedEventHandler
|
|
|
|
'''<remarks/>
|
|
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="http://eori.ws.eos.dds.s/", ResponseNamespace:="http://eori.ws.eos.dds.s/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
|
Public Function validateEORI(<System.Xml.Serialization.XmlElementAttribute("eori")> ByVal eori() As String) As <System.Xml.Serialization.XmlElementAttribute("return", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> eoriValidationResult
|
|
Dim results() As Object = Me.Invoke("validateEORI", New Object() {eori})
|
|
Return CType(results(0),eoriValidationResult)
|
|
End Function
|
|
|
|
'''<remarks/>
|
|
Public Overloads Sub validateEORIAsync(ByVal eori() As String)
|
|
Me.validateEORIAsync(eori, Nothing)
|
|
End Sub
|
|
|
|
'''<remarks/>
|
|
Public Overloads Sub validateEORIAsync(ByVal eori() As String, ByVal userState As Object)
|
|
If (Me.validateEORIOperationCompleted Is Nothing) Then
|
|
Me.validateEORIOperationCompleted = AddressOf Me.OnvalidateEORIOperationCompleted
|
|
End If
|
|
Me.InvokeAsync("validateEORI", New Object() {eori}, Me.validateEORIOperationCompleted, userState)
|
|
End Sub
|
|
|
|
Private Sub OnvalidateEORIOperationCompleted(ByVal arg As Object)
|
|
If (Not (Me.validateEORICompletedEvent) Is Nothing) Then
|
|
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
|
RaiseEvent validateEORICompleted(Me, New validateEORICompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
|
|
End If
|
|
End Sub
|
|
|
|
'''<remarks/>
|
|
Public Shadows Sub CancelAsync(ByVal userState As Object)
|
|
MyBase.CancelAsync(userState)
|
|
End Sub
|
|
|
|
Private Function IsLocalFileSystemWebService(ByVal url As String) As Boolean
|
|
If ((url Is Nothing) _
|
|
OrElse (url Is String.Empty)) Then
|
|
Return false
|
|
End If
|
|
Dim wsUri As System.Uri = New System.Uri(url)
|
|
If ((wsUri.Port >= 1024) _
|
|
AndAlso (String.Compare(wsUri.Host, "localHost", System.StringComparison.OrdinalIgnoreCase) = 0)) Then
|
|
Return true
|
|
End If
|
|
Return false
|
|
End Function
|
|
End Class
|
|
|
|
'''<remarks/>
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://eori.ws.eos.dds.s/")> _
|
|
Partial Public Class eoriValidationResult
|
|
|
|
Private requestDateField As String
|
|
|
|
Private errorDescriptionField As String
|
|
|
|
Private resultField() As eoriResponse
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property requestDate() As String
|
|
Get
|
|
Return Me.requestDateField
|
|
End Get
|
|
Set
|
|
Me.requestDateField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property errorDescription() As String
|
|
Get
|
|
Return Me.errorDescriptionField
|
|
End Get
|
|
Set
|
|
Me.errorDescriptionField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute("result", Form:=System.Xml.Schema.XmlSchemaForm.Unqualified, IsNullable:=true)> _
|
|
Public Property result() As eoriResponse()
|
|
Get
|
|
Return Me.resultField
|
|
End Get
|
|
Set
|
|
Me.resultField = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<remarks/>
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Xml", "4.8.9037.0"), _
|
|
System.SerializableAttribute(), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
|
System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://eori.ws.eos.dds.s/")> _
|
|
Partial Public Class eoriResponse
|
|
|
|
Private eoriField As String
|
|
|
|
Private statusField As Integer
|
|
|
|
Private statusDescrField As String
|
|
|
|
Private errorReasonField As String
|
|
|
|
Private nameField As String
|
|
|
|
Private addressField As String
|
|
|
|
Private streetField As String
|
|
|
|
Private postalCodeField As String
|
|
|
|
Private cityField As String
|
|
|
|
Private countryField As String
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property eori() As String
|
|
Get
|
|
Return Me.eoriField
|
|
End Get
|
|
Set
|
|
Me.eoriField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property status() As Integer
|
|
Get
|
|
Return Me.statusField
|
|
End Get
|
|
Set
|
|
Me.statusField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property statusDescr() As String
|
|
Get
|
|
Return Me.statusDescrField
|
|
End Get
|
|
Set
|
|
Me.statusDescrField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property errorReason() As String
|
|
Get
|
|
Return Me.errorReasonField
|
|
End Get
|
|
Set
|
|
Me.errorReasonField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property name() As String
|
|
Get
|
|
Return Me.nameField
|
|
End Get
|
|
Set
|
|
Me.nameField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property address() As String
|
|
Get
|
|
Return Me.addressField
|
|
End Get
|
|
Set
|
|
Me.addressField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property street() As String
|
|
Get
|
|
Return Me.streetField
|
|
End Get
|
|
Set
|
|
Me.streetField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property postalCode() As String
|
|
Get
|
|
Return Me.postalCodeField
|
|
End Get
|
|
Set
|
|
Me.postalCodeField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property city() As String
|
|
Get
|
|
Return Me.cityField
|
|
End Get
|
|
Set
|
|
Me.cityField = value
|
|
End Set
|
|
End Property
|
|
|
|
'''<remarks/>
|
|
<System.Xml.Serialization.XmlElementAttribute(Form:=System.Xml.Schema.XmlSchemaForm.Unqualified)> _
|
|
Public Property country() As String
|
|
Get
|
|
Return Me.countryField
|
|
End Get
|
|
Set
|
|
Me.countryField = value
|
|
End Set
|
|
End Property
|
|
End Class
|
|
|
|
'''<remarks/>
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
|
Public Delegate Sub validateEORICompletedEventHandler(ByVal sender As Object, ByVal e As validateEORICompletedEventArgs)
|
|
|
|
'''<remarks/>
|
|
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
|
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
|
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
|
Partial Public Class validateEORICompletedEventArgs
|
|
Inherits System.ComponentModel.AsyncCompletedEventArgs
|
|
|
|
Private results() As Object
|
|
|
|
Friend Sub New(ByVal results() As Object, ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
|
|
MyBase.New(exception, cancelled, userState)
|
|
Me.results = results
|
|
End Sub
|
|
|
|
'''<remarks/>
|
|
Public ReadOnly Property Result() As eoriValidationResult
|
|
Get
|
|
Me.RaiseExceptionIfNecessary
|
|
Return CType(Me.results(0),eoriValidationResult)
|
|
End Get
|
|
End Property
|
|
End Class
|
|
End Namespace
|