neu
This commit is contained in:
@@ -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.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
|
||||
@@ -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>
|
||||
Reference in New Issue
Block a user