Revert "commit"
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="ErrorCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.ErrorCode, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="Kassendaten" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.Kassendaten, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://ymgk028055.verag.ost.dmn:8733/DSFinVKService?singleWsdl" filename="DSFinVKServer.wsdl" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="TSEData" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.TSEData, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="Taxes" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.RKSV_DE_DSFinVKService.Taxes, Web References.RKSV_DE_DSFinVKService.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl" filename="checkVatService.wsdl" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
474
VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.vb
Normal file
474
VERAG_PROG_ALLGEMEIN/Web References/UIDPruefung/Reference.vb
Normal file
@@ -0,0 +1,474 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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 UIDPruefung
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="checkVatBinding", [Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat")> _
|
||||
Partial Public Class checkVatService
|
||||
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
|
||||
|
||||
Private checkVatOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private checkVatApproxOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private useDefaultCredentialsSetExplicitly As Boolean
|
||||
|
||||
'''<remarks/>
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_UIDPruefung_checkVatService
|
||||
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 checkVatCompleted As checkVatCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
Public Event checkVatApproxCompleted As checkVatApproxCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", ResponseNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function checkVat(ByRef countryCode As String, ByRef vatNumber As String, ByRef valid As Boolean, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef name As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef address As String) As <System.Xml.Serialization.XmlElementAttribute("requestDate", DataType:="date")> Date
|
||||
Dim results() As Object = Me.Invoke("checkVat", New Object() {countryCode, vatNumber})
|
||||
countryCode = CType(results(1),String)
|
||||
vatNumber = CType(results(2),String)
|
||||
valid = CType(results(3),Boolean)
|
||||
name = CType(results(4),String)
|
||||
address = CType(results(5),String)
|
||||
Return CType(results(0),Date)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String)
|
||||
Me.checkVatAsync(countryCode, vatNumber, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal userState As Object)
|
||||
If (Me.checkVatOperationCompleted Is Nothing) Then
|
||||
Me.checkVatOperationCompleted = AddressOf Me.OncheckVatOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("checkVat", New Object() {countryCode, vatNumber}, Me.checkVatOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OncheckVatOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.checkVatCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent checkVatCompleted(Me, New checkVatCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", ResponseNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function checkVatApprox( _
|
||||
ByRef countryCode As String, _
|
||||
ByRef vatNumber As String, _
|
||||
ByRef traderName As String, _
|
||||
ByRef traderCompanyType As String, _
|
||||
ByRef traderStreet As String, _
|
||||
ByRef traderPostcode As String, _
|
||||
ByRef traderCity As String, _
|
||||
ByVal requesterCountryCode As String, _
|
||||
ByVal requesterVatNumber As String, _
|
||||
ByRef valid As Boolean, _
|
||||
ByRef traderAddress As String, _
|
||||
ByRef traderNameMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderNameMatchSpecified As Boolean, _
|
||||
ByRef traderCompanyTypeMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderCompanyTypeMatchSpecified As Boolean, _
|
||||
ByRef traderStreetMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderStreetMatchSpecified As Boolean, _
|
||||
ByRef traderPostcodeMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderPostcodeMatchSpecified As Boolean, _
|
||||
ByRef traderCityMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderCityMatchSpecified As Boolean, _
|
||||
ByRef requestIdentifier As String) As <System.Xml.Serialization.XmlElementAttribute("requestDate", DataType:="date")> Date
|
||||
Dim results() As Object = Me.Invoke("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber})
|
||||
countryCode = CType(results(1),String)
|
||||
vatNumber = CType(results(2),String)
|
||||
traderName = CType(results(3),String)
|
||||
traderCompanyType = CType(results(4),String)
|
||||
traderStreet = CType(results(5),String)
|
||||
traderPostcode = CType(results(6),String)
|
||||
traderCity = CType(results(7),String)
|
||||
valid = CType(results(8),Boolean)
|
||||
traderAddress = CType(results(9),String)
|
||||
traderNameMatch = CType(results(10),matchCode)
|
||||
traderNameMatchSpecified = CType(results(11),Boolean)
|
||||
traderCompanyTypeMatch = CType(results(12),matchCode)
|
||||
traderCompanyTypeMatchSpecified = CType(results(13),Boolean)
|
||||
traderStreetMatch = CType(results(14),matchCode)
|
||||
traderStreetMatchSpecified = CType(results(15),Boolean)
|
||||
traderPostcodeMatch = CType(results(16),matchCode)
|
||||
traderPostcodeMatchSpecified = CType(results(17),Boolean)
|
||||
traderCityMatch = CType(results(18),matchCode)
|
||||
traderCityMatchSpecified = CType(results(19),Boolean)
|
||||
requestIdentifier = CType(results(20),String)
|
||||
Return CType(results(0),Date)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String)
|
||||
Me.checkVatApproxAsync(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String, ByVal userState As Object)
|
||||
If (Me.checkVatApproxOperationCompleted Is Nothing) Then
|
||||
Me.checkVatApproxOperationCompleted = AddressOf Me.OncheckVatApproxOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber}, Me.checkVatApproxOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OncheckVatApproxOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.checkVatApproxCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent checkVatApproxCompleted(Me, New checkVatApproxCompletedEventArgs(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.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat:types")> _
|
||||
Public Enum matchCode
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
||||
Item1
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
||||
Item2
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("3")> _
|
||||
Item3
|
||||
End Enum
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatCompletedEventArgs
|
||||
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 Date
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property countryCode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property vatNumber() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property valid() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(3),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property name() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(4),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property address() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(5),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatApproxCompletedEventArgs
|
||||
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 Date
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property countryCode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property vatNumber() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderName() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(3),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyType() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(4),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreet() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(5),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(6),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCity() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(7),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property valid() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(8),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderAddress() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(9),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderNameMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(10),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderNameMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(11),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyTypeMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(12),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyTypeMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(13),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreetMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(14),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreetMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(15),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcodeMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(16),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcodeMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(17),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCityMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(18),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCityMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(19),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property requestIdentifier() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(20),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,161 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:impl="urn:ec.europa.eu:taxud:vies:services:checkVat" xmlns:apachesoap="http://xml.apache.org/xml-soap" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types" targetNamespace="urn:ec.europa.eu:taxud:vies:services:checkVat" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
|
||||
<xsd:documentation>
|
||||
The objective of this Internet site is to allow persons involved in the intra-Community supply of goods or of services to obtain confirmation of the validity of the VAT identification number of any specified person, in accordance to article 31 of Council Regulation (EC) No. 904/2010 of 7 October 2010. \n
|
||||
Any other use and any extraction and use of the data which is not in conformity with the objective of this site is strictly forbidden.
|
||||
Any retransmission of the contents of this site, whether for a commercial purpose or otherwise, as well as any more general use other than as far as is necessary to support the activity of a legitimate user (for example: to draw up their own invoices) is expressly forbidden. In addition, any copying or reproduction of the contents of this site is strictly forbidden.
|
||||
The European Commission maintains this website to enhance the access by taxable persons making intra-Community supplies to verification of their customers' VAT identification numbers. Our goal is to supply instantaneous and accurate information.
|
||||
However the Commission accepts no responsibility or liability whatsoever with regard to the information obtained using this site. This information:
|
||||
- is obtained from Member States' databases over which the Commission services have no control and for which the Commission assumes no responsibility; it is the responsibility of the Member States to keep their databases complete, accurate and up to date;
|
||||
- is not professional or legal advice (if you need specific advice, you should always consult a suitably qualified professional);
|
||||
- does not in itself give a right to exempt intra-Community supplies from Value Added Tax;
|
||||
- does not change any obligations imposed on taxable persons in relation to intra-Community supplies.
|
||||
It is our goal to minimise disruption caused by technical errors. However some data or information on our site may have been created or structured in files or formats which are not error-free and we cannot guarantee that our service will not be interrupted or otherwise affected by such problems. The Commission accepts no responsibility with regard to such problems incurred as a result of using this site or any linked external sites.
|
||||
This disclaimer is not intended to limit the liability of the Commission in contravention of any requirements laid down in applicable national law nor to exclude its liability for matters which may not be excluded under that law.
|
||||
Collecting or handling personal data falls under the Data Protection Notice. This data protection declaration explains the Processing in the VIES-on-the-web Internet Website of VAT Identification Numbers for intra-Community Transaction on Goods or Services. Details of your legal rights associated with the collection, processing and use of this data are also provided: http://ec.europa.eu/dpo-register/details.htm?id=40647 .
|
||||
|
||||
Usage:
|
||||
The countryCode input parameter must follow the pattern [A-Z]{2}
|
||||
The vatNumber input parameter must follow the pattern [0-9A-Za-z\+\*\.]{2,12}
|
||||
In case of problems, the returned FaultString can take the following specific values:
|
||||
- INVALID_INPUT: The provided CountryCode is invalid or the VAT number is empty;
|
||||
- GLOBAL_MAX_CONCURRENT_REQ: Your Request for VAT validation has not been processed; the maximum number of concurrent requests has been reached. Please re-submit your request later or contact TAXUD-VIESWEB@ec.europa.eu for further information": Your request cannot be processed due to high traffic on the web application. Please try again later;
|
||||
- MS_MAX_CONCURRENT_REQ: Your Request for VAT validation has not been processed; the maximum number of concurrent requests for this Member State has been reached. Please re-submit your request later or contact TAXUD-VIESWEB@ec.europa.eu for further information": Your request cannot be processed due to high traffic towards the Member State you are trying to reach. Please try again later.
|
||||
- SERVICE_UNAVAILABLE: an error was encountered either at the network level or the Web application level, try again later;
|
||||
- MS_UNAVAILABLE: The application at the Member State is not replying or not available. Please refer to the Technical Information page to check the status of the requested Member State, try again later;
|
||||
- TIMEOUT: The application did not receive a reply within the allocated time period, try again later.
|
||||
</xsd:documentation>
|
||||
<wsdl:types>
|
||||
<xsd:schema xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:types" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
|
||||
<xsd:element name="checkVat">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatResponse">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element name="requestDate" type="xsd:date" />
|
||||
<xsd:element name="valid" type="xsd:boolean" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="name" nillable="true" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="address" nillable="true" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatApprox">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderName" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyType" type="tns1:companyTypeCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreet" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCity" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="requesterCountryCode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="requesterVatNumber" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatApproxResponse">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element name="requestDate" type="xsd:date" />
|
||||
<xsd:element name="valid" type="xsd:boolean" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderName" nillable="true" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyType" nillable="true" type="tns1:companyTypeCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderAddress" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreet" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCity" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderNameMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyTypeMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreetMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcodeMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCityMatch" type="tns1:matchCode" />
|
||||
<xsd:element name="requestIdentifier" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:simpleType name="companyTypeCode">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:pattern value="[A-Z]{2}\-[1-9][0-9]?" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="matchCode">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>VALID</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
<xsd:enumeration value="2">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>INVALID</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
<xsd:enumeration value="3">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>NOT_PROCESSED</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:schema>
|
||||
</wsdl:types>
|
||||
<wsdl:message name="checkVatRequest">
|
||||
<wsdl:part name="parameters" element="tns1:checkVat" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatApproxResponse">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatApproxResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatApproxRequest">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatApprox" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatResponse">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:portType name="checkVatPortType">
|
||||
<wsdl:operation name="checkVat">
|
||||
<wsdl:input name="checkVatRequest" message="impl:checkVatRequest" />
|
||||
<wsdl:output name="checkVatResponse" message="impl:checkVatResponse" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="checkVatApprox">
|
||||
<wsdl:input name="checkVatApproxRequest" message="impl:checkVatApproxRequest" />
|
||||
<wsdl:output name="checkVatApproxResponse" message="impl:checkVatApproxResponse" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
<wsdl:binding name="checkVatBinding" type="impl:checkVatPortType">
|
||||
<wsdlsoap:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="checkVat">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="checkVatRequest">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="checkVatResponse">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="checkVatApprox">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="checkVatApproxRequest">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="checkVatApproxResponse">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:service name="checkVatService">
|
||||
<wsdl:port name="checkVatPort" binding="impl:checkVatBinding">
|
||||
<wsdlsoap:address location="http://ec.europa.eu/taxation_customs/vies/services/checkVatService" />
|
||||
</wsdl:port>
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="matchCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.UIDPruefung.matchCode, Web References.UIDPruefung.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.SchemaReference" url="https://finanzonline.bmf.gv.at/fonws/ws/session.xsd" filename="session.xsd" />
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="https://finanzonline.bmf.gv.at/fonws/ws/sessionService.wsdl" filename="sessionService.wsdl" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
@@ -0,0 +1,235 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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 at.gv.bmf.finanzonline.session
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="sessionServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/session")> _
|
||||
Partial Public Class sessionService
|
||||
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
|
||||
|
||||
Private loginOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private logoutOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private useDefaultCredentialsSetExplicitly As Boolean
|
||||
|
||||
'''<remarks/>
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_session_sessionService
|
||||
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 loginCompleted As loginCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
Public Event logoutCompleted As logoutCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("login", RequestElementName:="loginRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function login(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByRef rc As Integer, ByRef msg As String) As <System.Xml.Serialization.XmlElementAttribute("id")> String
|
||||
Dim results() As Object = Me.Invoke("login", New Object() {tid, benid, pin, herstellerid})
|
||||
rc = CType(results(1),Integer)
|
||||
msg = CType(results(2),String)
|
||||
Return CType(results(0),String)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String)
|
||||
Me.loginAsync(tid, benid, pin, herstellerid, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub loginAsync(ByVal tid As String, ByVal benid As String, ByVal pin As String, ByVal herstellerid As String, ByVal userState As Object)
|
||||
If (Me.loginOperationCompleted Is Nothing) Then
|
||||
Me.loginOperationCompleted = AddressOf Me.OnloginOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("login", New Object() {tid, benid, pin, herstellerid}, Me.loginOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OnloginOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.loginCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent loginCompleted(Me, New loginCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("logout", RequestElementName:="logoutRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/session", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function logout(ByVal tid As String, ByVal benid As String, ByVal id As String, ByRef msg As String) As <System.Xml.Serialization.XmlElementAttribute("rc")> Integer
|
||||
Dim results() As Object = Me.Invoke("logout", New Object() {tid, benid, id})
|
||||
msg = CType(results(1),String)
|
||||
Return CType(results(0),Integer)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String)
|
||||
Me.logoutAsync(tid, benid, id, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub logoutAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal userState As Object)
|
||||
If (Me.logoutOperationCompleted Is Nothing) Then
|
||||
Me.logoutOperationCompleted = AddressOf Me.OnlogoutOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("logout", New Object() {tid, benid, id}, Me.logoutOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OnlogoutOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.logoutCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent logoutCompleted(Me, New logoutCompletedEventArgs(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.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class loginCompletedEventArgs
|
||||
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 String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property rc() As Integer
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property msg() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class logoutCompletedEventArgs
|
||||
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 Integer
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property msg() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,83 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xs:schema elementFormDefault="qualified" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/session" xmlns:xs="http://www.w3.org/2001/XMLSchema">
|
||||
<xs:element name="loginRequest">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="tid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{8,12}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="benid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="12" />
|
||||
<xs:minLength value="5" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="pin">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="128" />
|
||||
<xs:minLength value="5" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="herstellerid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{10,24}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="loginResponse">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="id" type="xs:string" />
|
||||
<xs:element name="rc" type="xs:int" />
|
||||
<xs:element minOccurs="0" name="msg" type="xs:string" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="logoutRequest">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="tid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{8,12}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="benid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{5,12}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="id">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{10,24}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="logoutResponse">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="rc" type="xs:int" />
|
||||
<xs:element minOccurs="0" name="msg" type="xs:string" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
@@ -0,0 +1,56 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<definitions xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="https://finanzonline.bmf.gv.at/fon/ws/session" name="sessionService" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/session" xmlns="http://schemas.xmlsoap.org/wsdl/">
|
||||
<types>
|
||||
<xsd:schema>
|
||||
<xsd:import schemaLocation="session.xsd" namespace="https://finanzonline.bmf.gv.at/fon/ws/session" />
|
||||
</xsd:schema>
|
||||
</types>
|
||||
<message name="logoutRequest">
|
||||
<part name="parameters" element="tns:logoutRequest" />
|
||||
</message>
|
||||
<message name="loginRequest">
|
||||
<part name="parameters" element="tns:loginRequest" />
|
||||
</message>
|
||||
<message name="loginResponse">
|
||||
<part name="parameters" element="tns:loginResponse" />
|
||||
</message>
|
||||
<message name="logoutResponse">
|
||||
<part name="parameters" element="tns:logoutResponse" />
|
||||
</message>
|
||||
<portType name="sessionServicePort">
|
||||
<operation name="login">
|
||||
<input name="loginRequest" message="tns:loginRequest" />
|
||||
<output name="loginResponse" message="tns:loginResponse" />
|
||||
</operation>
|
||||
<operation name="logout">
|
||||
<input name="logoutRequest" message="tns:logoutRequest" />
|
||||
<output name="logoutResponse" message="tns:logoutResponse" />
|
||||
</operation>
|
||||
</portType>
|
||||
<binding name="sessionServiceBinding" type="tns:sessionServicePort">
|
||||
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<operation name="login">
|
||||
<soap:operation soapAction="login" />
|
||||
<input name="loginRequest">
|
||||
<soap:body use="literal" />
|
||||
</input>
|
||||
<output name="loginResponse">
|
||||
<soap:body use="literal" />
|
||||
</output>
|
||||
</operation>
|
||||
<operation name="logout">
|
||||
<soap:operation soapAction="logout" />
|
||||
<input name="logoutRequest">
|
||||
<soap:body use="literal" />
|
||||
</input>
|
||||
<output name="logoutResponse">
|
||||
<soap:body use="literal" />
|
||||
</output>
|
||||
</operation>
|
||||
</binding>
|
||||
<service name="sessionService">
|
||||
<port name="session" binding="tns:sessionServiceBinding">
|
||||
<soap:address location="https://finanzonline.bmf.gv.at:443/fonws/ws/session" />
|
||||
</port>
|
||||
</service>
|
||||
</definitions>
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.SchemaReference" url="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.xsd" filename="uidAbfrage.xsd" />
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage.wsdl" filename="uidAbfrageService.wsdl" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
@@ -0,0 +1,236 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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 at.gv.bmf.finanzonline
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="uidAbfrageServiceBinding", [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
|
||||
Partial Public Class uidAbfrageService
|
||||
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
|
||||
|
||||
Private uidAbfrageOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private useDefaultCredentialsSetExplicitly As Boolean
|
||||
|
||||
'''<remarks/>
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_at_gv_bmf_finanzonline_uidAbfrageService
|
||||
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 uidAbfrageCompleted As uidAbfrageCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("uidAbfrage", RequestElementName:="uidAbfrageServiceRequest", RequestNamespace:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage", ResponseElementName:="uidAbfrageServiceResponse", ResponseNamespace:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function uidAbfrage(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByRef msg As String, ByRef name As String, ByRef adrz1 As String, ByRef adrz2 As String, ByRef adrz3 As String, ByRef adrz4 As String, ByRef adrz5 As String, ByRef adrz6 As String) As <System.Xml.Serialization.XmlElementAttribute("rc")> Integer
|
||||
Dim results() As Object = Me.Invoke("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe})
|
||||
msg = CType(results(1),String)
|
||||
name = CType(results(2),String)
|
||||
adrz1 = CType(results(3),String)
|
||||
adrz2 = CType(results(4),String)
|
||||
adrz3 = CType(results(5),String)
|
||||
adrz4 = CType(results(6),String)
|
||||
adrz5 = CType(results(7),String)
|
||||
adrz6 = CType(results(8),String)
|
||||
Return CType(results(0),Integer)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe)
|
||||
Me.uidAbfrageAsync(tid, benid, id, uid_tn, uid, stufe, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub uidAbfrageAsync(ByVal tid As String, ByVal benid As String, ByVal id As String, ByVal uid_tn As String, ByVal uid As String, ByVal stufe As uidAbfrageServiceRequestStufe, ByVal userState As Object)
|
||||
If (Me.uidAbfrageOperationCompleted Is Nothing) Then
|
||||
Me.uidAbfrageOperationCompleted = AddressOf Me.OnuidAbfrageOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("uidAbfrage", New Object() {tid, benid, id, uid_tn, uid, stufe}, Me.uidAbfrageOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OnuidAbfrageOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.uidAbfrageCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent uidAbfrageCompleted(Me, New uidAbfrageCompletedEventArgs(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.Xml.Serialization.XmlTypeAttribute(AnonymousType:=true, [Namespace]:="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage")> _
|
||||
Public Enum uidAbfrageServiceRequestStufe
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
||||
Item1
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
||||
Item2
|
||||
End Enum
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class uidAbfrageCompletedEventArgs
|
||||
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 Integer
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property msg() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property name() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz1() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(3),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz2() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(4),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz3() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(5),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz4() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(6),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz5() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(7),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property adrz6() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(8),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,69 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<xs:schema xmlns:uid="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" elementFormDefault="qualified" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" xmlns:xs="http://www.w3.org/2001/XMLSchema">
|
||||
<xs:element name="uidAbfrageServiceRequest">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="tid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{8,12}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="benid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:maxLength value="12" />
|
||||
<xs:minLength value="5" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="id">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]{10,24}" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="uid_tn">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]+" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="uid">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:pattern value="[0-9A-Za-z]+" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="stufe">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:length value="1" />
|
||||
<xs:enumeration value="1" />
|
||||
<xs:enumeration value="2" />
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="uidAbfrageServiceResponse">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="rc" type="xs:int" />
|
||||
<xs:element minOccurs="0" name="msg" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="name" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz1" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz2" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz3" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz4" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz5" type="xs:string" />
|
||||
<xs:element minOccurs="0" name="adrz6" type="xs:string" />
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
@@ -0,0 +1,37 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<definitions xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tns="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" name="uidAbfrageService" targetNamespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" xmlns="http://schemas.xmlsoap.org/wsdl/">
|
||||
<types>
|
||||
<xsd:schema>
|
||||
<xsd:import schemaLocation="uidAbfrage.xsd" namespace="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage" />
|
||||
</xsd:schema>
|
||||
</types>
|
||||
<message name="uidAbfrageServiceRequest">
|
||||
<part name="parameters" element="tns:uidAbfrageServiceRequest" />
|
||||
</message>
|
||||
<message name="uidAbfrageServiceResponse">
|
||||
<part name="parameters" element="tns:uidAbfrageServiceResponse" />
|
||||
</message>
|
||||
<portType name="uidAbfragePort">
|
||||
<operation name="uidAbfrage">
|
||||
<input name="uidAbfrageServiceRequest" message="tns:uidAbfrageServiceRequest" />
|
||||
<output name="uidAbfrageServiceResponse" message="tns:uidAbfrageServiceResponse" />
|
||||
</operation>
|
||||
</portType>
|
||||
<binding name="uidAbfrageServiceBinding" type="tns:uidAbfragePort">
|
||||
<soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<operation name="uidAbfrage">
|
||||
<soap:operation soapAction="uidAbfrage" />
|
||||
<input name="uidAbfrageServiceRequest">
|
||||
<soap:body use="literal" />
|
||||
</input>
|
||||
<output name="uidAbfrageServiceResponse">
|
||||
<soap:body use="literal" />
|
||||
</output>
|
||||
</operation>
|
||||
</binding>
|
||||
<service name="uidAbfrageService">
|
||||
<port name="uidAbfrage" binding="tns:uidAbfrageServiceBinding">
|
||||
<soap:address location="https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/" />
|
||||
</port>
|
||||
</service>
|
||||
</definitions>
|
||||
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<DiscoveryClientResultsFile xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<Results>
|
||||
<DiscoveryClientResult referenceType="System.Web.Services.Discovery.ContractReference" url="https://ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl" filename="checkVatTestService.wsdl" />
|
||||
</Results>
|
||||
</DiscoveryClientResultsFile>
|
||||
474
VERAG_PROG_ALLGEMEIN/Web References/eu.europa.ec/Reference.vb
Normal file
474
VERAG_PROG_ALLGEMEIN/Web References/eu.europa.ec/Reference.vb
Normal file
@@ -0,0 +1,474 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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 eu.europa.ec
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code"), _
|
||||
System.Web.Services.WebServiceBindingAttribute(Name:="checkVatTestBinding", [Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat")> _
|
||||
Partial Public Class checkVatTestService
|
||||
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
|
||||
|
||||
Private checkVatOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private checkVatApproxOperationCompleted As System.Threading.SendOrPostCallback
|
||||
|
||||
Private useDefaultCredentialsSetExplicitly As Boolean
|
||||
|
||||
'''<remarks/>
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me.Url = Global.VERAG_PROG_ALLGEMEIN.My.MySettings.Default.VERAG_PROG_ALLGEMEIN_eu_europa_ec_checkVatTestService
|
||||
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 checkVatCompleted As checkVatCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
Public Event checkVatApproxCompleted As checkVatApproxCompletedEventHandler
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", ResponseNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function checkVat(ByRef countryCode As String, ByRef vatNumber As String, ByRef valid As Boolean, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef name As String, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByRef address As String) As <System.Xml.Serialization.XmlElementAttribute("requestDate", DataType:="date")> Date
|
||||
Dim results() As Object = Me.Invoke("checkVat", New Object() {countryCode, vatNumber})
|
||||
countryCode = CType(results(1),String)
|
||||
vatNumber = CType(results(2),String)
|
||||
valid = CType(results(3),Boolean)
|
||||
name = CType(results(4),String)
|
||||
address = CType(results(5),String)
|
||||
Return CType(results(0),Date)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String)
|
||||
Me.checkVatAsync(countryCode, vatNumber, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal userState As Object)
|
||||
If (Me.checkVatOperationCompleted Is Nothing) Then
|
||||
Me.checkVatOperationCompleted = AddressOf Me.OncheckVatOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("checkVat", New Object() {countryCode, vatNumber}, Me.checkVatOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OncheckVatOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.checkVatCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent checkVatCompleted(Me, New checkVatCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
<System.Web.Services.Protocols.SoapDocumentMethodAttribute("", RequestNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", ResponseNamespace:="urn:ec.europa.eu:taxud:vies:services:checkVat:types", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _
|
||||
Public Function checkVatApprox( _
|
||||
ByRef countryCode As String, _
|
||||
ByRef vatNumber As String, _
|
||||
ByRef traderName As String, _
|
||||
ByRef traderCompanyType As String, _
|
||||
ByRef traderStreet As String, _
|
||||
ByRef traderPostcode As String, _
|
||||
ByRef traderCity As String, _
|
||||
ByVal requesterCountryCode As String, _
|
||||
ByVal requesterVatNumber As String, _
|
||||
ByRef valid As Boolean, _
|
||||
ByRef traderAddress As String, _
|
||||
ByRef traderNameMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderNameMatchSpecified As Boolean, _
|
||||
ByRef traderCompanyTypeMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderCompanyTypeMatchSpecified As Boolean, _
|
||||
ByRef traderStreetMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderStreetMatchSpecified As Boolean, _
|
||||
ByRef traderPostcodeMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderPostcodeMatchSpecified As Boolean, _
|
||||
ByRef traderCityMatch As matchCode, _
|
||||
<System.Xml.Serialization.XmlIgnoreAttribute()> ByRef traderCityMatchSpecified As Boolean, _
|
||||
ByRef requestIdentifier As String) As <System.Xml.Serialization.XmlElementAttribute("requestDate", DataType:="date")> Date
|
||||
Dim results() As Object = Me.Invoke("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber})
|
||||
countryCode = CType(results(1),String)
|
||||
vatNumber = CType(results(2),String)
|
||||
traderName = CType(results(3),String)
|
||||
traderCompanyType = CType(results(4),String)
|
||||
traderStreet = CType(results(5),String)
|
||||
traderPostcode = CType(results(6),String)
|
||||
traderCity = CType(results(7),String)
|
||||
valid = CType(results(8),Boolean)
|
||||
traderAddress = CType(results(9),String)
|
||||
traderNameMatch = CType(results(10),matchCode)
|
||||
traderNameMatchSpecified = CType(results(11),Boolean)
|
||||
traderCompanyTypeMatch = CType(results(12),matchCode)
|
||||
traderCompanyTypeMatchSpecified = CType(results(13),Boolean)
|
||||
traderStreetMatch = CType(results(14),matchCode)
|
||||
traderStreetMatchSpecified = CType(results(15),Boolean)
|
||||
traderPostcodeMatch = CType(results(16),matchCode)
|
||||
traderPostcodeMatchSpecified = CType(results(17),Boolean)
|
||||
traderCityMatch = CType(results(18),matchCode)
|
||||
traderCityMatchSpecified = CType(results(19),Boolean)
|
||||
requestIdentifier = CType(results(20),String)
|
||||
Return CType(results(0),Date)
|
||||
End Function
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String)
|
||||
Me.checkVatApproxAsync(countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber, Nothing)
|
||||
End Sub
|
||||
|
||||
'''<remarks/>
|
||||
Public Overloads Sub checkVatApproxAsync(ByVal countryCode As String, ByVal vatNumber As String, ByVal traderName As String, ByVal traderCompanyType As String, ByVal traderStreet As String, ByVal traderPostcode As String, ByVal traderCity As String, ByVal requesterCountryCode As String, ByVal requesterVatNumber As String, ByVal userState As Object)
|
||||
If (Me.checkVatApproxOperationCompleted Is Nothing) Then
|
||||
Me.checkVatApproxOperationCompleted = AddressOf Me.OncheckVatApproxOperationCompleted
|
||||
End If
|
||||
Me.InvokeAsync("checkVatApprox", New Object() {countryCode, vatNumber, traderName, traderCompanyType, traderStreet, traderPostcode, traderCity, requesterCountryCode, requesterVatNumber}, Me.checkVatApproxOperationCompleted, userState)
|
||||
End Sub
|
||||
|
||||
Private Sub OncheckVatApproxOperationCompleted(ByVal arg As Object)
|
||||
If (Not (Me.checkVatApproxCompletedEvent) Is Nothing) Then
|
||||
Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
|
||||
RaiseEvent checkVatApproxCompleted(Me, New checkVatApproxCompletedEventArgs(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.Xml.Serialization.XmlTypeAttribute([Namespace]:="urn:ec.europa.eu:taxud:vies:services:checkVat:types")> _
|
||||
Public Enum matchCode
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("1")> _
|
||||
Item1
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("2")> _
|
||||
Item2
|
||||
|
||||
'''<remarks/>
|
||||
<System.Xml.Serialization.XmlEnumAttribute("3")> _
|
||||
Item3
|
||||
End Enum
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatCompletedEventArgs
|
||||
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 Date
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property countryCode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property vatNumber() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property valid() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(3),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property name() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(4),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property address() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(5),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0")> _
|
||||
Public Delegate Sub checkVatApproxCompletedEventHandler(ByVal sender As Object, ByVal e As checkVatApproxCompletedEventArgs)
|
||||
|
||||
'''<remarks/>
|
||||
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.8.9037.0"), _
|
||||
System.Diagnostics.DebuggerStepThroughAttribute(), _
|
||||
System.ComponentModel.DesignerCategoryAttribute("code")> _
|
||||
Partial Public Class checkVatApproxCompletedEventArgs
|
||||
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 Date
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(0),Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property countryCode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(1),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property vatNumber() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(2),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderName() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(3),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyType() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(4),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreet() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(5),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcode() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(6),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCity() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(7),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property valid() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(8),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderAddress() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(9),String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderNameMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(10),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderNameMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(11),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyTypeMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(12),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCompanyTypeMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(13),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreetMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(14),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderStreetMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(15),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcodeMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(16),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderPostcodeMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(17),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCityMatch() As matchCode
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(18),matchCode)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property traderCityMatchSpecified() As Boolean
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(19),Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<remarks/>
|
||||
Public ReadOnly Property requestIdentifier() As String
|
||||
Get
|
||||
Me.RaiseExceptionIfNecessary
|
||||
Return CType(Me.results(20),String)
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,155 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<wsdl:definitions xmlns:impl="urn:ec.europa.eu:taxud:vies:services:checkVat" xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsdlsoap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:apachesoap="http://xml.apache.org/xml-soap" targetNamespace="urn:ec.europa.eu:taxud:vies:services:checkVat" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
|
||||
<xsd:documentation>
|
||||
Specific disclaimer for this service -----------------------------------------
|
||||
Here is the list of VAT Number to use to receive each kind of answer :
|
||||
100 = Valid request with Valid VAT Number
|
||||
200 = Valid request with an Invalid VAT Number
|
||||
201 = Error : INVALID_INPUT
|
||||
202 = Error : INVALID_REQUESTER_INFO
|
||||
300 = Error : SERVICE_UNAVAILABLE
|
||||
301 = Error : MS_UNAVAILABLE
|
||||
302 = Error : TIMEOUT
|
||||
400 = Error : VAT_BLOCKED
|
||||
401 = Error : IP_BLOCKED
|
||||
500 = Error : GLOBAL_MAX_CONCURRENT_REQ
|
||||
501 = Error : GLOBAL_MAX_CONCURRENT_REQ_TIME
|
||||
600 = Error : MS_MAX_CONCURRENT_REQ
|
||||
601 = Error : MS_MAX_CONCURRENT_REQ_TIME
|
||||
|
||||
For all the other cases, The web service will responds with a "SERVICE_UNAVAILABLE" error.
|
||||
</xsd:documentation>
|
||||
<wsdl:types>
|
||||
<xsd:schema xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:types" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
|
||||
<xsd:element name="checkVat">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatResponse">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element name="requestDate" type="xsd:date" />
|
||||
<xsd:element name="valid" type="xsd:boolean" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="name" nillable="true" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="address" nillable="true" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatApprox">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderName" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyType" type="tns1:companyTypeCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreet" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCity" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="requesterCountryCode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="requesterVatNumber" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="checkVatApproxResponse">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="vatNumber" type="xsd:string" />
|
||||
<xsd:element name="requestDate" type="xsd:date" />
|
||||
<xsd:element name="valid" type="xsd:boolean" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderName" nillable="true" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyType" nillable="true" type="tns1:companyTypeCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderAddress" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreet" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcode" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCity" type="xsd:string" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderNameMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCompanyTypeMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderStreetMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderPostcodeMatch" type="tns1:matchCode" />
|
||||
<xsd:element minOccurs="0" maxOccurs="1" name="traderCityMatch" type="tns1:matchCode" />
|
||||
<xsd:element name="requestIdentifier" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:simpleType name="companyTypeCode">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:pattern value="[A-Z]{2}\-[1-9][0-9]?" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
<xsd:simpleType name="matchCode">
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="1">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>VALID</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
<xsd:enumeration value="2">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>INVALID</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
<xsd:enumeration value="3">
|
||||
<xsd:annotation>
|
||||
<xsd:documentation>NOT_PROCESSED</xsd:documentation>
|
||||
</xsd:annotation>
|
||||
</xsd:enumeration>
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:schema>
|
||||
</wsdl:types>
|
||||
<wsdl:message name="checkVatRequest">
|
||||
<wsdl:part name="parameters" element="tns1:checkVat" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatApproxResponse">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatApproxResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatApproxRequest">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatApprox" />
|
||||
</wsdl:message>
|
||||
<wsdl:message name="checkVatResponse">
|
||||
<wsdl:part name="parameters" element="tns1:checkVatResponse" />
|
||||
</wsdl:message>
|
||||
<wsdl:portType name="checkVatPortType">
|
||||
<wsdl:operation name="checkVat">
|
||||
<wsdl:input name="checkVatRequest" message="impl:checkVatRequest" />
|
||||
<wsdl:output name="checkVatResponse" message="impl:checkVatResponse" />
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="checkVatApprox">
|
||||
<wsdl:input name="checkVatApproxRequest" message="impl:checkVatApproxRequest" />
|
||||
<wsdl:output name="checkVatApproxResponse" message="impl:checkVatApproxResponse" />
|
||||
</wsdl:operation>
|
||||
</wsdl:portType>
|
||||
<wsdl:binding name="checkVatTestBinding" type="impl:checkVatPortType">
|
||||
<wsdlsoap:binding transport="http://schemas.xmlsoap.org/soap/http" />
|
||||
<wsdl:operation name="checkVat">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="checkVatRequest">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="checkVatResponse">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
<wsdl:operation name="checkVatApprox">
|
||||
<wsdlsoap:operation soapAction="" />
|
||||
<wsdl:input name="checkVatApproxRequest">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:input>
|
||||
<wsdl:output name="checkVatApproxResponse">
|
||||
<wsdlsoap:body use="literal" />
|
||||
</wsdl:output>
|
||||
</wsdl:operation>
|
||||
</wsdl:binding>
|
||||
<wsdl:service name="checkVatTestService">
|
||||
<wsdl:port name="checkVatPort" binding="impl:checkVatTestBinding">
|
||||
<wsdlsoap:address location="http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService" />
|
||||
</wsdl:port>
|
||||
</wsdl:service>
|
||||
</wsdl:definitions>
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<!--
|
||||
This file is automatically generated by Visual Studio .Net. It is
|
||||
used to store generic object data source configuration information.
|
||||
Renaming the file extension or editing the content of this file may
|
||||
cause the file to be unrecognizable by the program.
|
||||
-->
|
||||
<GenericObjectDataSource DisplayName="matchCode" Version="1.0" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
|
||||
<TypeInfo>VERAG_PROG_ALLGEMEIN.eu.europa.ec.matchCode, Web References.eu.europa.ec.Reference.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</TypeInfo>
|
||||
</GenericObjectDataSource>
|
||||
Reference in New Issue
Block a user