neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -56,6 +56,7 @@ Public Class usrcntlKundeBearbeitenFull
         End Select
 
         If ADRESSE.AdressenNr <= 0 Then
+
             KUNDE_ERW.kde_BesonderheitenNeu = 1
             cboKundenkreis.Items.Clear()
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
@@ -110,6 +111,9 @@ Public Class usrcntlKundeBearbeitenFull
             End If
 
             pnlNeukunde.Visible = True
+            btnUIDPruef.Visible = False
+        Else
+            btnUIDPruef.Visible = True
         End If
 
 
@@ -661,6 +665,7 @@ Public Class usrcntlKundeBearbeitenFull
                         If FISKAL.SAVE AndAlso KUNDE_ERW.SAVE Then
                             If usrCntlAufschubkonten.SAVE() Then
                                 pnlNeukunde.Visible = False
+                                btnUIDPruef.Visible = True
                                 RaiseEvent KD_SAVED(ADRESSE.AdressenNr)
                                 init(KUNDE.KundenNr)
                             End If
@@ -1332,5 +1337,46 @@ Public Class usrcntlKundeBearbeitenFull
         End If
     End Sub
 
+    Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
+        If ADRESSE.AdressenNr <= 0 Then Exit Sub
+        If ADRESSE.UstIdNr Is Nothing Then Exit Sub
+        If ADRESSE.UstIdKz Is Nothing Then Exit Sub
+        If ADRESSE.UstIdKz = "" Then Exit Sub
+        If ADRESSE.UstIdNr = "" Then Exit Sub
 
+        sender.BackgroundImage = My.Resources.wait
+
+        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
+                    init(ADRESSE.AdressenNr)
+                    sender.BackgroundImage = My.Resources.ok
+                Else
+                    sender.BackgroundImage = My.Resources.del
+                End If
+            Else
+                sender.BackgroundImage = My.Resources.fragezeichen
+            End If
+
+            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
+        '        init(ADRESSE.AdressenNr)
+        '        sender.BackgroundImage = My.Resources.ok
+        '    Else
+        '        sender.BackgroundImage = My.Resources.del
+        '    End If
+        'Else
+        '    sender.BackgroundImage = My.Resources.fragezeichen
+        'End If
+    End Sub
 End Class