neu

SDL/Classes/cFinanzOnlineWebService.vb

@@ -31,6 +31,28 @@ Public Class cFinanzOnlineWebService
 
     Public Shared SESSION_ID As String = ""
 
+    Shared Sub initValues()
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX"
+                tid = "19435107n654"
+                benid = "WEBserv99"
+                pin = "WEBserv99"
+                uid = "ATU68490714"
+            Case "FRONTOFFICE"
+                tid = "67493371k039"
+                benid = "WEBserv99"
+                pin = "WEBserv99"
+                uid = "ATU74813856"
+            Case Else  'VERAG:
+                tid = "1000103u3032"
+                benid = "webserv99"
+                pin = "webserv99"
+                uid = "ATU53187000"
+        End Select
+    End Sub
+
+
     Shared Function Call_Web_Service_MethodUID_Login() As Integer
         Dim CallWebService As New SDL.at.gv.bmf.finanzonlineLogin.sessionService
         Try
@@ -122,6 +144,7 @@ Public Class cFinanzOnlineWebService
         Dim Firma = ""
 
             Dim UID_ERG = Call_Web_Service_MethodUID_Abfrage_NEU2020(txtUid, Firma, tmp_SESSION_ID, msgErgebnis)
+
             If UID_ERG = 0 Or UID_ERG = 1 Then
                 Select Case UID_ERG
                     Case 0 : msgErgebnis = "UID-Nr. GÜLTIG   -   OK"
@@ -159,7 +182,7 @@ Public Class cFinanzOnlineWebService
     End Function
 
 
-    Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "") As String 'SESSION_ID wir nur zurückgegeben
+    Shared Function Call_Web_Service_MethodUID_Abfrage_NEU2020(ByVal txtUid As String, Optional ByRef Firma As String = "", Optional ByRef tmp_SESSION_ID As String = "", Optional ByRef msgErgebnis As String = "", Optional SaveErgInAdressenKdNr As Integer = -1) As String 'SESSION_ID wir nur zurückgegeben
         If Call_Web_Service_MethodUID_Login_NEU2020() <> 0 Then
             Return -1
         End If
@@ -169,17 +192,57 @@ Public Class cFinanzOnlineWebService
             ' 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 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(tid, benid, SESSION_ID, uid, txtUid, VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageServiceRequestStufe.Item2, msg, name, adrz1, adrz2, adrz3, adrz4, adrz5, adrz6)
 
+            If returnInt = 0 Or returnInt = 1 Then
+
+                Dim UID_TMP As New VERAG_PROG_ALLGEMEIN.cUIDPruefung
+
+                UID_TMP.uid_Datum = Now
+                UID_TMP.uid_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+                'If If(UID_TMP.uid_Sachbearbeiter, "") = "" Then UID_TMP.uid_Sachbearbeiter = "AUTO"
+                UID_TMP.uid_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+                UID_TMP.uid_valid = (returnInt = 0)
+                If SaveErgInAdressenKdNr > 0 Then UID_TMP.uid_KundenNr = SaveErgInAdressenKdNr
+
+
+                UID_TMP.uid_UstIdKz = GetUIDLand(txtUid)
+                UID_TMP.uid_UstIdNr = GetUidNr(txtUid)
+
+                UID_TMP.Firma = name
+                UID_TMP.uid_abfrageUid = uid
+                UID_TMP.uid_sessionId = tmp_SESSION_ID
+
+                UID_TMP.uid_adr1 = adrz1
+                UID_TMP.uid_adr2 = adrz2
+                UID_TMP.uid_adr3 = adrz3
+                UID_TMP.uid_adr4 = adrz4
+                UID_TMP.uid_adr5 = adrz5
+                UID_TMP.uid_adr6 = adrz6
+
+                UID_TMP.uid_stufe = 2
+
+                UID_TMP.SAVE()
+                If UID_TMP.uid_valid Then
+                    If SaveErgInAdressenKdNr > 0 Then
+                        Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(SaveErgInAdressenKdNr)
+                        AD.UstIdGeprüft = Now.ToShortDateString
+                        AD.SAVE()
+                    End If
+                End If
+            End If
+
+
+
             If returnInt = 0 Then
                 Firma = name & vbNewLine & adrz1
                 If adrz2 <> "" Then Firma = Firma & vbNewLine & adrz2
@@ -206,7 +269,30 @@ Public Class cFinanzOnlineWebService
         Return "-1"
     End Function
 
+    Shared Function GetUIDLand(uid As String)
+        If uid.Length > 2 Then
+            Return uid.Substring(0, 2)
+        End If
+        'Dim uidLand = ""
+        'For Each s In uid
+        '    If IsNumeric(s) Then Return uidLand
+        '    uidLand &= s
+        'Next
+        'Return uidLand
+    End Function
 
+
+    Shared Function GetUidNr(uid As String)
+        If uid.Length > 2 Then
+            Return uid.Substring(2, uid.Length-2)
+        End If
+        'Dim uidLand = ""
+        'For Each s In uid
+        '    If IsNumeric(s) Then uidLand &= s
+        'Next
+        'Return uidLand
+
+    End Function
     Shared Function GetCodeText(rc As Integer)
         Select Case rc
             Case 0 : Return "Die UID des Erwerbers ist gültig."