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

Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Browse Source
This commit is contained in:
d.breimaier
2026-03-25 15:58:29 +01:00
parent 783f574363 0e00ec3a2a
commit 67924af34e
15 changed files with 3104 additions and 2730 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)

474
Aviso/frmAddSendungsvermerkShort.Designer.vb generated
View File

@@ -27,11 +27,21 @@ Partial Class frmAddSendungsvermerkShort
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnlMain = New System.Windows.Forms.Panel()
Me.pnlSendungsVermker = New System.Windows.Forms.Panel()
Me.Label5 = New System.Windows.Forms.Label()
Me.optDraft = New System.Windows.Forms.CheckBox()
Me.optGewPackAngefordert = New System.Windows.Forms.CheckBox()
Me.optKostenbestaetigungAngefordert = New System.Windows.Forms.CheckBox()
Me.optZolltarifnummerAngefordert = New System.Windows.Forms.CheckBox()
Me.txtSonstigesDokumentFehlt = New System.Windows.Forms.TextBox()
Me.cbxPackliste = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.optFremd_ATB = New System.Windows.Forms.CheckBox()
Me.optFremd_SendungAvisiert = New System.Windows.Forms.CheckBox()
Me.optFahrerKeinATR = New System.Windows.Forms.CheckBox()
Me.optFrachtkostenAngefordert = New System.Windows.Forms.CheckBox()
Me.optKundeNichtErreichbar = New System.Windows.Forms.CheckBox()
Me.optAbsenderbestätigung = New System.Windows.Forms.CheckBox()
Me.cbxRgBest = New System.Windows.Forms.CheckBox()
Me.optUeberwachungsdok = New System.Windows.Forms.CheckBox()
Me.lblErrSpedition = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.lblErrGrund = New System.Windows.Forms.Label()
@@ -43,36 +53,32 @@ Partial Class frmAddSendungsvermerkShort
Me.optSpeditionWeitergeleitet = New System.Windows.Forms.CheckBox()
Me.optFreierText = New System.Windows.Forms.CheckBox()
Me.optATAangefordert = New System.Windows.Forms.CheckBox()
Me.optVorkasseAngefordert = New System.Windows.Forms.CheckBox()
Me.optKontaktdatenAngefordert = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblErr240Zeichen = New System.Windows.Forms.Label()
Me.txtDetail = New System.Windows.Forms.TextBox()
Me.btnCustomerUploadLink = New System.Windows.Forms.Button()
Me.btnCustomerUploadEmail = New System.Windows.Forms.Button()
Me.txtCustomerUploadEmail = New System.Windows.Forms.TextBox()
Me.lblCustomerUploadEmail = New System.Windows.Forms.Label()
Me.lblCustomerUploadValidityHours = New System.Windows.Forms.Label()
Me.nudCustomerUploadValidityHours = New System.Windows.Forms.NumericUpDown()
Me.cmbCustomerUploadLanguage = New System.Windows.Forms.ComboBox()
Me.lblCustomerUploadLanguage = New System.Windows.Forms.Label()
Me.txtCustomerUploadEmailText = New System.Windows.Forms.TextBox()
Me.lblCustomerUploadEmailText = New System.Windows.Forms.Label()
Me.pnlCustomerUploadSeparator = New System.Windows.Forms.Panel()
Me.lblZustzlFreitext = New System.Windows.Forms.Label()
Me.txtSendungSpedition = New System.Windows.Forms.TextBox()
Me.cbxNichtLeserlich = New System.Windows.Forms.CheckBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.cbxSonstDok = New System.Windows.Forms.CheckBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbxVollmacht = New System.Windows.Forms.CheckBox()
Me.cbxCMR = New System.Windows.Forms.CheckBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.cbxATR = New System.Windows.Forms.CheckBox()
Me.cbxLS = New System.Windows.Forms.CheckBox()
Me.txtFreierText = New System.Windows.Forms.TextBox()
Me.cbxRechnung = New System.Windows.Forms.CheckBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.cbxAuftrag = New System.Windows.Forms.CheckBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.pnlMain.SuspendLayout()
Me.pnlSendungsVermker.SuspendLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -89,18 +95,28 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(474, 868)
Me.pnlMain.Size = New System.Drawing.Size(454, 605)
Me.pnlMain.TabIndex = 0
'
'pnlSendungsVermker
'
Me.pnlSendungsVermker.BackColor = System.Drawing.Color.White
Me.pnlSendungsVermker.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlSendungsVermker.Controls.Add(Me.Label5)
Me.pnlSendungsVermker.Controls.Add(Me.optDraft)
Me.pnlSendungsVermker.Controls.Add(Me.optGewPackAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKostenbestaetigungAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optZolltarifnummerAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.txtSonstigesDokumentFehlt)
Me.pnlSendungsVermker.Controls.Add(Me.cbxPackliste)
Me.pnlSendungsVermker.Controls.Add(Me.Label4)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_ATB)
Me.pnlSendungsVermker.Controls.Add(Me.optFremd_SendungAvisiert)
Me.pnlSendungsVermker.Controls.Add(Me.optFahrerKeinATR)
Me.pnlSendungsVermker.Controls.Add(Me.optFrachtkostenAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKundeNichtErreichbar)
Me.pnlSendungsVermker.Controls.Add(Me.optAbsenderbestätigung)
Me.pnlSendungsVermker.Controls.Add(Me.cbxRgBest)
Me.pnlSendungsVermker.Controls.Add(Me.optUeberwachungsdok)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.Label2)
Me.pnlSendungsVermker.Controls.Add(Me.lblErrGrund)
@@ -112,65 +128,102 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlSendungsVermker.Controls.Add(Me.optSpeditionWeitergeleitet)
Me.pnlSendungsVermker.Controls.Add(Me.optFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.optATAangefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optVorkasseAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.optKontaktdatenAngefordert)
Me.pnlSendungsVermker.Controls.Add(Me.Label3)
Me.pnlSendungsVermker.Controls.Add(Me.lblErr240Zeichen)
Me.pnlSendungsVermker.Controls.Add(Me.txtDetail)
Me.pnlSendungsVermker.Controls.Add(Me.btnCustomerUploadLink)
Me.pnlSendungsVermker.Controls.Add(Me.btnCustomerUploadEmail)
Me.pnlSendungsVermker.Controls.Add(Me.txtCustomerUploadEmail)
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadEmail)
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadValidityHours)
Me.pnlSendungsVermker.Controls.Add(Me.nudCustomerUploadValidityHours)
Me.pnlSendungsVermker.Controls.Add(Me.cmbCustomerUploadLanguage)
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadLanguage)
Me.pnlSendungsVermker.Controls.Add(Me.txtCustomerUploadEmailText)
Me.pnlSendungsVermker.Controls.Add(Me.lblCustomerUploadEmailText)
Me.pnlSendungsVermker.Controls.Add(Me.pnlCustomerUploadSeparator)
Me.pnlSendungsVermker.Controls.Add(Me.lblZustzlFreitext)
Me.pnlSendungsVermker.Controls.Add(Me.txtSendungSpedition)
Me.pnlSendungsVermker.Controls.Add(Me.cbxNichtLeserlich)
Me.pnlSendungsVermker.Controls.Add(Me.btnOK)
Me.pnlSendungsVermker.Controls.Add(Me.cbxSonstDok)
Me.pnlSendungsVermker.Controls.Add(Me.Label9)
Me.pnlSendungsVermker.Controls.Add(Me.cbxVollmacht)
Me.pnlSendungsVermker.Controls.Add(Me.cbxCMR)
Me.pnlSendungsVermker.Controls.Add(Me.Label17)
Me.pnlSendungsVermker.Controls.Add(Me.Label13)
Me.pnlSendungsVermker.Controls.Add(Me.cbxATR)
Me.pnlSendungsVermker.Controls.Add(Me.cbxLS)
Me.pnlSendungsVermker.Controls.Add(Me.txtFreierText)
Me.pnlSendungsVermker.Controls.Add(Me.cbxRechnung)
Me.pnlSendungsVermker.Controls.Add(Me.Label20)
Me.pnlSendungsVermker.Controls.Add(Me.cbxAuftrag)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox1)
Me.pnlSendungsVermker.Controls.Add(Me.PictureBox4)
Me.pnlSendungsVermker.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlSendungsVermker.Location = New System.Drawing.Point(0, 0)
Me.pnlSendungsVermker.Name = "pnlSendungsVermker"
Me.pnlSendungsVermker.Size = New System.Drawing.Size(474, 868)
Me.pnlSendungsVermker.Size = New System.Drawing.Size(454, 605)
Me.pnlSendungsVermker.TabIndex = 0
'
'Label5
'optDraft
'
Me.Label5.AutoSize = True
Me.Label5.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(2, 642)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(202, 17)
Me.Label5.TabIndex = 118
Me.Label5.Text = "Kundenportal Upload-Link:"
Me.optDraft.AutoSize = True
Me.optDraft.Location = New System.Drawing.Point(12, 262)
Me.optDraft.Name = "optDraft"
Me.optDraft.Size = New System.Drawing.Size(174, 17)
Me.optDraft.TabIndex = 102
Me.optDraft.Text = "T1/T2 ""Draft"" OK - angefordert"
Me.optDraft.UseVisualStyleBackColor = True
'
'optGewPackAngefordert
'
Me.optGewPackAngefordert.AutoSize = True
Me.optGewPackAngefordert.Location = New System.Drawing.Point(12, 236)
Me.optGewPackAngefordert.Name = "optGewPackAngefordert"
Me.optGewPackAngefordert.Size = New System.Drawing.Size(245, 17)
Me.optGewPackAngefordert.TabIndex = 101
Me.optGewPackAngefordert.Text = "Gewicht/Packstücke mangelhaft - angefordert"
Me.optGewPackAngefordert.UseVisualStyleBackColor = True
'
'optKostenbestaetigungAngefordert
'
Me.optKostenbestaetigungAngefordert.AutoSize = True
Me.optKostenbestaetigungAngefordert.Location = New System.Drawing.Point(270, 214)
Me.optKostenbestaetigungAngefordert.Name = "optKostenbestaetigungAngefordert"
Me.optKostenbestaetigungAngefordert.Size = New System.Drawing.Size(177, 17)
Me.optKostenbestaetigungAngefordert.TabIndex = 99
Me.optKostenbestaetigungAngefordert.Text = "Kostenbestätigung - angefordert"
Me.optKostenbestaetigungAngefordert.UseVisualStyleBackColor = True
'
'optZolltarifnummerAngefordert
'
Me.optZolltarifnummerAngefordert.AutoSize = True
Me.optZolltarifnummerAngefordert.Location = New System.Drawing.Point(12, 214)
Me.optZolltarifnummerAngefordert.Name = "optZolltarifnummerAngefordert"
Me.optZolltarifnummerAngefordert.Size = New System.Drawing.Size(154, 17)
Me.optZolltarifnummerAngefordert.TabIndex = 98
Me.optZolltarifnummerAngefordert.Text = "Zolltarifnummer angefordert"
Me.optZolltarifnummerAngefordert.UseVisualStyleBackColor = True
'
'txtSonstigesDokumentFehlt
'
Me.txtSonstigesDokumentFehlt.BackColor = System.Drawing.Color.White
Me.txtSonstigesDokumentFehlt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(96, 214)
Me.txtSonstigesDokumentFehlt.Location = New System.Drawing.Point(94, 96)
Me.txtSonstigesDokumentFehlt.MaxLength = 80
Me.txtSonstigesDokumentFehlt.Name = "txtSonstigesDokumentFehlt"
Me.txtSonstigesDokumentFehlt.Size = New System.Drawing.Size(198, 20)
Me.txtSonstigesDokumentFehlt.TabIndex = 10
'
'cbxPackliste
'
Me.cbxPackliste.AutoSize = True
Me.cbxPackliste.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxPackliste.Location = New System.Drawing.Point(308, 75)
Me.cbxPackliste.Name = "cbxPackliste"
Me.cbxPackliste.Size = New System.Drawing.Size(69, 17)
Me.cbxPackliste.TabIndex = 97
Me.cbxPackliste.Text = "Packliste"
Me.cbxPackliste.UseVisualStyleBackColor = False
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(11, 563)
Me.Label4.Location = New System.Drawing.Point(11, 411)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(125, 17)
Me.Label4.TabIndex = 96
@@ -180,7 +233,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_ATB.AutoSize = True
Me.optFremd_ATB.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_ATB.Location = New System.Drawing.Point(12, 610)
Me.optFremd_ATB.Location = New System.Drawing.Point(12, 458)
Me.optFremd_ATB.Name = "optFremd_ATB"
Me.optFremd_ATB.Size = New System.Drawing.Size(130, 17)
Me.optFremd_ATB.TabIndex = 94
@@ -191,19 +244,81 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFremd_SendungAvisiert.AutoSize = True
Me.optFremd_SendungAvisiert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 587)
Me.optFremd_SendungAvisiert.Location = New System.Drawing.Point(12, 435)
Me.optFremd_SendungAvisiert.Name = "optFremd_SendungAvisiert"
Me.optFremd_SendungAvisiert.Size = New System.Drawing.Size(193, 17)
Me.optFremd_SendungAvisiert.TabIndex = 93
Me.optFremd_SendungAvisiert.Text = "Sendung an Fremdeinsteller avisiert"
Me.optFremd_SendungAvisiert.UseVisualStyleBackColor = False
'
'optFahrerKeinATR
'
Me.optFahrerKeinATR.AutoSize = True
Me.optFahrerKeinATR.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFahrerKeinATR.Location = New System.Drawing.Point(308, 52)
Me.optFahrerKeinATR.Name = "optFahrerKeinATR"
Me.optFahrerKeinATR.Size = New System.Drawing.Size(125, 17)
Me.optFahrerKeinATR.TabIndex = 92
Me.optFahrerKeinATR.Text = "Fahrer hat kein A.TR"
Me.optFahrerKeinATR.UseVisualStyleBackColor = False
'
'optFrachtkostenAngefordert
'
Me.optFrachtkostenAngefordert.AutoSize = True
Me.optFrachtkostenAngefordert.Location = New System.Drawing.Point(12, 162)
Me.optFrachtkostenAngefordert.Name = "optFrachtkostenAngefordert"
Me.optFrachtkostenAngefordert.Size = New System.Drawing.Size(145, 17)
Me.optFrachtkostenAngefordert.TabIndex = 91
Me.optFrachtkostenAngefordert.Text = "Frachtkosten angefordert"
Me.optFrachtkostenAngefordert.UseVisualStyleBackColor = True
'
'optKundeNichtErreichbar
'
Me.optKundeNichtErreichbar.AutoSize = True
Me.optKundeNichtErreichbar.Location = New System.Drawing.Point(270, 141)
Me.optKundeNichtErreichbar.Name = "optKundeNichtErreichbar"
Me.optKundeNichtErreichbar.Size = New System.Drawing.Size(133, 17)
Me.optKundeNichtErreichbar.TabIndex = 90
Me.optKundeNichtErreichbar.Text = "Kunde nicht erreichbar"
Me.optKundeNichtErreichbar.UseVisualStyleBackColor = True
'
'optAbsenderbestätigung
'
Me.optAbsenderbestätigung.AutoSize = True
Me.optAbsenderbestätigung.BackColor = System.Drawing.Color.WhiteSmoke
Me.optAbsenderbestätigung.Location = New System.Drawing.Point(308, 32)
Me.optAbsenderbestätigung.Name = "optAbsenderbestätigung"
Me.optAbsenderbestätigung.Size = New System.Drawing.Size(136, 17)
Me.optAbsenderbestätigung.TabIndex = 89
Me.optAbsenderbestätigung.Text = "Absenderbestät. angef."
Me.optAbsenderbestätigung.UseVisualStyleBackColor = False
'
'cbxRgBest
'
Me.cbxRgBest.AutoSize = True
Me.cbxRgBest.Location = New System.Drawing.Point(270, 185)
Me.cbxRgBest.Name = "cbxRgBest"
Me.cbxRgBest.Size = New System.Drawing.Size(146, 17)
Me.cbxRgBest.TabIndex = 86
Me.cbxRgBest.Text = "Rechnungsbestät. angef."
Me.cbxRgBest.UseVisualStyleBackColor = True
'
'optUeberwachungsdok
'
Me.optUeberwachungsdok.AutoSize = True
Me.optUeberwachungsdok.Location = New System.Drawing.Point(270, 163)
Me.optUeberwachungsdok.Name = "optUeberwachungsdok"
Me.optUeberwachungsdok.Size = New System.Drawing.Size(114, 17)
Me.optUeberwachungsdok.TabIndex = 85
Me.optUeberwachungsdok.Text = "Ü-Dok. angefodert"
Me.optUeberwachungsdok.UseVisualStyleBackColor = True
'
'lblErrSpedition
'
Me.lblErrSpedition.AutoSize = True
Me.lblErrSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrSpedition.ForeColor = System.Drawing.Color.Red
Me.lblErrSpedition.Location = New System.Drawing.Point(175, 468)
Me.lblErrSpedition.Location = New System.Drawing.Point(175, 316)
Me.lblErrSpedition.Name = "lblErrSpedition"
Me.lblErrSpedition.Size = New System.Drawing.Size(158, 13)
Me.lblErrSpedition.TabIndex = 17
@@ -215,7 +330,7 @@ Partial Class frmAddSendungsvermerkShort
Me.Label2.AutoSize = True
Me.Label2.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label2.Location = New System.Drawing.Point(175, 468)
Me.Label2.Location = New System.Drawing.Point(175, 316)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 84
@@ -226,7 +341,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrGrund.AutoSize = True
Me.lblErrGrund.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrGrund.ForeColor = System.Drawing.Color.Red
Me.lblErrGrund.Location = New System.Drawing.Point(147, 537)
Me.lblErrGrund.Location = New System.Drawing.Point(147, 385)
Me.lblErrGrund.Name = "lblErrGrund"
Me.lblErrGrund.Size = New System.Drawing.Size(149, 13)
Me.lblErrGrund.TabIndex = 26
@@ -242,7 +357,7 @@ Partial Class frmAddSendungsvermerkShort
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(419, -1)
Me.btnCLose.Location = New System.Drawing.Point(399, -1)
Me.btnCLose.Name = "btnCLose"
Me.btnCLose.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.btnCLose.Size = New System.Drawing.Size(54, 20)
@@ -255,7 +370,7 @@ Partial Class frmAddSendungsvermerkShort
Me.lblErrDokument.AutoSize = True
Me.lblErrDokument.BackColor = System.Drawing.Color.WhiteSmoke
Me.lblErrDokument.ForeColor = System.Drawing.Color.Red
Me.lblErrDokument.Location = New System.Drawing.Point(93, 233)
Me.lblErrDokument.Location = New System.Drawing.Point(91, 115)
Me.lblErrDokument.Name = "lblErrDokument"
Me.lblErrDokument.Size = New System.Drawing.Size(157, 13)
Me.lblErrDokument.TabIndex = 11
@@ -277,7 +392,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSpedition.Location = New System.Drawing.Point(177, 484)
Me.txtSpedition.Location = New System.Drawing.Point(177, 332)
Me.txtSpedition.MaxLength = 50
Me.txtSpedition.Name = "txtSpedition"
Me.txtSpedition.Size = New System.Drawing.Size(125, 20)
@@ -298,7 +413,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optSpeditionWeitergeleitet.AutoSize = True
Me.optSpeditionWeitergeleitet.BackColor = System.Drawing.Color.WhiteSmoke
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 486)
Me.optSpeditionWeitergeleitet.Location = New System.Drawing.Point(12, 334)
Me.optSpeditionWeitergeleitet.Name = "optSpeditionWeitergeleitet"
Me.optSpeditionWeitergeleitet.Size = New System.Drawing.Size(163, 17)
Me.optSpeditionWeitergeleitet.TabIndex = 19
@@ -309,7 +424,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optFreierText.AutoSize = True
Me.optFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.optFreierText.Location = New System.Drawing.Point(12, 513)
Me.optFreierText.Location = New System.Drawing.Point(12, 361)
Me.optFreierText.Name = "optFreierText"
Me.optFreierText.Size = New System.Drawing.Size(105, 17)
Me.optFreierText.TabIndex = 27
@@ -320,18 +435,38 @@ Partial Class frmAddSendungsvermerkShort
'
Me.optATAangefordert.AutoSize = True
Me.optATAangefordert.BackColor = System.Drawing.Color.WhiteSmoke
Me.optATAangefordert.Location = New System.Drawing.Point(164, 610)
Me.optATAangefordert.Location = New System.Drawing.Point(164, 458)
Me.optATAangefordert.Name = "optATAangefordert"
Me.optATAangefordert.Size = New System.Drawing.Size(208, 17)
Me.optATAangefordert.TabIndex = 15
Me.optATAangefordert.Text = "ATA/ATC-Nr. angefordert (Fremdanm.)"
Me.optATAangefordert.UseVisualStyleBackColor = False
'
'optVorkasseAngefordert
'
Me.optVorkasseAngefordert.AutoSize = True
Me.optVorkasseAngefordert.Location = New System.Drawing.Point(12, 184)
Me.optVorkasseAngefordert.Name = "optVorkasseAngefordert"
Me.optVorkasseAngefordert.Size = New System.Drawing.Size(144, 17)
Me.optVorkasseAngefordert.TabIndex = 14
Me.optVorkasseAngefordert.Text = "Vorauskasse angefordert"
Me.optVorkasseAngefordert.UseVisualStyleBackColor = True
'
'optKontaktdatenAngefordert
'
Me.optKontaktdatenAngefordert.AutoSize = True
Me.optKontaktdatenAngefordert.Location = New System.Drawing.Point(12, 141)
Me.optKontaktdatenAngefordert.Name = "optKontaktdatenAngefordert"
Me.optKontaktdatenAngefordert.Size = New System.Drawing.Size(212, 17)
Me.optKontaktdatenAngefordert.TabIndex = 12
Me.optKontaktdatenAngefordert.Text = "Kontaktdaten (z.B.Tel-Nr.) - angefordert"
Me.optKontaktdatenAngefordert.UseVisualStyleBackColor = True
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label3.Location = New System.Drawing.Point(308, 487)
Me.Label3.Location = New System.Drawing.Point(308, 335)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(57, 13)
Me.Label3.TabIndex = 22
@@ -341,7 +476,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.lblErr240Zeichen.AutoSize = True
Me.lblErr240Zeichen.ForeColor = System.Drawing.Color.Red
Me.lblErr240Zeichen.Location = New System.Drawing.Point(212, 785)
Me.lblErr240Zeichen.Location = New System.Drawing.Point(219, 496)
Me.lblErr240Zeichen.Name = "lblErr240Zeichen"
Me.lblErr240Zeichen.Size = New System.Drawing.Size(95, 13)
Me.lblErr240Zeichen.TabIndex = 32
@@ -353,7 +488,7 @@ Partial Class frmAddSendungsvermerkShort
Me.txtDetail.AcceptsReturn = True
Me.txtDetail.BackColor = System.Drawing.Color.White
Me.txtDetail.ForeColor = System.Drawing.SystemColors.InfoText
Me.txtDetail.Location = New System.Drawing.Point(5, 801)
Me.txtDetail.Location = New System.Drawing.Point(12, 512)
Me.txtDetail.MaxLength = 240
Me.txtDetail.Multiline = True
Me.txtDetail.Name = "txtDetail"
@@ -363,117 +498,10 @@ Partial Class frmAddSendungsvermerkShort
Me.txtDetail.TabStop = False
Me.txtDetail.WordWrap = False
'
'btnCustomerUploadLink
'
Me.btnCustomerUploadLink.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadLink.Location = New System.Drawing.Point(340, 668)
Me.btnCustomerUploadLink.Name = "btnCustomerUploadLink"
Me.btnCustomerUploadLink.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadLink.TabIndex = 108
Me.btnCustomerUploadLink.Text = "Link kopieren"
Me.btnCustomerUploadLink.UseVisualStyleBackColor = True
'
'btnCustomerUploadEmail
'
Me.btnCustomerUploadEmail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCustomerUploadEmail.Location = New System.Drawing.Point(340, 694)
Me.btnCustomerUploadEmail.Name = "btnCustomerUploadEmail"
Me.btnCustomerUploadEmail.Size = New System.Drawing.Size(124, 23)
Me.btnCustomerUploadEmail.TabIndex = 109
Me.btnCustomerUploadEmail.Text = "E-Mail senden"
Me.btnCustomerUploadEmail.UseVisualStyleBackColor = True
'
'txtCustomerUploadEmail
'
Me.txtCustomerUploadEmail.BackColor = System.Drawing.Color.White
Me.txtCustomerUploadEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCustomerUploadEmail.Location = New System.Drawing.Point(80, 696)
Me.txtCustomerUploadEmail.MaxLength = 255
Me.txtCustomerUploadEmail.Name = "txtCustomerUploadEmail"
Me.txtCustomerUploadEmail.Size = New System.Drawing.Size(254, 20)
Me.txtCustomerUploadEmail.TabIndex = 107
'
'lblCustomerUploadEmail
'
Me.lblCustomerUploadEmail.AutoSize = True
Me.lblCustomerUploadEmail.Location = New System.Drawing.Point(2, 699)
Me.lblCustomerUploadEmail.Name = "lblCustomerUploadEmail"
Me.lblCustomerUploadEmail.Size = New System.Drawing.Size(54, 13)
Me.lblCustomerUploadEmail.TabIndex = 110
Me.lblCustomerUploadEmail.Text = "E-Mail an:"
'
'lblCustomerUploadValidityHours
'
Me.lblCustomerUploadValidityHours.AutoSize = True
Me.lblCustomerUploadValidityHours.Location = New System.Drawing.Point(176, 672)
Me.lblCustomerUploadValidityHours.Name = "lblCustomerUploadValidityHours"
Me.lblCustomerUploadValidityHours.Size = New System.Drawing.Size(66, 13)
Me.lblCustomerUploadValidityHours.TabIndex = 111
Me.lblCustomerUploadValidityHours.Text = "Gültigkeit(h):"
'
'nudCustomerUploadValidityHours
'
Me.nudCustomerUploadValidityHours.Location = New System.Drawing.Point(260, 670)
Me.nudCustomerUploadValidityHours.Maximum = New Decimal(New Integer() {168, 0, 0, 0})
Me.nudCustomerUploadValidityHours.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
Me.nudCustomerUploadValidityHours.Name = "nudCustomerUploadValidityHours"
Me.nudCustomerUploadValidityHours.Size = New System.Drawing.Size(74, 20)
Me.nudCustomerUploadValidityHours.TabIndex = 112
Me.nudCustomerUploadValidityHours.Value = New Decimal(New Integer() {168, 0, 0, 0})
'
'cmbCustomerUploadLanguage
'
Me.cmbCustomerUploadLanguage.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbCustomerUploadLanguage.FormattingEnabled = True
Me.cmbCustomerUploadLanguage.Items.AddRange(New Object() {"de", "en", "tr", "sr", "bg"})
Me.cmbCustomerUploadLanguage.Location = New System.Drawing.Point(80, 670)
Me.cmbCustomerUploadLanguage.Name = "cmbCustomerUploadLanguage"
Me.cmbCustomerUploadLanguage.Size = New System.Drawing.Size(80, 21)
Me.cmbCustomerUploadLanguage.TabIndex = 116
'
'lblCustomerUploadLanguage
'
Me.lblCustomerUploadLanguage.AutoSize = True
Me.lblCustomerUploadLanguage.Location = New System.Drawing.Point(2, 673)
Me.lblCustomerUploadLanguage.Name = "lblCustomerUploadLanguage"
Me.lblCustomerUploadLanguage.Size = New System.Drawing.Size(72, 13)
Me.lblCustomerUploadLanguage.TabIndex = 117
Me.lblCustomerUploadLanguage.Text = "Mail Sprache:"
'
'txtCustomerUploadEmailText
'
Me.txtCustomerUploadEmailText.BackColor = System.Drawing.Color.White
Me.txtCustomerUploadEmailText.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtCustomerUploadEmailText.Location = New System.Drawing.Point(80, 718)
Me.txtCustomerUploadEmailText.MaxLength = 500
Me.txtCustomerUploadEmailText.Multiline = True
Me.txtCustomerUploadEmailText.Name = "txtCustomerUploadEmailText"
Me.txtCustomerUploadEmailText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.txtCustomerUploadEmailText.Size = New System.Drawing.Size(254, 54)
Me.txtCustomerUploadEmailText.TabIndex = 113
Me.txtCustomerUploadEmailText.Text = "Bitte laden Sie die angeforderten Dokumente über den Link hoch."
'
'lblCustomerUploadEmailText
'
Me.lblCustomerUploadEmailText.AutoSize = True
Me.lblCustomerUploadEmailText.Location = New System.Drawing.Point(2, 721)
Me.lblCustomerUploadEmailText.Name = "lblCustomerUploadEmailText"
Me.lblCustomerUploadEmailText.Size = New System.Drawing.Size(63, 13)
Me.lblCustomerUploadEmailText.TabIndex = 114
Me.lblCustomerUploadEmailText.Text = "E-Mail Text:"
'
'pnlCustomerUploadSeparator
'
Me.pnlCustomerUploadSeparator.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnlCustomerUploadSeparator.Location = New System.Drawing.Point(-8, 779)
Me.pnlCustomerUploadSeparator.Name = "pnlCustomerUploadSeparator"
Me.pnlCustomerUploadSeparator.Size = New System.Drawing.Size(474, 1)
Me.pnlCustomerUploadSeparator.TabIndex = 115
'
'lblZustzlFreitext
'
Me.lblZustzlFreitext.AutoSize = True
Me.lblZustzlFreitext.Location = New System.Drawing.Point(2, 785)
Me.lblZustzlFreitext.Location = New System.Drawing.Point(9, 496)
Me.lblZustzlFreitext.Name = "lblZustzlFreitext"
Me.lblZustzlFreitext.Size = New System.Drawing.Size(142, 13)
Me.lblZustzlFreitext.TabIndex = 31
@@ -483,7 +511,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.txtSendungSpedition.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtSendungSpedition.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 484)
Me.txtSendungSpedition.Location = New System.Drawing.Point(144, 332)
Me.txtSendungSpedition.MaxLength = 50
Me.txtSendungSpedition.Name = "txtSendungSpedition"
Me.txtSendungSpedition.Size = New System.Drawing.Size(25, 20)
@@ -494,7 +522,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.cbxNichtLeserlich.AutoSize = True
Me.cbxNichtLeserlich.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(310, 216)
Me.cbxNichtLeserlich.Location = New System.Drawing.Point(308, 98)
Me.cbxNichtLeserlich.Name = "cbxNichtLeserlich"
Me.cbxNichtLeserlich.Size = New System.Drawing.Size(90, 17)
Me.cbxNichtLeserlich.TabIndex = 8
@@ -504,7 +532,7 @@ Partial Class frmAddSendungsvermerkShort
'btnOK
'
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(313, 801)
Me.btnOK.Location = New System.Drawing.Point(320, 512)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(124, 54)
Me.btnOK.TabIndex = 34
@@ -515,7 +543,7 @@ Partial Class frmAddSendungsvermerkShort
'
Me.cbxSonstDok.AutoSize = True
Me.cbxSonstDok.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxSonstDok.Location = New System.Drawing.Point(14, 216)
Me.cbxSonstDok.Location = New System.Drawing.Point(12, 98)
Me.cbxSonstDok.Name = "cbxSonstDok"
Me.cbxSonstDok.Size = New System.Drawing.Size(83, 17)
Me.cbxSonstDok.TabIndex = 9
@@ -527,18 +555,40 @@ Partial Class frmAddSendungsvermerkShort
Me.Label9.AutoSize = True
Me.Label9.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!)
Me.Label9.Location = New System.Drawing.Point(354, 537)
Me.Label9.Location = New System.Drawing.Point(354, 385)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 30
Me.Label9.Text = "(max. 80 Zeichen)"
'
'cbxVollmacht
'
Me.cbxVollmacht.AutoSize = True
Me.cbxVollmacht.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxVollmacht.Location = New System.Drawing.Point(164, 75)
Me.cbxVollmacht.Name = "cbxVollmacht"
Me.cbxVollmacht.Size = New System.Drawing.Size(72, 17)
Me.cbxVollmacht.TabIndex = 7
Me.cbxVollmacht.Text = "Vollmacht"
Me.cbxVollmacht.UseVisualStyleBackColor = False
'
'cbxCMR
'
Me.cbxCMR.AutoSize = True
Me.cbxCMR.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxCMR.Location = New System.Drawing.Point(164, 32)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
Me.cbxCMR.TabIndex = 3
Me.cbxCMR.Text = "CMR"
Me.cbxCMR.UseVisualStyleBackColor = False
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Italic)
Me.Label17.Location = New System.Drawing.Point(144, 537)
Me.Label17.Location = New System.Drawing.Point(144, 385)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(182, 13)
Me.Label17.TabIndex = 29
@@ -549,38 +599,82 @@ Partial Class frmAddSendungsvermerkShort
Me.Label13.AutoSize = True
Me.Label13.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(9, 459)
Me.Label13.Location = New System.Drawing.Point(9, 307)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(84, 17)
Me.Label13.TabIndex = 16
Me.Label13.Text = "Sonstiges:"
'
'cbxATR
'
Me.cbxATR.AutoSize = True
Me.cbxATR.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxATR.Location = New System.Drawing.Point(164, 52)
Me.cbxATR.Name = "cbxATR"
Me.cbxATR.Size = New System.Drawing.Size(127, 17)
Me.cbxATR.TabIndex = 5
Me.cbxATR.Text = "A.TR (Original/Kopie)"
Me.cbxATR.UseVisualStyleBackColor = False
'
'cbxLS
'
Me.cbxLS.AutoSize = True
Me.cbxLS.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxLS.Location = New System.Drawing.Point(12, 75)
Me.cbxLS.Name = "cbxLS"
Me.cbxLS.Size = New System.Drawing.Size(83, 17)
Me.cbxLS.TabIndex = 6
Me.cbxLS.Text = "Lieferschein"
Me.cbxLS.UseVisualStyleBackColor = False
'
'txtFreierText
'
Me.txtFreierText.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtFreierText.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txtFreierText.Location = New System.Drawing.Point(122, 511)
Me.txtFreierText.Location = New System.Drawing.Point(122, 359)
Me.txtFreierText.MaxLength = 80
Me.txtFreierText.Name = "txtFreierText"
Me.txtFreierText.Size = New System.Drawing.Size(322, 23)
Me.txtFreierText.TabIndex = 28
'
'cbxRechnung
'
Me.cbxRechnung.AutoSize = True
Me.cbxRechnung.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxRechnung.Location = New System.Drawing.Point(12, 53)
Me.cbxRechnung.Name = "cbxRechnung"
Me.cbxRechnung.Size = New System.Drawing.Size(137, 17)
Me.cbxRechnung.TabIndex = 4
Me.cbxRechnung.Text = "Rechnung (mangelhaft)"
Me.cbxRechnung.UseVisualStyleBackColor = False
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.BackColor = System.Drawing.Color.WhiteSmoke
Me.Label20.Location = New System.Drawing.Point(267, 487)
Me.Label20.Location = New System.Drawing.Point(267, 335)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(0, 13)
Me.Label20.TabIndex = 21
'
'cbxAuftrag
'
Me.cbxAuftrag.AutoSize = True
Me.cbxAuftrag.BackColor = System.Drawing.Color.WhiteSmoke
Me.cbxAuftrag.Location = New System.Drawing.Point(12, 32)
Me.cbxAuftrag.Name = "cbxAuftrag"
Me.cbxAuftrag.Size = New System.Drawing.Size(60, 17)
Me.cbxAuftrag.TabIndex = 2
Me.cbxAuftrag.Text = "Auftrag"
Me.cbxAuftrag.UseVisualStyleBackColor = False
'
'PictureBox1
'
Me.PictureBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox1.Location = New System.Drawing.Point(-1, -1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(474, 250)
Me.PictureBox1.Size = New System.Drawing.Size(453, 130)
Me.PictureBox1.TabIndex = 83
Me.PictureBox1.TabStop = False
'
@@ -588,9 +682,9 @@ Partial Class frmAddSendungsvermerkShort
'
Me.PictureBox4.BackColor = System.Drawing.Color.WhiteSmoke
Me.PictureBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.PictureBox4.Location = New System.Drawing.Point(-1, 450)
Me.PictureBox4.Location = New System.Drawing.Point(-1, 297)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(481, 189)
Me.PictureBox4.Size = New System.Drawing.Size(453, 189)
Me.PictureBox4.TabIndex = 78
Me.PictureBox4.TabStop = False
'
@@ -601,14 +695,14 @@ Partial Class frmAddSendungsvermerkShort
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(474, 0)
Me.Panel4.Size = New System.Drawing.Size(454, 0)
Me.Panel4.TabIndex = 1
'
'frmAddSendungsvermerkShort
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(474, 868)
Me.ClientSize = New System.Drawing.Size(454, 605)
Me.Controls.Add(Me.pnlMain)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -620,7 +714,6 @@ Partial Class frmAddSendungsvermerkShort
Me.pnlMain.ResumeLayout(False)
Me.pnlSendungsVermker.ResumeLayout(False)
Me.pnlSendungsVermker.PerformLayout()
CType(Me.nudCustomerUploadValidityHours, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -634,6 +727,8 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents optSpeditionWeitergeleitet As System.Windows.Forms.CheckBox
Friend WithEvents optFreierText As System.Windows.Forms.CheckBox
Friend WithEvents optATAangefordert As System.Windows.Forms.CheckBox
Friend WithEvents optVorkasseAngefordert As System.Windows.Forms.CheckBox
Friend WithEvents optKontaktdatenAngefordert As System.Windows.Forms.CheckBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents lblErr240Zeichen As System.Windows.Forms.Label
Friend WithEvents lblZustzlFreitext As System.Windows.Forms.Label
@@ -642,13 +737,19 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents cbxSonstDok As System.Windows.Forms.CheckBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents cbxVollmacht As System.Windows.Forms.CheckBox
Friend WithEvents lblErrSpedition As System.Windows.Forms.Label
Friend WithEvents cbxCMR As System.Windows.Forms.CheckBox
Friend WithEvents lblErrGrund As System.Windows.Forms.Label
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents cbxATR As System.Windows.Forms.CheckBox
Friend WithEvents cbxLS As System.Windows.Forms.CheckBox
Friend WithEvents txtFreierText As System.Windows.Forms.TextBox
Friend WithEvents txtSpedition As System.Windows.Forms.TextBox
Friend WithEvents cbxRechnung As System.Windows.Forms.CheckBox
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents cbxAuftrag As System.Windows.Forms.CheckBox
Friend WithEvents PictureBox4 As System.Windows.Forms.PictureBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents optSendungInVorbereitung As System.Windows.Forms.CheckBox
@@ -656,20 +757,19 @@ Partial Class frmAddSendungsvermerkShort
Friend WithEvents lblErrDokument As System.Windows.Forms.Label
Friend WithEvents btnCLose As System.Windows.Forms.Button
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents optUeberwachungsdok As System.Windows.Forms.CheckBox
Friend WithEvents cbxRgBest As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents optFremd_ATB As CheckBox
Friend WithEvents optFremd_SendungAvisiert As CheckBox
Friend WithEvents optFahrerKeinATR As CheckBox
Friend WithEvents optFrachtkostenAngefordert As CheckBox
Friend WithEvents optKundeNichtErreichbar As CheckBox
Friend WithEvents optAbsenderbestätigung As CheckBox
Friend WithEvents cbxPackliste As CheckBox
Friend WithEvents optGewPackAngefordert As CheckBox
Friend WithEvents optKostenbestaetigungAngefordert As CheckBox
Friend WithEvents optZolltarifnummerAngefordert As CheckBox
Friend WithEvents optDraft As CheckBox
Public WithEvents txtDetail As TextBox
Friend WithEvents btnCustomerUploadLink As Button
Friend WithEvents btnCustomerUploadEmail As Button
Friend WithEvents txtCustomerUploadEmail As TextBox
Friend WithEvents lblCustomerUploadEmail As Label
Friend WithEvents lblCustomerUploadValidityHours As Label
Friend WithEvents nudCustomerUploadValidityHours As NumericUpDown
Friend WithEvents cmbCustomerUploadLanguage As ComboBox
Friend WithEvents lblCustomerUploadLanguage As Label
Friend WithEvents txtCustomerUploadEmailText As TextBox
Friend WithEvents lblCustomerUploadEmailText As Label
Friend WithEvents pnlCustomerUploadSeparator As Panel
Friend WithEvents Label5 As Label
End Class

1523
Aviso/frmAddSendungsvermerkShort.vb
View File

File diff suppressed because it is too large Load Diff

680
Aviso/frmHauptfensterNew.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

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>

141
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,36 +102,95 @@ Public Class frmHauptfensterNew
End Sub
Sub SWITCH_SEARCH(switchTO)
pnlMain.Controls.Clear()
pnlMain_Bottom.Controls.Clear()
SEARCH_AVISO_AKTIV = switchTO
' toggle_Buttons_Main(sender)
For Each button In FlowLayoutPanel1.Controls
With button
.BackColor = btnDEFAULT_UnSelected.BackColor
.ForeColor = btnDEFAULT_UnSelected.ForeColor
.Font = btnDEFAULT_UnSelected.Font
End With
Next
Dim SelectedBtn As Button = Nothing
Select Case SEARCH_AVISO_AKTIV
Case "SND"
Dim aaaaa As New usrCntlSND_Ausfuhr
pnlMain.Controls.Add(aaaaa)
initsearch("", False) ': Aviso_anzeigen("")
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_SND
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_SND.PerformLayout()
Application.DoEvents()
Case "AVISO"
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_LKW
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
pnlMain.Controls.Add(SEARCH_AVISO)
SEARCH_AVISO.Dock = DockStyle.Fill
pnlMain.PerformLayout()
SEARCH_AVISO.PerformLayout()
Application.DoEvents()
Case "AVISO_SND_KOMBI"
splitMainWorkingView.Panel2Collapsed = False
SelectedBtn = btnVIEW_KOMBI
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()
Case "COMPLIANCE"
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_Compliance
'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 "CUSTOMS_CONTROLLING"
splitMainWorkingView.Panel2Collapsed = True
SelectedBtn = btnVIEW_CustControling
'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()
'MsgBox(pnlMain.Width & " / " & pnlMain.Height)
'MsgBox(SEARCH_AVISO.Width & " / " & SEARCH_AVISO.Height)
End Select
initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
With SelectedBtn
.BackColor = btnDEFAULT_Selected.BackColor
.ForeColor = btnDEFAULT_Selected.ForeColor
.Font = btnDEFAULT_Selected.Font
End With
End Sub
Sub initsearch(hSort As String, Optional showDetails As Boolean = True)
@@ -142,6 +202,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 +584,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 +1519,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 +1807,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 +3126,9 @@ ELSE_ATILLA:
End If
End If
Next
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
@@ -3823,7 +3892,7 @@ ELSE_ATILLA:
detailForm.Show()
End Sub
Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnWichtigeStandort.Click
Private Sub btnWichtigeStandort_Click(sender As Object, e As EventArgs) Handles btnVIEW_LKW.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO")
@@ -3831,7 +3900,7 @@ ELSE_ATILLA:
Grid_aktiv = True
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_SND.Click
Grid_aktiv = False
SWITCH_SEARCH("SND")
@@ -3858,4 +3927,24 @@ ELSE_ATILLA:
End Try
End Sub
Private Sub Button7_Click_2(sender As Object, e As EventArgs) Handles btnVIEW_KOMBI.Click
Grid_aktiv = False
SWITCH_SEARCH("AVISO_SND_KOMBI")
SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button9_Click_1(sender As Object, e As EventArgs) Handles btnVIEW_Compliance.Click
Grid_aktiv = False
SWITCH_SEARCH("COMPLIANCE")
SEARCH_AVISO.RESET()
Grid_aktiv = True
End Sub
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles btnVIEW_CustControling.Click
Grid_aktiv = False
SWITCH_SEARCH("CUSTOMS_CONTROLLING")
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">

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