SDL Jetzt erst recht!

2019-08-08 12:34:08 +02:00
parent f336f214e9
commit 5cbb13561f
1496 changed files with 522451 additions and 0 deletions
--- a/SDL/Classes/cFinanzOnlineWebService.vb
+++ b/SDL/Classes/cFinanzOnlineWebService.vb
@@ -0,0 +1,85 @@
+Imports SDL.at.gv.bmf.finanzonlineLogin
+
+
+' Aufruf des Webservice von FinanzOnline zur prüfung der UID-Nummer
+' Aufgrund von verzögerten Bestätigungen wurd diese Funktion deaktiviert!!!
+
+Public Class cFinanzOnlineWebService
+    ' Private tid As String = My.Resources.tid
+    ' Private benid As String = My.Resources.benid
+    '  Private pin As String = My.Resources.pin
+
+    Shared tid As String = "1000103u3032"
+    Shared benid As String = "webserv99"
+    Shared pin As String = "webserv99"
+
+
+    Shared SESSION_ID As String = ""
+
+    Shared Function Call_Web_Service_MethodUID_Login() As Integer
+        Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
+        Try
+            Dim rc = ""
+            Dim msg = ""
+            SESSION_ID = CallWebService.login(tid, benid, pin, "ATU53187000", rc, msg)
+            MsgBox("msg " & msg)
+            MsgBox(SESSION_ID)
+            Return rc
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return -99
+    End Function
+
+    Shared Function Call_Web_Service_MethodUID_Abfrage(ByRef session As String, ByVal txtFirma As String, ByVal txtUid As String) As String
+        Dim CallWebService As New SDL.at.gv.bmf.finanzonline.uidAbfrageService
+        Try
+            ' Return CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
+            'Dim s() As Object = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid.Text, uidAbfrageRequestStufe.Item2, "", "", "", "", "", "", "")
+
+            Dim msg As String
+            Dim name As String
+            Dim adrz1 As String
+            Dim adrz2 As String
+            Dim adrz3 As String
+            Dim adrz4 As String
+            Dim adrz5 As String
+            Dim adrz6 As String
+
+
+            Dim returnInt As Integer = CallWebService.uidAbfrage(session, tid, benid, My.Resources.UID_Nr, txtUid, at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
+
+            If returnInt = 0 Then
+                Dim firma As String = name & vbNewLine & adrz1
+                If adrz2 <> "" Then firma = firma & vbNewLine & adrz2
+                If adrz3 <> "" Then firma = firma & vbNewLine & adrz3
+                If adrz4 <> "" Then firma = firma & vbNewLine & adrz4
+                If adrz5 <> "" Then firma = firma & vbNewLine & adrz5
+                If adrz6 <> "" Then firma = firma & vbNewLine & adrz6
+
+                '  frmUIDCheck.firmaUIDFinanzOnline = firma
+                ' frmUIDCheck.firmaUIDProgramm = txtFirma
+                ' frmUIDCheck.uidnr = txtUid
+                ' frmUIDCheck.Show()
+            Else
+                MsgBox(returnInt)
+            End If
+            Return returnInt
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return "-1"
+    End Function
+    Shared Function Call_Web_Service_MethodUID_Logout(ByRef sessionid As String) As String
+        Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
+        Try
+            Dim msg = ""
+            Dim sGetValue As String = CallWebService.logout(tid, benid, sessionid, msg)
+            Return sGetValue
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        Return ""
+    End Function
+
+End Class