neu

2020-12-13 21:30:05 +01:00
parent 65ee38135e
commit 56fe11bc97
26 changed files with 3960 additions and 248 deletions
--- a/AvisoTV/frmAnzeige.Designer.vb
+++ b/AvisoTV/frmAnzeige.Designer.vb
@@ -27,11 +27,6 @@ Partial Class frmAnzeige
        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()
@@ -45,14 +40,12 @@ Partial Class frmAnzeige
        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 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()
        Me.gridAnkunft = New System.Windows.Forms.DataGridView()
-        Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.colAnkunft = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Dauer = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.letzterMitarbeiter = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnBuero = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnImEx = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.lblZeit = New System.Windows.Forms.Label()
        Me.lblZeile1 = New System.Windows.Forms.Label()
        Me.lblZeile2 = New System.Windows.Forms.Label()
@@ -104,6 +97,9 @@ Partial Class frmAnzeige
        Me.lblBigInfo2 = New System.Windows.Forms.Label()
        Me.lblBigInfo = New System.Windows.Forms.Label()
        Me.grpTestAnzeige = New System.Windows.Forms.Panel()
+        Me.txtBreite8 = New System.Windows.Forms.TextBox()
+        Me.txtSchrift8 = New System.Windows.Forms.TextBox()
+        Me.Label25 = New System.Windows.Forms.Label()
        Me.cbxGridLKWOK = New System.Windows.Forms.CheckBox()
        Me.Label24 = New System.Windows.Forms.Label()
        Me.txtBreiteGridLKWOK = New System.Windows.Forms.TextBox()
@@ -130,6 +126,14 @@ Partial Class frmAnzeige
        Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colFertig = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colLKWNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.colAnkunft = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Dauer = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.letzterMitarbeiter = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnBuero = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnImEx = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnArt = 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()
@@ -158,7 +162,7 @@ Partial Class frmAnzeige
        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
        Me.gridAnkunft.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
        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.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))
@@ -183,86 +187,6 @@ Partial Class frmAnzeige
        Me.gridAnkunft.TabIndex = 1
        Me.gridAnkunft.TabStop = False
        '
-        '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
-        Me.colFertig.HeaderText = "KOMMEN/TAMAM"
-        Me.colFertig.Name = "colFertig"
-        Me.colFertig.ReadOnly = True
-        Me.colFertig.Width = 140
-        '
-        '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
-        Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
-        Me.colLKWNr.Name = "colLKWNr"
-        Me.colLKWNr.ReadOnly = True
-        Me.colLKWNr.Width = 400
-        '
-        '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
-        Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
-        Me.colAnkunft.Name = "colAnkunft"
-        Me.colAnkunft.ReadOnly = True
-        Me.colAnkunft.Width = 300
-        '
-        '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
-        Me.Dauer.HeaderText = "DAUER/SÜRE"
-        Me.Dauer.Name = "Dauer"
-        Me.Dauer.ReadOnly = True
-        Me.Dauer.Width = 200
-        '
-        '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
-        Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
-        Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
-        Me.letzterMitarbeiter.ReadOnly = True
-        Me.letzterMitarbeiter.Width = 500
-        '
-        'clmnBuero
-        '
-        Me.clmnBuero.HeaderText = "BÜRO/KAPI"
-        Me.clmnBuero.Name = "clmnBuero"
-        Me.clmnBuero.ReadOnly = True
-        Me.clmnBuero.Visible = False
-        '
-        'clmnImEx
-        '
-        Me.clmnImEx.HeaderText = "ART"
-        Me.clmnImEx.Name = "clmnImEx"
-        Me.clmnImEx.ReadOnly = True
-        Me.clmnImEx.Visible = False
-        '
        'lblZeit
        '
        Me.lblZeit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -828,6 +752,9 @@ 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.txtBreite8)
+        Me.grpTestAnzeige.Controls.Add(Me.txtSchrift8)
+        Me.grpTestAnzeige.Controls.Add(Me.Label25)
        Me.grpTestAnzeige.Controls.Add(Me.cbxGridLKWOK)
        Me.grpTestAnzeige.Controls.Add(Me.Label24)
        Me.grpTestAnzeige.Controls.Add(Me.txtBreiteGridLKWOK)
