neu

2020-03-12 14:48:24 +01:00
parent e879fb6881
commit afaac3c2a4
107 changed files with 16055 additions and 3324 deletions
--- a/AvisoTV/AvisoTV.vbproj
+++ b/AvisoTV/AvisoTV.vbproj
@@ -168,6 +168,8 @@
    <None Include="Resources\IMEX-LOGO_simple.png" />
    <None Include="Resources\Unisped_logo.jpg" />
    <None Include="Resources\FrontOfficeSUB.jpg" />
+    <None Include="Resources\ok.png" />
+    <None Include="Resources\okRound.jpg" />
    <Content Include="tv.ico" />
  </ItemGroup>
  <ItemGroup>
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -136,6 +136,26 @@ Namespace My.Resources
            End Get
        End Property
        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property ok() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ok", 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 okRound() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("okRound", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
        '''<summary>
        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
        '''</summary>
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -163,4 +163,10 @@
  <data name="ggg5ggggggg" xml:space="preserve">
    <value />
  </data>
+  <data name="ok" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ok.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <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>
 </root>
--- a/AvisoTV/Resources/ok.png
+++ b/AvisoTV/Resources/ok.png
--- a/AvisoTV/Resources/okRound.jpg
+++ b/AvisoTV/Resources/okRound.jpg
--- a/AvisoTV/frmAnzeige.Designer.vb
+++ b/AvisoTV/frmAnzeige.Designer.vb
@@ -37,7 +37,13 @@ Partial Class frmAnzeige
        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle13 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 DataGridViewCellStyle16 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 DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAnzeige))
+        Dim DataGridViewCellStyle18 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()
@@ -101,18 +107,32 @@ Partial Class frmAnzeige
        Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.grpTestAnzeige = New System.Windows.Forms.Panel()
+        Me.Label24 = New System.Windows.Forms.Label()
+        Me.txtBreiteGridLKWOK = New System.Windows.Forms.TextBox()
+        Me.Label23 = New System.Windows.Forms.Label()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.txtLkwOK_BildBreite = New System.Windows.Forms.TextBox()
+        Me.Label21 = New System.Windows.Forms.Label()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.txtLkwOK_LKWNrSchrift = New System.Windows.Forms.TextBox()
+        Me.Label19 = New System.Windows.Forms.Label()
        Me.txtBreite7 = New System.Windows.Forms.TextBox()
        Me.txtSchrift7 = New System.Windows.Forms.TextBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.gridFertig = New System.Windows.Forms.DataGridView()
