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

AVISO New Layout

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-20 09:38:42 +01:00
parent 3e92ac3a05
commit 411d25417d
14 changed files with 2618 additions and 997 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -475,7 +475,7 @@ Public Class frmATEZ_EZA
' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
'End Select
FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "NCTS")
txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString

9
Aviso/Aviso.vbproj
View File

@@ -1271,6 +1271,12 @@
<Compile Include="usrcntlFrachtkostenberechnung.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlHauptfenster_Suche_SND.Designer.vb">
<DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
</Compile>
<Compile Include="usrCntlHauptfenster_Suche_SND.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="usrCntlHauptfenster_Suche_AVISO.Designer.vb">
<DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
</Compile>
@@ -1673,6 +1679,9 @@
<EmbeddedResource Include="usrcntlFrachtkostenberechnung.resx">
<DependentUpon>usrcntlFrachtkostenberechnung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlHauptfenster_Suche_SND.resx">
<DependentUpon>usrCntlHauptfenster_Suche_SND.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="usrCntlHauptfenster_Suche_AVISO.resx">
<DependentUpon>usrCntlHauptfenster_Suche_AVISO.vb</DependentUpon>
</EmbeddedResource>

21
Aviso/Benachrichtigung/usrCntlBenachrichtigungen.Designer.vb generated
View File