@@ -878,13 +805,41 @@ 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(424, 203)
-        Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(700, 312)
+        Me.grpTestAnzeige.Location = New System.Drawing.Point(424, 185)
+        Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(700, 330)
        Me.grpTestAnzeige.Name = "grpTestAnzeige"
-        Me.grpTestAnzeige.Size = New System.Drawing.Size(700, 312)
+        Me.grpTestAnzeige.Size = New System.Drawing.Size(700, 330)
        Me.grpTestAnzeige.TabIndex = 35
        Me.grpTestAnzeige.Visible = False
        '
+        'txtBreite8
+        '
+        Me.txtBreite8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtBreite8.Location = New System.Drawing.Point(441, 302)
+        Me.txtBreite8.MaxLength = 40
+        Me.txtBreite8.Name = "txtBreite8"
+        Me.txtBreite8.Size = New System.Drawing.Size(62, 20)
+        Me.txtBreite8.TabIndex = 102
+        '
+        'txtSchrift8
+        '
+        Me.txtSchrift8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSchrift8.Location = New System.Drawing.Point(362, 302)
+        Me.txtSchrift8.MaxLength = 40
+        Me.txtSchrift8.Name = "txtSchrift8"
+        Me.txtSchrift8.Size = New System.Drawing.Size(62, 20)
+        Me.txtSchrift8.TabIndex = 101
+        '
+        'Label25
+        '
+        Me.Label25.AutoSize = True
+        Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label25.Location = New System.Drawing.Point(237, 305)
+        Me.Label25.Name = "Label25"
+        Me.Label25.Size = New System.Drawing.Size(64, 13)
+        Me.Label25.TabIndex = 103
+        Me.Label25.Text = "Anmelde-Art"
+        '
        'cbxGridLKWOK
        '
        Me.cbxGridLKWOK.AutoSize = True
@@ -1203,6 +1158,93 @@ Partial Class frmAnzeige
        Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
        Me.DataGridViewTextBoxColumn9.Visible = False
        '
+        '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
+        Me.colFertig.HeaderText = "KOMMEN/TAMAM"
+        Me.colFertig.Name = "colFertig"
+        Me.colFertig.ReadOnly = True
+        Me.colFertig.Width = 140
+        '
+        '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
+        Me.colLKWNr.HeaderText = "LKW-KENNZ. /PLAKA"
+        Me.colLKWNr.Name = "colLKWNr"
+        Me.colLKWNr.ReadOnly = True
+        Me.colLKWNr.Width = 400
+        '
+        '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
+        Me.colAnkunft.HeaderText = "ANKUNFT/GELIS"
+        Me.colAnkunft.Name = "colAnkunft"
+        Me.colAnkunft.ReadOnly = True
+        Me.colAnkunft.Width = 300
+        '
+        '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
+        Me.Dauer.HeaderText = "DAUER/SÜRE"
+        Me.Dauer.Name = "Dauer"
+        Me.Dauer.ReadOnly = True
+        Me.Dauer.Width = 200
+        '
+        '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
+        Me.letzterMitarbeiter.HeaderText = "BEARBEITER/GÖREVLI"
+        Me.letzterMitarbeiter.Name = "letzterMitarbeiter"
+        Me.letzterMitarbeiter.ReadOnly = True
+        Me.letzterMitarbeiter.Width = 500
+        '
+        'clmnBuero
+        '
+        Me.clmnBuero.HeaderText = "BÜRO/KAPI"
+        Me.clmnBuero.Name = "clmnBuero"
+        Me.clmnBuero.ReadOnly = True
+        Me.clmnBuero.Visible = False
+        '
+        'clmnImEx
+        '
+        Me.clmnImEx.HeaderText = "ART"
+        Me.clmnImEx.Name = "clmnImEx"
+        Me.clmnImEx.ReadOnly = True
+        Me.clmnImEx.Visible = False
+        '
+        'clmnArt
+        '
+        Me.clmnArt.HeaderText = ""
+        Me.clmnArt.Name = "clmnArt"
+        Me.clmnArt.ReadOnly = True
+        Me.clmnArt.Width = 30
+        '
        'frmAnzeige
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1291,13 +1333,6 @@ Partial Class frmAnzeige
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents pnl As System.Windows.Forms.Panel
    Friend WithEvents Button2 As System.Windows.Forms.Button