+        Me.cbxGridLKWOK = New System.Windows.Forms.CheckBox()
+        Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewImageColumn()
+        Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        CType(Me.gridAnkunft, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picConnectionProblem, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.picVERAG, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.grpTestAnzeige.SuspendLayout()
+        CType(Me.gridFertig, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'gridAnkunft
@@ -144,7 +164,7 @@ Partial Class frmAnzeige
        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
        Me.gridAnkunft.DefaultCellStyle = DataGridViewCellStyle8
        Me.gridAnkunft.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.gridAnkunft.Location = New System.Drawing.Point(0, 21)
+        Me.gridAnkunft.Location = New System.Drawing.Point(424, 21)
        Me.gridAnkunft.MultiSelect = False
        Me.gridAnkunft.Name = "gridAnkunft"
        Me.gridAnkunft.ReadOnly = True
@@ -155,7 +175,7 @@ Partial Class frmAnzeige
        Me.gridAnkunft.RowsDefaultCellStyle = DataGridViewCellStyle9
        Me.gridAnkunft.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
        Me.gridAnkunft.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.gridAnkunft.Size = New System.Drawing.Size(1250, 494)
+        Me.gridAnkunft.Size = New System.Drawing.Size(826, 494)
        Me.gridAnkunft.TabIndex = 1
        Me.gridAnkunft.TabStop = False
        '
@@ -309,7 +329,7 @@ Partial Class frmAnzeige
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Button1.ForeColor = System.Drawing.Color.White
-        Me.Button1.Location = New System.Drawing.Point(431, 0)
+        Me.Button1.Location = New System.Drawing.Point(644, 0)
        Me.Button1.Name = "Button1"
        Me.Button1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Button1.Size = New System.Drawing.Size(54, 20)
@@ -321,7 +341,7 @@ Partial Class frmAnzeige
        '
        Me.Label16.AutoSize = True
        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(137, 70)
+        Me.Label16.Location = New System.Drawing.Point(359, 73)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(67, 13)
        Me.Label16.TabIndex = 32
@@ -331,7 +351,7 @@ Partial Class frmAnzeige
        '
        Me.Label15.AutoSize = True
        Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label15.Location = New System.Drawing.Point(15, 120)
+        Me.Label15.Location = New System.Drawing.Point(237, 123)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(85, 13)
        Me.Label15.TabIndex = 32
@@ -340,7 +360,7 @@ Partial Class frmAnzeige
        'txtSchrift1_MESS
        '
        Me.txtSchrift1_MESS.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift1_MESS.Location = New System.Drawing.Point(140, 117)
+        Me.txtSchrift1_MESS.Location = New System.Drawing.Point(362, 120)
        Me.txtSchrift1_MESS.MaxLength = 40
        Me.txtSchrift1_MESS.Name = "txtSchrift1_MESS"
        Me.txtSchrift1_MESS.Size = New System.Drawing.Size(62, 20)
@@ -350,7 +370,7 @@ Partial Class frmAnzeige
        '
        Me.Label14.AutoSize = True
        Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label14.Location = New System.Drawing.Point(220, 224)
+        Me.Label14.Location = New System.Drawing.Point(442, 227)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(37, 13)
        Me.Label14.TabIndex = 20
@@ -359,7 +379,7 @@ Partial Class frmAnzeige
        'txtBreite6
        '
        Me.txtBreite6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite6.Location = New System.Drawing.Point(219, 247)
+        Me.txtBreite6.Location = New System.Drawing.Point(441, 250)
        Me.txtBreite6.MaxLength = 40
        Me.txtBreite6.Name = "txtBreite6"
        Me.txtBreite6.Size = New System.Drawing.Size(62, 20)
@@ -368,7 +388,7 @@ Partial Class frmAnzeige
        'txtSchrift6
        '
        Me.txtSchrift6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift6.Location = New System.Drawing.Point(140, 247)
+        Me.txtSchrift6.Location = New System.Drawing.Point(362, 250)
        Me.txtSchrift6.MaxLength = 40
        Me.txtSchrift6.Name = "txtSchrift6"
        Me.txtSchrift6.Size = New System.Drawing.Size(62, 20)
@@ -378,7 +398,7 @@ Partial Class frmAnzeige
        '
        Me.Label13.AutoSize = True
        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label13.Location = New System.Drawing.Point(15, 250)
+        Me.Label13.Location = New System.Drawing.Point(237, 253)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(92, 13)
        Me.Label13.TabIndex = 23
@@ -388,7 +408,7 @@ Partial Class frmAnzeige
        '
        Me.Label12.AutoSize = True
        Me.Label12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label12.Location = New System.Drawing.Point(313, 75)
+        Me.Label12.Location = New System.Drawing.Point(535, 78)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(95, 13)
        Me.Label12.TabIndex = 29
@@ -400,7 +420,7 @@ Partial Class frmAnzeige
        Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cboFirma.FormattingEnabled = True
        Me.cboFirma.Items.AddRange(New Object() {"VERAG_ALLE", "SUB", "SBG", "WAI", "NKD", "ATILLA", "IMEX", "UNISPED", "AMBAR", "FRONTOFFICE"})
-        Me.cboFirma.Location = New System.Drawing.Point(316, 91)
+        Me.cboFirma.Location = New System.Drawing.Point(538, 94)
        Me.cboFirma.Name = "cboFirma"
        Me.cboFirma.Size = New System.Drawing.Size(150, 21)
        Me.cboFirma.TabIndex = 30
@@ -409,7 +429,7 @@ Partial Class frmAnzeige
        '
        Me.Label10.AutoSize = True
        Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.Location = New System.Drawing.Point(393, 172)
+        Me.Label10.Location = New System.Drawing.Point(615, 175)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(56, 13)
        Me.Label10.TabIndex = 26
@@ -419,7 +439,7 @@ Partial Class frmAnzeige
        '
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label8.Location = New System.Drawing.Point(216, 70)
+        Me.Label8.Location = New System.Drawing.Point(438, 73)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(69, 13)
        Me.Label8.TabIndex = 4
@@ -429,7 +449,7 @@ Partial Class frmAnzeige
        '
        Me.btnTestAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.btnTestAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnTestAnzeige.Location = New System.Drawing.Point(316, 216)
+        Me.btnTestAnzeige.Location = New System.Drawing.Point(538, 219)
        Me.btnTestAnzeige.Name = "btnTestAnzeige"
        Me.btnTestAnzeige.Size = New System.Drawing.Size(150, 51)
        Me.btnTestAnzeige.TabIndex = 27
@@ -439,7 +459,7 @@ Partial Class frmAnzeige
        'txtHöhe
        '
        Me.txtHöhe.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtHöhe.Location = New System.Drawing.Point(303, 37)
+        Me.txtHöhe.Location = New System.Drawing.Point(525, 40)
        Me.txtHöhe.MaxLength = 40
        Me.txtHöhe.Name = "txtHöhe"
        Me.txtHöhe.Size = New System.Drawing.Size(62, 20)
@@ -450,7 +470,7 @@ Partial Class frmAnzeige
        '
        Me.txtBreite5.Enabled = False
        Me.txtBreite5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite5.Location = New System.Drawing.Point(219, 221)
+        Me.txtBreite5.Location = New System.Drawing.Point(441, 224)
        Me.txtBreite5.MaxLength = 40
        Me.txtBreite5.Name = "txtBreite5"
        Me.txtBreite5.Size = New System.Drawing.Size(62, 20)
@@ -460,7 +480,7 @@ Partial Class frmAnzeige
        'txtSekunden
        '
        Me.txtSekunden.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSekunden.Location = New System.Drawing.Point(316, 169)
+        Me.txtSekunden.Location = New System.Drawing.Point(538, 172)
        Me.txtSekunden.MaxLength = 40
        Me.txtSekunden.Name = "txtSekunden"
        Me.txtSekunden.Size = New System.Drawing.Size(71, 20)
@@ -469,7 +489,7 @@ Partial Class frmAnzeige
        'txtSchrift5
        '
        Me.txtSchrift5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift5.Location = New System.Drawing.Point(140, 221)
+        Me.txtSchrift5.Location = New System.Drawing.Point(362, 224)
        Me.txtSchrift5.MaxLength = 40
        Me.txtSchrift5.Name = "txtSchrift5"
        Me.txtSchrift5.Size = New System.Drawing.Size(62, 20)
@@ -478,7 +498,7 @@ Partial Class frmAnzeige
        'txtBreite4
        '
        Me.txtBreite4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite4.Location = New System.Drawing.Point(219, 195)
+        Me.txtBreite4.Location = New System.Drawing.Point(441, 198)
        Me.txtBreite4.MaxLength = 40
        Me.txtBreite4.Name = "txtBreite4"
        Me.txtBreite4.Size = New System.Drawing.Size(62, 20)
@@ -487,7 +507,7 @@ Partial Class frmAnzeige
        'txtBreite3
        '
        Me.txtBreite3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite3.Location = New System.Drawing.Point(219, 169)
+        Me.txtBreite3.Location = New System.Drawing.Point(441, 172)
        Me.txtBreite3.MaxLength = 40
        Me.txtBreite3.Name = "txtBreite3"
        Me.txtBreite3.Size = New System.Drawing.Size(62, 20)
@@ -496,7 +516,7 @@ Partial Class frmAnzeige
        'txtSchrift4
        '
        Me.txtSchrift4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift4.Location = New System.Drawing.Point(140, 195)
+        Me.txtSchrift4.Location = New System.Drawing.Point(362, 198)
        Me.txtSchrift4.MaxLength = 40
        Me.txtSchrift4.Name = "txtSchrift4"
        Me.txtSchrift4.Size = New System.Drawing.Size(62, 20)
@@ -505,7 +525,7 @@ Partial Class frmAnzeige
        'txtBreite2
        '
        Me.txtBreite2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite2.Location = New System.Drawing.Point(219, 143)
+        Me.txtBreite2.Location = New System.Drawing.Point(441, 146)
        Me.txtBreite2.MaxLength = 40
        Me.txtBreite2.Name = "txtBreite2"
        Me.txtBreite2.Size = New System.Drawing.Size(62, 20)
@@ -514,7 +534,7 @@ Partial Class frmAnzeige
        'txtSchrift3
        '
        Me.txtSchrift3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift3.Location = New System.Drawing.Point(140, 169)
+        Me.txtSchrift3.Location = New System.Drawing.Point(362, 172)
        Me.txtSchrift3.MaxLength = 40
        Me.txtSchrift3.Name = "txtSchrift3"
        Me.txtSchrift3.Size = New System.Drawing.Size(62, 20)
@@ -523,7 +543,7 @@ Partial Class frmAnzeige
        'txtBreite1
        '
        Me.txtBreite1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite1.Location = New System.Drawing.Point(219, 91)
+        Me.txtBreite1.Location = New System.Drawing.Point(441, 94)
        Me.txtBreite1.MaxLength = 40
        Me.txtBreite1.Name = "txtBreite1"
        Me.txtBreite1.Size = New System.Drawing.Size(62, 20)
@@ -532,7 +552,7 @@ Partial Class frmAnzeige
        'txtSchrift2
        '
        Me.txtSchrift2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift2.Location = New System.Drawing.Point(140, 143)
+        Me.txtSchrift2.Location = New System.Drawing.Point(362, 146)
        Me.txtSchrift2.MaxLength = 40
        Me.txtSchrift2.Name = "txtSchrift2"
        Me.txtSchrift2.Size = New System.Drawing.Size(62, 20)
@@ -542,7 +562,7 @@ Partial Class frmAnzeige
        '
        Me.Label9.AutoSize = True
        Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label9.Location = New System.Drawing.Point(313, 153)
+        Me.Label9.Location = New System.Drawing.Point(535, 156)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(120, 13)
        Me.Label9.TabIndex = 24
@@ -551,7 +571,7 @@ Partial Class frmAnzeige
        'txtSchrift1
        '
        Me.txtSchrift1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift1.Location = New System.Drawing.Point(140, 91)
+        Me.txtSchrift1.Location = New System.Drawing.Point(362, 94)
        Me.txtSchrift1.MaxLength = 40
        Me.txtSchrift1.Name = "txtSchrift1"
        Me.txtSchrift1.Size = New System.Drawing.Size(62, 20)
@@ -561,7 +581,7 @@ Partial Class frmAnzeige
        '
        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(15, 224)
+        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
@@ -570,7 +590,7 @@ Partial Class frmAnzeige
        'txtBreite
        '
        Me.txtBreite.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite.Location = New System.Drawing.Point(262, 44)
+        Me.txtBreite.Location = New System.Drawing.Point(484, 47)
        Me.txtBreite.MaxLength = 40
        Me.txtBreite.Name = "txtBreite"
        Me.txtBreite.Size = New System.Drawing.Size(62, 20)
@@ -581,7 +601,7 @@ Partial Class frmAnzeige
        '
        Me.Label6.AutoSize = True
        Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(15, 198)
+        Me.Label6.Location = New System.Drawing.Point(237, 201)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(36, 13)
        Me.Label6.TabIndex = 14
@@ -591,7 +611,7 @@ Partial Class frmAnzeige
        '
        Me.Label2.AutoSize = True
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label2.Location = New System.Drawing.Point(300, 40)
+        Me.Label2.Location = New System.Drawing.Point(522, 43)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(23, 13)
        Me.Label2.TabIndex = 2
@@ -602,7 +622,7 @@ Partial Class frmAnzeige
        '
        Me.Label5.AutoSize = True
        Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label5.Location = New System.Drawing.Point(15, 172)
+        Me.Label5.Location = New System.Drawing.Point(237, 175)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(44, 13)
        Me.Label5.TabIndex = 11
@@ -612,7 +632,7 @@ Partial Class frmAnzeige
        '
        Me.Label4.AutoSize = True
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label4.Location = New System.Drawing.Point(15, 147)
+        Me.Label4.Location = New System.Drawing.Point(237, 150)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(45, 13)
        Me.Label4.TabIndex = 8
@@ -622,7 +642,7 @@ Partial Class frmAnzeige
        '
        Me.Label3.AutoSize = True
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label3.Location = New System.Drawing.Point(15, 94)
+        Me.Label3.Location = New System.Drawing.Point(237, 97)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(33, 13)
        Me.Label3.TabIndex = 5
@@ -632,7 +652,7 @@ Partial Class frmAnzeige
        '
        Me.Label1.AutoSize = True
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label1.Location = New System.Drawing.Point(244, 44)
+        Me.Label1.Location = New System.Drawing.Point(466, 47)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 13)
        Me.Label1.TabIndex = 0
@@ -844,6 +864,16 @@ 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.cbxGridLKWOK)
+        Me.grpTestAnzeige.Controls.Add(Me.Label24)
+        Me.grpTestAnzeige.Controls.Add(Me.txtBreiteGridLKWOK)
+        Me.grpTestAnzeige.Controls.Add(Me.Label23)
+        Me.grpTestAnzeige.Controls.Add(Me.Label22)
+        Me.grpTestAnzeige.Controls.Add(Me.txtLkwOK_BildBreite)
+        Me.grpTestAnzeige.Controls.Add(Me.Label21)
+        Me.grpTestAnzeige.Controls.Add(Me.Label20)
+        Me.grpTestAnzeige.Controls.Add(Me.txtLkwOK_LKWNrSchrift)
+        Me.grpTestAnzeige.Controls.Add(Me.Label19)
        Me.grpTestAnzeige.Controls.Add(Me.txtBreite7)
        Me.grpTestAnzeige.Controls.Add(Me.txtSchrift7)
        Me.grpTestAnzeige.Controls.Add(Me.Label18)
