neu

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1046,9 +1046,16 @@ Public Class usrcntlKundeBearbeitenFull
             btnFirmendatenFormularSpeichern.Enabled = False
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
+            Button1.Visible = True
+            Label29.Visible = True
+            Label28.Visible = True
+        End If
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SYSKA_UPDATE", "SDL") Then
             Label97.Visible = True
             Button4.Visible = True
+            CheckBox1.Visible = True
         End If
         tbcntrAbf.TabPages.Remove(TabPage4)
 
@@ -1131,12 +1138,14 @@ Public Class usrcntlKundeBearbeitenFull
     End Sub
 
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
-        If If(KUNDE.EORITIN, "") = "" Then
-            MsgBox("Bitte EORI-Nr. eintragen!")
-            Exit Sub
-        End If
-        If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
-            init(KUNDE.KundenNr)
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("DAKOSY_KD_Uebertragen", "SDL") Then
+            If If(KUNDE.EORITIN, "") = "" Then
+                MsgBox("Bitte EORI-Nr. eintragen!")
+                Exit Sub
+            End If
+            If DAKOSY_Worker.cDakosyFunftions.sendDataByKdNr(KUNDE.KundenNr) Then ' Application.StartupPath & "\Dakosy_SEND\")
+                init(KUNDE.KundenNr)
+            End If
         End If
     End Sub