gesamtsicherheiten

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -11,6 +11,15 @@ Public Class frmGesamtsicherheitenMenuNEU
     Public firmaId As Integer
 
 
+    Public Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
     Private Sub frmGesamtsicherheitenNEU_Menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
 
@@ -19,13 +28,14 @@ Public Class frmGesamtsicherheitenMenuNEU
             Case "VERAG AG" : firmaId = 1 : chkOffen.Checked = False
             Case "IMEX" : firmaId = 20 : chkOffen.Checked = False
             Case "Verag CS" : firmaId = 11 : chkOffen.Checked = False
+            Case "Unisped GmbH" : firmaId = 21 : chkOffen.Checked = False
         End Select
 
 
         cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
-        'cbxWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
         cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
         cbxWarenort.DropDownWidth = 150
+
         Me.Text = "Gesamtsicherheiten " & Standort
         frmHauptfenster.EnableDoubleBuffered(dgvListe)