@@ -884,17 +914,104 @@ Partial Class frmAnzeige
        Me.grpTestAnzeige.Controls.Add(Me.txtSchrift5)
        Me.grpTestAnzeige.Controls.Add(Me.txtBreite4)
        Me.grpTestAnzeige.Controls.Add(Me.pnl)
-        Me.grpTestAnzeige.Location = New System.Drawing.Point(352, 203)
-        Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(487, 312)
+        Me.grpTestAnzeige.Location = New System.Drawing.Point(424, 203)
+        Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(700, 312)
        Me.grpTestAnzeige.Name = "grpTestAnzeige"
-        Me.grpTestAnzeige.Size = New System.Drawing.Size(487, 312)
+        Me.grpTestAnzeige.Size = New System.Drawing.Size(700, 312)
        Me.grpTestAnzeige.TabIndex = 35
        Me.grpTestAnzeige.Visible = False
        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.Location = New System.Drawing.Point(14, 276)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(39, 13)
+        Me.Label24.TabIndex = 98
+        Me.Label24.Text = "Splitter"
+        '
+        'txtBreiteGridLKWOK
+        '
+        Me.txtBreiteGridLKWOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBreiteGridLKWOK.Location = New System.Drawing.Point(77, 273)
+        Me.txtBreiteGridLKWOK.MaxLength = 40
+        Me.txtBreiteGridLKWOK.Name = "txtBreiteGridLKWOK"
+        Me.txtBreiteGridLKWOK.Size = New System.Drawing.Size(62, 20)
+        Me.txtBreiteGridLKWOK.TabIndex = 99
+        '
+        'Label23
+        '
+        Me.Label23.AutoSize = True
+        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label23.Location = New System.Drawing.Point(147, 73)
+        Me.Label23.Name = "Label23"
+        Me.Label23.Size = New System.Drawing.Size(69, 13)
+        Me.Label23.TabIndex = 97
+        Me.Label23.Text = "Spaltenbreite"
+        '
+        'Label22
+        '
+        Me.Label22.AutoSize = True
+        Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label22.Location = New System.Drawing.Point(14, 123)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(24, 13)
+        Me.Label22.TabIndex = 95
+        Me.Label22.Text = "Bild"
+        '
+        'txtLkwOK_BildBreite
+        '
+        Me.txtLkwOK_BildBreite.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLkwOK_BildBreite.Location = New System.Drawing.Point(150, 120)
+        Me.txtLkwOK_BildBreite.MaxLength = 40
+        Me.txtLkwOK_BildBreite.Name = "txtLkwOK_BildBreite"
+        Me.txtLkwOK_BildBreite.Size = New System.Drawing.Size(62, 20)
+        Me.txtLkwOK_BildBreite.TabIndex = 96
+        '
+        'Label21
+        '
+        Me.Label21.AutoSize = True
+        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label21.Location = New System.Drawing.Point(74, 73)
+        Me.Label21.Name = "Label21"
+        Me.Label21.Size = New System.Drawing.Size(67, 13)
+        Me.Label21.TabIndex = 94
+        Me.Label21.Text = "Schriftgröße "
+        '
+        'Label20
+        '
+        Me.Label20.AutoSize = True
+        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label20.Location = New System.Drawing.Point(14, 97)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(45, 13)
+        Me.Label20.TabIndex = 92
+        Me.Label20.Text = "LKW-Nr"
+        '
+        'txtLkwOK_LKWNrSchrift
+        '
+        Me.txtLkwOK_LKWNrSchrift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtLkwOK_LKWNrSchrift.Location = New System.Drawing.Point(77, 94)
+        Me.txtLkwOK_LKWNrSchrift.MaxLength = 40
+        Me.txtLkwOK_LKWNrSchrift.Name = "txtLkwOK_LKWNrSchrift"
+        Me.txtLkwOK_LKWNrSchrift.Size = New System.Drawing.Size(62, 20)
+        Me.txtLkwOK_LKWNrSchrift.TabIndex = 93
+        '
+        'Label19
+        '
+        Me.Label19.AutoSize = True
+        Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label19.Location = New System.Drawing.Point(14, 40)
+        Me.Label19.Name = "Label19"
+        Me.Label19.Size = New System.Drawing.Size(169, 13)
+        Me.Label19.TabIndex = 91
+        Me.Label19.Text = "Einstellungen für LKW-Fertig"
+        '
        'txtBreite7
        '
        Me.txtBreite7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtBreite7.Location = New System.Drawing.Point(219, 273)
