neu

SDL/kunden/frmKundenUebersichtZOLL.vb

@@ -57,7 +57,7 @@ Public Class frmKundenUebersichtZOLL
             InitializeComponent()
             MenuStripSDL.Renderer = New MyRenderer()
         Catch ex As Exception
-
+            MsgBox(ex.Message & ex.StackTrace)
         End Try
     End Sub
 
@@ -106,13 +106,13 @@ Public Class frmKundenUebersichtZOLL
 
         lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
 
-        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
+        'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
 
-            Select Case BER_STUFE
-                Case 99 : Me.Close() : Exit Sub
-            End Select
+        Select Case BER_STUFE
+            Case 99 : Me.Close() : Exit Sub
+        End Select
 
-        End If
+        'End If
 
 
         KdSearchBox1.initKdBox(Me) ', lblKdNr)
@@ -123,6 +123,10 @@ Public Class frmKundenUebersichtZOLL
         End If
 
 
+        'If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
+        '    cbx.Checked = True
+        'End If
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
             mnueRechnungen.Visible = False
             mnueSpeditionsbuch.Visible = False
@@ -133,12 +137,13 @@ Public Class frmKundenUebersichtZOLL
             ToolStripFormulare.Visible = False
             mnueFiskal.Visible = False
             toolNeuerKunde.Visible = False
+            ' cbx.Checked = True
         End If
 
 
 
-        '   BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
-        AddHandler KdSearchBox1.PropertyChanged, Sub()
+            '   BERECHTIGUNEN = cBerechtignungenFunctions.loadBerechtigungen(USRID)
+            AddHandler KdSearchBox1.PropertyChanged, Sub()
                                                      Try
                                                          setKD(KdSearchBox1.KdNr_value)
                                                      Catch ex As Exception