-    Friend WithEvents colFertig As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents colLKWNr As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents colAnkunft As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents Dauer As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents letzterMitarbeiter As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents clmnBuero As System.Windows.Forms.DataGridViewTextBoxColumn
-    Friend WithEvents clmnImEx As System.Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents txtBreite7 As System.Windows.Forms.TextBox
    Friend WithEvents txtSchrift7 As System.Windows.Forms.TextBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
@@ -1318,4 +1353,15 @@ Partial Class frmAnzeige
    Friend WithEvents DataGridViewTextBoxColumn9 As DataGridViewTextBoxColumn
    Friend WithEvents lblBigInfo As Label
    Friend WithEvents lblBigInfo2 As Label
+    Friend WithEvents txtBreite8 As TextBox
+    Friend WithEvents txtSchrift8 As TextBox
+    Friend WithEvents Label25 As Label
+    Friend WithEvents colFertig As DataGridViewTextBoxColumn
+    Friend WithEvents colLKWNr As DataGridViewTextBoxColumn
+    Friend WithEvents colAnkunft As DataGridViewTextBoxColumn
+    Friend WithEvents Dauer As DataGridViewTextBoxColumn
+    Friend WithEvents letzterMitarbeiter As DataGridViewTextBoxColumn
+    Friend WithEvents clmnBuero As DataGridViewTextBoxColumn
+    Friend WithEvents clmnImEx As DataGridViewTextBoxColumn
+    Friend WithEvents clmnArt As DataGridViewTextBoxColumn
 End Class
--- a/AvisoTV/frmAnzeige.resx
+++ b/AvisoTV/frmAnzeige.resx
@@ -138,6 +138,9 @@
  <metadata name="clmnImEx.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
    <value>True</value>
  </metadata>
+  <metadata name="clmnArt.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>17, 17</value>
  </metadata>
--- a/AvisoTV/frmAnzeige.vb
+++ b/AvisoTV/frmAnzeige.vb
@@ -41,6 +41,7 @@ Public Class frmAnzeige
    Private Font5 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
    Private Font6 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
    Private Font7 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
+    Private Font8 As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)


    Private Font_LkwOK_LKWNr As New Font(FontFamily.GenericSansSerif, 30, FontStyle.Bold)
@@ -220,7 +221,7 @@ Public Class frmAnzeige
        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 "
+        Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter, LKW_fertig " & buero & " , AvisoTVHinweis, ImEx, ZOLLDigitalEingereicht  FROM Aviso "
        where &= " Status IN( " & stat_tmp & ") "
        If CLUSTER <> "" Then
            where &= " AND (Firma= '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster= '" & CLUSTER & "') "
@@ -308,6 +309,7 @@ Public Class frmAnzeige
                            Dim Dauer As String = Minuten_auf_Text(hDauer)
                            Dim hMitarbeiter As String = VarToStr(dr.Item("LetzterMitarbeiter"))
                            Dim ImEx As String = VarToStr(dr.Item("ImEx"))
+                            Dim ZOLLDigitalEingereicht As String = If(CBool(dr.Item("ZOLLDigitalEingereicht")), "D", "")

                            If StandortATILLA Or Standort = "IMEX" Or Standort = "FRONTOFFICE" Then
                                'bei Mitarbeiter nur User aus letzter Bearbeiter rausfiltern
@@ -335,16 +337,17 @@ Public Class frmAnzeige

                            If anz <= Max_Zeilen Then

+
                                If StandortATILLA Then
                                    Dim hBuero As String = VarToStr(dr.Item("buero"))
-                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero)
+                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, hBuero, "", ZOLLDigitalEingereicht)
                                ElseIf Standort = "WAI" Then
                                    If ImEx = "IMPORT" Then ImEx = "IM"
                                    If ImEx = "EXPORT" Then ImEx = "EX"
                                    ' MsgBox(ImEx)
-                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", ImEx)
+                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", ImEx, ZOLLDigitalEingereicht)
                                Else
-                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter)
+                                    gridAnkunft.Rows.Add(hFertig, LKW_Nr, hAnkunft, Dauer, hMitarbeiter, "", "", ZOLLDigitalEingereicht)
                                End If

                                If ImEx <> "" Then
@@ -354,6 +357,12 @@ Public Class frmAnzeige
                                    If ImEx = "EX" Then r.Cells("clmnImEx").Style.BackColor = Color.Blue
                                End If