+        Me.txtBreite7.Location = New System.Drawing.Point(441, 276)
        Me.txtBreite7.MaxLength = 40
        Me.txtBreite7.Name = "txtBreite7"
        Me.txtBreite7.Size = New System.Drawing.Size(62, 20)
@@ -903,7 +1020,7 @@ Partial Class frmAnzeige
        'txtSchrift7
        '
        Me.txtSchrift7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSchrift7.Location = New System.Drawing.Point(140, 273)
+        Me.txtSchrift7.Location = New System.Drawing.Point(362, 276)
        Me.txtSchrift7.MaxLength = 40
        Me.txtSchrift7.Name = "txtSchrift7"
        Me.txtSchrift7.Size = New System.Drawing.Size(62, 20)
@@ -913,7 +1030,7 @@ Partial Class frmAnzeige
        '
        Me.Label18.AutoSize = True
        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label18.Location = New System.Drawing.Point(15, 276)
+        Me.Label18.Location = New System.Drawing.Point(237, 279)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(68, 13)
        Me.Label18.TabIndex = 90
@@ -923,7 +1040,7 @@ Partial Class frmAnzeige
        '
        Me.Label17.AutoSize = True
        Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Underline), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(15, 37)
+        Me.Label17.Location = New System.Drawing.Point(237, 40)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(151, 13)
        Me.Label17.TabIndex = 5
