neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1630,19 +1630,40 @@ Public Class usrCntlKundenuebersicht
         sender.BackgroundImage = My.Resources.wait
         ' Button5.Visible = False
 
-        '  If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
-        Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
-        If UID IsNot Nothing Then
-            If UID.uid_valid Then
-                setKD(kdNr)
-                sender.BackgroundImage = My.Resources.ok
+
+        Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
+        FO.initValues()
+
+        If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then
+            Dim UID_TMP = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(ADRESSE.AdressenNr,, , , 2)
+            If UID_TMP IsNot Nothing Then
+                If UID_TMP.uid_valid Then
+                    setKD(kdNr)
+                    sender.BackgroundImage = My.Resources.ok
+                Else
+                    sender.BackgroundImage = My.Resources.del
+                End If
             Else
-                sender.BackgroundImage = My.Resources.del
+                sender.BackgroundImage = My.Resources.fragezeichen
             End If
-        Else
-            sender.BackgroundImage = My.Resources.fragezeichen
+
+            FO.Call_Web_Service_MethodUID_Logout_NEU2020()
+
         End If
 
+        ''  If cProgramFunctions.validUID(ADRESSE.UstIdKz, ADRESSE.UstIdNr) Then
+        'Dim UID = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefung(ADRESSE.AdressenNr, True)
+        'If UID IsNot Nothing Then
+        '    If UID.uid_valid Then
+        '        setKD(kdNr)
+        '        sender.BackgroundImage = My.Resources.ok
+        '    Else
+        '        sender.BackgroundImage = My.Resources.del
+        '    End If
+        'Else
+        '    sender.BackgroundImage = My.Resources.fragezeichen
+        'End If
+
 
     End Sub
 
@@ -2354,7 +2375,7 @@ Public Class usrCntlKundenuebersicht
         Dim frmList As New frmKundenUIDEORI_List
         Select Case typeListe
             Case "UID"
-                Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr],[uid_UstIdKz],[uid_UstIdNr],[uid_Datum],[uid_valid],[uid_Sachbearbeiter],[uid_stufe] FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "'", "FMZOLL")
+                Dim dt = SQL.loadDgvBySql("SELECT [uid_id],[uid_KundenNr] KundenNr,[uid_UstIdKz]UstIdKz,[uid_UstIdNr]UstIdNr,[uid_Datum]Datum,[uid_valid]Gültig,[uid_Sachbearbeiter]Sachbearbeiter,[uid_stufe]Stufe FROM [tblUIDPruefung]where uid_KundenNr='" & kdNr & "' ORDER BY uid_Datum desc", "FMZOLL")
                 If dt IsNot Nothing Then
                     frmList.dgv.DataSource = dt
                     frmList.dgv.Columns("uid_id").Visible = False