neu

SDL/kunden/frmKundenSucheUebersicht.vb

@@ -47,10 +47,10 @@ Public Class frmKundenSucheUebersicht
             .Columns("Straße").MinimumWidth = 150
             .Columns("Straße").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("UstId").Width = 100
-            
 
 
-            lblErgebnis.Text = "Ergebnise: " & .RowCount
+
+            lblErgebnis.Text = "Ergebnisse: " & .RowCount
         End With
 
         Me.Cursor = Cursors.Default
@@ -116,14 +116,20 @@ Public Class frmKundenSucheUebersicht
         'ComboBox1.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung]  FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", True, "FMZOLL")
         Button4.PerformClick()
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX"
-                cboFiliale._allowedValuesFreiText = {"5501"}
-                cboFiliale.changeItem("5501")
-            Case "ATILLA"
-                cboFiliale._allowedValuesFreiText = {"4801"}
-                cboFiliale.changeItem("4801")
-        End Select
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" Then
+            cboFiliale._allowedValuesFreiText = {VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE}
+            cboFiliale.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE)
+            cboFiliale.Enabled = False
+        End If
+
+        'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        '    Case "IMEX"
+        '        cboFiliale._allowedValuesFreiText = {"5501"}
+        '        cboFiliale.changeItem("5501")
+        '    Case "ATILLA"
+        '        cboFiliale._allowedValuesFreiText = {"4801"}
+        '        cboFiliale.changeItem("4801")
+        'End Select
 
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then