@@ -933,7 +1050,7 @@ Partial Class frmAnzeige
        '
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
        Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button2.Location = New System.Drawing.Point(316, 120)
+        Me.Button2.Location = New System.Drawing.Point(538, 123)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(150, 25)
        Me.Button2.TabIndex = 27
@@ -942,20 +1059,110 @@ Partial Class frmAnzeige
        '
        'pnl
        '
+        Me.pnl.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
        Me.pnl.Location = New System.Drawing.Point(-1, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(487, 20)
+        Me.pnl.Size = New System.Drawing.Size(699, 20)
        Me.pnl.TabIndex = 87
        '
+        'gridFertig
+        '
+        Me.gridFertig.AllowUserToAddRows = False
+        Me.gridFertig.AllowUserToDeleteRows = False
+        DataGridViewCellStyle15.BackColor = System.Drawing.Color.Empty
+        DataGridViewCellStyle15.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.gridFertig.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders
+        Me.gridFertig.BackgroundColor = System.Drawing.Color.MintCream
+        Me.gridFertig.ColumnHeadersBorderStyle = System.Windows.Forms.DataGridViewHeaderBorderStyle.[Single]
+        DataGridViewCellStyle16.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle16.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle16.Font = New System.Drawing.Font("Tahoma", 15.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle16.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle16.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle16.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle16.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridFertig.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle16
+        Me.gridFertig.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.gridFertig.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8})
+        DataGridViewCellStyle19.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.DefaultCellStyle = DataGridViewCellStyle19
+        Me.gridFertig.Dock = System.Windows.Forms.DockStyle.Left
+        Me.gridFertig.GridColor = System.Drawing.Color.MintCream
+        Me.gridFertig.Location = New System.Drawing.Point(0, 21)
+        Me.gridFertig.MultiSelect = False
+        Me.gridFertig.Name = "gridFertig"
+        Me.gridFertig.ReadOnly = True
+        Me.gridFertig.RowHeadersVisible = False
+        DataGridViewCellStyle20.BackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle20.SelectionBackColor = System.Drawing.Color.White
+        DataGridViewCellStyle20.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle20
+        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, 494)
+        Me.gridFertig.TabIndex = 36
+        Me.gridFertig.TabStop = False
+        '
+        'cbxGridLKWOK
+        '
+        Me.cbxGridLKWOK.AutoSize = True
+        Me.cbxGridLKWOK.Location = New System.Drawing.Point(17, 249)
+        Me.cbxGridLKWOK.Name = "cbxGridLKWOK"
+        Me.cbxGridLKWOK.Size = New System.Drawing.Size(119, 17)
+        Me.cbxGridLKWOK.TabIndex = 100
+        Me.cbxGridLKWOK.Text = "LKW-Fertig sichtbar"
+        Me.cbxGridLKWOK.UseVisualStyleBackColor = True
+        '
+        'DataGridViewTextBoxColumn7
+        '
+        DataGridViewCellStyle17.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
+        DataGridViewCellStyle17.BackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle17.NullValue = CType(resources.GetObject("DataGridViewCellStyle17.NullValue"), Object)
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.Color.MintCream
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.Color.Black
+        Me.DataGridViewTextBoxColumn7.DefaultCellStyle = DataGridViewCellStyle17
+        Me.DataGridViewTextBoxColumn7.HeaderText = ""
+        Me.DataGridViewTextBoxColumn7.Image = Global.AvisoTV.My.Resources.Resources.okRound
+        Me.DataGridViewTextBoxColumn7.ImageLayout = System.Windows.Forms.DataGridViewImageCellLayout.Zoom
+        Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7"
+        Me.DataGridViewTextBoxColumn7.ReadOnly = True
+        Me.DataGridViewTextBoxColumn7.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.DataGridViewTextBoxColumn7.SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Automatic
+        Me.DataGridViewTextBoxColumn7.Width = 80
+        '
+        'DataGridViewTextBoxColumn8
+        '
+        Me.DataGridViewTextBoxColumn8.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        DataGridViewCellStyle18.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        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.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        DataGridViewCellStyle18.SelectionBackColor = System.Drawing.Color.LightGreen
+        DataGridViewCellStyle18.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle18.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.DataGridViewTextBoxColumn8.DefaultCellStyle = DataGridViewCellStyle18
+        Me.DataGridViewTextBoxColumn8.HeaderText = "LKW-KENNZ. /PLAKA"
+        Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8"
+        Me.DataGridViewTextBoxColumn8.ReadOnly = 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.grpTestAnzeige)
-        Me.Controls.Add(Me.picConnectionProblem)
        Me.Controls.Add(Me.gridAnkunft)
