20200108

AvisoTV/frmAnzeige.vb

@@ -30,7 +30,7 @@ Public Class frmAnzeige
     Private StandortATILLA As Boolean = False
     Private StandortSUB12 As Boolean = False
     Private ZeilenATILLA As Integer = 16
-
+    Dim CLUSTER As String = ""
     Private Font1 As New Font(FontFamily.GenericSansSerif, 70, FontStyle.Bold)
     Private Font1_MESS As New Font(FontFamily.GenericSansSerif, 40, FontStyle.Bold)
 
@@ -101,10 +101,11 @@ Public Class frmAnzeige
         Panel1.ForeColor = Color.White
         lblAnzahl.ForeColor = Color.White
         lblSeite.ForeColor = Color.White
-
+        CLUSTER = ""
         VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
         'Standort Atilla bekommt Sonderanzeige
         If Standort = "ATILLA" Then
+
             VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA"
             StandortATILLA = True
             ZeilenStandard = ZeilenATILLA
@@ -112,6 +113,7 @@ Public Class frmAnzeige
             Standort = ""
         ElseIf Standort = "IMEX" Then
             VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
+            '  VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
             Panel1.BackColor = Color.Gold
             Panel1.BackColor = Color.Gold
             lblZeit.BackColor = Color.Gold
@@ -127,7 +129,25 @@ Public Class frmAnzeige
             'gridAnkunft.BackgroundColor = Color.FromArgb(255, 255, 240)
             GridBackgroundColor = Color.FromArgb(255, 255, 240)
 
+        ElseIf Standort = "UNISPED" Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED"
+            ' VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
+            Panel1.BackColor = Color.Red
+            Panel1.BackColor = Color.Red
+            lblZeit.BackColor = Color.Red
+            lblAnzahl.BackColor = Color.Red
+            lblSeite.BackColor = Color.Red
 
+            'gridAnkunft.BackgroundColor = Color.FromArgb(255, 255, 240)
+            GridBackgroundColor = Color.FromArgb(255, 255, 240)
+        ElseIf Standort = "AMBAR" Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
+        ElseIf Standort = "FRONTOFFICE" Then
+            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
+            CLUSTER = "FRONTOFFICE"
+
+        ElseIf Standort = "VERAG" Then
+            ' VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE"
         End If
 
         gridAnkunft.AlternatingRowsDefaultCellStyle.BackColor = GridBackgroundColor
@@ -220,8 +240,15 @@ Public Class frmAnzeige
 
             Dim where As String = " WHERE "
             Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx  FROM Aviso "
-            where &= " Status IN( " & stat_tmp & ") AND Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
-            If Standort <> "" Then where &= "  AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB") & "'" 'nur die IMEX-LKW in SUB anzeigen
+            where &= " Status IN( " & stat_tmp & ") "
+            If CLUSTER <> "" Then
+                where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
+            ElseIf Standort <> "WAI" And Standort <> "ABG" And Standort <> "NKD" Then
+                where &= " AND Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
+            End If
+
+            If Standort <> "" Then where &= "  AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB").Replace("UNISPED", "SUB").Replace("FRONTOFFICE", "SUB") & "'" 'nur die IMEX-LKW in SUB anzeigen
+            If Standort = "FRONTOFFICE" Then where &= "  AND isnull(ImEx,'IMPORT') IN ('IMPORT','') "
             hSQL &= where
             hSQL += ank_tmp & " ORDER BY CASE " &
                                         " when [Status] =3 then 1 " &
@@ -480,6 +507,9 @@ Public Class frmAnzeige
         Select Case Standort
             Case "ATILLA" : picVERAG.Image = My.Resources.Atilla 'Atilla such su
             Case "IMEX" : picVERAG.Image = My.Resources.IMEX_LOGO_simple
+            Case "UNISPED" : picVERAG.Image = My.Resources.Unisped_logo
+            Case "AMBAR" : picVERAG.Image = Nothing
+            Case "FRONTOFFICE" : picVERAG.Image = My.Resources.FrontOfficeSUB
             Case Else : picVERAG.Image = My.Resources.Verag_AG_Logopng
         End Select
         If StandortATILLA Then picVERAG.Image = My.Resources.Atilla
@@ -677,12 +707,12 @@ Public Class frmAnzeige
         Me.Close()
     End Sub
 
-    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
-        Standort = ComboBox1.Text
+    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
+        Standort = cboFirma.Text
         cDatenbankAVISO.GlobalConnection = Nothing
         '   Dim fs As New FileStream(StandortDatei, FileMode.Open, FileAccess.Write)
         Dim strmWriter As New StreamWriter(StandortDatei, False)
-        strmWriter.WriteLine(ComboBox1.Text)
+        strmWriter.WriteLine(cboFirma.Text)
         strmWriter.Close() ' fs.Close()
         frmAnzeige_Load(Me, New EventArgs)
         grpTestAnzeige.Visible = False