edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.map Normal file
View File

@@ -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>

235
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/Reference.vb Normal file
View File

@@ -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.7.3056.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.7.3056.0")> _
Public Delegate Sub loginCompletedEventHandler(ByVal sender As Object, ByVal e As loginCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.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.7.3056.0")> _
Public Delegate Sub logoutCompletedEventHandler(ByVal sender As Object, ByVal e As logoutCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.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

83
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/session.xsd Normal file
View File

@@ -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>

56
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline.session/sessionService.wsdl Normal file
View File

@@ -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>

7
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.map Normal file
View File

@@ -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>

236
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/Reference.vb Normal file
View File

@@ -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.7.3056.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.7.3056.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.7.3056.0")> _
Public Delegate Sub uidAbfrageCompletedEventHandler(ByVal sender As Object, ByVal e As uidAbfrageCompletedEventArgs)
'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.7.3056.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

69
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrage.xsd Normal file
View File

@@ -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>

37
VERAG_PROG_ALLGEMEIN/Web References/at.gv.bmf.finanzonline/uidAbfrageService.wsdl Normal file
View File

@@ -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>