edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-10-20 22:24:56 +02:00
parent 787491cf6b
commit 2d7bb951d2
26 changed files with 1204 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
AvisoTV/AvisoTV.vbproj
View File

@@ -72,6 +72,25 @@
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
<DebugSymbols>true</DebugSymbols>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>AvisoTV.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|x64'">
<DefineTrace>true</DefineTrace>
<OutputPath>bin\x64\Release\</OutputPath>
<DocumentationFile>AvisoTV.xml</DocumentationFile>
<Optimize>true</Optimize>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<DebugType>pdbonly</DebugType>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />

258
AvisoTV/frmAnzeige.Designer.vb generated
View File

@@ -27,6 +27,11 @@ 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()
@@ -40,12 +45,15 @@ 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.clmnArt = 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()
@@ -119,6 +127,7 @@ Partial Class frmAnzeige
Me.gridFertig = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewImageColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label26 = New System.Windows.Forms.Label()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -126,14 +135,7 @@ 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()
Me.DataGridViewTextBoxColumn10 = 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()
@@ -183,10 +185,97 @@ 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(826, 493)
Me.gridAnkunft.Size = New System.Drawing.Size(826, 444)
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
'
'clmnArt
'
Me.clmnArt.HeaderText = ""
Me.clmnArt.Name = "clmnArt"
Me.clmnArt.ReadOnly = True
Me.clmnArt.Width = 30
'
'lblZeit
'
Me.lblZeit.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -195,7 +284,7 @@ Partial Class frmAnzeige
Me.lblZeit.ForeColor = System.Drawing.Color.White
Me.lblZeit.Location = New System.Drawing.Point(0, 0)
Me.lblZeit.Name = "lblZeit"
Me.lblZeit.Size = New System.Drawing.Size(352, 108)
Me.lblZeit.Size = New System.Drawing.Size(352, 107)
Me.lblZeit.TabIndex = 0
Me.lblZeit.Text = "17.10. 14:38:00"
Me.lblZeit.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -222,9 +311,9 @@ Partial Class frmAnzeige
Me.lblZeile2.BackColor = System.Drawing.Color.White
Me.lblZeile2.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblZeile2.ForeColor = System.Drawing.Color.Red
Me.lblZeile2.Location = New System.Drawing.Point(361, 54)
Me.lblZeile2.Location = New System.Drawing.Point(361, 49)
Me.lblZeile2.Name = "lblZeile2"
Me.lblZeile2.Size = New System.Drawing.Size(723, 54)
Me.lblZeile2.Size = New System.Drawing.Size(739, 49)
Me.lblZeile2.TabIndex = 3
Me.lblZeile2.Text = "0123456789012345678901234567890123456789x"
Me.lblZeile2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -243,7 +332,7 @@ Partial Class frmAnzeige
Me.lblSeite.ForeColor = System.Drawing.Color.White
Me.lblSeite.Location = New System.Drawing.Point(1106, 0)
Me.lblSeite.Name = "lblSeite"
Me.lblSeite.Size = New System.Drawing.Size(146, 65)
Me.lblSeite.Size = New System.Drawing.Size(146, 57)
Me.lblSeite.TabIndex = 2
Me.lblSeite.Text = "10/10"
Me.lblSeite.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -593,9 +682,9 @@ Partial Class frmAnzeige
Me.lblAnzahl.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblAnzahl.Font = New System.Drawing.Font("Arial", 28.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblAnzahl.ForeColor = System.Drawing.Color.White
Me.lblAnzahl.Location = New System.Drawing.Point(1106, 61)
Me.lblAnzahl.Location = New System.Drawing.Point(1106, 55)
Me.lblAnzahl.Name = "lblAnzahl"
Me.lblAnzahl.Size = New System.Drawing.Size(146, 47)
Me.lblAnzahl.Size = New System.Drawing.Size(146, 53)
Me.lblAnzahl.TabIndex = 4
Me.lblAnzahl.Text = "15"
Me.lblAnzahl.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -618,7 +707,7 @@ Partial Class frmAnzeige
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.picVERAG.BackColor = System.Drawing.Color.Transparent
Me.picVERAG.Image = Global.AvisoTV.My.Resources.Resources.Verag_AG_Logopng
Me.picVERAG.Location = New System.Drawing.Point(359, 29)
Me.picVERAG.Location = New System.Drawing.Point(359, -1)
Me.picVERAG.Name = "picVERAG"
Me.picVERAG.Size = New System.Drawing.Size(741, 58)
Me.picVERAG.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
@@ -712,9 +801,9 @@ Partial Class frmAnzeige
Me.Panel2.Controls.Add(Me.lblAnzahl)
Me.Panel2.Controls.Add(Me.lblSeite)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 514)
Me.Panel2.Location = New System.Drawing.Point(0, 515)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(1250, 110)
Me.Panel2.Size = New System.Drawing.Size(1250, 109)
Me.Panel2.TabIndex = 3
'
'lblBigInfo2
@@ -724,9 +813,9 @@ Partial Class frmAnzeige
Me.lblBigInfo2.BackColor = System.Drawing.Color.Firebrick
Me.lblBigInfo2.Font = New System.Drawing.Font("Microsoft Sans Serif", 50.0!)
Me.lblBigInfo2.ForeColor = System.Drawing.Color.White
Me.lblBigInfo2.Location = New System.Drawing.Point(351, 54)
Me.lblBigInfo2.Location = New System.Drawing.Point(351, 47)
Me.lblBigInfo2.Name = "lblBigInfo2"
Me.lblBigInfo2.Size = New System.Drawing.Size(57, 52)
Me.lblBigInfo2.Size = New System.Drawing.Size(57, 47)
Me.lblBigInfo2.TabIndex = 37
Me.lblBigInfo2.Text = "-"
Me.lblBigInfo2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@@ -739,7 +828,7 @@ Partial Class frmAnzeige
Me.lblBigInfo.BackColor = System.Drawing.Color.Firebrick
Me.lblBigInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 50.0!)
Me.lblBigInfo.ForeColor = System.Drawing.Color.White
Me.lblBigInfo.Location = New System.Drawing.Point(351, 2)
Me.lblBigInfo.Location = New System.Drawing.Point(351, 0)
Me.lblBigInfo.Name = "lblBigInfo"
Me.lblBigInfo.Size = New System.Drawing.Size(57, 52)
Me.lblBigInfo.TabIndex = 36
@@ -805,7 +894,7 @@ 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, 185)
Me.grpTestAnzeige.Location = New System.Drawing.Point(424, 107)
Me.grpTestAnzeige.MaximumSize = New System.Drawing.Size(700, 330)
Me.grpTestAnzeige.Name = "grpTestAnzeige"
Me.grpTestAnzeige.Size = New System.Drawing.Size(700, 330)
@@ -1036,7 +1125,7 @@ Partial Class frmAnzeige
Me.gridFertig.RowsDefaultCellStyle = DataGridViewCellStyle15
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, 493)
Me.gridFertig.Size = New System.Drawing.Size(424, 444)
Me.gridFertig.TabIndex = 36
Me.gridFertig.TabStop = False
'
@@ -1073,6 +1162,20 @@ Partial Class frmAnzeige
Me.DataGridViewTextBoxColumn8.ReadOnly = True
Me.DataGridViewTextBoxColumn8.Visible = False
'
'Label26
'
Me.Label26.BackColor = System.Drawing.Color.LightGray
Me.Label26.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Label26.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!)
Me.Label26.ForeColor = System.Drawing.Color.Black
Me.Label26.Location = New System.Drawing.Point(0, 465)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(1250, 50)
Me.Label26.TabIndex = 39
Me.Label26.Text = "OK / PROBLEM: Lütfen kasaya gelin | Dođite na šalter | Bitte an den Schalter komm" &
"en"
Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
@@ -1084,6 +1187,7 @@ Partial Class frmAnzeige
Me.DataGridViewTextBoxColumn1.HeaderText = "FERTIG/TAMAM"
Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
Me.DataGridViewTextBoxColumn1.ReadOnly = True
Me.DataGridViewTextBoxColumn1.Visible = False
'
'DataGridViewTextBoxColumn2
'
@@ -1156,106 +1260,28 @@ Partial Class frmAnzeige
'
Me.DataGridViewTextBoxColumn9.HeaderText = "ART"
Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9"
Me.DataGridViewTextBoxColumn9.ReadOnly = True
Me.DataGridViewTextBoxColumn9.Visible = False
'
'colFertig
'DataGridViewTextBoxColumn10
'
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
Me.DataGridViewTextBoxColumn10.HeaderText = ""
Me.DataGridViewTextBoxColumn10.Name = "DataGridViewTextBoxColumn10"
Me.DataGridViewTextBoxColumn10.ReadOnly = True
Me.DataGridViewTextBoxColumn10.Width = 30
'
'frmAnzeige
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1250, 624)
Me.Controls.Add(Me.picConnectionProblem)
Me.Controls.Add(Me.grpTestAnzeige)
Me.Controls.Add(Me.gridAnkunft)
Me.Controls.Add(Me.gridFertig)
Me.Controls.Add(Me.picConnectionProblem)
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.Label26)
Me.Controls.Add(Me.Panel2)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
@@ -1364,4 +1390,6 @@ Partial Class frmAnzeige
Friend WithEvents clmnBuero As DataGridViewTextBoxColumn
Friend WithEvents clmnImEx As DataGridViewTextBoxColumn
Friend WithEvents clmnArt As DataGridViewTextBoxColumn
Friend WithEvents Label26 As Label
Friend WithEvents DataGridViewTextBoxColumn10 As DataGridViewTextBoxColumn
End Class