+        Me.Controls.Add(Me.gridFertig)
+        Me.Controls.Add(Me.picConnectionProblem)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
@@ -973,6 +1180,7 @@ Partial Class frmAnzeige
        Me.Panel2.ResumeLayout(False)
        Me.grpTestAnzeige.ResumeLayout(False)
        Me.grpTestAnzeige.PerformLayout()
+        CType(Me.gridFertig, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub
@@ -1045,4 +1253,17 @@ Partial Class frmAnzeige
    Friend WithEvents txtSchrift7 As System.Windows.Forms.TextBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents Button4 As Button
+    Friend WithEvents gridFertig As DataGridView
+    Friend WithEvents Label23 As Label
+    Friend WithEvents Label22 As Label
+    Friend WithEvents txtLkwOK_BildBreite As TextBox
+    Friend WithEvents Label21 As Label
+    Friend WithEvents Label20 As Label
+    Friend WithEvents txtLkwOK_LKWNrSchrift As TextBox
+    Friend WithEvents Label19 As Label
+    Friend WithEvents Label24 As Label
+    Friend WithEvents txtBreiteGridLKWOK As TextBox
+    Friend WithEvents cbxGridLKWOK As CheckBox
+    Friend WithEvents DataGridViewTextBoxColumn7 As DataGridViewImageColumn
+    Friend WithEvents DataGridViewTextBoxColumn8 As DataGridViewTextBoxColumn
 End Class
--- a/AvisoTV/frmAnzeige.resx
+++ b/AvisoTV/frmAnzeige.resx
@@ -141,10 +141,33 @@
  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
+  <metadata name="DataGridViewTextBoxColumn7.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="DataGridViewCellStyle17.NullValue" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        Qk32AgAAAAAAADYAAAAoAAAADgAAABAAAAABABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACEgoTGw8bGw8bGw8bGw8bGw8bGw8bG
+        w8bGw8bGw8bGw8bGw8bGw8YAAAAAAISChP///////////////////////////////////////////8bD
+        xgAAAAAAhIKE////////////////////////////////////////////xsPGAAAAAACEgoT/////////
+        ///////////////////////////////////Gw8YAAAAAAISChP//////////////////////////////
+        /////////////8bDxgAAAAAAhIKE////////////AAD/AAD/////////AAD/AAD/////////xsPGAAAA
+        AACEgoT///////////////8AAP8AAP8AAP8AAP/////////////Gw8YAAAAAAISChP//////////////
+        /////wAA/wAA/////////////////8bDxgAAAAAAhIKE////////////////AAD/AAD/AAD/AAD/////
+        ////////xsPGAAAAAACEgoT///////////8AAP8AAP////////8AAP8AAP/////////Gw8YAAAAAAISC
+        hP///////////////////////////////////////////8bDxgAAAAAAhIKE////////////////////
+        ////////////////////////xsPGAAAAAACEgoT/////////////////////////////////////////
+        ///Gw8YAAAAAAISChP///////////////////////////////////////////8bDxgAAAAAAhIKEhIKE
+        hIKEhIKEhIKEhIKEhIKEhIKEhIKEhIKEhIKEhIKEhIKEhIKEAAA=
+</value>
+  </data>
+  <metadata name="DataGridViewTextBoxColumn8.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>35</value>
  </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA
--- a/AvisoTV/frmAnzeige.vb
+++ b/AvisoTV/frmAnzeige.vb
@@ -41,6 +41,9 @@ Public Class frmAnzeige
    Private Font6 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
    Private Font7 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)