+                                If CBool(dr.Item("ZOLLDigitalEingereicht")) Then
+                                    Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
+                                    '   r.Cells("clmnArt").Style.BackColor = Color.DarkGreen
+                                    r.Cells("clmnArt").Style.ForeColor = Color.DarkGreen
+                                End If
+
                                If VarToStr(dr.Item("AvisoTVHinweis")) <> "" Then
                                    Dim r As DataGridViewRow = gridAnkunft.Rows(gridAnkunft.RowCount - 1)
                                    r.Cells(0).Style.ForeColor = Color.Red
@@ -687,6 +696,7 @@ Public Class frmAnzeige
        If txtSchrift5.Text <> "" Then Font5 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift5.Text), FontStyle.Bold)
        If txtSchrift6.Text <> "" Then Font6 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift6.Text), FontStyle.Bold)
        If txtSchrift7.Text <> "" Then Font7 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift7.Text), FontStyle.Bold)
+        If txtSchrift8.Text <> "" Then Font8 = New Font(FontFamily.GenericSansSerif, VarToInt(txtSchrift8.Text), FontStyle.Bold)

        gridAnkunft.Columns(0).DefaultCellStyle.Font = Font1
        gridAnkunft.Columns(1).DefaultCellStyle.Font = Font2
@@ -711,6 +721,14 @@ Public Class frmAnzeige
            gridAnkunft.Columns("clmnImEx").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        End If

+        gridAnkunft.Columns("clmnArt").Width = CInt(IIf(IsNumeric(txtBreite8.Text), txtBreite8.Text, 50))
+        gridAnkunft.Columns("clmnArt").DefaultCellStyle.Font = Font8
+        gridAnkunft.Columns("clmnArt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        If CInt(IIf(IsNumeric(txtBreite8.Text), txtBreite8.Text, 0)) = 0 Then
+            gridAnkunft.Columns("clmnArt").Visible = False
+        Else
+            gridAnkunft.Columns("clmnArt").Visible = True
+        End If

        If txtBreite1.Text <> "" Then gridAnkunft.Columns(0).Width = CInt(txtBreite1.Text)
        If txtBreite2.Text <> "" Then gridAnkunft.Columns(1).Width = CInt(txtBreite2.Text)
@@ -793,6 +811,7 @@ Public Class frmAnzeige
        If txtSchrift5.Text <> "" Then setProperty("txtSchrift5", txtSchrift5.Text)
        If txtSchrift6.Text <> "" Then setProperty("txtSchrift6", txtSchrift6.Text)
        If txtSchrift7.Text <> "" Then setProperty("txtSchrift7", txtSchrift7.Text)
+        If txtSchrift8.Text <> "" Then setProperty("txtSchrift8", txtSchrift8.Text)
        If txtBreite1.Text <> "" Then setProperty("txtBreite1", txtBreite1.Text)
        If txtBreite2.Text <> "" Then setProperty("txtBreite2", txtBreite2.Text)
        If txtBreite3.Text <> "" Then setProperty("txtBreite3", txtBreite3.Text)
@@ -800,6 +819,7 @@ Public Class frmAnzeige
        If txtBreite5.Text <> "" Then setProperty("txtBreite5", txtBreite5.Text)
        If txtBreite6.Text <> "" Then setProperty("txtBreite6", txtBreite6.Text)
        If txtBreite7.Text <> "" Then setProperty("txtBreite7", txtBreite7.Text)
+        If txtBreite8.Text <> "" Then setProperty("txtBreite8", txtBreite8.Text)

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

@@ -848,8 +868,8 @@ Public Class frmAnzeige
    End Sub

    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,
+        txtSchrift1.KeyUp, txtSchrift2.KeyUp, txtSchrift3.KeyUp, txtSchrift4.KeyUp, txtSchrift5.KeyUp, txtSchrift6.KeyUp, txtSchrift7.KeyUp, txtSchrift8.KeyUp,
+        txtBreite1.KeyUp, txtBreite2.KeyUp, txtBreite3.KeyUp, txtBreite4.KeyUp, txtBreite5.KeyUp, txtBreite6.KeyUp, txtBreite7.KeyUp, txtBreite8.KeyUp,
        txtLkwOK_BildBreite.KeyUp, txtLkwOK_LKWNrSchrift.KeyUp, txtBreiteGridLKWOK.KeyUp

        If e.KeyCode = Keys.Return Then