52
AvisoTV/frmAnzeige.vb
View File

@@ -71,8 +71,8 @@ Public Class frmAnzeige
Me.Left = 0
Me.Top = 0
Me.Width = 1920
Me.Height = 1080
' Me.Width = 1920
' Me.Height = 1080
Me.Text += " " & Application.ProductVersion
@@ -221,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, ZOLLDigitalEingereicht FROM Aviso "
Dim hSQL As String = "SELECT AvisoID, Status, UPPER(LKW_Nr) as LKW_Nr, Ankunft, Dauer, letzterMitarbeiter,WeiterleitungTextTV, 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 & "') "
@@ -244,6 +244,7 @@ Public Class frmAnzeige
Dim contrnamecnt As Integer = 0
Public Sub Listen_ermitteln()
picConnectionProblem.Visible = False
Dim connok As Boolean = False
Try
Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnectionWithoutError()
@@ -257,7 +258,7 @@ Public Class frmAnzeige
' End Using
'conn.Close()
Catch ex As Exception
'MsgBox("what " & ex.Message)
picConnectionProblem.Visible = True 'MsgBox("what " & ex.Message)
End Try
If connok Then
@@ -308,22 +309,29 @@ Public Class frmAnzeige
Dim hDauer As Long = DateDiff(DateInterval.Minute, CDate(VarToDate((dr.Item("Ankunft")))), Now)
Dim Dauer As String = Minuten_auf_Text(hDauer)
Dim hMitarbeiter As String = VarToStr(dr.Item("LetzterMitarbeiter"))
Dim WeiterleitungTextTV As String = VarToStr(dr.Item("WeiterleitungTextTV"))
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
Dim x As String = ""
Dim n As Integer = 0
While n < hMitarbeiter.Length
If hMitarbeiter.Substring(n, 1) <> "/" Then
x += hMitarbeiter.Substring(n, 1)
Else
Exit While
End If
n += 1
End While
hMitarbeiter = x
If (hMitarbeiter = "Weiterleitung" Or hMitarbeiter = "") And WeiterleitungTextTV <> "" Then
hMitarbeiter = WeiterleitungTextTV
Else
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
While n < hMitarbeiter.Length
If hMitarbeiter.Substring(n, 1) <> "/" Then
x += hMitarbeiter.Substring(n, 1)
Else
Exit While
End If
n += 1
End While
hMitarbeiter = x
End If
End If
Dim hFertig As String = ""
@@ -423,7 +431,7 @@ Public Class frmAnzeige
End Using
Catch ex As Exception
MsgBox("ERR: " & ex.Message & ex.StackTrace)
picConnectionProblem.Visible = True 'sdfsdf MsgBox("ERR: " & ex.Message & ex.StackTrace)
End Try
'Ermitteln
@@ -459,16 +467,16 @@ Public Class frmAnzeige
lblBigInfo.Visible = False
displayZeilen = False
displayZeilenBIG = False
Dim Panel2Height = 109
Dim Panel2Height = 109 '143
If Not IsNothing(AvisoTV) Then
Select Case AvisoTV.Art
Case "INFO"
Panel2Height = 109
Panel2Height = 109 '143
lblZeile1.Text = AvisoTV.FixeZeile1.Trim
lblZeile2.Text = AvisoTV.FixeZeile2.Trim
displayZeilen = True
Case "BIG"
Panel2Height = 310
Panel2Height = 310 '344
displayZeilenBIG = True
lblBigInfoVisible = True
@@ -784,8 +792,6 @@ Public Class frmAnzeige
frmAnzeige_Load(Me, New EventArgs)
End Sub
Sub loadsettings()
For Each c In grpTestAnzeige.Controls
If c.GetType.Name = "TextBox" Then