+
+    Private Font_LkwOK_LKWNr As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
+
    Dim GridBackgroundColor As Color = Color.FromArgb(240, 245, 255)
    Dim TESTSYSTEM As Boolean = False
    Private isloaded As Boolean = False
@@ -197,6 +200,42 @@ Public Class frmAnzeige
        Next
    End Sub

+    Function getSQL(ByRef where As String, seiten As Boolean, onlyOK As Boolean) As String
+        Dim buero As String = ""
+        If StandortATILLA Then
+            buero = " , Buero "
+        End If
+        Dim stat_tmp As String = cGlobal.Status_Ankunft.ToString
+        Dim ank_tmp As String = ""
+        If seiten Then ank_tmp = " And Ankunft > " & SQLDatumZeitSekunden(Merk_Ankunftsdatum)
+        If onlyOK Then ank_tmp = " And LKW_fertig = 1 "
+
+        If False Then 'alle Staten
+            stat_tmp = "3,99,4,5,0"
+            ank_tmp = ""
+        End If
+
+        where = " 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 & ") "
+        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 " &
+                                        " when [Status] =99 then 2 " &
+                                        " when [Status] =4 then 3 " &
+                                        " when [Status] =5 then 4 " &
+                                        " when [Status] =0 then 4 " &
+                                    " END , Ankunft"
+        Return hSQL
+    End Function

    Dim contrnamecnt As Integer = 0
    Public Sub Listen_ermitteln()
@@ -226,38 +265,11 @@ Public Class frmAnzeige
                Merk_Ankunftsdatum = LeerDatum 'falls letzte Seite angezeigt, dann wieder von vorne anfangen
                Aktive_Seite = 1
            End If
-            Dim buero As String = ""
-            If StandortATILLA Then
-                buero = " , Buero "
-            End If
-            Dim stat_tmp As String = cGlobal.Status_Ankunft.ToString
-            Dim ank_tmp As String = " AND Ankunft > " & SQLDatumZeitSekunden(Merk_Ankunftsdatum)
+            Dim where As String = ""

-            If False Then 'alle Staten
-                stat_tmp = "3,99,4,5,0"
-                ank_tmp = ""
-            End If
+            Dim hSQL = getSQL(where, True, False)

-            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 & ") "
-            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 " &
-                                        " when [Status] =99 then 2 " &
-                                        " when [Status] =4 then 3 " &
-                                        " when [Status] =5 then 4 " &
-                                        " when [Status] =0 then 4 " &
-                                    " END , Ankunft"
-            ' MsgBox(hSQL)
            'Anzahl der Aviso mit Status Ankunft ermitteln
            Dim CheckAnzahl As String = "SELECT AvisoID FROM Aviso " & where 'WHERE Status IN( " & stat_tmp & ") "
            ' If Standort <> "" Then CheckAnzahl += " AND Grenzstelle = '" & Standort.Replace("IMEX", "SUB") & "'"
@@ -293,7 +305,7 @@ Public Class frmAnzeige
                            Dim hMitarbeiter As String = VarToStr(dr.Item("LetzterMitarbeiter"))
                            Dim ImEx As String = VarToStr(dr.Item("ImEx"))

-                            If StandortATILLA Or Standort = "IMEX" Then
+                            If StandortATILLA Or Standort = "IMEX" Or Standort = "FRONTOFFICE" Then
                                'bei Mitarbeiter nur User aus letzter Bearbeiter rausfiltern
                                Dim x As String = ""
                                Dim n As Integer = 0
@@ -381,9 +393,24 @@ Public Class frmAnzeige
                    End If
                    dr.Close()
                End Using
+
+                'gridFertig:
+                Using cmd As New SqlCommand(getSQL("", False, True), conn)
+                    Dim dr = cmd.ExecuteReader()
+                    If Not IsNothing(dr) Then
+                        gridFertig.Rows.Clear() 'Ansicht löschen
+
+                        While dr.Read()
+                            anz += 1
+                            Dim LKW_Nr As String = VarToStr(dr.Item("LKW_Nr"))
+                            gridFertig.Rows.Add(My.Resources.okRound, LKW_Nr)
+
+                        End While
+                    End If
+                    dr.Close()
+                End Using
            Catch ex As Exception
-                MsgBox("ERR: " & ex.Message)
-                MsgBox("ERR: " & ex.StackTrace)
+                MsgBox("ERR: " & ex.Message & ex.StackTrace)
            End Try

            'Ermitteln 
@@ -520,6 +547,9 @@ Public Class frmAnzeige
        '    picVERAG.Image = My.Resources.Verag_AG_Logopng
        'End If

+        gridFertig.Visible = cbxGridLKWOK.Checked
+
+
        If txtBreite.Text <> "" Then
            If VarToInt(txtBreite.Text) < 800 Then
                MsgBox("Breite ist zu klein - mind. 800")
