This commit is contained in:
2020-12-13 21:30:05 +01:00
parent 65ee38135e
commit 56fe11bc97
26 changed files with 3960 additions and 248 deletions

View File

@@ -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