@@ -53,7 +53,7 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 0)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(284, 203)
Me.Panel2.Size = New System.Drawing.Size(284, 278)
Me.Panel2.TabIndex = 2
'
'MyComboBox2
@@ -89,7 +89,7 @@ Partial Class usrCntlBenachrichtigungen
Me.gridAvisoBenachrichtigungen.Name = "gridAvisoBenachrichtigungen"
Me.gridAvisoBenachrichtigungen.ReadOnly = True
Me.gridAvisoBenachrichtigungen.RowHeadersVisible = False
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 144)
Me.gridAvisoBenachrichtigungen.Size = New System.Drawing.Size(284, 209)
Me.gridAvisoBenachrichtigungen.TabIndex = 2
'
'Panel4
@@ -101,16 +101,16 @@ Partial Class usrCntlBenachrichtigungen
Me.Panel4.Controls.Add(Me.Button10)
Me.Panel4.Controls.Add(Me.txtVermerk)
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel4.Location = New System.Drawing.Point(0, 165)
Me.Panel4.Location = New System.Drawing.Point(0, 230)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(284, 38)
Me.Panel4.Size = New System.Drawing.Size(284, 48)
Me.Panel4.TabIndex = 5
'
'cbxTaskForce
'
Me.cbxTaskForce.AutoSize = True
Me.cbxTaskForce.ForeColor = System.Drawing.Color.Black
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 19)
Me.cbxTaskForce.Location = New System.Drawing.Point(174, 30)
Me.cbxTaskForce.Name = "cbxTaskForce"
Me.cbxTaskForce.Size = New System.Drawing.Size(77, 17)
Me.cbxTaskForce.TabIndex = 33
@@ -122,7 +122,7 @@ Partial Class usrCntlBenachrichtigungen
'
Me.cbxVerwarung.AutoSize = True
Me.cbxVerwarung.ForeColor = System.Drawing.Color.Black
Me.cbxVerwarung.Location = New System.Drawing.Point(85, 19)
Me.cbxVerwarung.Location = New System.Drawing.Point(85, 30)
Me.cbxVerwarung.Name = "cbxVerwarung"
Me.cbxVerwarung.Size = New System.Drawing.Size(83, 17)
Me.cbxVerwarung.TabIndex = 32
@@ -134,7 +134,7 @@ Partial Class usrCntlBenachrichtigungen
'
Me.cbxNeukunden.AutoSize = True
Me.cbxNeukunden.ForeColor = System.Drawing.Color.Black
Me.cbxNeukunden.Location = New System.Drawing.Point(7, 19)
Me.cbxNeukunden.Location = New System.Drawing.Point(7, 30)
Me.cbxNeukunden.Name = "cbxNeukunden"
Me.cbxNeukunden.Size = New System.Drawing.Size(82, 17)
Me.cbxNeukunden.TabIndex = 30
@@ -146,11 +146,10 @@ Partial Class usrCntlBenachrichtigungen
'
Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button10.Enabled = False
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.ForeColor = System.Drawing.Color.Black
Me.Button10.Image = Global.AVISO.My.Resources.Resources.ok
Me.Button10.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.Location = New System.Drawing.Point(159, 3)
Me.Button10.Location = New System.Drawing.Point(159, 0)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(121, 30)
Me.Button10.TabIndex = 3
@@ -163,7 +162,7 @@ Partial Class usrCntlBenachrichtigungen
'
Me.txtVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtVermerk.Location = New System.Drawing.Point(7, -1)
Me.txtVermerk.Location = New System.Drawing.Point(7, 3)
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.ReadOnly = True
Me.txtVermerk.Size = New System.Drawing.Size(146, 20)
@@ -233,7 +232,7 @@ Partial Class usrCntlBenachrichtigungen
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.Panel2)
Me.Name = "usrCntlBenachrichtigungen"
Me.Size = New System.Drawing.Size(284, 203)
Me.Size = New System.Drawing.Size(284, 278)
Me.Panel2.ResumeLayout(False)
CType(Me.gridAvisoBenachrichtigungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel4.ResumeLayout(False)

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.2.5.1")>
<Assembly: AssemblyFileVersion("4.2.5.1")>
<Assembly: AssemblyVersion("4.2.5.2")>
<Assembly: AssemblyFileVersion("4.2.5.2")>

504
Aviso/frmHauptfensterNew.Designer.vb generated
View File

@@ -231,20 +231,14 @@ Partial Class frmHauptfensterNew
Me.lblFimaAviso = New System.Windows.Forms.Label()
Me.Button11 = New System.Windows.Forms.Button()
Me.btnMAVerzeichnis = New System.Windows.Forms.Button()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.btnKontakt = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.lblGrenzstelle = New System.Windows.Forms.Label()
Me.lblVersion = New System.Windows.Forms.Label()
Me.btnFakturierung = New System.Windows.Forms.Button()
Me.btnDienstplan = New System.Windows.Forms.Button()
Me.btnRg = New System.Windows.Forms.Button()
Me.btnKassenbuch = New System.Windows.Forms.Button()
Me.btnRefresh = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.btnKunden = New System.Windows.Forms.Button()
Me.btnSpedBuch = New System.Windows.Forms.Button()
Me.lblDauer = New System.Windows.Forms.Label()
Me.btnDrucken = New System.Windows.Forms.Button()
Me.Button6 = New System.Windows.Forms.Button()
@@ -254,7 +248,6 @@ Partial Class frmHauptfensterNew
Me.btnMinimieren = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.btnZertifikate = New System.Windows.Forms.Button()
Me.Label7 = New System.Windows.Forms.Label()
Me.lblErrVermerk = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.cntxtAtilla = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -268,17 +261,25 @@ Partial Class frmHauptfensterNew
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlDetailsLinks = New System.Windows.Forms.Panel()
Me.splitMain = New System.Windows.Forms.SplitContainer()
Me.pnlMain = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.splitMainWorkingView = New System.Windows.Forms.SplitContainer()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlMain_Bottom = New System.Windows.Forms.Panel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel8 = New System.Windows.Forms.Panel()
Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel()
Me.btnWichtigeStandort = New System.Windows.Forms.Button()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button7 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.btnKunden = New System.Windows.Forms.Button()
Me.btnFakturierung = New System.Windows.Forms.Button()
Me.btnRg = New System.Windows.Forms.Button()
Me.btnKassenbuch = New System.Windows.Forms.Button()
Me.btnSpedBuch = New System.Windows.Forms.Button()
Me.pnlOptionen = New System.Windows.Forms.Panel()
Me.btnKasse_User = New System.Windows.Forms.Button()
Me.btnKasse_LG = New System.Windows.Forms.Button()
@@ -307,15 +308,17 @@ Partial Class frmHauptfensterNew
Me.cntVerag = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.pnlLeft = New System.Windows.Forms.Panel()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
Me.Panel7 = New System.Windows.Forms.Panel()
Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
Me.conMenuAviso.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.pnlDetailsRechts.SuspendLayout()
@@ -332,6 +335,10 @@ Partial Class frmHauptfensterNew
Me.splitMain.Panel1.SuspendLayout()
Me.splitMain.Panel2.SuspendLayout()
Me.splitMain.SuspendLayout()
CType(Me.splitMainWorkingView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.splitMainWorkingView.Panel1.SuspendLayout()
Me.splitMainWorkingView.Panel2.SuspendLayout()
Me.splitMainWorkingView.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.FlowLayoutPanel1.SuspendLayout()
Me.Panel6.SuspendLayout()
@@ -1606,7 +1613,7 @@ Partial Class frmHauptfensterNew
Me.pnlDetailsRechts.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsRechts.MinimumSize = New System.Drawing.Size(200, 0)
Me.pnlDetailsRechts.Name = "pnlDetailsRechts"
Me.pnlDetailsRechts.Size = New System.Drawing.Size(306, 739)
Me.pnlDetailsRechts.Size = New System.Drawing.Size(297, 739)
Me.pnlDetailsRechts.TabIndex = 0
'
'lblMitarbeiter
@@ -1648,7 +1655,7 @@ Partial Class frmHauptfensterNew
Me.lblUsrname.BackColor = System.Drawing.Color.White
Me.lblUsrname.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblUsrname.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblUsrname.Location = New System.Drawing.Point(242, 384)
Me.lblUsrname.Location = New System.Drawing.Point(283, 384)
Me.lblUsrname.Name = "lblUsrname"
Me.lblUsrname.Size = New System.Drawing.Size(75, 13)
Me.lblUsrname.TabIndex = 86
@@ -1660,7 +1667,7 @@ Partial Class frmHauptfensterNew
Me.lblFimaAviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblFimaAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblFimaAviso.ForeColor = System.Drawing.Color.Black
Me.lblFimaAviso.Location = New System.Drawing.Point(298, 371)
Me.lblFimaAviso.Location = New System.Drawing.Point(339, 371)
Me.lblFimaAviso.Name = "lblFimaAviso"
Me.lblFimaAviso.Size = New System.Drawing.Size(63, 13)
Me.lblFimaAviso.TabIndex = 11
@@ -1697,24 +1704,6 @@ Partial Class frmHauptfensterNew
Me.btnMAVerzeichnis.UseVisualStyleBackColor = False
Me.btnMAVerzeichnis.Visible = False
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(227, 307)
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
Me.btnMitarbeiterKonto.TabIndex = 86
Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
'btnKontakt
'
Me.btnKontakt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1724,7 +1713,7 @@ Partial Class frmHauptfensterNew
Me.btnKontakt.ForeColor = System.Drawing.Color.Black
Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small
Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKontakt.Location = New System.Drawing.Point(471, 3)
Me.btnKontakt.Location = New System.Drawing.Point(3, 59)
Me.btnKontakt.Name = "btnKontakt"
Me.btnKontakt.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKontakt.Size = New System.Drawing.Size(150, 50)
@@ -1776,7 +1765,7 @@ Partial Class frmHauptfensterNew
Me.lblGrenzstelle.BackColor = System.Drawing.Color.White
Me.lblGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.lblGrenzstelle.ForeColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
Me.lblGrenzstelle.Location = New System.Drawing.Point(301, 384)
Me.lblGrenzstelle.Location = New System.Drawing.Point(342, 384)
Me.lblGrenzstelle.Name = "lblGrenzstelle"
Me.lblGrenzstelle.Size = New System.Drawing.Size(60, 13)
Me.lblGrenzstelle.TabIndex = 0
@@ -1788,32 +1777,13 @@ Partial Class frmHauptfensterNew
Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblVersion.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVersion.ForeColor = System.Drawing.Color.Black
Me.lblVersion.Location = New System.Drawing.Point(293, 399)
Me.lblVersion.Location = New System.Drawing.Point(334, 399)
Me.lblVersion.Name = "lblVersion"
Me.lblVersion.Size = New System.Drawing.Size(68, 13)
Me.lblVersion.TabIndex = 6
Me.lblVersion.Text = "V1.0.0.0"
Me.lblVersion.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'btnFakturierung
'
Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image)
Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFakturierung.Location = New System.Drawing.Point(159, 3)
Me.btnFakturierung.Name = "btnFakturierung"
Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
Me.btnFakturierung.TabIndex = 11
Me.btnFakturierung.TabStop = False
Me.btnFakturierung.Text = "Fakturierung"
Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFakturierung.UseVisualStyleBackColor = False
Me.btnFakturierung.Visible = False
'
'btnDienstplan
'
Me.btnDienstplan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1831,44 +1801,6 @@ Partial Class frmHauptfensterNew
Me.btnDienstplan.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDienstplan.UseVisualStyleBackColor = False
'
'btnRg
'
Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnRg.ForeColor = System.Drawing.Color.Black
Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image)
Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRg.Location = New System.Drawing.Point(315, 3)
Me.btnRg.Name = "btnRg"
Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnRg.Size = New System.Drawing.Size(150, 50)
Me.btnRg.TabIndex = 9
Me.btnRg.TabStop = False
Me.btnRg.Text = "Rechnungs-" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "daten"
Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRg.UseVisualStyleBackColor = False
Me.btnRg.Visible = False
'
'btnKassenbuch
'
Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small
Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKassenbuch.Location = New System.Drawing.Point(471, 3)
Me.btnKassenbuch.Name = "btnKassenbuch"
Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
Me.btnKassenbuch.TabIndex = 8
Me.btnKassenbuch.TabStop = False
Me.btnKassenbuch.Text = "Kassenbuch"
Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKassenbuch.UseVisualStyleBackColor = False
Me.btnKassenbuch.Visible = False
'
'btnRefresh
'
Me.btnRefresh.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
@@ -1897,42 +1829,6 @@ Partial Class frmHauptfensterNew
Me.Button3.UseVisualStyleBackColor = True
Me.Button3.Visible = False
'
'btnKunden
'
Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKunden.ForeColor = System.Drawing.Color.Black
Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image)
Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunden.Location = New System.Drawing.Point(3, 3)
Me.btnKunden.Name = "btnKunden"
Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKunden.Size = New System.Drawing.Size(150, 50)
Me.btnKunden.TabIndex = 2
Me.btnKunden.TabStop = False
Me.btnKunden.Text = "Kunden"
Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunden.UseVisualStyleBackColor = False
'
'btnSpedBuch
'
Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1
Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSpedBuch.Location = New System.Drawing.Point(3, 59)
Me.btnSpedBuch.Name = "btnSpedBuch"
Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
Me.btnSpedBuch.TabIndex = 3
Me.btnSpedBuch.TabStop = False
Me.btnSpedBuch.Text = "Sped.Buch"
Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSpedBuch.UseVisualStyleBackColor = False
'
'lblDauer
'
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
@@ -1951,7 +1847,7 @@ Partial Class frmHauptfensterNew
Me.btnDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.btnDrucken.ForeColor = System.Drawing.Color.Black
Me.btnDrucken.Location = New System.Drawing.Point(773, 293)
Me.btnDrucken.Location = New System.Drawing.Point(57, 88)
Me.btnDrucken.Name = "btnDrucken"
Me.btnDrucken.Size = New System.Drawing.Size(79, 39)
Me.btnDrucken.TabIndex = 0
@@ -1967,7 +1863,7 @@ Partial Class frmHauptfensterNew
Me.Button6.ForeColor = System.Drawing.Color.Black
Me.Button6.Image = Global.AVISO.My.Resources.Resources.fremdSped
Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button6.Location = New System.Drawing.Point(474, 293)
Me.Button6.Location = New System.Drawing.Point(13, 105)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(140, 39)
Me.Button6.TabIndex = 7
@@ -1983,9 +1879,9 @@ Partial Class frmHauptfensterNew
Me.btnUmrechnungskurse.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnUmrechnungskurse.ForeColor = System.Drawing.Color.Black
Me.btnUmrechnungskurse.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 19)
Me.btnUmrechnungskurse.Location = New System.Drawing.Point(5, 3)
Me.btnUmrechnungskurse.Name = "btnUmrechnungskurse"
Me.btnUmrechnungskurse.Size = New System.Drawing.Size(121, 40)
Me.btnUmrechnungskurse.Size = New System.Drawing.Size(144, 40)
Me.btnUmrechnungskurse.TabIndex = 2
Me.btnUmrechnungskurse.TabStop = False
Me.btnUmrechnungskurse.Text = "Umrechnungskurse"
@@ -1999,9 +1895,9 @@ Partial Class frmHauptfensterNew
Me.btnZollwebseiten.ForeColor = System.Drawing.Color.Black
Me.btnZollwebseiten.Image = CType(resources.GetObject("btnZollwebseiten.Image"), System.Drawing.Image)
Me.btnZollwebseiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 62)
Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 44)
Me.btnZollwebseiten.Name = "btnZollwebseiten"
Me.btnZollwebseiten.Size = New System.Drawing.Size(121, 40)
Me.btnZollwebseiten.Size = New System.Drawing.Size(144, 40)
Me.btnZollwebseiten.TabIndex = 0
Me.btnZollwebseiten.TabStop = False
Me.btnZollwebseiten.Text = "Zoll-Webseiten"
@@ -2010,7 +1906,7 @@ Partial Class frmHauptfensterNew
'
'Timer1
'
Me.Timer1.Interval = 1000
Me.Timer1.Interval = 5000
'
'btnMinimieren
'
@@ -2032,7 +1928,6 @@ Partial Class frmHauptfensterNew
'Panel2
'
Me.Panel2.Controls.Add(Me.btnZertifikate)
Me.Panel2.Controls.Add(Me.Label7)
Me.Panel2.Controls.Add(Me.lblErrVermerk)
Me.Panel2.Controls.Add(Me.btnUmrechnungskurse)
Me.Panel2.Controls.Add(Me.btnZollwebseiten)
@@ -2049,35 +1944,24 @@ Partial Class frmHauptfensterNew
Me.btnZertifikate.ForeColor = System.Drawing.Color.Black
Me.btnZertifikate.Image = CType(resources.GetObject("btnZertifikate.Image"), System.Drawing.Image)
Me.btnZertifikate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnZertifikate.Location = New System.Drawing.Point(5, 107)
Me.btnZertifikate.Location = New System.Drawing.Point(5, 86)
Me.btnZertifikate.Name = "btnZertifikate"
Me.btnZertifikate.Size = New System.Drawing.Size(121, 40)
Me.btnZertifikate.Size = New System.Drawing.Size(144, 40)
Me.btnZertifikate.TabIndex = 5
Me.btnZertifikate.TabStop = False
Me.btnZertifikate.Text = "Zertifikate"
Me.btnZertifikate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnZertifikate.UseVisualStyleBackColor = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.ForeColor = System.Drawing.Color.Black
Me.Label7.Location = New System.Drawing.Point(2, 5)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(37, 13)
Me.Label7.TabIndex = 3
Me.Label7.Text = "Links:"
'
'lblErrVermerk
'
Me.lblErrVermerk.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.lblErrVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.lblErrVermerk.ForeColor = System.Drawing.Color.Red
Me.lblErrVermerk.Location = New System.Drawing.Point(12, 134)
Me.lblErrVermerk.Location = New System.Drawing.Point(5, 122)
Me.lblErrVermerk.Name = "lblErrVermerk"
Me.lblErrVermerk.Size = New System.Drawing.Size(154, 27)
Me.lblErrVermerk.Size = New System.Drawing.Size(173, 27)
Me.lblErrVermerk.TabIndex = 1
Me.lblErrVermerk.Text = "Bei diesem Status kann kein Vermerk erfasst werden!"
Me.lblErrVermerk.TextAlign = System.Drawing.ContentAlignment.BottomLeft
@@ -2128,7 +2012,7 @@ Partial Class frmHauptfensterNew
Me.pic.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pic.BackgroundImage = Global.AVISO.My.Resources.Resources.disconnect
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.pic.Location = New System.Drawing.Point(131, 362)
Me.pic.Location = New System.Drawing.Point(172, 362)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(59, 50)
Me.pic.TabIndex = 5
@@ -2157,7 +2041,7 @@ Partial Class frmHauptfensterNew
Me.pnlAktOption.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlAktOption.Location = New System.Drawing.Point(0, 0)
Me.pnlAktOption.Name = "pnlAktOption"
Me.pnlAktOption.Size = New System.Drawing.Size(821, 5)
Me.pnlAktOption.Size = New System.Drawing.Size(789, 5)
Me.pnlAktOption.TabIndex = 1
'
'Button8
@@ -2167,7 +2051,7 @@ Partial Class frmHauptfensterNew
Me.Button8.ForeColor = System.Drawing.Color.Black
Me.Button8.Image = CType(resources.GetObject("Button8.Image"), System.Drawing.Image)
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.Location = New System.Drawing.Point(1093, 214)
Me.Button8.Location = New System.Drawing.Point(1061, 214)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(89, 34)
Me.Button8.TabIndex = 3
@@ -2184,7 +2068,7 @@ Partial Class frmHauptfensterNew
Me.btnFertig.ForeColor = System.Drawing.Color.Black
Me.btnFertig.Image = CType(resources.GetObject("btnFertig.Image"), System.Drawing.Image)
Me.btnFertig.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFertig.Location = New System.Drawing.Point(1197, 214)
Me.btnFertig.Location = New System.Drawing.Point(1165, 214)
Me.btnFertig.Name = "btnFertig"
Me.btnFertig.Size = New System.Drawing.Size(102, 34)
Me.btnFertig.TabIndex = 0
@@ -2198,7 +2082,7 @@ Partial Class frmHauptfensterNew
Me.SplitContainer1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.IsSplitterFixed = True
Me.SplitContainer1.Location = New System.Drawing.Point(367, 30)
Me.SplitContainer1.Location = New System.Drawing.Point(408, 30)
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
@@ -2211,8 +2095,8 @@ Partial Class frmHauptfensterNew
Me.SplitContainer1.Panel2.Controls.Add(Me.btnSmall)
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlDetailsRechts)
Me.SplitContainer1.Panel2MinSize = 200
Me.SplitContainer1.Size = New System.Drawing.Size(1290, 741)
Me.SplitContainer1.SplitterDistance = 981
Me.SplitContainer1.Size = New System.Drawing.Size(1249, 741)
Me.SplitContainer1.SplitterDistance = 949
Me.SplitContainer1.SplitterWidth = 1
Me.SplitContainer1.TabIndex = 7
'
@@ -2225,7 +2109,7 @@ Partial Class frmHauptfensterNew
Me.pnlDetailsLinks.Location = New System.Drawing.Point(0, 0)
Me.pnlDetailsLinks.MinimumSize = New System.Drawing.Size(324, 564)
Me.pnlDetailsLinks.Name = "pnlDetailsLinks"
Me.pnlDetailsLinks.Size = New System.Drawing.Size(979, 739)
Me.pnlDetailsLinks.Size = New System.Drawing.Size(947, 739)
Me.pnlDetailsLinks.TabIndex = 0
'
'splitMain
@@ -2238,9 +2122,7 @@ Partial Class frmHauptfensterNew
'
'splitMain.Panel1
'
Me.splitMain.Panel1.Controls.Add(Me.pnlMain)
Me.splitMain.Panel1.Controls.Add(Me.btnDrucken)
Me.splitMain.Panel1.Controls.Add(Me.Button6)
Me.splitMain.Panel1.Controls.Add(Me.splitMainWorkingView)
Me.splitMain.Panel1.Controls.Add(Me.Button8)
Me.splitMain.Panel1.Controls.Add(Me.btnFertig)
Me.splitMain.Panel1.Controls.Add(Me.Panel1)
@@ -2254,18 +2136,47 @@ Partial Class frmHauptfensterNew
Me.splitMain.Panel2.Controls.Add(Me.pnlAktOption)
Me.splitMain.Panel2.Controls.Add(Me.pnlOptionen)
Me.splitMain.Panel2.Controls.Add(Me.Panel9)
Me.splitMain.Size = New System.Drawing.Size(977, 737)
Me.splitMain.Size = New System.Drawing.Size(945, 737)
Me.splitMain.SplitterDistance = 576
Me.splitMain.TabIndex = 0
'
'splitMainWorkingView
'
Me.splitMainWorkingView.BackColor = System.Drawing.Color.White
Me.splitMainWorkingView.Dock = System.Windows.Forms.DockStyle.Fill
Me.splitMainWorkingView.FixedPanel = System.Windows.Forms.FixedPanel.Panel1
Me.splitMainWorkingView.Location = New System.Drawing.Point(0, 75)
Me.splitMainWorkingView.Name = "splitMainWorkingView"
Me.splitMainWorkingView.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'splitMainWorkingView.Panel1
'
Me.splitMainWorkingView.Panel1.Controls.Add(Me.pnlMain)
'
'splitMainWorkingView.Panel2
'
Me.splitMainWorkingView.Panel2.Controls.Add(Me.pnlMain_Bottom)
Me.splitMainWorkingView.Size = New System.Drawing.Size(945, 501)
Me.splitMainWorkingView.SplitterDistance = 350
Me.splitMainWorkingView.SplitterWidth = 10
Me.splitMainWorkingView.TabIndex = 9
'
'pnlMain
'
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 66)
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(977, 510)
Me.pnlMain.Size = New System.Drawing.Size(945, 350)
Me.pnlMain.TabIndex = 8
'
'pnlMain_Bottom
'
Me.pnlMain_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain_Bottom.Location = New System.Drawing.Point(0, 0)
Me.pnlMain_Bottom.Name = "pnlMain_Bottom"
Me.pnlMain_Bottom.Size = New System.Drawing.Size(945, 141)
Me.pnlMain_Bottom.TabIndex = 9
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -2275,16 +2186,16 @@ Partial Class frmHauptfensterNew
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(977, 66)
Me.Panel1.Size = New System.Drawing.Size(945, 75)
Me.Panel1.TabIndex = 2
'
'Panel8
'
Me.Panel8.BackColor = System.Drawing.Color.White
Me.Panel8.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel8.Location = New System.Drawing.Point(0, 56)
Me.Panel8.Location = New System.Drawing.Point(0, 65)
Me.Panel8.Name = "Panel8"
Me.Panel8.Size = New System.Drawing.Size(749, 10)
Me.Panel8.Size = New System.Drawing.Size(717, 10)
Me.Panel8.TabIndex = 10
'
'FlowLayoutPanel1
@@ -2293,25 +2204,26 @@ Partial Class frmHauptfensterNew
Me.FlowLayoutPanel1.Controls.Add(Me.btnWichtigeStandort)
Me.FlowLayoutPanel1.Controls.Add(Me.Button4)
Me.FlowLayoutPanel1.Controls.Add(Me.Button7)
Me.FlowLayoutPanel1.Controls.Add(Me.Button9)
Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(749, 65)
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(717, 65)
Me.FlowLayoutPanel1.TabIndex = 6
'
'btnWichtigeStandort
'
Me.btnWichtigeStandort.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnWichtigeStandort.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnWichtigeStandort.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer))
Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 9)
Me.btnWichtigeStandort.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0)
Me.btnWichtigeStandort.Location = New System.Drawing.Point(3, 16)
Me.btnWichtigeStandort.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
Me.btnWichtigeStandort.Name = "btnWichtigeStandort"
Me.btnWichtigeStandort.Size = New System.Drawing.Size(158, 47)
Me.btnWichtigeStandort.TabIndex = 4
Me.btnWichtigeStandort.TabStop = False
Me.btnWichtigeStandort.Text = "LKW/AVISO"
Me.btnWichtigeStandort.Text = "LKW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "(FrontOffice)"
Me.ToolTip1.SetToolTip(Me.btnWichtigeStandort, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
"d sortiert nach Dauer")
Me.btnWichtigeStandort.UseVisualStyleBackColor = False
@@ -2321,15 +2233,15 @@ Partial Class frmHauptfensterNew
Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button4.FlatAppearance.BorderSize = 0
Me.Button4.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Button4.ForeColor = System.Drawing.Color.White
Me.Button4.Location = New System.Drawing.Point(167, 9)
Me.Button4.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0)
Me.Button4.Location = New System.Drawing.Point(167, 16)
Me.Button4.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(158, 47)
Me.Button4.Size = New System.Drawing.Size(173, 47)
Me.Button4.TabIndex = 5
Me.Button4.TabStop = False
Me.Button4.Text = "SENDUNGEN"
Me.Button4.Text = "SENDUNGEN (Abklären/Vorschreiben)"
Me.ToolTip1.SetToolTip(Me.Button4, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
"d sortiert nach Dauer")
Me.Button4.UseVisualStyleBackColor = False
@@ -2339,26 +2251,44 @@ Partial Class frmHauptfensterNew
Me.Button7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
Me.Button7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button7.FlatAppearance.BorderSize = 0
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Button7.ForeColor = System.Drawing.Color.White
Me.Button7.Location = New System.Drawing.Point(331, 9)
Me.Button7.Margin = New System.Windows.Forms.Padding(3, 9, 3, 0)
Me.Button7.Location = New System.Drawing.Point(346, 16)
Me.Button7.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(158, 47)
Me.Button7.TabIndex = 6
Me.Button7.TabStop = False
Me.Button7.Text = "BACKOFFICE"
Me.Button7.Text = "Kombiansicht" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "LKW/SENDUNGEN"
Me.ToolTip1.SetToolTip(Me.Button7, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
"d sortiert nach Dauer")
Me.Button7.UseVisualStyleBackColor = False
'
'Button9
'
Me.Button9.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button9.FlatAppearance.BorderSize = 0
Me.Button9.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.Button9.ForeColor = System.Drawing.Color.White
Me.Button9.Location = New System.Drawing.Point(510, 16)
Me.Button9.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(158, 47)
Me.Button9.TabIndex = 7
Me.Button9.TabStop = False
Me.Button9.Text = "BACKOFFICE"
Me.ToolTip1.SetToolTip(Me.Button9, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
"d sortiert nach Dauer")
Me.Button9.UseVisualStyleBackColor = False
'
'Panel6
'
Me.Panel6.Controls.Add(Me.PictureBox1)
Me.Panel6.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel6.Location = New System.Drawing.Point(749, 0)
Me.Panel6.Location = New System.Drawing.Point(717, 0)
Me.Panel6.Name = "Panel6"
Me.Panel6.Size = New System.Drawing.Size(228, 66)
Me.Panel6.Size = New System.Drawing.Size(228, 75)
Me.Panel6.TabIndex = 9
'
'PictureBox1
@@ -2369,7 +2299,7 @@ Partial Class frmHauptfensterNew
Me.PictureBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PictureBox1.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(228, 66)
Me.PictureBox1.Size = New System.Drawing.Size(228, 75)
Me.PictureBox1.TabIndex = 7
Me.PictureBox1.TabStop = False
'
@@ -2383,7 +2313,7 @@ Partial Class frmHauptfensterNew
Me.FlowLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top
Me.FlowLayoutPanel2.Location = New System.Drawing.Point(181, 70)
Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2"
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(640, 65)
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(608, 65)
Me.FlowLayoutPanel2.TabIndex = 86
'
'MyFlowLayoutPanel1
@@ -2398,9 +2328,102 @@ Partial Class frmHauptfensterNew
Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(640, 65)
Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(608, 65)
Me.MyFlowLayoutPanel1.TabIndex = 85
'
'btnKunden
'
Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKunden.ForeColor = System.Drawing.Color.Black
Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image)
Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKunden.Location = New System.Drawing.Point(3, 3)
Me.btnKunden.Name = "btnKunden"
Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKunden.Size = New System.Drawing.Size(150, 50)
Me.btnKunden.TabIndex = 2
Me.btnKunden.TabStop = False
Me.btnKunden.Text = "Kunden"
Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKunden.UseVisualStyleBackColor = False
'
'btnFakturierung
'
Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image)
Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnFakturierung.Location = New System.Drawing.Point(159, 3)
Me.btnFakturierung.Name = "btnFakturierung"
Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
Me.btnFakturierung.TabIndex = 11
Me.btnFakturierung.TabStop = False
Me.btnFakturierung.Text = "Fakturierung"
Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnFakturierung.UseVisualStyleBackColor = False
Me.btnFakturierung.Visible = False
'
'btnRg
'
Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnRg.ForeColor = System.Drawing.Color.Black
Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image)
Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRg.Location = New System.Drawing.Point(315, 3)
Me.btnRg.Name = "btnRg"
Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnRg.Size = New System.Drawing.Size(150, 50)
Me.btnRg.TabIndex = 9
Me.btnRg.TabStop = False
Me.btnRg.Text = "Rechnungen"
Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRg.UseVisualStyleBackColor = False
Me.btnRg.Visible = False
'
'btnKassenbuch
'
Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small
Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnKassenbuch.Location = New System.Drawing.Point(3, 59)
Me.btnKassenbuch.Name = "btnKassenbuch"
Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
Me.btnKassenbuch.TabIndex = 8
Me.btnKassenbuch.TabStop = False
Me.btnKassenbuch.Text = "Kassenbuch"
Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnKassenbuch.UseVisualStyleBackColor = False
Me.btnKassenbuch.Visible = False
'
'btnSpedBuch
'
Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1
Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSpedBuch.Location = New System.Drawing.Point(159, 59)
Me.btnSpedBuch.Name = "btnSpedBuch"
Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
Me.btnSpedBuch.TabIndex = 3
Me.btnSpedBuch.TabStop = False
Me.btnSpedBuch.Text = "Sped.Buch"
Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSpedBuch.UseVisualStyleBackColor = False
'
'pnlOptionen
'
Me.pnlOptionen.BackColor = System.Drawing.Color.Black
@@ -2461,8 +2484,10 @@ Partial Class frmHauptfensterNew
'Panel9
'
Me.Panel9.Controls.Add(Me.btnRefresh)
Me.Panel9.Controls.Add(Me.Button6)
Me.Panel9.Controls.Add(Me.btnDrucken)
Me.Panel9.Dock = System.Windows.Forms.DockStyle.Right
Me.Panel9.Location = New System.Drawing.Point(821, 0)
Me.Panel9.Location = New System.Drawing.Point(789, 0)
Me.Panel9.Name = "Panel9"
Me.Panel9.Size = New System.Drawing.Size(156, 157)
Me.Panel9.TabIndex = 88
@@ -2625,17 +2650,6 @@ Partial Class frmHauptfensterNew
Me.HomepageToolStripMenuItem.Size = New System.Drawing.Size(133, 22)
Me.HomepageToolStripMenuItem.Text = "Homepage"
'
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'pnlLeft
'
Me.pnlLeft.Controls.Add(Me.UsrCntlBenachrichtigungen2)
@@ -2644,20 +2658,13 @@ Partial Class frmHauptfensterNew
Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
Me.pnlLeft.Location = New System.Drawing.Point(0, 30)
Me.pnlLeft.Name = "pnlLeft"
Me.pnlLeft.Size = New System.Drawing.Size(367, 741)
Me.pnlLeft.Size = New System.Drawing.Size(408, 741)
Me.pnlLeft.TabIndex = 88
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(367, 315)
Me.UsrCntlBenachrichtigungen2.TabIndex = 5
'
'Panel5
'
Me.Panel5.BackColor = System.Drawing.Color.White
Me.Panel5.Controls.Add(Me.cbxInfoChat)
Me.Panel5.Controls.Add(Me.TabControl1)
Me.Panel5.Controls.Add(Me.lblFimaAviso)
Me.Panel5.Controls.Add(Me.lblDauer)
@@ -2671,7 +2678,7 @@ Partial Class frmHauptfensterNew
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(0, 325)
Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(367, 416)
Me.Panel5.Size = New System.Drawing.Size(408, 416)
Me.Panel5.TabIndex = 3
'
'TabControl1
@@ -2679,47 +2686,97 @@ Partial Class frmHauptfensterNew
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Top
Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(367, 301)
Me.TabControl1.Size = New System.Drawing.Size(408, 301)
Me.TabControl1.TabIndex = 85
'
'TabPage1
'
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Location = New System.Drawing.Point(4, 25)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(359, 275)
Me.TabPage1.Size = New System.Drawing.Size(400, 272)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Chat"
Me.TabPage1.UseVisualStyleBackColor = True
'
'TabPage2
'
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Location = New System.Drawing.Point(4, 25)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(359, 275)
Me.TabPage2.Size = New System.Drawing.Size(400, 272)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "TabPage2"
Me.TabPage2.UseVisualStyleBackColor = True
'
'btnMitarbeiterKonto
'
Me.btnMitarbeiterKonto.allowBorder = False
Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
Me.btnMitarbeiterKonto.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(268, 307)
Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
Me.btnMitarbeiterKonto.TabIndex = 86
Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
'
'Panel7
'
Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel7.Location = New System.Drawing.Point(0, 0)
Me.Panel7.Name = "Panel7"
Me.Panel7.Size = New System.Drawing.Size(367, 10)
Me.Panel7.Size = New System.Drawing.Size(408, 10)
Me.Panel7.TabIndex = 4
'
'UsrCntlTestsystem1
'
Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
Me.UsrCntlTestsystem1.TabIndex = 8
'
'UidAbfrageService1
'
Me.UidAbfrageService1.Credentials = Nothing
Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/"
Me.UidAbfrageService1.UseDefaultCredentials = False
'
'cbxInfoChat
'
Me.cbxInfoChat.AutoSize = True
Me.cbxInfoChat.Checked = True
Me.cbxInfoChat.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxInfoChat.Location = New System.Drawing.Point(221, 6)
Me.cbxInfoChat.Name = "cbxInfoChat"
Me.cbxInfoChat.Size = New System.Drawing.Size(183, 17)
Me.cbxInfoChat.TabIndex = 87
Me.cbxInfoChat.Text = "Chat-Benachrichtigung aktivieren"
Me.cbxInfoChat.UseVisualStyleBackColor = True
'
'UsrCntlBenachrichtigungen2
'
Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
Me.UsrCntlBenachrichtigungen2.TabIndex = 5
'
'frmHauptfensterNew
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2744,7 +2801,6 @@ Partial Class frmHauptfensterNew
Me.pnlDetailsRechts.ResumeLayout(False)
Me.pnlDetailsRechts.PerformLayout()
Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout()
Me.cntxtAtilla.ResumeLayout(False)
CType(Me.picAVISOMessenger, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2759,6 +2815,10 @@ Partial Class frmHauptfensterNew
Me.splitMain.Panel2.ResumeLayout(False)
CType(Me.splitMain, System.ComponentModel.ISupportInitialize).EndInit()
Me.splitMain.ResumeLayout(False)
Me.splitMainWorkingView.Panel1.ResumeLayout(False)
Me.splitMainWorkingView.Panel2.ResumeLayout(False)
CType(Me.splitMainWorkingView, System.ComponentModel.ISupportInitialize).EndInit()
Me.splitMainWorkingView.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.FlowLayoutPanel1.ResumeLayout(False)
Me.Panel6.ResumeLayout(False)
@@ -2774,6 +2834,7 @@ Partial Class frmHauptfensterNew
Me.cntVerag.ResumeLayout(False)
Me.pnlLeft.ResumeLayout(False)
Me.Panel5.ResumeLayout(False)
Me.Panel5.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -2851,7 +2912,6 @@ Partial Class frmHauptfensterNew
Friend WithEvents ZeilenInFarbeEinausToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents btnKassenbuch As System.Windows.Forms.Button
Friend WithEvents btnUmrechnungskurse As System.Windows.Forms.Button
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents LogoutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents UsrCntlTestsystem1 As VERAG_PROG_ALLGEMEIN.usrCntlTestsystem
Friend WithEvents TabellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -3053,16 +3113,14 @@ Partial Class frmHauptfensterNew
Friend WithEvents Panel7 As Panel
Friend WithEvents TVEditorNewToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ATILLASENDUNGToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Panel2 As Panel
Friend WithEvents UidAbfrageService1 As VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService
Friend WithEvents UsrCntlBenachrichtigungen2 As usrCntlBenachrichtigungen
Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage
Friend WithEvents TabPage2 As TabPage
Friend WithEvents Panel1 As Panel
Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanel
Friend WithEvents btnWichtigeStandort As Button
Friend WithEvents pnlMain As VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel
Friend WithEvents pnlMain As System.Windows.Forms.Panel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Panel6 As Panel
Friend WithEvents Panel8 As Panel
@@ -3071,4 +3129,10 @@ Partial Class frmHauptfensterNew
Friend WithEvents Panel9 As Panel
Friend WithEvents Button4 As Button
Friend WithEvents Button7 As Button
Friend WithEvents Button9 As Button
Friend WithEvents Panel2 As Panel
Friend WithEvents splitMainWorkingView As SplitContainer
Friend WithEvents Panel1 As Panel
Friend WithEvents pnlMain_Bottom As Panel
Friend WithEvents cbxInfoChat As CheckBox
End Class

55
Aviso/frmHauptfensterNew.resx
View File

@@ -124,32 +124,6 @@
<value>249, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnFakturierung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY
7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E
rkJggg==
</value>
</data>
<data name="btnRg.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY
7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E
rkJggg==
</value>
</data>
<data name="btnKunden.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt
k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE
vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb
h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX
zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i
/8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII=
</value>
</data>
<data name="btnZollwebseiten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt
@@ -230,6 +204,32 @@
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<data name="btnKunden.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAB4AAAAeCAYAAAA7MK6iAAAABGdBTUEAALGPC/xhBQAAAP1JREFUSEvt
k0sKwkAQRLsRL+BOj+XevQtdeAY9ozv1FgYEP0wYZXjpnoxJBBd5UGCqq6slEJGRkX9BVZ+WmBsMHvLE
vV6wvE3c7wyL28T9EmYsGUqhm8feLI3wjl6pRGRteCseNV+n55fI2+VdN0SvVN4u73qhLb1SiciGXvSb
h+kFVPXkzSzigTP9gNmjqg9zkLwN+iSXi7M7/RpVvRmvpv4MkucD90Rkj6NT9qjqFTvlGGX8k9/DEiqX
zc2oNJsNJ7FJ8tvjk2FPo5Nmoip2zI1Z0DGKfihexO6KsyTjw/C3Yl8R4VtkUQdd2NuKUdJJ7M3C5b5i
/8jIT3kBe5JJfQp6Jq0AAAAASUVORK5CYII=
</value>
</data>
<data name="btnFakturierung.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY
7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E
rkJggg==
</value>
</data>
<data name="btnRg.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
lTEOgDAMA52PV3wM9WmgMGSIAkNpaolg6ZamzQ0eCgAQkWMF6rriB1nwhQA6gG2A7pdHREJ9PJLml0fY
7TrCbAoKX3T4FOvXTmjCbAoKl3fIEOpv0Saz3wqz4QsZHX5cmM0vnA5FeAJTug01ZzKXygAAAABJRU5E
rkJggg==
</value>
</data>
<data name="btnTV.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -246,9 +246,6 @@
AAAAAElFTkSuQmCC
</value>
</data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>560, 17</value>
</metadata>
<metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>659, 17</value>
</metadata>

93
Aviso/frmHauptfensterNew.vb
View File

@@ -65,6 +65,7 @@ Public Class frmHauptfensterNew
Dim SEARCH_AVISO As usrCntlHauptfenster_Suche_AVISO = Nothing
Dim SEARCH_SND As usrCntlHauptfenster_Suche_SND = Nothing
Dim SEARCH_AVISO_AKTIV As String = "AVISO"
Public Sub New()
@@ -101,34 +102,54 @@ Public Class frmHauptfensterNew
End Sub
Sub SWITCH_SEARCH(switchTO)
pnlMain.Controls.Clear()
pnlMain_Bottom.Controls.Clear()
SEARCH_AVISO_AKTIV = switchTO
Select Case SEARCH_AVISO_AKTIV
Case "SND"
Dim aaaaa As New usrCntlSND_Ausfuhr
pnlMain.Controls.Add(aaaaa)
initsearch("", False) ': Aviso_anzeigen("")
Case "AVISO"
If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
pnlMain.Controls.Add(SEARCH_AVISO)
'SEARCH_AVISO.Dock = DockStyle.Fill
SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
SEARCH_AVISO.Visible = True
SEARCH_AVISO.BringToFront()
SEARCH_AVISO.Width = pnlMain.Width
SEARCH_AVISO.Height = pnlMain.Height
splitMainWorkingView.Panel2Collapsed = True
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
pnlMain.Controls.Add(SEARCH_SND)
SEARCH_SND.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_AVISO.PerformLayout()
SEARCH_SND.PerformLayout()
Application.DoEvents()
'MsgBox(pnlMain.Width & " / " & pnlMain.Height)
'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height)
Case "AVISO"
splitMainWorkingView.Panel2Collapsed = True
If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
pnlMain.Controls.Add(SEARCH_AVISO)
SEARCH_AVISO.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_AVISO.PerformLayout()
Application.DoEvents()
Case "AVISO_SND_KOMBI"
splitMainWorkingView.Panel2Collapsed = False
If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
pnlMain.Controls.Add(SEARCH_AVISO)
SEARCH_AVISO.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_AVISO.PerformLayout()
Application.DoEvents()
'--------------------------------------------------------------
If SEARCH_SND Is Nothing Then SEARCH_SND = New usrCntlHauptfenster_Suche_SND
SEARCH_SND.PARENT_FRMHAUPTFENSTER = Me
pnlMain_Bottom.Controls.Add(SEARCH_SND)
SEARCH_SND.Dock = DockStyle.Fill
pnlMain_Bottom.PerformLayout()
SEARCH_SND.PerformLayout()
Application.DoEvents()
End Select
initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
End Sub
@@ -142,6 +163,20 @@ Public Class frmHauptfensterNew
End If
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
Select Case SEARCH_AVISO_AKTIV
Case "SND"
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
Case "AVISO"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
Case "AVISO_SND_KOMBI"
If SEARCH_AVISO IsNot Nothing Then SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
If SEARCH_SND IsNot Nothing Then SEARCH_SND.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_SendungsID, True)
End Select
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End Sub
Private Sub frmMain_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.F2 Or e.KeyCode = Keys.F5 Then
@@ -510,7 +545,7 @@ Public Class frmHauptfensterNew
'Grid jetzt aktivieren und befüllen - Standardanzeige ident mit Button Wichtig
Grid_aktiv = True
SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
' If SucheStandort <> "" Then btnWichtigeStandort.Text = "Wichtig " & SucheStandort.Trim.ToUpper
initsearch(" ORDER BY Ankunft")
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
@@ -1445,15 +1480,8 @@ ELSE_ATILLA:
End If
End Sub
Private Sub btnRefresh_Click(sender As System.Object, e As System.EventArgs) Handles btnRefresh.Click
If SEARCH_AVISO IsNot nohing Then
SEARCH_AVISO.avisoAktualisierenAktiveIdBehalten(VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, True)
UsrCntlBenachrichtigungen2.initDgvAvisoBenachrichtigungen(Grid_aktiv, gridFont)
End If
End Sub
'Private Sub btnErfasst_MouseHover(sender As Object, e As EventArgs) Handles btnZollwebseiten.MouseEnter, btnUmrechnungskurse.MouseEnter, Button6.MouseEnter, Button5.MouseEnter, btnSpedBuch.MouseEnter, btnRg.MouseEnter, btnRefresh.MouseEnter, btnKunden.MouseEnter, btnKassenbuch.MouseEnter, btnDrucken.MouseEnter
' Try
@@ -1740,7 +1768,7 @@ ELSE_ATILLA:
'btnGenerelleGestellungen.Visible = False
Button6.Visible = False
btnWichtigeStandort.Visible = False
'btnWichtigeStandort.Visible = False
Panel2.Visible = False
ElseIf VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
@@ -3059,7 +3087,9 @@ ELSE_ATILLA:
End If
End If
Next
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
If cbxInfoChat.Checked Then '# 'Anzeicge Infobox Neuer Chat Ein/Aus
If Not isshown And Not isInFront Then newNotify(frmNotify.cNotify_ART.NEUER_CHAT, 0, "Neue Chat-Nachricht!", -1)
End If
Else
Me.Icon = My.Resources.Aviso
End If
@@ -3858,4 +3888,11 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles Button7.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO_SND_KOMBI")
SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
End Class