@@ -574,6 +604,16 @@ Public Class frmAnzeige
            Font3 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift3.Text), FontStyle.Bold)
        End If

+        If txtLkwOK_LKWNrSchrift.Text <> "" Then
+            If VarToInt(txtLkwOK_LKWNrSchrift.Text) < 10 Then
+                MsgBox("txtLkwOK_LKWNrSchrift ist zu klein - mind. 10")
+                txtLkwOK_LKWNrSchrift.Focus()
+                Exit Sub
+            End If
+            Font_LkwOK_LKWNr = New Font(FontFamily.GenericSansSerif, VarToInt(txtLkwOK_LKWNrSchrift.Text), FontStyle.Bold)
+        End If
+
+
        If txtSekunden.Text <> "" Then
            If VarToInt(txtSekunden.Text) < 10 Then
                MsgBox("Resfresh unter 10 Sekunden ist nicht erlaubt.")
@@ -593,6 +633,9 @@ Public Class frmAnzeige
        gridAnkunft.Columns(3).DefaultCellStyle.Font = Font4
        gridAnkunft.Columns(4).DefaultCellStyle.Font = Font5

+        gridFertig.Columns(1).DefaultCellStyle.Font = Font_LkwOK_LKWNr
+
+
        If StandortATILLA And gridAnkunft.Columns("clmnBuero") IsNot Nothing Then
            gridAnkunft.Columns("clmnBuero").Width = CInt(IIf(IsNumeric(txtBreite6.Text), txtBreite6.Text, 50))
            gridAnkunft.Columns("clmnBuero").DefaultCellStyle.Font = Font6
@@ -613,6 +656,9 @@ Public Class frmAnzeige
        If txtBreite4.Text <> "" Then gridAnkunft.Columns(3).Width = CInt(txtBreite4.Text)
        gridAnkunft.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

+        If txtLkwOK_BildBreite.Text <> "" Then gridFertig.Columns(0).Width = CInt(txtLkwOK_BildBreite.Text)
+
+        If txtBreiteGridLKWOK.Text <> "" Then gridFertig.Width = CInt(txtBreiteGridLKWOK.Text)

        'gridAnkunft.Columns(4).Width = Me.Width - gridAnkunft.Columns(0).Width - gridAnkunft.Columns(1).Width - gridAnkunft.Columns(2).Width - gridAnkunft.Columns(3).Width - 20
        'txtBreite5.Text = gridAnkunft.Columns(4).Width.ToString
@@ -660,6 +706,10 @@ Public Class frmAnzeige
                Dim p As String = getProperty(DirectCast(c, TextBox).Name)
                If p <> "" Then DirectCast(c, TextBox).Text = p
            End If
+            If c.GetType.Name = "CheckBox" Then
+                Dim p As String = getProperty(DirectCast(c, CheckBox).Name)
+                If p <> "" Then DirectCast(c, CheckBox).Checked = CBool(p)
+            End If
        Next
    End Sub

@@ -685,6 +735,13 @@ Public Class frmAnzeige

        If txtSekunden.Text <> "" Then setProperty("txtSekunden", txtSekunden.Text)

+
+        If txtLkwOK_LKWNrSchrift.Text <> "" Then setProperty("txtLkwOK_LKWNrSchrift", txtLkwOK_LKWNrSchrift.Text)
+        If txtLkwOK_BildBreite.Text <> "" Then setProperty("txtLkwOK_BildBreite", txtLkwOK_BildBreite.Text)
+        If txtBreiteGridLKWOK.Text <> "" Then setProperty("txtBreiteGridLKWOK", txtBreiteGridLKWOK.Text)
+
+        setProperty("cbxGridLKWOK", CInt(cbxGridLKWOK.Checked).ToString)
+
    End Sub


@@ -724,7 +781,8 @@ Public Class frmAnzeige

    Private Sub txtBreite1_KeyUp(sender As Object, e As KeyEventArgs) Handles txtSchrift1_MESS.KeyUp, txtSekunden.KeyUp,
        txtSchrift1.KeyUp, txtSchrift2.KeyUp, txtSchrift3.KeyUp, txtSchrift4.KeyUp, txtSchrift5.KeyUp, txtSchrift6.KeyUp, txtSchrift7.KeyUp,
-        txtBreite1.KeyUp, txtBreite2.KeyUp, txtBreite3.KeyUp, txtBreite4.KeyUp, txtBreite5.KeyUp, txtBreite6.KeyUp, txtBreite7.KeyUp
+        txtBreite1.KeyUp, txtBreite2.KeyUp, txtBreite3.KeyUp, txtBreite4.KeyUp, txtBreite5.KeyUp, txtBreite6.KeyUp, txtBreite7.KeyUp,
+        txtLkwOK_BildBreite.KeyUp, txtLkwOK_LKWNrSchrift.KeyUp, txtBreiteGridLKWOK.KeyUp

        If e.KeyCode = Keys.Return Then
            btnTestAnzeige.PerformClick()
@@ -750,6 +808,10 @@ Public Class frmAnzeige
        End If
        secondmonitorSelected = Not secondmonitorSelected
    End Sub
+
+    Private Sub gridFertig_SelectionChanged(sender As Object, e As EventArgs) Handles gridFertig.SelectionChanged
+        gridFertig.ClearSelection()
+    End Sub
 End Class