neu

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -168,8 +168,8 @@ Public Class frmKundenUebersichtZOLL
             '   BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
             AddHandler KdSearchBox1.PropertyChanged, Sub()
                                                      Try
-                                                         setKD(KdSearchBox1.KdNr_value)
-                                                     Catch ex As Exception
+                                                             setKD(KdSearchBox1.KdNr_value)
+                                                         Catch ex As Exception
                                                          MsgBox(ex.Message & vbNewLine & ex.StackTrace)
                                                      End Try
                                                  End Sub
@@ -258,6 +258,7 @@ Public Class frmKundenUebersichtZOLL
         initAllgemein()
 
 
+        Me.tbcntrKundenDaten.Visible = True
         usrcntlKundenuebersicht.setKD(kdnr)
         'initDGVUmsatz()
         'initDGVOffenePosten()
@@ -290,7 +291,6 @@ Public Class frmKundenUebersichtZOLL
         'SchließenToolStripMenuItem.Enabled = True
         mnueFiskal.Enabled = True
 
-        Me.tbcntrKundenDaten.Visible = True
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
             mnueRechnungen.Visible = False