14
Aviso/frmNotify.Designer.vb generated
View File

@@ -47,7 +47,7 @@ Partial Class frmNotify
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(300, 70)
Me.pnl.Size = New System.Drawing.Size(227, 70)
Me.pnl.TabIndex = 1
'
'lblText
@@ -57,7 +57,7 @@ Partial Class frmNotify
Me.lblText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblText.Location = New System.Drawing.Point(0, 25)
Me.lblText.Name = "lblText"
Me.lblText.Size = New System.Drawing.Size(298, 43)
Me.lblText.Size = New System.Drawing.Size(225, 43)
Me.lblText.TabIndex = 0
Me.lblText.Text = "Der LKW SD 13 AS steht bereits seit über 2 Stunden! "
Me.lblText.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -65,12 +65,12 @@ Partial Class frmNotify
'Header
'
Me.Header.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Header.Controls.Add(Me.lblTitle)
Me.Header.Controls.Add(Me.btnClose)
Me.Header.Controls.Add(Me.lblTitle)
Me.Header.Dock = System.Windows.Forms.DockStyle.Top
Me.Header.Location = New System.Drawing.Point(0, 0)
Me.Header.Name = "Header"
Me.Header.Size = New System.Drawing.Size(298, 25)
Me.Header.Size = New System.Drawing.Size(225, 25)
Me.Header.TabIndex = 87
'
'lblTitle
@@ -79,7 +79,7 @@ Partial Class frmNotify
Me.lblTitle.ForeColor = System.Drawing.Color.White
Me.lblTitle.Location = New System.Drawing.Point(3, 0)
Me.lblTitle.Name = "lblTitle"
Me.lblTitle.Size = New System.Drawing.Size(241, 24)
Me.lblTitle.Size = New System.Drawing.Size(194, 24)
Me.lblTitle.TabIndex = 88
Me.lblTitle.Text = "LKW Standzeit Benachrichtigung"
Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -93,7 +93,7 @@ Partial Class frmNotify
Me.btnClose.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnClose.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClose.ForeColor = System.Drawing.Color.White
Me.btnClose.Location = New System.Drawing.Point(264, -1)
Me.btnClose.Location = New System.Drawing.Point(191, -1)
Me.btnClose.Name = "btnClose"
Me.btnClose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnClose.Size = New System.Drawing.Size(35, 25)
@@ -106,7 +106,7 @@ Partial Class frmNotify
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.ClientSize = New System.Drawing.Size(300, 70)
Me.ClientSize = New System.Drawing.Size(227, 70)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.MaximumSize = New System.Drawing.Size(300, 300)

