neu

AvisoTV/My Project/Resources.Designer.vb

@@ -22,7 +22,7 @@ Namespace My.Resources
     '''<summary>
     '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -60,6 +60,26 @@ Namespace My.Resources
             End Set
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property Ambar_Logo() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Ambar_Logo", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ambar_simple() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ambar_simple", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

AvisoTV/My Project/Resources.resx

@@ -166,4 +166,10 @@
   <data name="okRound" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\okRound.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\..\Diverses\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Ambar_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>F:\Grafik\AMBAR\Logo\Ambar-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

AvisoTV/frmAnzeige.Designer.vb

@@ -1,50 +1,50 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmAnzeige
-  Inherits System.Windows.Forms.Form
+    Inherits System.Windows.Forms.Form
 
-  'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-  <System.Diagnostics.DebuggerNonUserCode()> _
-  Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-    Try
-      If disposing AndAlso components IsNot Nothing Then
-        components.Dispose()
-      End If
-    Finally
-      MyBase.Dispose(disposing)
-    End Try
-  End Sub
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
 
-  'Wird vom Windows Form-Designer benötigt.
-  Private components As System.ComponentModel.IContainer
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
 
-  'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
-  'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
-  'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-  <System.Diagnostics.DebuggerStepThrough()> _
-  Private Sub InitializeComponent()
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle85 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle86 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle92 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle93 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle87 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle88 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle89 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle90 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle91 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle94 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle95 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle98 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle99 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle96 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAnzeige))
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle97 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle100 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle101 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle102 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle103 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle104 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle105 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.gridAnkunft = New System.Windows.Forms.DataGridView()
         Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -85,7 +85,6 @@ Partial Class frmAnzeige
         Me.txtSchrift2 = New System.Windows.Forms.TextBox()
         Me.Label9 = New System.Windows.Forms.Label()
         Me.txtSchrift1 = New System.Windows.Forms.TextBox()
-        Me.Label7 = New System.Windows.Forms.Label()
         Me.txtBreite = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
@@ -136,6 +135,7 @@ Partial Class frmAnzeige
         Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.DataGridViewTextBoxColumn10 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.cbxBearbeiter = New System.Windows.Forms.CheckBox()
         CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -149,40 +149,40 @@ Partial Class frmAnzeige
         '
         Me.gridAnkunft.AllowUserToAddRows = False
         Me.gridAnkunft.AllowUserToDeleteRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAnkunft.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle85.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle85.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAnkunft.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle85
         Me.gridAnkunft.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
         Me.gridAnkunft.BackgroundColor = System.Drawing.Color.White
         Me.gridAnkunft.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridAnkunft.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle86.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle86.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle86.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle86.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle86.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle86.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle86.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAnkunft.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle86
         Me.gridAnkunft.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.gridAnkunft.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colFertig, Me.colLKWNr, Me.colAnkunft, Me.Dauer, Me.letzterMitarbeiter, Me.clmnBuero, Me.clmnImEx, Me.clmnArt})
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAnkunft.DefaultCellStyle = DataGridViewCellStyle8
+        DataGridViewCellStyle92.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle92.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle92.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle92.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle92.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle92.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAnkunft.DefaultCellStyle = DataGridViewCellStyle92
         Me.gridAnkunft.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridAnkunft.Location = New System.Drawing.Point(424, 21)
         Me.gridAnkunft.MultiSelect = False
         Me.gridAnkunft.Name = "gridAnkunft"
         Me.gridAnkunft.ReadOnly = True
         Me.gridAnkunft.RowHeadersVisible = False
-        DataGridViewCellStyle9.BackColor = System.Drawing.Color.White
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle9
+        DataGridViewCellStyle93.BackColor = System.Drawing.Color.White
+        DataGridViewCellStyle93.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle93.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle93
         Me.gridAnkunft.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridAnkunft.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.gridAnkunft.Size = New System.Drawing.Size(826, 444)
@@ -191,11 +191,11 @@ Partial Class frmAnzeige
         '
         'colFertig
         '
-        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
-        Me.colFertig.DefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle87.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle87.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle87.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle87.SelectionForeColor = System.Drawing.Color.Black
+        Me.colFertig.DefaultCellStyle = DataGridViewCellStyle87
         Me.colFertig.HeaderText = "KOMMEN/TAMAM"
         Me.colFertig.Name = "colFertig"
         Me.colFertig.ReadOnly = True
@@ -203,14 +203,14 @@ Partial Class frmAnzeige
         '
         'colLKWNr
         '
-        DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle4.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle88.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle88.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle88.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle88.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        DataGridViewCellStyle88.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle88.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle88.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.colLKWNr.DefaultCellStyle = DataGridViewCellStyle88
         Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
         Me.colLKWNr.Name = "colLKWNr"
         Me.colLKWNr.ReadOnly = True
@@ -218,12 +218,12 @@ Partial Class frmAnzeige
         '
         'colAnkunft
         '
-        DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.Color.Black
-        Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle89.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle89.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle89.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle89.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle89.SelectionForeColor = System.Drawing.Color.Black
+        Me.colAnkunft.DefaultCellStyle = DataGridViewCellStyle89
         Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
         Me.colAnkunft.Name = "colAnkunft"
         Me.colAnkunft.ReadOnly = True
@@ -231,12 +231,12 @@ Partial Class frmAnzeige
         '
         'Dauer
         '
-        DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle6.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle6.SelectionForeColor = System.Drawing.Color.Black
-        Me.Dauer.DefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle90.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle90.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle90.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle90.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle90.SelectionForeColor = System.Drawing.Color.Black
+        Me.Dauer.DefaultCellStyle = DataGridViewCellStyle90
         Me.Dauer.HeaderText = "DAUER/SÜRE"
         Me.Dauer.Name = "Dauer"
         Me.Dauer.ReadOnly = True
@@ -244,12 +244,12 @@ Partial Class frmAnzeige
         '
         'letzterMitarbeiter
         '
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.Color.Black
-        Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle7
+        DataGridViewCellStyle91.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle91.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle91.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle91.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle91.SelectionForeColor = System.Drawing.Color.Black
+        Me.letzterMitarbeiter.DefaultCellStyle = DataGridViewCellStyle91
         Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
         Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
         Me.letzterMitarbeiter.ReadOnly = True
@@ -594,16 +594,6 @@ Partial Class frmAnzeige
         Me.txtSchrift1.Size = New System.Drawing.Size(62, 20)
         Me.txtSchrift1.TabIndex = 6
         '
-        'Label7
-        '
-        Me.Label7.AutoSize = True
-        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label7.Location = New System.Drawing.Point(237, 227)
-        Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(55, 13)
-        Me.Label7.TabIndex = 17
-        Me.Label7.Text = "Bearbeiter"
-        '
         'txtBreite
         '
         Me.txtBreite.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -693,7 +683,7 @@ Partial Class frmAnzeige
         '
         Me.picConnectionProblem.BackColor = System.Drawing.Color.Transparent
         Me.picConnectionProblem.Image = Global.AvisoTV.My.Resources.Resources.disconnect
-        Me.picConnectionProblem.Location = New System.Drawing.Point(806, 211)
+        Me.picConnectionProblem.Location = New System.Drawing.Point(74, 150)
         Me.picConnectionProblem.Name = "picConnectionProblem"
         Me.picConnectionProblem.Size = New System.Drawing.Size(138, 98)
         Me.picConnectionProblem.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -841,6 +831,8 @@ Partial Class frmAnzeige
         Me.grpTestAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.grpTestAnzeige.BackColor = System.Drawing.Color.White
         Me.grpTestAnzeige.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.grpTestAnzeige.Controls.Add(Me.picConnectionProblem)
+        Me.grpTestAnzeige.Controls.Add(Me.cbxBearbeiter)
         Me.grpTestAnzeige.Controls.Add(Me.txtBreite8)
         Me.grpTestAnzeige.Controls.Add(Me.txtSchrift8)
         Me.grpTestAnzeige.Controls.Add(Me.Label25)
@@ -873,7 +865,6 @@ Partial Class frmAnzeige
         Me.grpTestAnzeige.Controls.Add(Me.txtSchrift6)
         Me.grpTestAnzeige.Controls.Add(Me.txtBreite)
         Me.grpTestAnzeige.Controls.Add(Me.Label13)
-        Me.grpTestAnzeige.Controls.Add(Me.Label7)
         Me.grpTestAnzeige.Controls.Add(Me.Label12)
         Me.grpTestAnzeige.Controls.Add(Me.txtSchrift1)
         Me.grpTestAnzeige.Controls.Add(Me.cboFirma)
@@ -1089,29 +1080,29 @@ Partial Class frmAnzeige
         '
         Me.gridFertig.AllowUserToAddRows = False
         Me.gridFertig.AllowUserToDeleteRows = False
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridFertig.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
+        DataGridViewCellStyle94.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle94
         Me.gridFertig.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
         Me.gridFertig.BackgroundColor = System.Drawing.Color.MintCream
         Me.gridFertig.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
-        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle11.BackColor = System.Drawing.Color.LightBlue
-        DataGridViewCellStyle11.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle11.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle11.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle11.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle11.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.gridFertig.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle11
+        DataGridViewCellStyle95.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle95.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle95.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle95.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle95.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle95.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle95.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridFertig.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle95
         Me.gridFertig.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.gridFertig.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8})
-        DataGridViewCellStyle14.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle14.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
-        DataGridViewCellStyle14.SelectionBackColor = System.Drawing.Color.MintCream
-        DataGridViewCellStyle14.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle14.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridFertig.DefaultCellStyle = DataGridViewCellStyle14
+        DataGridViewCellStyle98.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle98.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle98.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        DataGridViewCellStyle98.SelectionBackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle98.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle98.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.DefaultCellStyle = DataGridViewCellStyle98
         Me.gridFertig.Dock = System.Windows.Forms.DockStyle.Left
         Me.gridFertig.GridColor = System.Drawing.Color.MintCream
         Me.gridFertig.Location = New System.Drawing.Point(0, 21)
@@ -1119,10 +1110,10 @@ Partial Class frmAnzeige
         Me.gridFertig.Name = "gridFertig"
         Me.gridFertig.ReadOnly = True
         Me.gridFertig.RowHeadersVisible = False
-        DataGridViewCellStyle15.BackColor = System.Drawing.Color.MintCream
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.White
-        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle15
+        DataGridViewCellStyle99.BackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle99.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle99.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle99
         Me.gridFertig.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
         Me.gridFertig.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.gridFertig.Size = New System.Drawing.Size(424, 444)
@@ -1131,12 +1122,12 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn7
         '
-        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle12.BackColor = System.Drawing.Color.MintCream
-        DataGridViewCellStyle12.NullValue = CType(resources.GetObject("DataGridViewCellStyle12.NullValue"), Object)
-        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.Color.MintCream
-        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle12
+        DataGridViewCellStyle96.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle96.BackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle96.NullValue = CType(resources.GetObject("DataGridViewCellStyle96.NullValue"), Object)
+        DataGridViewCellStyle96.SelectionBackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle96.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle96
         Me.DataGridViewTextBoxColumn7.HeaderText = ""
         Me.DataGridViewTextBoxColumn7.Image = Global.AvisoTV.My.Resources.Resources.okRound
         Me.DataGridViewTextBoxColumn7.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Zoom
@@ -1149,14 +1140,14 @@ Partial Class frmAnzeige
         'DataGridViewTextBoxColumn8
         '
         Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle13.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle13.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle13.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        DataGridViewCellStyle13.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle13.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle13.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle13
+        DataGridViewCellStyle97.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle97.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle97.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle97.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        DataGridViewCellStyle97.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle97.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle97.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle97
         Me.DataGridViewTextBoxColumn8.HeaderText = "LKW-KENNZ. /PLAKA"
         Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
         Me.DataGridViewTextBoxColumn8.ReadOnly = True
@@ -1179,11 +1170,11 @@ Partial Class frmAnzeige
         'DataGridViewTextBoxColumn1
         '
         Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle16
+        DataGridViewCellStyle100.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle100.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle100.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle100.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn1.DefaultCellStyle = DataGridViewCellStyle100
         Me.DataGridViewTextBoxColumn1.HeaderText = "FERTIG/TAMAM"
         Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
         Me.DataGridViewTextBoxColumn1.ReadOnly = True
@@ -1191,13 +1182,13 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn2
         '
-        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle17.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.Color.Black
-        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle17
+        DataGridViewCellStyle101.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle101.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle101.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle101.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle101.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle101.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridViewTextBoxColumn2.DefaultCellStyle = DataGridViewCellStyle101
         Me.DataGridViewTextBoxColumn2.HeaderText = "LKW-KENNZ. /PLAKA"
         Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
         Me.DataGridViewTextBoxColumn2.ReadOnly = True
@@ -1205,12 +1196,12 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn3
         '
-        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle18.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle18
+        DataGridViewCellStyle102.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle102.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle102.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle102.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle102.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn3.DefaultCellStyle = DataGridViewCellStyle102
         Me.DataGridViewTextBoxColumn3.HeaderText = "ANKUNFT/GELIS"
         Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
         Me.DataGridViewTextBoxColumn3.ReadOnly = True
@@ -1218,12 +1209,12 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn4
         '
-        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle19
+        DataGridViewCellStyle103.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle103.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle103.Font = New System.Drawing.Font("Microsoft Sans Serif", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle103.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle103.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn4.DefaultCellStyle = DataGridViewCellStyle103
         Me.DataGridViewTextBoxColumn4.HeaderText = "DAUER/SÜRE"
         Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
         Me.DataGridViewTextBoxColumn4.ReadOnly = True
@@ -1231,12 +1222,12 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn5
         '
-        DataGridViewCellStyle20.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle20.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle20.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle20.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle20
+        DataGridViewCellStyle104.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle104.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle104.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle104.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle104.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn5.DefaultCellStyle = DataGridViewCellStyle104
         Me.DataGridViewTextBoxColumn5.HeaderText = "BEARBEITER/GÖREVLI"
         Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5"
         Me.DataGridViewTextBoxColumn5.ReadOnly = True
@@ -1244,12 +1235,12 @@ Partial Class frmAnzeige
         '
         'DataGridViewTextBoxColumn6
         '
-        DataGridViewCellStyle21.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle21.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.Color.LightGreen
-        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.Color.Black
-        Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle21
+        DataGridViewCellStyle105.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle105.BackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle105.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle105.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle105.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn6.DefaultCellStyle = DataGridViewCellStyle105
         Me.DataGridViewTextBoxColumn6.HeaderText = "BÜRO"
         Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
         Me.DataGridViewTextBoxColumn6.ReadOnly = True
@@ -1270,12 +1261,23 @@ Partial Class frmAnzeige
         Me.DataGridViewTextBoxColumn10.ReadOnly = True
         Me.DataGridViewTextBoxColumn10.Width = 30
         '
+        'cbxBearbeiter
+        '
+        Me.cbxBearbeiter.AutoSize = True
+        Me.cbxBearbeiter.Checked = True
+        Me.cbxBearbeiter.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxBearbeiter.Location = New System.Drawing.Point(240, 223)
+        Me.cbxBearbeiter.Name = "cbxBearbeiter"
+        Me.cbxBearbeiter.Size = New System.Drawing.Size(74, 17)
+        Me.cbxBearbeiter.TabIndex = 104
+        Me.cbxBearbeiter.Text = "Bearbeiter"
+        Me.cbxBearbeiter.UseVisualStyleBackColor = True
+        '
         'frmAnzeige
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1250, 624)
-        Me.Controls.Add(Me.picConnectionProblem)
         Me.Controls.Add(Me.grpTestAnzeige)
         Me.Controls.Add(Me.gridAnkunft)
         Me.Controls.Add(Me.gridFertig)
@@ -1322,7 +1324,6 @@ Partial Class frmAnzeige
     Friend WithEvents Label8 As System.Windows.Forms.Label
     Friend WithEvents txtSchrift5 As System.Windows.Forms.TextBox
     Friend WithEvents txtSchrift4 As System.Windows.Forms.TextBox
-    Friend WithEvents Label7 As System.Windows.Forms.Label
     Friend WithEvents Label6 As System.Windows.Forms.Label
     Friend WithEvents txtBreite5 As System.Windows.Forms.TextBox
     Friend WithEvents txtBreite4 As System.Windows.Forms.TextBox
@@ -1392,4 +1393,5 @@ Partial Class frmAnzeige
     Friend WithEvents clmnArt As DataGridViewTextBoxColumn
     Friend WithEvents Label26 As Label
     Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
+    Friend WithEvents cbxBearbeiter As CheckBox
 End Class

AvisoTV/frmAnzeige.resx

@@ -148,7 +148,7 @@
     <value>True</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="DataGridViewCellStyle12.NullValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+  <data name="DataGridViewCellStyle96.NullValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         Qk32AgAAAAAAADYAAAAoAAAADgAAABAAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
         AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgoTGw8bGw8bGw8bGw8bGw8bGw8bG

AvisoTV/frmAnzeige.vb

@@ -150,6 +150,7 @@ Public Class frmAnzeige
             GridBackgroundColor = Color.FromArgb(255, 255, 240)
         ElseIf Standort = "AMBAR" Then
             VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR"
+            CLUSTER = "FRONTOFFICE"
         ElseIf Standort = "FRONTOFFICE" Then
             VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
             CLUSTER = "FRONTOFFICE"
@@ -225,11 +226,11 @@ Public Class frmAnzeige
         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
+        ElseIf Standort <> "WAI" And Standort <> "SBG" 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 <> "" Then where &= "  AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB").Replace("UNISPED", "SUB").Replace("FRONTOFFICE", "SUB").Replace("AMBAR", "AMB") & "'" '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 " &
@@ -263,7 +264,7 @@ Public Class frmAnzeige
 
         If connok Then
             clmnBuero.Visible = StandortATILLA
-            clmnImEx.Visible = (Standort = "WAI")
+            clmnImEx.Visible = (Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB")
 
             If Aktive_Seite <= Max_Seiten Then Aktive_Seite += 1 'nächste Seite anzeigen
 
@@ -292,7 +293,7 @@ Public Class frmAnzeige
             Try
                 Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
                 removeControls()
-                '  MsgBox(hSQL)
+                'MsgBox(hSQL)
                 'If IsNothing(conn) Then Exit Sub 'Fehler bei DB-Zugriff - Anzeige nicht aktualisieren
                 Using cmd As New SqlCommand(hSQL, conn)
                     '  MsgBox(conn.ConnectionString)
@@ -340,7 +341,13 @@ Public Class frmAnzeige
                             If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then
                                 hFertig = VarToStr(dr.Item("AvisoTVHinweis"))
                             ElseIf VarToBool(dr.Item("LKW_fertig")) Then
-                                hFertig = "OK"
+                                Select Case Standort
+                                    Case "FRONTOFFICE"
+                                        hFertig = "OK > Front-Office"
+                                    Case Else
+                                        hFertig = "OK"
+                                End Select
+
                             End If
 
                             If anz <= Max_Zeilen Then
@@ -349,7 +356,7 @@ Public Class frmAnzeige
                                 If StandortATILLA Then
                                     Dim hBuero As String = VarToStr(dr.Item("buero"))
                                     gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero, "", ZOLLDigitalEingereicht)
-                                ElseIf Standort = "WAI" Then
+                                ElseIf Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB" Then
                                     If ImEx = "IMPORT" Then ImEx = "IM"
                                     If ImEx = "EXPORT" Then ImEx = "EX"
                                     ' MsgBox(ImEx)
@@ -365,6 +372,12 @@ Public Class frmAnzeige
                                     If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue
                                 End If
 
+                                If hFertig.StartsWith("OK") Then
+                                    Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
+                                    r.Cells(0).Style.ForeColor = Color.Green
+                                    r.Cells(1).Style.ForeColor = Color.Green
+                                End If
+
                                 If CBool(dr.Item("ZOLLDigitalEingereicht")) Then
                                     Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
                                     '   r.Cells("clmnArt").Style.BackColor = Color.DarkGreen
@@ -383,6 +396,8 @@ Public Class frmAnzeige
                                         Case "URGENT" : doimage = My.Resources.urgent_qu : r.Cells(0).Value = "PROBLEM"
                                     End Select
 
+
+
                                     doimage = Nothing
                                     If doimage IsNot Nothing Then
                                         r.Cells(0).Style.Alignment = DataGridViewContentAlignment.MiddleRight
@@ -612,12 +627,12 @@ Public Class frmAnzeige
     End Sub
     Sub initSettings()
         initZeilen()
-
+        picVERAG.Height = lblZeile1.Height
         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 "AMBAR" : picVERAG.Image = My.Resources.Ambar_Logo : picVERAG.Height = Panel2.Height
             Case "FRONTOFFICE" : picVERAG.Image = My.Resources.FrontOfficeSUB
             Case Else : picVERAG.Image = My.Resources.Verag_AG_Logopng
         End Select
@@ -726,7 +741,7 @@ Public Class frmAnzeige
             gridAnkunft.Columns("clmnBuero").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
         End If
 
-        If Standort = "WAI" And gridAnkunft.Columns("clmnImEx") IsNot Nothing Then
+        If (Standort = "WAI" Or Standort.Replace("AMBAR", "AMB") = "AMB") And gridAnkunft.Columns("clmnImEx") IsNot Nothing Then
             ' MsgBox(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 30))
             gridAnkunft.Columns("clmnImEx").Width = CInt(IIf(IsNumeric(txtBreite7.Text), txtBreite7.Text, 50))
             gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Font = Font7
@@ -742,11 +757,21 @@ Public Class frmAnzeige
             gridAnkunft.Columns("clmnArt").Visible = True
         End If
 
+        If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).MinimumWidth = 10 'Default, weil minwisth später gesetzt werden kann
+
         If txtBreite1.Text <> "" Then gridAnkunft.Columns(0).Width = CInt(txtBreite1.Text)
         If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text)
         If txtBreite3.Text <> "" Then gridAnkunft.Columns(2).Width = CInt(txtBreite3.Text)
         If txtBreite4.Text <> "" Then gridAnkunft.Columns(3).Width = CInt(txtBreite4.Text)
-        gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+        If cbxBearbeiter.Checked Then
+            gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+        Else
+            gridAnkunft.Columns(4).Width = 0
+            If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).MinimumWidth = CInt(txtBreite2.Text)
+            gridAnkunft.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+        End If
+
 
         If txtLkwOK_BildBreite.Text <> "" Then gridFertig.Columns(0).Width = CInt(txtLkwOK_BildBreite.Text)
 
@@ -839,6 +864,7 @@ Public Class frmAnzeige
         If txtBreiteGridLKWOK.Text <> "" Then setProperty("txtBreiteGridLKWOK", txtBreiteGridLKWOK.Text)
 
         setProperty("cbxGridLKWOK", CInt(cbxGridLKWOK.Checked).ToString)
+        setProperty("cbxBearbeiter", CInt(cbxBearbeiter.Checked).ToString)
 
     End Sub