566
Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlHauptfenster_Suche_AVISO
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_AVISO))
@@ -31,7 +31,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnDetailsuche = New System.Windows.Forms.Button()
Me.lblDauer = New System.Windows.Forms.Label()
Me.pnlSearch = New System.Windows.Forms.Panel()
Me.lblAbsender = New System.Windows.Forms.Label()
Me.txtAbsender = New System.Windows.Forms.TextBox()
@@ -57,31 +56,21 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.lblErwFilialePos = New System.Windows.Forms.Label()
Me.lblErwAuftraggeber = New System.Windows.Forms.Label()
Me.cbxAlle = New System.Windows.Forms.CheckBox()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.Label22 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.btnE_Aviso = New System.Windows.Forms.Button()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnNeu = New System.Windows.Forms.Button()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.btnHeute = New System.Windows.Forms.Button()
Me.cboImEx = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboTeams = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.btnGestern = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.cbxCluster = New System.Windows.Forms.CheckBox()
Me.cboGrenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnWoche = New System.Windows.Forms.Button()
Me.lblGrenze = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.dtpBis = New System.Windows.Forms.DateTimePicker()
Me.Label6 = New System.Windows.Forms.Label()
Me.dtpVon = New System.Windows.Forms.DateTimePicker()
Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblZeit_aktuell = New System.Windows.Forms.Label()
Me.btnWichtige = New System.Windows.Forms.Button()
Me.btnWichtigeStandort = New System.Windows.Forms.Button()
Me.lblSuche = New System.Windows.Forms.Label()
@@ -97,23 +86,18 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.tabNichtEingetroffen = New System.Windows.Forms.TabPage()
Me.pnlTime = New System.Windows.Forms.Panel()
Me.lblHinweis = New System.Windows.Forms.Label()
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.dtpVon = New System.Windows.Forms.DateTimePicker()
Me.dtpBis = New System.Windows.Forms.DateTimePicker()
Me.Label5 = New System.Windows.Forms.Label()
Me.btnWoche = New System.Windows.Forms.Button()
Me.btnGestern = New System.Windows.Forms.Button()
Me.btnHeute = New System.Windows.Forms.Button()
Me.lblAkte = New System.Windows.Forms.Label()
Me.pblSNDOptions = New System.Windows.Forms.Panel()
Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.btnColor = New System.Windows.Forms.Button()
Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMy_QS = New System.Windows.Forms.CheckBox()
Me.cbx_My_LKW = New System.Windows.Forms.CheckBox()
Me.cboMy_VB = New System.Windows.Forms.CheckBox()
Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl()
Me.tbSndAlle = New System.Windows.Forms.TabPage()
Me.tbSndOffen = New System.Windows.Forms.TabPage()
Me.tbSndFreigegeben = New System.Windows.Forms.TabPage()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Button7 = New System.Windows.Forms.Button()
Me.lblZeit_aktuell = New System.Windows.Forms.Label()
Me.lblDauer = New System.Windows.Forms.Label()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TimerAkte = New System.Windows.Forms.Timer(Me.components)
Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -125,8 +109,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.pnlSearch.SuspendLayout()
Me.tbcntrAvisoLKW.SuspendLayout()
Me.pnlTime.SuspendLayout()
Me.pblSNDOptions.SuspendLayout()
Me.tbcntrAvisoSND.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxtFarben.SuspendLayout()
Me.SuspendLayout()
@@ -134,40 +116,33 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.lblHinweis)
Me.Panel1.Controls.Add(Me.btnDetailsuche)
Me.Panel1.Controls.Add(Me.lblDauer)
Me.Panel1.Controls.Add(Me.pnlSearch)
Me.Panel1.Controls.Add(Me.lblEintraege)
Me.Panel1.Controls.Add(Me.Label22)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.btnE_Aviso)
Me.Panel1.Controls.Add(Me.MyComboBox1)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.txtBestimmungszollstelle)
Me.Panel1.Controls.Add(Me.Label21)
Me.Panel1.Controls.Add(Me.btnHeute)
Me.Panel1.Controls.Add(Me.cboImEx)
Me.Panel1.Controls.Add(Me.cboTeams)
Me.Panel1.Controls.Add(Me.Label16)
Me.Panel1.Controls.Add(Me.btnGestern)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.cbxCluster)
Me.Panel1.Controls.Add(Me.cboGrenzstelle)
Me.Panel1.Controls.Add(Me.btnWoche)
Me.Panel1.Controls.Add(Me.lblGrenze)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.dtpBis)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.dtpVon)
Me.Panel1.Controls.Add(Me.txtSuche)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.lblZeit_aktuell)
Me.Panel1.Controls.Add(Me.btnWichtige)
Me.Panel1.Controls.Add(Me.btnWichtigeStandort)
Me.Panel1.Controls.Add(Me.lblSuche)
Me.Panel1.Controls.Add(Me.tbcntrAvisoLKW)
Me.Panel1.Controls.Add(Me.pnlTime)
Me.Panel1.Controls.Add(Me.lblAkte)
Me.Panel1.Controls.Add(Me.lblZeit_aktuell)
Me.Panel1.Controls.Add(Me.lblDauer)
Me.Panel1.Controls.Add(Me.lblEintraege)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Panel1.Location = New System.Drawing.Point(0, 0)
@@ -192,18 +167,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.btnDetailsuche.Text = "Detailsuche"
Me.btnDetailsuche.UseVisualStyleBackColor = False
'
'lblDauer
'
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDauer.BackColor = System.Drawing.Color.Transparent
Me.lblDauer.ForeColor = System.Drawing.Color.White
Me.lblDauer.Location = New System.Drawing.Point(1101, 15)
Me.lblDauer.Name = "lblDauer"
Me.lblDauer.Size = New System.Drawing.Size(136, 17)
Me.lblDauer.TabIndex = 27
Me.lblDauer.Text = "1111123 ms"
Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'pnlSearch
'
Me.pnlSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(138, Byte), Integer))
@@ -487,18 +450,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.cbxAlle.Text = "Alle"
Me.cbxAlle.UseVisualStyleBackColor = True
'
'lblEintraege
'
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
Me.lblEintraege.ForeColor = System.Drawing.Color.White
Me.lblEintraege.Location = New System.Drawing.Point(1098, 3)
Me.lblEintraege.Name = "lblEintraege"
Me.lblEintraege.Size = New System.Drawing.Size(139, 15)
Me.lblEintraege.TabIndex = 14
Me.lblEintraege.Text = "0 Einträge"
Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label22
'
Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -525,12 +476,12 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
'
'btnE_Aviso
'
Me.btnE_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnE_Aviso.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnE_Aviso.BackColor = System.Drawing.Color.White
Me.btnE_Aviso.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.btnE_Aviso.ForeColor = System.Drawing.Color.Black
Me.btnE_Aviso.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnE_Aviso.Location = New System.Drawing.Point(1119, 43)
Me.btnE_Aviso.Location = New System.Drawing.Point(1116, 45)
Me.btnE_Aviso.MaximumSize = New System.Drawing.Size(121, 34)
Me.btnE_Aviso.Name = "btnE_Aviso"
Me.btnE_Aviso.Size = New System.Drawing.Size(121, 34)
@@ -540,31 +491,15 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.btnE_Aviso.UseVisualStyleBackColor = False
Me.btnE_Aviso.Visible = False
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(823, 5)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'btnNeu
'
Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNeu.BackColor = System.Drawing.Color.White
Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Image = CType(resources.GetObject("btnNeu.Image"), System.Drawing.Image)
Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNeu.Location = New System.Drawing.Point(1119, 83)
Me.btnNeu.Location = New System.Drawing.Point(1116, 6)
Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 34)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(121, 34)
@@ -609,18 +544,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.Label21.TabIndex = 23
Me.Label21.Text = "IM/EX:"
'
'btnHeute
'
Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnHeute.ForeColor = System.Drawing.Color.White
Me.btnHeute.Location = New System.Drawing.Point(922, 4)
Me.btnHeute.Name = "btnHeute"
Me.btnHeute.Size = New System.Drawing.Size(50, 22)
Me.btnHeute.TabIndex = 0
Me.btnHeute.TabStop = False
Me.btnHeute.Text = "Heute"
Me.btnHeute.UseVisualStyleBackColor = True
'
'cboImEx
'
Me.cboImEx._allowedValuesFreiText = Nothing
@@ -663,18 +586,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.Label16.TabIndex = 18
Me.Label16.Text = "Team:"
'
'btnGestern
'
Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnGestern.ForeColor = System.Drawing.Color.White
Me.btnGestern.Location = New System.Drawing.Point(971, 4)
Me.btnGestern.Name = "btnGestern"
Me.btnGestern.Size = New System.Drawing.Size(58, 22)
Me.btnGestern.TabIndex = 1
Me.btnGestern.TabStop = False
Me.btnGestern.Text = "Gestern"
Me.btnGestern.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
@@ -717,18 +628,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.cboGrenzstelle.Size = New System.Drawing.Size(107, 24)
Me.cboGrenzstelle.TabIndex = 13
'
'btnWoche
'
Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWoche.ForeColor = System.Drawing.Color.White
Me.btnWoche.Location = New System.Drawing.Point(1028, 4)
Me.btnWoche.Name = "btnWoche"
Me.btnWoche.Size = New System.Drawing.Size(64, 22)
Me.btnWoche.TabIndex = 2
Me.btnWoche.TabStop = False
Me.btnWoche.Text = "1 Woche"
Me.btnWoche.UseVisualStyleBackColor = True
'
'lblGrenze
'
Me.lblGrenze.AutoSize = True
@@ -739,24 +638,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.lblGrenze.TabIndex = 9
Me.lblGrenze.Text = "Grenzstelle:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(852, 36)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(27, 15)
Me.Label5.TabIndex = 6
Me.Label5.Text = "von"
'
'dtpBis
'
Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpBis.Location = New System.Drawing.Point(1007, 32)
Me.dtpBis.Name = "dtpBis"
Me.dtpBis.Size = New System.Drawing.Size(85, 23)
Me.dtpBis.TabIndex = 4
'
'Label6
'
Me.Label6.AutoSize = True
@@ -768,14 +649,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.Label6.TabIndex = 11
Me.Label6.Text = "mind. 2 Zeichen"
'
'dtpVon
'
Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpVon.Location = New System.Drawing.Point(887, 32)
Me.dtpVon.Name = "dtpVon"
Me.dtpVon.Size = New System.Drawing.Size(85, 23)
Me.dtpVon.TabIndex = 3
'
'txtSuche
'
Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -785,26 +658,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.txtSuche.Size = New System.Drawing.Size(306, 26)
Me.txtSuche.TabIndex = 0
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(976, 36)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(22, 15)
Me.Label2.TabIndex = 5
Me.Label2.Text = "bis"
'
'lblZeit_aktuell
'
Me.lblZeit_aktuell.AutoSize = True
Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblZeit_aktuell.Location = New System.Drawing.Point(6, 39)
Me.lblZeit_aktuell.Name = "lblZeit_aktuell"
Me.lblZeit_aktuell.Size = New System.Drawing.Size(169, 15)
Me.lblZeit_aktuell.TabIndex = 6
Me.lblZeit_aktuell.Text = "letzte Aktualisierung: 11:22 Uhr"
'
'btnWichtige
'
Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -854,7 +707,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.tbcntrAvisoLKW.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbcntrAvisoLKW.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tbcntrAvisoLKW.ItemSize = New System.Drawing.Size(60, 30)
Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(-1, 86)
Me.tbcntrAvisoLKW.Location = New System.Drawing.Point(3, 86)
Me.tbcntrAvisoLKW.Name = "tbcntrAvisoLKW"
Me.tbcntrAvisoLKW.Padding = New System.Drawing.Point(12, 3)
Me.tbcntrAvisoLKW.SelectedIndex = 0
@@ -961,10 +814,17 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
'
Me.pnlTime.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.pnlTime.Controls.Add(Me.lblHinweis)
Me.pnlTime.Controls.Add(Me.MyComboBox1)
Me.pnlTime.Controls.Add(Me.Label2)
Me.pnlTime.Controls.Add(Me.dtpVon)
Me.pnlTime.Controls.Add(Me.dtpBis)
Me.pnlTime.Controls.Add(Me.Label5)
Me.pnlTime.Controls.Add(Me.btnWoche)
Me.pnlTime.Controls.Add(Me.btnGestern)
Me.pnlTime.Controls.Add(Me.btnHeute)
Me.pnlTime.Location = New System.Drawing.Point(794, 1)
Me.pnlTime.Name = "pnlTime"
Me.pnlTime.Size = New System.Drawing.Size(330, 57)
Me.pnlTime.Size = New System.Drawing.Size(307, 57)
Me.pnlTime.TabIndex = 12
'
'lblHinweis
@@ -972,241 +832,146 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.lblHinweis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblHinweis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHinweis.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lblHinweis.Location = New System.Drawing.Point(192, 56)
Me.lblHinweis.Location = New System.Drawing.Point(954, 93)
Me.lblHinweis.Name = "lblHinweis"
Me.lblHinweis.Size = New System.Drawing.Size(129, 16)
Me.lblHinweis.TabIndex = 38
Me.lblHinweis.Text = "Hinweis eingetragen"
Me.lblHinweis.Visible = False
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.MyComboBox1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.MyComboBox1.ForeColor = System.Drawing.Color.White
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(20, 4)
Me.MyComboBox1.MaxLength = 4
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(98, 21)
Me.MyComboBox1.TabIndex = 7
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.ForeColor = System.Drawing.Color.White
Me.Label2.Location = New System.Drawing.Point(173, 35)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(22, 15)
Me.Label2.TabIndex = 5
Me.Label2.Text = "bis"
'
'dtpVon
'
Me.dtpVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpVon.Location = New System.Drawing.Point(84, 31)
Me.dtpVon.Name = "dtpVon"
Me.dtpVon.Size = New System.Drawing.Size(85, 23)
Me.dtpVon.TabIndex = 3
'
'dtpBis
'
Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpBis.Location = New System.Drawing.Point(204, 31)
Me.dtpBis.Name = "dtpBis"
Me.dtpBis.Size = New System.Drawing.Size(85, 23)
Me.dtpBis.TabIndex = 4
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.ForeColor = System.Drawing.Color.White
Me.Label5.Location = New System.Drawing.Point(49, 35)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(27, 15)
Me.Label5.TabIndex = 6
Me.Label5.Text = "von"
'
'btnWoche
'
Me.btnWoche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnWoche.ForeColor = System.Drawing.Color.White
Me.btnWoche.Location = New System.Drawing.Point(225, 3)
Me.btnWoche.Name = "btnWoche"
Me.btnWoche.Size = New System.Drawing.Size(64, 22)
Me.btnWoche.TabIndex = 2
Me.btnWoche.TabStop = False
Me.btnWoche.Text = "1 Woche"
Me.btnWoche.UseVisualStyleBackColor = True
'
'btnGestern
'
Me.btnGestern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnGestern.ForeColor = System.Drawing.Color.White
Me.btnGestern.Location = New System.Drawing.Point(168, 3)
Me.btnGestern.Name = "btnGestern"
Me.btnGestern.Size = New System.Drawing.Size(58, 22)
Me.btnGestern.TabIndex = 1
Me.btnGestern.TabStop = False
Me.btnGestern.Text = "Gestern"
Me.btnGestern.UseVisualStyleBackColor = True
'
'btnHeute
'
Me.btnHeute.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnHeute.ForeColor = System.Drawing.Color.White
Me.btnHeute.Location = New System.Drawing.Point(119, 3)
Me.btnHeute.Name = "btnHeute"
Me.btnHeute.Size = New System.Drawing.Size(50, 22)
Me.btnHeute.TabIndex = 0
Me.btnHeute.TabStop = False
Me.btnHeute.Text = "Heute"
Me.btnHeute.UseVisualStyleBackColor = True
'
'lblAkte
'
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkte.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblAkte.ForeColor = System.Drawing.Color.White
Me.lblAkte.Location = New System.Drawing.Point(1107, 5)
Me.lblAkte.Location = New System.Drawing.Point(1016, 85)
Me.lblAkte.Name = "lblAkte"
Me.lblAkte.Size = New System.Drawing.Size(130, 34)
Me.lblAkte.Size = New System.Drawing.Size(221, 30)
Me.lblAkte.TabIndex = 29
Me.lblAkte.Text = "0 Akte vom " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Arbeitsplatz übernommen"
Me.lblAkte.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'pblSNDOptions
'lblZeit_aktuell
'
Me.pblSNDOptions.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pblSNDOptions.Controls.Add(Me.cbx_My_Brexit)
Me.pblSNDOptions.Controls.Add(Me.btnColor)
Me.pblSNDOptions.Controls.Add(Me.lblMySND_Anzeige)
Me.pblSNDOptions.Controls.Add(Me.cboMyAvisoAnzeige)
Me.pblSNDOptions.Controls.Add(Me.cboMy_Grenzstelle)
Me.pblSNDOptions.Controls.Add(Me.cboMy_QS)
Me.pblSNDOptions.Controls.Add(Me.cbx_My_LKW)
Me.pblSNDOptions.Controls.Add(Me.cboMy_VB)
Me.pblSNDOptions.Controls.Add(Me.lblMySnd_Grenzstelle)
Me.pblSNDOptions.Location = New System.Drawing.Point(314, 259)
Me.pblSNDOptions.Name = "pblSNDOptions"
Me.pblSNDOptions.Size = New System.Drawing.Size(568, 25)
Me.pblSNDOptions.TabIndex = 29
Me.pblSNDOptions.Visible = False
Me.lblZeit_aktuell.AutoSize = True
Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White
Me.lblZeit_aktuell.Location = New System.Drawing.Point(1012, 31)
Me.lblZeit_aktuell.Name = "lblZeit_aktuell"
Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15)
Me.lblZeit_aktuell.TabIndex = 6
Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr"
Me.lblZeit_aktuell.Visible = False
'
'cbx_My_Brexit
'lblDauer
'
Me.cbx_My_Brexit.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(3, 3)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(65, 17)
Me.cbx_My_Brexit.TabIndex = 28
Me.cbx_My_Brexit.Text = "BREXIT"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDauer.BackColor = System.Drawing.Color.Transparent
Me.lblDauer.ForeColor = System.Drawing.Color.White
Me.lblDauer.Location = New System.Drawing.Point(978, 15)
Me.lblDauer.Name = "lblDauer"
Me.lblDauer.Size = New System.Drawing.Size(136, 17)
Me.lblDauer.TabIndex = 27
Me.lblDauer.Text = "1111123 ms"
Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'btnColor
'lblEintraege
'
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnColor.BackColor = System.Drawing.Color.White
Me.btnColor.Location = New System.Drawing.Point(471, 1)
Me.btnColor.Name = "btnColor"
Me.btnColor.Size = New System.Drawing.Size(36, 23)
Me.btnColor.TabIndex = 37
Me.btnColor.UseVisualStyleBackColor = False
Me.btnColor.Visible = False
'
'lblMySND_Anzeige
'
Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblMySND_Anzeige.AutoSize = True
Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White
Me.lblMySND_Anzeige.Location = New System.Drawing.Point(277, 3)
Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige"
Me.lblMySND_Anzeige.Size = New System.Drawing.Size(48, 13)
Me.lblMySND_Anzeige.TabIndex = 20
Me.lblMySND_Anzeige.Text = "Anzeige:"
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(335, 1)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(207, 1)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'cboMy_QS
'
Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_QS.AutoSize = True
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(519, 5)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 33
Me.cboMy_QS.ThreeState = True
Me.cboMy_QS.UseVisualStyleBackColor = True
'
'cbx_My_LKW
'
Me.cbx_My_LKW.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cbx_My_LKW.AutoSize = True
Me.cbx_My_LKW.ForeColor = System.Drawing.Color.White
Me.cbx_My_LKW.Location = New System.Drawing.Point(83, 3)
Me.cbx_My_LKW.Name = "cbx_My_LKW"
Me.cbx_My_LKW.Size = New System.Drawing.Size(50, 17)
Me.cbx_My_LKW.TabIndex = 24
Me.cbx_My_LKW.Text = "LKW"
Me.cbx_My_LKW.UseVisualStyleBackColor = True
'
'cboMy_VB
'
Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_VB.AutoSize = True
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(538, 5)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 32
Me.cboMy_VB.ThreeState = True
Me.cboMy_VB.UseVisualStyleBackColor = True
'
'lblMySnd_Grenzstelle
'
Me.lblMySnd_Grenzstelle.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblMySnd_Grenzstelle.AutoSize = True
Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White
Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(139, 4)
Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle"
Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(62, 13)
Me.lblMySnd_Grenzstelle.TabIndex = 25
Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:"
'
'tbcntrAvisoSND
'
Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben)
Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30)
Me.tbcntrAvisoSND.Location = New System.Drawing.Point(235, 222)
Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND"
Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3)
Me.tbcntrAvisoSND.SelectedIndex = 0
Me.tbcntrAvisoSND.Size = New System.Drawing.Size(129, 11)
Me.tbcntrAvisoSND.TabIndex = 27
Me.tbcntrAvisoSND.Visible = False
'
'tbSndAlle
'
Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbSndAlle.Location = New System.Drawing.Point(4, 34)
Me.tbSndAlle.Name = "tbSndAlle"
Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3)
Me.tbSndAlle.Size = New System.Drawing.Size(121, 0)
Me.tbSndAlle.TabIndex = 0
Me.tbSndAlle.Text = "Alle Sendungen"
'
'tbSndOffen
'
Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbSndOffen.Location = New System.Drawing.Point(4, 34)
Me.tbSndOffen.Name = "tbSndOffen"
Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3)
Me.tbSndOffen.Size = New System.Drawing.Size(121, 0)
Me.tbSndOffen.TabIndex = 1
Me.tbSndOffen.Text = "Offen"
'
'tbSndFreigegeben
'
Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34)
Me.tbSndFreigegeben.Name = "tbSndFreigegeben"
Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0)
Me.tbSndFreigegeben.TabIndex = 2
Me.tbSndFreigegeben.Text = "Freigegeben"
Me.tbSndFreigegeben.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Checked = True
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox1.ForeColor = System.Drawing.Color.White
Me.CheckBox1.Location = New System.Drawing.Point(244, 260)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(50, 17)
Me.CheckBox1.TabIndex = 28
Me.CheckBox1.Text = "LKW"
Me.CheckBox1.UseVisualStyleBackColor = True
Me.CheckBox1.Visible = False
'
'Button7
'
Me.Button7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button7.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.Button7.ForeColor = System.Drawing.Color.Black
Me.Button7.Image = CType(resources.GetObject("Button7.Image"), System.Drawing.Image)
Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button7.Location = New System.Drawing.Point(917, 259)
Me.Button7.MaximumSize = New System.Drawing.Size(121, 35)
Me.Button7.Name = "Button7"
Me.Button7.Size = New System.Drawing.Size(121, 35)
Me.Button7.TabIndex = 32
Me.Button7.Text = "Sendung"
Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button7.UseVisualStyleBackColor = True
Me.Button7.Visible = False
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
Me.lblEintraege.ForeColor = System.Drawing.Color.White
Me.lblEintraege.Location = New System.Drawing.Point(975, 3)
Me.lblEintraege.Name = "lblEintraege"
Me.lblEintraege.Size = New System.Drawing.Size(139, 15)
Me.lblEintraege.TabIndex = 14
Me.lblEintraege.Text = "0 Einträge"
Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'gridAviso
'
@@ -1304,10 +1069,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.tbcntrAvisoSND)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.pblSNDOptions)
Me.Controls.Add(Me.gridAviso)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlHauptfenster_Suche_AVISO"
@@ -1318,32 +1079,14 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Me.pnlSearch.PerformLayout()
Me.tbcntrAvisoLKW.ResumeLayout(False)
Me.pnlTime.ResumeLayout(False)
Me.pblSNDOptions.ResumeLayout(False)
Me.pblSNDOptions.PerformLayout()
Me.tbcntrAvisoSND.ResumeLayout(False)
Me.pnlTime.PerformLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxtFarben.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents pblSNDOptions As Panel
Friend WithEvents cbx_My_Brexit As CheckBox
Friend WithEvents btnColor As Button
Friend WithEvents lblMySND_Anzeige As Label
Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboMy_QS As CheckBox
Friend WithEvents cbx_My_LKW As CheckBox
Friend WithEvents cboMy_VB As CheckBox
Friend WithEvents lblMySnd_Grenzstelle As Label
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents tbcntrAvisoSND As TabControl
Friend WithEvents tbSndAlle As TabPage
Friend WithEvents tbSndOffen As TabPage
Friend WithEvents tbSndFreigegeben As TabPage
Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Label10 As Label
Friend WithEvents cboImEx As VERAG_PROG_ALLGEMEIN.MyComboBox
@@ -1416,7 +1159,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
Friend WithEvents lblDauer As Label
Friend WithEvents btnE_Aviso As Button
Friend WithEvents btnNeu As Button
Friend WithEvents Button7 As Button
Friend WithEvents Label22 As Label
Friend WithEvents lblHinweis As Label
Friend WithEvents btnDetailsuche As Button

8
Aviso/usrCntlHauptfenster_Suche_AVISO.resx
View File

@@ -124,14 +124,6 @@
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<data name="Button7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

339
Aviso/usrCntlHauptfenster_Suche_AVISO.vb
View File

@@ -72,62 +72,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
gridAviso.Rows(0).Selected = True
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
cboMy_Grenzstelle.Items.Clear()
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where grz_Grenzstelle='" & VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT & "' AND grz_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", False)
cboMy_Grenzstelle.changeItem("")
Else
cboMy_Grenzstelle.Items.Clear()
''''If Not VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then ' Nicht, wenn Front-Office
'''' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE (BACKOFFICE)", "ALLE_BACK"))
''''End If
cboMy_Grenzstelle.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM tblGrenzstelle where ([grz_Firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "') AND grz_Aktiv=1 order by grz_Reihenfolge, grz_Grenzstelle", False, "AVISO", True, False, "ALLE")
' cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SBG+AMB", "SBG+AMB"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE WARENORTE", "ALLE_WO"))
cboMy_Grenzstelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("??? - Andere", "???"))
cboMy_Grenzstelle.changeItem("")
''''cboMy_Grenzstelle.changeItem("ALLE_BACK") 'greift nur wenn verfügbar..
End If
cboMyAvisoAnzeige.Items.Clear()
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Benutzer", "Benutzer"))
cboMyAvisoAnzeige.fillWithSQL("SELECT team_id, team_bezeichnung FROM tblTeams WHERE team_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", False, "ADMIN", True, False)
cboMyAvisoAnzeige.changeItem("Benutzer")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
cboMyAvisoAnzeige.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1-Sendungen", "T1"))
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
cboMyAvisoAnzeige.changeItem("T1")
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" Then
cboMy_QS.CheckState = CheckState.Unchecked
cboMy_VB.CheckState = CheckState.Indeterminate
Else
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
End If
Dim myLKW As Boolean = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId Is Nothing Then
myLKW = True
End If
If myLKW Then
cbx_My_LKW.Checked = True
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
ElseIf IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId) Then
cboMyAvisoAnzeige.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId)
End If
End If
MyComboBox1.Items.Clear()
MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("<keine Einschr.>", UStatus_none))
@@ -201,18 +146,9 @@ Public Class usrCntlHauptfenster_Suche_AVISO
End Select
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
cbx_My_Brexit.Checked = True
End If
tbcntrAvisoLKW.Width = Panel1.Width
'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y)
tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X, tbcntrAvisoLKW.Location.Y)
tbcntrAvisoSND.SelectedIndex = 1
tbcntrAvisoSND.Width = tbcntrAvisoLKW.Width
tbcntrAvisoSND.Height = tbcntrAvisoLKW.Height
If cboTeams.Items.Count = 0 Then cboTeams.Visible = False
dtpVon.Value = Now.AddMonths(-1) 'Now.AddDays(-15)
@@ -563,40 +499,40 @@ Public Class usrCntlHauptfenster_Suche_AVISO
'Dauer berechnen:
For Each r As DataGridViewRow In .Rows
r.DefaultCellStyle.Font = nfont
If Not cbx_My_LKW.Checked Then
If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
' r.Cells("Abfertigungsart").Value = "FREMD"
r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
Else 'Nomal
Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
'If False Then
' If r.Cells("tblSnd_Fremdspedition").Value Then 'FREMDANMELDER
' r.Cells("Abfertigungsart").Style.BackColor = Color.FromArgb(230, 230, 230)
' ' r.Cells("tblSnd_PosUnterNr").Style.BackColor = Color.FromArgb(230, 230, 230)
' ' r.Cells("Abfertigungsart").Value = "FREMD"
' r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
' Else 'Nomal
' Dim Abfertigungsland As String = r.Cells("tblSnd_Zollsystem_Land").Value
' If Abfertigungsland <> "" Then Abfertigungsland = "[" & Abfertigungsland & "] "
r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value
' r.Cells("Abfertigungsart").Value = VERAGSQL.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
' r.Cells("Abfertigungsart").Value = Abfertigungsland & r.Cells("Abfertigungsart").Value
If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
End If
' If r.Cells("Abfertigungsart").Value.ToString.Length > 20 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 20) & ".."
' End If
If .Columns("StatusVorbereitetQS") IsNot Nothing Then
If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
Else
DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
End If
End If
If .Columns("StatusVorgeschrieben") IsNot Nothing Then
If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
Else
DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
End If
End If
' If .Columns("StatusVorbereitetQS") IsNot Nothing Then
' If r.Cells("tblSnd_Vorbereitet").Value IsNot DBNull.Value Then
' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorbereitet_Aktiv
' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
' Else
' DirectCast(r.Cells("StatusVorbereitetQS"), DataGridViewImageCell).ToolTipText = "Status 'Vorbereitet-QS' eintragen"
' End If
' End If
' If .Columns("StatusVorgeschrieben") IsNot Nothing Then
' If r.Cells("tblSnd_Vorgeschrieben").Value IsNot DBNull.Value Then
' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).Value = My.Resources.statusBtn_vorgeschrieben_Aktiv
' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & r.Cells("tblSnd_Vorgeschrieben").Value & ")"
' Else
' DirectCast(r.Cells("StatusVorgeschrieben"), DataGridViewImageCell).ToolTipText = "Status 'Vorgeschrieben' eintragen"
' End If
' End If
End If
'End If
' MsgBox(r.Cells(1).Value)
' MsgBox(r.Cells(6).Value)
@@ -635,7 +571,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
'Farbkennung
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
If Not cbx_My_LKW.Checked Then
If True Then
Select Case r.Cells("Status").Value
Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '"1", "2"
' Freigabe, N.Eingetr.
@@ -890,89 +826,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO
hSQL += " ORDER BY Ankunft ASC, AvisoEingang ASC, Datum ASC"
Else
'----------------------------------------------------------------------------------------------------------------------------------
'--- Sendung ---
'----------------------------------------------------------------------------------------------------------------------------------
Dim inBearbeitungSQL = " tblSendungen.LetzterMitarbeiterId=@maId " ' 1<>1 " 'DEFAULT = "Benutzer"
If cboMyAvisoAnzeige._value <> "" Then
If cboMyAvisoAnzeige._value = "ALLE" Then
' inBearbeitungSQL = " 1=1 " 'ALLE
inBearbeitungSQL = " ( (tblSendungen.[tblSnd_TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "')) OR (Aviso.[TeamId] IN (SELECT [team_id] FROM [ADMIN].[dbo].[tblTeams] WHERE [team_firma]='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND tblSendungen.[tblSnd_TeamId] is null)) OR [tblSendungen].tblSnd_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR tblSendungen.LetzterMitarbeiterId=@maId) "
ElseIf cboMyAvisoAnzeige._value = "T1" Then
inBearbeitungSQL = " tblSnd_Abfertigungsart_ID=5 "
'NUR VERAG/IMEX:
inBearbeitungSQL &= " AND FilialenNr IN (SELECT FilialenNr FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".VERAG.dbo.Filialen WHERE Filialen.FilialenNr=tblSendungen.FilialenNr and Filialen.Firma IN ('VERAG','IMEX')) "
ElseIf cboMyAvisoAnzeige._value <> "Benutzer" And IsNumeric(cboMyAvisoAnzeige._value) Then
If cboMyAvisoAnzeige._value = "27" Then ' TEAM SALZBURG
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId
OR Grenzstelle IN('SBG') OR (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) ) "
Else
inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & " AND tblSendungen.[tblSnd_TeamId] is null) OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
End If
End If
End If
Dim hSQLFirma = ""
hSQL = " SELECT AvisoID, CASE WHEN [LKW_fertig] = 1 THEN 'OK' ELSE '' END AS [LKW_fertig], CASE WHEN [VerwahrungStatus] = 1 THEN 'OK' ELSE '' END AS [VerwahrungStatus],[Status],tblSendungen.LetzterMitarbeiterId,tblSendungen.LetzterMitarbeiter, LKW_Nr, VoraussichtlichesEintreffen,Dauer, Datum, AvisoEingang, Ankunft, Grenzstelle, Freigabe, Aviso.LetzterMitarbeiterId AS maId,AvisoTVHinweis " &
" ,tblSnd_Empfaenger,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText " &
" FROM Aviso INNER JOIN tblSendungen ON AvisoID=tblSnd_AvisoID " &
" WHERE ( Status IN (0, 3, 4, 5) OR ( Status = 1 AND [Abgeschlossen] = 0 )) " &
hSQLFirma & " AND ( " & inBearbeitungSQL & ") "
Select Case cboMy_VB.CheckState
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null "
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorgeschrieben is null "
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
End Select
Select Case cboMy_QS.CheckState
Case CheckState.Checked : hSQL &= " AND tblSnd_Vorbereitet is not null "
Case CheckState.Unchecked : hSQL &= " AND tblSnd_Vorbereitet is null "
' Case CheckState.Indeterminate : hSQL &= " AND tblSnd_Vorbereitet is not null "
End Select
If cboMy_Grenzstelle._value = "ALLE_WO" Then
hSQL += " AND Grenzstelle IN (SELECT [grz_Grenzstelle] FROM [tblGrenzstelle] where (grz_Warenort=1 AND (grz_Firma ='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' )) ) "
Else
If cboMy_Grenzstelle._value.Replace("ALLE_BACK", "") <> "" Then hSQL &= " AND Grenzstelle = '" & cboMy_Grenzstelle._value & "'"
If cboMy_Grenzstelle._value = "ALLE_BACK" Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
End If
If cbx_My_Brexit.Visible AndAlso Not cbx_My_Brexit.Checked Then hSQL &= " AND FilialenNr NOT IN ('7001','7002','7003') "
'Farbe
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
Select Case btnColor.BackColor
Case Color.Red
hSQL &= " AND (Status = 3 ) "
Case Color.Orange
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(GETDATE() AS DATE) ) ) "
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) <= cast(DATEADD(DAY, " & getDaysVorschreiben(1) & ",GETDATE()) AS DATE) ) ) "
Case Color.Yellow
hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY," & getDaysVorschreiben(2) & ",GETDATE()) AS DATE) AND cast(DATEADD(DAY," & getDaysVorschreiben(3) & ",GETDATE()) AS DATE) ) ) "
End Select
End If
''Farbe
'If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
' Select Case btnColor.BackColor
' Case Color.Red
' hSQL &= " AND (Status = 3 OR (Status IN (0, 3, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE)<= cast(GETDATE() AS DATE) ) or VoraussichtlichesEintreffen is null) "
' Case Color.Orange
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) = cast(DATEADD(DAY, 1,GETDATE()) AS DATE) ) ) "
' Case Color.Yellow
' hSQL &= " AND ( (Status IN (0, 4, 5) AND cast(VoraussichtlichesEintreffen as DATE) BETWEEN cast(DATEADD(DAY, 2,GETDATE()) AS DATE) AND cast(DATEADD(DAY, 3,GETDATE()) AS DATE) ) ) "
' End Select
'End If
'hSQL &= " AND (Grenzstelle ='???' OR Status NOT IN (1)) " ' "Freigabe" nur bei Fremde Grenze anzeigen!
' Funktioniert nciht, wg. WO
hSQL &= " ORDER BY case " & " when [Status] =3 then 0 " & " when [Status] =1 then 5 " & " else 1 " & " END, VoraussichtlichesEintreffen, Grenzstelle,Ankunft " & If(cbx_My_LKW.Checked, "", ",tblSnd_SendungID")
End If
' MsgBox(hSQL)
@@ -995,12 +848,11 @@ Public Class usrCntlHauptfenster_Suche_AVISO
'gridAviso.DataSource = AVISOBinding.bindingSource
'MsgBox(DirectCast(gridAviso.DataSource, DataTable).Rows.Count)
'Grid neu designen
gridAviso_SpaltenFestlegen()
If CheckBox1.Checked Then
gridAviso_SpaltenFestlegen()
End If
'Tabelle Kommt/Geht bereinigen
If gridAviso.RowCount = 0 Then
@@ -1015,7 +867,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' lblAnzahl.Text = "Einträge: " & Format(VERAG_PROG_ALLGEMEIN.cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt" ' / " & Format(AnzahlAlle, "#,##0") & " gesamt"
hMerkZeit = Now
lblZeit_aktuell.Text = "letzte Aktualisierung: " & Format(Now, "HH:mm")
lblZeit_aktuell.Text = "Refresh: " & Format(Now, "HH:mm")
@@ -1058,7 +910,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
' initPnlSearch()
'End Sub
Sub initPnlSearch()
MsgBox("s")
If pnlSearch.Visible Then
pnlSearch.Visible = False
Panel1.Height -= pnlSearch.Height
@@ -1105,30 +957,31 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
If CheckBox1.Checked Then
toggle_LKW_SND("LKW")
Else
toggle_LKW_SND("SND")
End If
End Sub
Private Sub toggle_LKW_SND(typ)
AVISO_TYP = typ
If AVISO_TYP = "LKW" Then
tbcntrAvisoLKW.Visible = True
tbcntrAvisoSND.Visible = False
pblSNDOptions.Visible = False
ElseIf AVISO_TYP = "SND" Then
tbcntrAvisoLKW.Visible = False
tbcntrAvisoSND.Visible = True
pblSNDOptions.Visible = True
End If
'If CheckBox1.Checked Then
' toggle_LKW_SND("LKW")
'Else
' toggle_LKW_SND("SND")
'End If
Aviso_anzeigen("")
End Sub
'Private Sub toggle_LKW_SND(typ)
' AVISO_TYP = typ
' If AVISO_TYP = "LKW" Then
' tbcntrAvisoLKW.Visible = True
' tbcntrAvisoSND.Visible = False
' pblSNDOptions.Visible = False
' ElseIf AVISO_TYP = "SND" Then
' tbcntrAvisoLKW.Visible = False
' tbcntrAvisoSND.Visible = True
' pblSNDOptions.Visible = True
' End If
' Aviso_anzeigen("")
'End Sub
Private Sub txtSuche_KeyDown1(sender As Object, e As PreviewKeyDownEventArgs) Handles txtSuche.PreviewKeyDown
If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
Aviso_anzeigen("")
@@ -1376,7 +1229,7 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Exit Sub
End If
If cbx_My_LKW.Checked Then
If True Then
Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
@@ -1386,19 +1239,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO
PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick() 'Aviso_anzeigen("")
Else
If gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value Is DBNull.Value Then Exit Sub
Dim SendungsId = gridAviso.SelectedRows(0).Cells("tblSnd_SendungID").Value
Dim AvisoID = gridAviso.SelectedRows(0).Cells("AvisoID").Value
Dim f = Func.openSnd(SendungsId, AvisoID)
If f IsNot Nothing Then
AddHandler f.FormClosed, Sub()
PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick()
End Sub
End If
End If
If gridAviso.SelectedRows.Count = 0 Then Exit Sub
@@ -1421,46 +1261,6 @@ Public Class usrCntlHauptfenster_Suche_AVISO
Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cbx_My_LKW.CheckedChanged, cbx_My_Brexit.CheckedChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
If Grid_aktiv Then
'Wenn VERIMEX/T1 und cboMyAvisoAnzeige geändert --> Checkboxes richtig setzen
If sender Is cboMyAvisoAnzeige Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX" Then
Grid_aktiv = False
If cboMyAvisoAnzeige._value = "T1" Then
cboMy_QS.CheckState = CheckState.Checked
cboMy_VB.CheckState = CheckState.Unchecked
Else
cboMy_QS.CheckState = CheckState.Indeterminate
cboMy_VB.CheckState = CheckState.Indeterminate
End If
Grid_aktiv = True
End If
End If
'DGV anzeigen:
Aviso_anzeigen("")
End If
cboMy_QS.Visible = Not cbx_My_LKW.Checked
cboMy_VB.Visible = Not cbx_My_LKW.Checked
cboMyAvisoAnzeige.Visible = Not cbx_My_LKW.Checked
lblMySND_Anzeige.Visible = Not cbx_My_LKW.Checked
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
btnColor.Visible = Not cbx_My_LKW.Checked
Else
btnColor.Visible = False
End If
If cbx_My_LKW.Checked Then
' lblMeineAviso.Text = "Meine Aviso:"
cbx_My_Brexit.Visible = False
Else
' lblMeineAviso.Text = "Meine Sendungen:"
cbx_My_Brexit.Visible = True
End If
End Sub
Private Sub cboImEx_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboImEx.SelectedIndexChanged
If Grid_aktiv Then
Aviso_anzeigen("")
@@ -1473,31 +1273,11 @@ Public Class usrCntlHauptfenster_Suche_AVISO
End If
End Sub
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
Private Sub Button13_Click(sender As Object, e As EventArgs)
ctxtFarben.Show(Cursor.Position)
End Sub
Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
btnColor.BackColor = Color.Red
' meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
btnColor.BackColor = Color.Orange
' meineAviso_anzeigen()
End Sub
Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
btnColor.BackColor = Color.Yellow
' meineAviso_anzeigen()
End Sub
Private Sub ALLEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ALLEToolStripMenuItem.Click
btnColor.BackColor = Color.White
' meineAviso_anzeigen()
End Sub
Function getDateVorschreiben(addDays) As Date
@@ -1959,4 +1739,5 @@ Public Class usrCntlHauptfenster_Suche_AVISO
'pnlSearch.Visible = Not pnlSearch.Visible
initPnlSearch()
End Sub
End Class

491
Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb generated Normal file
View File

@@ -0,0 +1,491 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlHauptfenster_Suche_SND
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_SND))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim 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()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.btnDetailsuche = New System.Windows.Forms.Button()
Me.lblDauer = New System.Windows.Forms.Label()
Me.lblEintraege = New System.Windows.Forms.Label()
Me.cbx_My_Brexit = New System.Windows.Forms.CheckBox()
Me.btnColor = New System.Windows.Forms.Button()
Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboMy_QS = New System.Windows.Forms.CheckBox()
Me.cboMy_VB = New System.Windows.Forms.CheckBox()
Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
Me.tbcntrAvisoSND = New System.Windows.Forms.TabControl()
Me.tbSndAlle = New System.Windows.Forms.TabPage()
Me.tbSndOffen = New System.Windows.Forms.TabPage()
Me.tbSndFreigegeben = New System.Windows.Forms.TabPage()
Me.btnNeu = New System.Windows.Forms.Button()
Me.gridAviso = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TimerAkte = New System.Windows.Forms.Timer(Me.components)
Me.ctxtFarben = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ALLEToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem20 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem21 = New System.Windows.Forms.ToolStripMenuItem()
Me.lblZeit_aktuell = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Panel1.SuspendLayout()
Me.tbcntrAvisoSND.SuspendLayout()
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ctxtFarben.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.lblZeit_aktuell)
Me.Panel1.Controls.Add(Me.cbx_My_Brexit)
Me.Panel1.Controls.Add(Me.tbcntrAvisoSND)
Me.Panel1.Controls.Add(Me.btnDetailsuche)
Me.Panel1.Controls.Add(Me.btnColor)
Me.Panel1.Controls.Add(Me.lblDauer)
Me.Panel1.Controls.Add(Me.lblMySND_Anzeige)
Me.Panel1.Controls.Add(Me.cboMyAvisoAnzeige)
Me.Panel1.Controls.Add(Me.btnNeu)
Me.Panel1.Controls.Add(Me.cboMy_Grenzstelle)
Me.Panel1.Controls.Add(Me.lblEintraege)
Me.Panel1.Controls.Add(Me.cboMy_QS)
Me.Panel1.Controls.Add(Me.cboMy_VB)
Me.Panel1.Controls.Add(Me.lblMySnd_Grenzstelle)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1243, 76)
Me.Panel1.TabIndex = 3
'
'btnDetailsuche
'
Me.btnDetailsuche.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
Me.btnDetailsuche.FlatAppearance.BorderColor = System.Drawing.Color.Black
Me.btnDetailsuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDetailsuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnDetailsuche.ForeColor = System.Drawing.Color.White
Me.btnDetailsuche.ImageAlign = System.Drawing.ContentAlignment.TopRight
Me.btnDetailsuche.Location = New System.Drawing.Point(788, 11)
Me.btnDetailsuche.Margin = New System.Windows.Forms.Padding(0)
Me.btnDetailsuche.Name = "btnDetailsuche"
Me.btnDetailsuche.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
Me.btnDetailsuche.Size = New System.Drawing.Size(185, 27)
Me.btnDetailsuche.TabIndex = 39
Me.btnDetailsuche.Text = "Detailsuche"
Me.btnDetailsuche.UseVisualStyleBackColor = False
'
'lblDauer
'
Me.lblDauer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblDauer.BackColor = System.Drawing.Color.Transparent
Me.lblDauer.ForeColor = System.Drawing.Color.White
Me.lblDauer.Location = New System.Drawing.Point(974, 21)
Me.lblDauer.Name = "lblDauer"
Me.lblDauer.Size = New System.Drawing.Size(136, 17)
Me.lblDauer.TabIndex = 27
Me.lblDauer.Text = "1111123 ms"
Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'lblEintraege
'
Me.lblEintraege.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblEintraege.BackColor = System.Drawing.Color.Transparent
Me.lblEintraege.ForeColor = System.Drawing.Color.White
Me.lblEintraege.Location = New System.Drawing.Point(971, 8)
Me.lblEintraege.Name = "lblEintraege"
Me.lblEintraege.Size = New System.Drawing.Size(139, 15)
Me.lblEintraege.TabIndex = 14
Me.lblEintraege.Text = "0 Einträge"
Me.lblEintraege.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cbx_My_Brexit
'
Me.cbx_My_Brexit.AutoSize = True
Me.cbx_My_Brexit.ForeColor = System.Drawing.Color.White
Me.cbx_My_Brexit.Location = New System.Drawing.Point(342, 6)
Me.cbx_My_Brexit.Name = "cbx_My_Brexit"
Me.cbx_My_Brexit.Size = New System.Drawing.Size(63, 19)
Me.cbx_My_Brexit.TabIndex = 28
Me.cbx_My_Brexit.Text = "BREXIT"
Me.cbx_My_Brexit.UseVisualStyleBackColor = True
Me.cbx_My_Brexit.Visible = False
'
'btnColor
'
Me.btnColor.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnColor.BackColor = System.Drawing.Color.White
Me.btnColor.Location = New System.Drawing.Point(937, 50)
Me.btnColor.Name = "btnColor"
Me.btnColor.Size = New System.Drawing.Size(36, 23)
Me.btnColor.TabIndex = 37
Me.btnColor.UseVisualStyleBackColor = False
'
'lblMySND_Anzeige
'
Me.lblMySND_Anzeige.AutoSize = True
Me.lblMySND_Anzeige.ForeColor = System.Drawing.Color.White
Me.lblMySND_Anzeige.Location = New System.Drawing.Point(142, 7)
Me.lblMySND_Anzeige.Name = "lblMySND_Anzeige"
Me.lblMySND_Anzeige.Size = New System.Drawing.Size(52, 15)
Me.lblMySND_Anzeige.TabIndex = 20
Me.lblMySND_Anzeige.Text = "Anzeige:"
'
'cboMyAvisoAnzeige
'
Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
Me.cboMyAvisoAnzeige._allowFreiText = False
Me.cboMyAvisoAnzeige._value = ""
Me.cboMyAvisoAnzeige.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMyAvisoAnzeige.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMyAvisoAnzeige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMyAvisoAnzeige.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMyAvisoAnzeige.FormattingEnabled = True
Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(200, 5)
Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21)
Me.cboMyAvisoAnzeige.TabIndex = 21
'
'cboMy_Grenzstelle
'
Me.cboMy_Grenzstelle._allowedValuesFreiText = Nothing
Me.cboMy_Grenzstelle._allowFreiText = False
Me.cboMy_Grenzstelle._value = ""
Me.cboMy_Grenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
Me.cboMy_Grenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboMy_Grenzstelle.DropDownWidth = 120
Me.cboMy_Grenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cboMy_Grenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.cboMy_Grenzstelle.FormattingEnabled = True
Me.cboMy_Grenzstelle.Location = New System.Drawing.Point(72, 5)
Me.cboMy_Grenzstelle.Name = "cboMy_Grenzstelle"
Me.cboMy_Grenzstelle.Size = New System.Drawing.Size(64, 21)
Me.cboMy_Grenzstelle.TabIndex = 26
'
'cboMy_QS
'
Me.cboMy_QS.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_QS.AutoSize = True
Me.cboMy_QS.Checked = True
Me.cboMy_QS.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_QS.ForeColor = System.Drawing.Color.White
Me.cboMy_QS.Location = New System.Drawing.Point(1203, 55)
Me.cboMy_QS.Name = "cboMy_QS"
Me.cboMy_QS.Size = New System.Drawing.Size(15, 14)
Me.cboMy_QS.TabIndex = 33
Me.cboMy_QS.ThreeState = True
Me.cboMy_QS.UseVisualStyleBackColor = True
'
'cboMy_VB
'
Me.cboMy_VB.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.cboMy_VB.AutoSize = True
Me.cboMy_VB.Checked = True
Me.cboMy_VB.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cboMy_VB.ForeColor = System.Drawing.Color.White
Me.cboMy_VB.Location = New System.Drawing.Point(1222, 55)
Me.cboMy_VB.Name = "cboMy_VB"
Me.cboMy_VB.Size = New System.Drawing.Size(15, 14)
Me.cboMy_VB.TabIndex = 32
Me.cboMy_VB.ThreeState = True
Me.cboMy_VB.UseVisualStyleBackColor = True
'
'lblMySnd_Grenzstelle
'
Me.lblMySnd_Grenzstelle.AutoSize = True
Me.lblMySnd_Grenzstelle.ForeColor = System.Drawing.Color.White
Me.lblMySnd_Grenzstelle.Location = New System.Drawing.Point(4, 8)
Me.lblMySnd_Grenzstelle.Name = "lblMySnd_Grenzstelle"
Me.lblMySnd_Grenzstelle.Size = New System.Drawing.Size(67, 15)
Me.lblMySnd_Grenzstelle.TabIndex = 25
Me.lblMySnd_Grenzstelle.Text = "Grenzstelle:"
'
'tbcntrAvisoSND
'
Me.tbcntrAvisoSND.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen)
Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben)
Me.tbcntrAvisoSND.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbcntrAvisoSND.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.tbcntrAvisoSND.ItemSize = New System.Drawing.Size(60, 30)
Me.tbcntrAvisoSND.Location = New System.Drawing.Point(3, 45)
Me.tbcntrAvisoSND.Name = "tbcntrAvisoSND"
Me.tbcntrAvisoSND.Padding = New System.Drawing.Point(12, 3)
Me.tbcntrAvisoSND.SelectedIndex = 0
Me.tbcntrAvisoSND.Size = New System.Drawing.Size(360, 31)
Me.tbcntrAvisoSND.TabIndex = 27
Me.tbcntrAvisoSND.Visible = False
'
'tbSndAlle
'
Me.tbSndAlle.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.tbSndAlle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbSndAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbSndAlle.Location = New System.Drawing.Point(4, 34)
Me.tbSndAlle.Name = "tbSndAlle"
Me.tbSndAlle.Padding = New System.Windows.Forms.Padding(3)
Me.tbSndAlle.Size = New System.Drawing.Size(352, 0)
Me.tbSndAlle.TabIndex = 0
Me.tbSndAlle.Text = "Alle Sendungen"
'
'tbSndOffen
'
Me.tbSndOffen.BackColor = System.Drawing.SystemColors.ActiveBorder
Me.tbSndOffen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tbSndOffen.Location = New System.Drawing.Point(4, 34)
Me.tbSndOffen.Name = "tbSndOffen"
Me.tbSndOffen.Padding = New System.Windows.Forms.Padding(3)
Me.tbSndOffen.Size = New System.Drawing.Size(121, 0)
Me.tbSndOffen.TabIndex = 1
Me.tbSndOffen.Text = "Offen"
'
'tbSndFreigegeben
'
Me.tbSndFreigegeben.Location = New System.Drawing.Point(4, 34)
Me.tbSndFreigegeben.Name = "tbSndFreigegeben"
Me.tbSndFreigegeben.Size = New System.Drawing.Size(121, 0)
Me.tbSndFreigegeben.TabIndex = 2
Me.tbSndFreigegeben.Text = "Freigegeben"
Me.tbSndFreigegeben.UseVisualStyleBackColor = True
'
'btnNeu
'
Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnNeu.Font = New System.Drawing.Font("Segoe UI", 11.0!)
Me.btnNeu.ForeColor = System.Drawing.Color.Black
Me.btnNeu.Image = CType(resources.GetObject("btnNeu.Image"), System.Drawing.Image)
Me.btnNeu.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnNeu.Location = New System.Drawing.Point(1116, 6)
Me.btnNeu.MaximumSize = New System.Drawing.Size(121, 35)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(121, 35)
Me.btnNeu.TabIndex = 32
Me.btnNeu.Text = "Sendung"
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeu.UseVisualStyleBackColor = True
Me.btnNeu.Visible = False
'
'gridAviso
'
Me.gridAviso.AKTUALISIERUNGS_INTERVALL = -1
Me.gridAviso.AllowUserToAddRows = False
Me.gridAviso.AllowUserToDeleteRows = False
Me.gridAviso.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Azure
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle2
Me.gridAviso.ColumnHeadersHeight = 25
Me.gridAviso.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.DisableResizing
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle3
Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
Me.gridAviso.Location = New System.Drawing.Point(0, 76)
Me.gridAviso.MultiSelect = False
Me.gridAviso.Name = "gridAviso"
Me.gridAviso.ReadOnly = True
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.gridAviso.RowHeadersVisible = False
Me.gridAviso.RowHeadersWidth = 62
Me.gridAviso.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle5
Me.gridAviso.RowTemplate.ReadOnly = True
Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gridAviso.Size = New System.Drawing.Size(1243, 556)
Me.gridAviso.TabIndex = 4
Me.gridAviso.TabStop = False
'
'TimerAkte
'
Me.TimerAkte.Interval = 5000
'
'ctxtFarben
'
Me.ctxtFarben.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ctxtFarben.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ALLEToolStripMenuItem, Me.ToolStripMenuItem19, Me.ToolStripMenuItem20, Me.ToolStripMenuItem21})
Me.ctxtFarben.Name = "cntxt"
Me.ctxtFarben.Size = New System.Drawing.Size(122, 92)
'
'ALLEToolStripMenuItem
'
Me.ALLEToolStripMenuItem.Name = "ALLEToolStripMenuItem"
Me.ALLEToolStripMenuItem.Size = New System.Drawing.Size(121, 22)
Me.ALLEToolStripMenuItem.Text = "ALLE"
'
'ToolStripMenuItem19
'
Me.ToolStripMenuItem19.BackColor = System.Drawing.Color.Red
Me.ToolStripMenuItem19.Name = "ToolStripMenuItem19"
Me.ToolStripMenuItem19.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem19.Text = "ROT"
'
'ToolStripMenuItem20
'
Me.ToolStripMenuItem20.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
Me.ToolStripMenuItem20.Name = "ToolStripMenuItem20"
Me.ToolStripMenuItem20.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem20.Text = "ORANGE"
'
'ToolStripMenuItem21
'
Me.ToolStripMenuItem21.BackColor = System.Drawing.Color.Yellow
Me.ToolStripMenuItem21.Name = "ToolStripMenuItem21"
Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
Me.ToolStripMenuItem21.Text = "GELB"
'
'lblZeit_aktuell
'
Me.lblZeit_aktuell.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblZeit_aktuell.AutoSize = True
Me.lblZeit_aktuell.ForeColor = System.Drawing.Color.White
Me.lblZeit_aktuell.Location = New System.Drawing.Point(668, 13)
Me.lblZeit_aktuell.Name = "lblZeit_aktuell"
Me.lblZeit_aktuell.Size = New System.Drawing.Size(101, 15)
Me.lblZeit_aktuell.TabIndex = 40
Me.lblZeit_aktuell.Text = "Refresh: 11:22 Uhr"
Me.lblZeit_aktuell.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Purple
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(1109, 49)
Me.Button1.MaximumSize = New System.Drawing.Size(121, 35)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(88, 24)
Me.Button1.TabIndex = 41
Me.Button1.Text = "Vorschreiben"
Me.Button1.UseVisualStyleBackColor = False
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(0, Byte), Integer))
Me.Button2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.Button2.ForeColor = System.Drawing.Color.White
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(1015, 49)
Me.Button2.MaximumSize = New System.Drawing.Size(121, 35)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(88, 24)
Me.Button2.TabIndex = 42
Me.Button2.Text = "Abklärung"
Me.Button2.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.ForeColor = System.Drawing.Color.White
Me.Label1.Location = New System.Drawing.Point(868, 54)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 15)
Me.Label1.TabIndex = 43
Me.Label1.Text = "Prio/Stufe:"
'
'usrCntlHauptfenster_Suche_SND
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.gridAviso)
Me.Controls.Add(Me.Panel1)
Me.Name = "usrCntlHauptfenster_Suche_SND"
Me.Size = New System.Drawing.Size(1243, 632)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.tbcntrAvisoSND.ResumeLayout(False)
CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).EndInit()
Me.ctxtFarben.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents cbx_My_Brexit As CheckBox
Friend WithEvents btnColor As Button
Friend WithEvents lblMySND_Anzeige As Label
Friend WithEvents cboMyAvisoAnzeige As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboMy_Grenzstelle As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cboMy_QS As CheckBox
Friend WithEvents cboMy_VB As CheckBox
Friend WithEvents lblMySnd_Grenzstelle As Label
Friend WithEvents tbcntrAvisoSND As TabControl
Friend WithEvents tbSndAlle As TabPage
Friend WithEvents tbSndOffen As TabPage
Friend WithEvents tbSndFreigegeben As TabPage
Friend WithEvents lblEintraege As Label
Friend WithEvents gridAviso As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents TimerAkte As Timer
Friend WithEvents ctxtFarben As ContextMenuStrip
Friend WithEvents ALLEToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem19 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem20 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem21 As ToolStripMenuItem
Friend WithEvents lblDauer As Label
Friend WithEvents btnNeu As Button
Friend WithEvents btnDetailsuche As Button
Friend WithEvents lblZeit_aktuell As Label
Friend WithEvents Button2 As Button
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
End Class

135
Aviso/usrCntlHauptfenster_Suche_SND.resx Normal file
View File

@@ -0,0 +1,135 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnNeu.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAABVSURBVEhL7c0xDgAgCENR738Ar4uDi7bEECMsdngO
BPzNzFolGmSbTw+zA9wlCnowouBGQQ9GroN4nELB5/4KRtEnC9wlCnowouBGQQ9G7oKVaJBtAF0U0pEO
zULyAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="TimerAkte.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ctxtFarben.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>126, 56</value>
</metadata>
</root>

1374
Aviso/usrCntlHauptfenster_Suche_SND.vb Normal file
View File

File diff suppressed because it is too large Load Diff