Aviso Redesign

Aviso/ATEZ/frmATEZ_EZA.Designer.vb

@@ -26,6 +26,7 @@ Partial Class frmATEZ_EZA
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmATEZ_EZA))
         Me.btnSend = New System.Windows.Forms.Button()
         Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.Label4 = New System.Windows.Forms.Label()
         Me.lblInfo = New System.Windows.Forms.Label()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -48,7 +49,6 @@ Partial Class frmATEZ_EZA
         Me.btnAgg_desc = New System.Windows.Forms.Button()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.Label4 = New System.Windows.Forms.Label()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -59,23 +59,24 @@ Partial Class frmATEZ_EZA
         Me.btnSend.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSend.BackColor = System.Drawing.Color.White
         Me.btnSend.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.btnSend.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.Declarant
-        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnSend.Location = New System.Drawing.Point(486, 348)
+        Me.btnSend.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.btnSend.Image = Global.AVISO.My.Resources.Resources.ico_atez_declarantAI
+        Me.btnSend.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSend.Location = New System.Drawing.Point(473, 348)
         Me.btnSend.Margin = New System.Windows.Forms.Padding(2)
         Me.btnSend.Name = "btnSend"
-        Me.btnSend.Size = New System.Drawing.Size(192, 58)
+        Me.btnSend.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.btnSend.Size = New System.Drawing.Size(205, 58)
         Me.btnSend.TabIndex = 26
         Me.btnSend.Text = "An ATEZ senden >>"
-        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnSend.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnSend.UseVisualStyleBackColor = False
         '
         'pnlHead
         '
         Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.Label1)
         Me.pnlHead.Controls.Add(Me.Label4)
         Me.pnlHead.Controls.Add(Me.lblInfo)
         Me.pnlHead.Controls.Add(Me.Label8)
@@ -85,7 +86,6 @@ Partial Class frmATEZ_EZA
         Me.pnlHead.Controls.Add(Me.Label9)
         Me.pnlHead.Controls.Add(Me.sbAdressierteZollstelle)
         Me.pnlHead.Controls.Add(Me.txtDyMandant)
-        Me.pnlHead.Controls.Add(Me.Label1)
         Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
         Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
         Me.pnlHead.Location = New System.Drawing.Point(3, 2)
@@ -93,6 +93,15 @@ Partial Class frmATEZ_EZA
         Me.pnlHead.Size = New System.Drawing.Size(675, 151)
         Me.pnlHead.TabIndex = 112
         '
+        'Label4
+        '
+        Me.Label4.BackColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(108, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(45, 12)
+        Me.Label4.TabIndex = 149
+        Me.Label4.Text = "SUB"
+        '
         'lblInfo
         '
         Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -106,9 +115,9 @@ Partial Class frmATEZ_EZA
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(10, 61)
+        Me.Label8.Location = New System.Drawing.Point(6, 61)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(80, 13)
+        Me.Label8.Size = New System.Drawing.Size(86, 13)
         Me.Label8.TabIndex = 146
         Me.Label8.Text = "Stammreferenz:"
         Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -154,17 +163,19 @@ Partial Class frmATEZ_EZA
         '
         'Label3
         '
-        Me.Label3.Location = New System.Drawing.Point(10, 91)
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 91)
         Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(103, 17)
+        Me.Label3.Size = New System.Drawing.Size(48, 13)
         Me.Label3.TabIndex = 113
         Me.Label3.Text = "LKW-KZ:"
         '
         'Label9
         '
-        Me.Label9.Location = New System.Drawing.Point(10, 117)
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(6, 117)
         Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(103, 17)
+        Me.Label9.Size = New System.Drawing.Size(117, 13)
         Me.Label9.TabIndex = 110
         Me.Label9.Text = "Adressierte-Zollstelle:"
         '
@@ -196,10 +207,11 @@ Partial Class frmATEZ_EZA
         '
         'txtDyMandant
         '
+        Me.txtDyMandant.AutoSize = True
         Me.txtDyMandant.BackColor = System.Drawing.Color.White
-        Me.txtDyMandant.Location = New System.Drawing.Point(2, 7)
+        Me.txtDyMandant.Location = New System.Drawing.Point(6, 13)
         Me.txtDyMandant.Name = "txtDyMandant"
-        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
+        Me.txtDyMandant.Size = New System.Drawing.Size(35, 13)
         Me.txtDyMandant.TabIndex = 109
         Me.txtDyMandant.Text = "VERG"
         Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -209,16 +221,16 @@ Partial Class frmATEZ_EZA
         Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label1.AutoSize = True
         Me.Label1.BackColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(387, 20)
+        Me.Label1.Location = New System.Drawing.Point(387, 13)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
         Me.Label1.TabIndex = 106
         Me.Label1.Text = "Bezugsnummer:"
         '
         'txtDyNiederlassung
         '
         Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
-        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 7)
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(55, 13)
         Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
         Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
         Me.txtDyNiederlassung.TabIndex = 108
@@ -229,7 +241,7 @@ Partial Class frmATEZ_EZA
         Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
         Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 14)
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(475, 8)
         Me.lblBezugsnummer.Name = "lblBezugsnummer"
         Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
         Me.lblBezugsnummer.TabIndex = 107
@@ -238,10 +250,9 @@ Partial Class frmATEZ_EZA
         '
         'Button3
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button3.Location = New System.Drawing.Point(473, 159)
+        Me.Button3.Location = New System.Drawing.Point(473, 157)
         Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(205, 23)
+        Me.Button3.Size = New System.Drawing.Size(205, 25)
         Me.Button3.TabIndex = 152
         Me.Button3.Text = "alle Anhänge auswählen"
         Me.Button3.UseVisualStyleBackColor = True
@@ -264,7 +275,6 @@ Partial Class frmATEZ_EZA
         '
         'Button1
         '
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.Location = New System.Drawing.Point(3, 383)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(178, 23)
@@ -275,8 +285,7 @@ Partial Class frmATEZ_EZA
         'btnAgg_Tnr
         '
         Me.btnAgg_Tnr.BackColor = System.Drawing.Color.DeepSkyBlue
-        Me.btnAgg_Tnr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Tnr.Location = New System.Drawing.Point(71, 344)
+        Me.btnAgg_Tnr.Location = New System.Drawing.Point(79, 345)
         Me.btnAgg_Tnr.Name = "btnAgg_Tnr"
         Me.btnAgg_Tnr.Size = New System.Drawing.Size(83, 23)
         Me.btnAgg_Tnr.TabIndex = 154
@@ -286,6 +295,7 @@ Partial Class frmATEZ_EZA
         '
         'Label2
         '
+        Me.Label2.Font = New System.Drawing.Font("Segoe UI", 8.0!)
         Me.Label2.Location = New System.Drawing.Point(6, 350)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(103, 17)
@@ -295,10 +305,9 @@ Partial Class frmATEZ_EZA
         'btnAgg_Origin
         '
         Me.btnAgg_Origin.BackColor = System.Drawing.Color.DeepSkyBlue
-        Me.btnAgg_Origin.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Origin.Location = New System.Drawing.Point(160, 344)
+        Me.btnAgg_Origin.Location = New System.Drawing.Point(165, 345)
         Me.btnAgg_Origin.Name = "btnAgg_Origin"
-        Me.btnAgg_Origin.Size = New System.Drawing.Size(90, 23)
+        Me.btnAgg_Origin.Size = New System.Drawing.Size(92, 23)
         Me.btnAgg_Origin.TabIndex = 155
         Me.btnAgg_Origin.Tag = "1"
         Me.btnAgg_Origin.Text = "Ursprungsland"
@@ -306,8 +315,7 @@ Partial Class frmATEZ_EZA
         '
         'btnAgg_Unit
         '
-        Me.btnAgg_Unit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_Unit.Location = New System.Drawing.Point(255, 344)
+        Me.btnAgg_Unit.Location = New System.Drawing.Point(260, 345)
         Me.btnAgg_Unit.Name = "btnAgg_Unit"
         Me.btnAgg_Unit.Size = New System.Drawing.Size(79, 23)
         Me.btnAgg_Unit.TabIndex = 156
@@ -317,8 +325,7 @@ Partial Class frmATEZ_EZA
         '
         'btnAgg_desc
         '
-        Me.btnAgg_desc.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnAgg_desc.Location = New System.Drawing.Point(340, 344)
+        Me.btnAgg_desc.Location = New System.Drawing.Point(342, 345)
         Me.btnAgg_desc.Name = "btnAgg_desc"
         Me.btnAgg_desc.Size = New System.Drawing.Size(126, 23)
         Me.btnAgg_desc.TabIndex = 157
@@ -351,19 +358,9 @@ Partial Class frmATEZ_EZA
         Me.columnName.Name = "columnName"
         Me.columnName.ReadOnly = True
         '
-        'Label4
-        '
-        Me.Label4.BackColor = System.Drawing.Color.White
-        Me.Label4.Location = New System.Drawing.Point(106, 8)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(45, 12)
-        Me.Label4.TabIndex = 149
-        Me.Label4.Text = "SUB"
-        '
         'Button2
         '
-        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Location = New System.Drawing.Point(416, 383)
+        Me.Button2.Location = New System.Drawing.Point(402, 383)
         Me.Button2.Name = "Button2"
         Me.Button2.Size = New System.Drawing.Size(65, 23)
         Me.Button2.TabIndex = 158
@@ -389,6 +386,7 @@ Partial Class frmATEZ_EZA
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.btnSend)
         Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmATEZ_EZA"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

Aviso/ATEZ/frmATEZ_EZA.vb

@@ -474,7 +474,7 @@ Public Class frmATEZ_EZA
         '    Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
         '    Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
         'End Select 
-        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
+        FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me, "EZA")
         txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY, "EZA")
         txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY, "EZA")
 
@@ -566,7 +566,7 @@ Public Class frmATEZ_EZA
 
                                                 case WHEN [anh_size] > 0 Then ROUND([anh_size] / 1000000,2) End as anh_size,
                                                    [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
                                            ORDER BY  anh_SendungsId desc,
 										  case	  
                                                 when [anh_Art] = 'ATR-EUR1' then 0

Aviso/ATEZ/frmATEZ_NCTS.Designer.vb

@@ -39,11 +39,9 @@ Partial Class frmATEZ_NCTS
         Me.lblC = New System.Windows.Forms.Label()
         Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxTemperatur = New System.Windows.Forms.CheckBox()
-        Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
@@ -69,11 +67,14 @@ Partial Class frmATEZ_NCTS
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtDyNiederlassung = New System.Windows.Forms.Label()
         Me.lblBezugsnummer = New System.Windows.Forms.Label()
+        Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox()
         Me.Button3 = New System.Windows.Forms.Button()
         Me.Label6 = New System.Windows.Forms.Label()
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.lblAnh = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -83,17 +84,17 @@ Partial Class frmATEZ_NCTS
         Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Button1.BackColor = System.Drawing.Color.White
         Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
-        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button1.Image = Global.AVISO.My.Resources.Resources.Transcode
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.Button1.Location = New System.Drawing.Point(395, 773)
+        Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
+        Me.Button1.Image = Global.AVISO.My.Resources.Resources.ico_atez_transitAI
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(379, 773)
         Me.Button1.Margin = New System.Windows.Forms.Padding(2)
         Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(192, 58)
+        Me.Button1.Padding = New System.Windows.Forms.Padding(5, 0, 5, 0)
+        Me.Button1.Size = New System.Drawing.Size(208, 58)
         Me.Button1.TabIndex = 26
         Me.Button1.Text = "An ATEZ senden >>"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button1.UseVisualStyleBackColor = False
         '
         'pnlHead
@@ -154,7 +155,7 @@ Partial Class frmATEZ_NCTS
         Me.Label2.AutoSize = True
         Me.Label2.Location = New System.Drawing.Point(10, 59)
         Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(52, 13)
+        Me.Label2.Size = New System.Drawing.Size(56, 13)
         Me.Label2.TabIndex = 150
         Me.Label2.Text = "Prozedur:"
         Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -168,7 +169,7 @@ Partial Class frmATEZ_NCTS
         Me.cboProzedur.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboProzedur.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboProzedur.FormattingEnabled = True
-        Me.cboProzedur.Location = New System.Drawing.Point(151, 56)
+        Me.cboProzedur.Location = New System.Drawing.Point(157, 56)
         Me.cboProzedur.Name = "cboProzedur"
         Me.cboProzedur.Size = New System.Drawing.Size(100, 21)
         Me.cboProzedur.TabIndex = 149
@@ -186,9 +187,9 @@ Partial Class frmATEZ_NCTS
         '
         Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(389, 88)
+        Me.Label8.Location = New System.Drawing.Point(378, 88)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(57, 13)
+        Me.Label8.Size = New System.Drawing.Size(61, 13)
         Me.Label8.TabIndex = 146
         Me.Label8.Text = "Stammref.:"
         Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
@@ -222,12 +223,12 @@ Partial Class frmATEZ_NCTS
         Me.txtLKWId._Waehrung = False
         Me.txtLKWId._WaehrungZeichen = True
         Me.txtLKWId.ForeColor = System.Drawing.Color.Black
-        Me.txtLKWId.Location = New System.Drawing.Point(151, 86)
+        Me.txtLKWId.Location = New System.Drawing.Point(157, 86)
         Me.txtLKWId.MaxLineLength = -1
         Me.txtLKWId.MaxLines_Warning = ""
         Me.txtLKWId.MaxLines_Warning_Label = Nothing
         Me.txtLKWId.Name = "txtLKWId"
-        Me.txtLKWId.Size = New System.Drawing.Size(196, 20)
+        Me.txtLKWId.Size = New System.Drawing.Size(196, 22)
         Me.txtLKWId.TabIndex = 144
         '
         'usrCntl_Carrier
@@ -255,7 +256,7 @@ Partial Class frmATEZ_NCTS
         Me.txtDat._WaehrungZeichen = True
         Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
         Me.txtDat.ForeColor = System.Drawing.Color.Black
-        Me.txtDat.Location = New System.Drawing.Point(151, 160)
+        Me.txtDat.Location = New System.Drawing.Point(157, 160)
         Me.txtDat.MaxLength = 10
         Me.txtDat.MaxLineLength = -1
         Me.txtDat.MaxLines_Warning = ""
@@ -270,7 +271,7 @@ Partial Class frmATEZ_NCTS
         Me.dtpDat.CustomFormat = "''"
         Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.dtpDat.Location = New System.Drawing.Point(151, 160)
+        Me.dtpDat.Location = New System.Drawing.Point(157, 160)
         Me.dtpDat.Margin = New System.Windows.Forms.Padding(0)
         Me.dtpDat.Name = "dtpDat"
         Me.dtpDat.Size = New System.Drawing.Size(110, 24)
@@ -278,16 +279,17 @@ Partial Class frmATEZ_NCTS
         '
         'Label7
         '
-        Me.Label7.Location = New System.Drawing.Point(10, 160)
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(10, 165)
         Me.Label7.Name = "Label7"
-        Me.Label7.Size = New System.Drawing.Size(134, 17)
+        Me.Label7.Size = New System.Drawing.Size(145, 13)
         Me.Label7.TabIndex = 140
         Me.Label7.Text = "Wiedergestellungs-Datum:"
         '
         'lblC
         '
         Me.lblC.AutoSize = True
-        Me.lblC.Location = New System.Drawing.Point(251, 191)
+        Me.lblC.Location = New System.Drawing.Point(257, 191)
         Me.lblC.Name = "lblC"
         Me.lblC.Size = New System.Drawing.Size(18, 13)
         Me.lblC.TabIndex = 139
@@ -308,51 +310,26 @@ Partial Class frmATEZ_NCTS
         Me.txtTransporttemp._Waehrung = False
         Me.txtTransporttemp._WaehrungZeichen = True
         Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black
-        Me.txtTransporttemp.Location = New System.Drawing.Point(151, 187)
+        Me.txtTransporttemp.Location = New System.Drawing.Point(157, 187)
         Me.txtTransporttemp.MaxLineLength = -1
         Me.txtTransporttemp.MaxLines_Warning = ""
         Me.txtTransporttemp.MaxLines_Warning_Label = Nothing
         Me.txtTransporttemp.Name = "txtTransporttemp"
-        Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20)
+        Me.txtTransporttemp.Size = New System.Drawing.Size(100, 22)
         Me.txtTransporttemp.TabIndex = 138
         '
         'cbxTemperatur
         '
         Me.cbxTemperatur.AutoSize = True
-        Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxTemperatur.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cbxTemperatur.Location = New System.Drawing.Point(13, 187)
         Me.cbxTemperatur.Name = "cbxTemperatur"
-        Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
+        Me.cbxTemperatur.Size = New System.Drawing.Size(138, 17)
         Me.cbxTemperatur.TabIndex = 137
         Me.cbxTemperatur.TabStop = False
         Me.cbxTemperatur.Text = "Transport-Temperatur:"
         Me.cbxTemperatur.UseVisualStyleBackColor = True
         '
-        'sbDurchgangszollstelle5
-        '
-        Me.sbDurchgangszollstelle5._allowFreitext = False
-        Me.sbDurchgangszollstelle5._AllowSetValue = False
-        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
-        Me.sbDurchgangszollstelle5._autoSizeGross = False
-        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
-        Me.sbDurchgangszollstelle5._value = ""
-        Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
-        Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
-        Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
-        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
-        Me.sbDurchgangszollstelle5.key_visible = False
-        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(206, 415)
-        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
-        Me.sbDurchgangszollstelle5.searchActive = True
-        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 20)
-        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
-        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
-        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
-        Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
-        Me.sbDurchgangszollstelle5.TabIndex = 132
-        Me.sbDurchgangszollstelle5.usrcntl = Nothing
-        '
         'sbDurchgangszollstelle9
         '
         Me.sbDurchgangszollstelle9._allowFreitext = False
@@ -370,7 +347,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(376, 434)
         Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9"
         Me.sbDurchgangszollstelle9.searchActive = True
-        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 20)
+        Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(198, 22)
         Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing
@@ -395,7 +372,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(207, 434)
         Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8"
         Me.sbDurchgangszollstelle8.searchActive = True
-        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 20)
+        Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(171, 22)
         Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing
@@ -420,7 +397,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(13, 434)
         Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7"
         Me.sbDurchgangszollstelle7.searchActive = True
-        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 20)
+        Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(197, 22)
         Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing
@@ -428,31 +405,6 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle7.TabIndex = 134
         Me.sbDurchgangszollstelle7.usrcntl = Nothing
         '
-        'sbDurchgangszollstelle6
-        '
-        Me.sbDurchgangszollstelle6._allowFreitext = False
-        Me.sbDurchgangszollstelle6._AllowSetValue = False
-        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
-        Me.sbDurchgangszollstelle6._autoSizeGross = False
-        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
-        Me.sbDurchgangszollstelle6._value = ""
-        Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
-        Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
-        Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
-        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
-        Me.sbDurchgangszollstelle6.key_visible = False
-        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
-        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(375, 415)
-        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
-        Me.sbDurchgangszollstelle6.searchActive = True
-        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(199, 20)
-        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
-        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
-        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
-        Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
-        Me.sbDurchgangszollstelle6.TabIndex = 133
-        Me.sbDurchgangszollstelle6.usrcntl = Nothing
-        '
         'sbDurchgangszollstelle4
         '
         Me.sbDurchgangszollstelle4._allowFreitext = False
@@ -470,7 +422,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(13, 415)
         Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4"
         Me.sbDurchgangszollstelle4.searchActive = True
-        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(195, 20)
+        Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(195, 22)
         Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing
@@ -495,7 +447,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(376, 396)
         Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3"
         Me.sbDurchgangszollstelle3.searchActive = True
-        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 20)
+        Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(198, 22)
         Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing
@@ -520,7 +472,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(207, 396)
         Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2"
         Me.sbDurchgangszollstelle2.searchActive = True
-        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 20)
+        Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(171, 22)
         Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing
@@ -545,7 +497,7 @@ Partial Class frmATEZ_NCTS
         Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(13, 396)
         Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1"
         Me.sbDurchgangszollstelle1.searchActive = True
-        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 20)
+        Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(197, 22)
         Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing
         Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing
         Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing
@@ -567,7 +519,7 @@ Partial Class frmATEZ_NCTS
         Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
         Me.lklRoutenauswahl.Location = New System.Drawing.Point(493, 475)
         Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
-        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.lklRoutenauswahl.Size = New System.Drawing.Size(88, 13)
         Me.lklRoutenauswahl.TabIndex = 117
         Me.lklRoutenauswahl.TabStop = True
         Me.lklRoutenauswahl.Text = "Routenauswahl"
@@ -589,7 +541,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute5.Location = New System.Drawing.Point(205, 510)
         Me.sbRoute5.Name = "sbRoute5"
         Me.sbRoute5.searchActive = True
-        Me.sbRoute5.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute5.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute5.SQL_ORDER_BY = Nothing
         Me.sbRoute5.SQL_SELECT = Nothing
         Me.sbRoute5.SQL_WHERE = Nothing
@@ -614,7 +566,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute9.Location = New System.Drawing.Point(387, 529)
         Me.sbRoute9.Name = "sbRoute9"
         Me.sbRoute9.searchActive = True
-        Me.sbRoute9.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute9.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute9.SQL_ORDER_BY = Nothing
         Me.sbRoute9.SQL_SELECT = Nothing
         Me.sbRoute9.SQL_WHERE = Nothing
@@ -639,7 +591,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute8.Location = New System.Drawing.Point(205, 529)
         Me.sbRoute8.Name = "sbRoute8"
         Me.sbRoute8.searchActive = True
-        Me.sbRoute8.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute8.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute8.SQL_ORDER_BY = Nothing
         Me.sbRoute8.SQL_SELECT = Nothing
         Me.sbRoute8.SQL_WHERE = Nothing
@@ -664,7 +616,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute7.Location = New System.Drawing.Point(13, 529)
         Me.sbRoute7.Name = "sbRoute7"
         Me.sbRoute7.searchActive = True
-        Me.sbRoute7.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute7.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute7.SQL_ORDER_BY = Nothing
         Me.sbRoute7.SQL_SELECT = Nothing
         Me.sbRoute7.SQL_WHERE = Nothing
@@ -689,7 +641,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute6.Location = New System.Drawing.Point(387, 510)
         Me.sbRoute6.Name = "sbRoute6"
         Me.sbRoute6.searchActive = True
-        Me.sbRoute6.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute6.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute6.SQL_ORDER_BY = Nothing
         Me.sbRoute6.SQL_SELECT = Nothing
         Me.sbRoute6.SQL_WHERE = Nothing
@@ -714,7 +666,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute4.Location = New System.Drawing.Point(13, 510)
         Me.sbRoute4.Name = "sbRoute4"
         Me.sbRoute4.searchActive = True
-        Me.sbRoute4.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute4.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute4.SQL_ORDER_BY = Nothing
         Me.sbRoute4.SQL_SELECT = Nothing
         Me.sbRoute4.SQL_WHERE = Nothing
@@ -739,7 +691,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute3.Location = New System.Drawing.Point(387, 491)
         Me.sbRoute3.Name = "sbRoute3"
         Me.sbRoute3.searchActive = True
-        Me.sbRoute3.Size = New System.Drawing.Size(187, 20)
+        Me.sbRoute3.Size = New System.Drawing.Size(187, 22)
         Me.sbRoute3.SQL_ORDER_BY = Nothing
         Me.sbRoute3.SQL_SELECT = Nothing
         Me.sbRoute3.SQL_WHERE = Nothing
@@ -764,7 +716,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute2.Location = New System.Drawing.Point(205, 491)
         Me.sbRoute2.Name = "sbRoute2"
         Me.sbRoute2.searchActive = True
-        Me.sbRoute2.Size = New System.Drawing.Size(183, 20)
+        Me.sbRoute2.Size = New System.Drawing.Size(183, 22)
         Me.sbRoute2.SQL_ORDER_BY = Nothing
         Me.sbRoute2.SQL_SELECT = Nothing
         Me.sbRoute2.SQL_WHERE = Nothing
@@ -789,7 +741,7 @@ Partial Class frmATEZ_NCTS
         Me.sbRoute1.Location = New System.Drawing.Point(13, 491)
         Me.sbRoute1.Name = "sbRoute1"
         Me.sbRoute1.searchActive = True
-        Me.sbRoute1.Size = New System.Drawing.Size(195, 20)
+        Me.sbRoute1.Size = New System.Drawing.Size(195, 22)
         Me.sbRoute1.SQL_ORDER_BY = Nothing
         Me.sbRoute1.SQL_SELECT = Nothing
         Me.sbRoute1.SQL_WHERE = Nothing
@@ -807,9 +759,9 @@ Partial Class frmATEZ_NCTS
         '
         'Label4
         '
-        Me.Label4.Location = New System.Drawing.Point(10, 138)
+        Me.Label4.Location = New System.Drawing.Point(10, 141)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(121, 17)
+        Me.Label4.Size = New System.Drawing.Size(135, 17)
         Me.Label4.TabIndex = 114
         Me.Label4.Text = "Bestimmungs-Zollstelle:"
         '
@@ -827,10 +779,10 @@ Partial Class frmATEZ_NCTS
         Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing
         Me.sbBestimmungsZollstelle.key_visible = False
         Me.sbBestimmungsZollstelle.KEYPARAM = Nothing
-        Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(151, 138)
+        Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(157, 138)
         Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle"
         Me.sbBestimmungsZollstelle.searchActive = True
-        Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20)
+        Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 22)
         Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing
         Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing
         Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing
@@ -868,10 +820,10 @@ Partial Class frmATEZ_NCTS
         Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing
         Me.sbAbgangZollstelle.key_visible = False
         Me.sbAbgangZollstelle.KEYPARAM = Nothing
-        Me.sbAbgangZollstelle.Location = New System.Drawing.Point(151, 112)
+        Me.sbAbgangZollstelle.Location = New System.Drawing.Point(157, 112)
         Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle"
         Me.sbAbgangZollstelle.searchActive = True
-        Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20)
+        Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 22)
         Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing
         Me.sbAbgangZollstelle.SQL_SELECT = Nothing
         Me.sbAbgangZollstelle.SQL_WHERE = Nothing
@@ -896,14 +848,14 @@ Partial Class frmATEZ_NCTS
         Me.Label1.BackColor = System.Drawing.Color.White
         Me.Label1.Location = New System.Drawing.Point(296, 19)
         Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.Size = New System.Drawing.Size(89, 13)
         Me.Label1.TabIndex = 106
         Me.Label1.Text = "Bezugsnummer:"
         '
         'txtDyNiederlassung
         '
         Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
-        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 15)
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 14)
         Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
         Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
         Me.txtDyNiederlassung.TabIndex = 108
@@ -921,9 +873,58 @@ Partial Class frmATEZ_NCTS
         Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
         Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         '
+        'sbDurchgangszollstelle5
+        '
+        Me.sbDurchgangszollstelle5._allowFreitext = False
+        Me.sbDurchgangszollstelle5._AllowSetValue = False
+        Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle5._autoSizeGross = False
+        Me.sbDurchgangszollstelle5._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle5._value = ""
+        Me.sbDurchgangszollstelle5.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle5.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle5.key_visible = False
+        Me.sbDurchgangszollstelle5.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(206, 415)
+        Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5"
+        Me.sbDurchgangszollstelle5.searchActive = True
+        Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(171, 22)
+        Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle5.TabIndex = 132
+        Me.sbDurchgangszollstelle5.usrcntl = Nothing
+        '
+        'sbDurchgangszollstelle6
+        '
+        Me.sbDurchgangszollstelle6._allowFreitext = False
+        Me.sbDurchgangszollstelle6._AllowSetValue = False
+        Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False
+        Me.sbDurchgangszollstelle6._autoSizeGross = False
+        Me.sbDurchgangszollstelle6._hideIfListEmpty = True
+        Me.sbDurchgangszollstelle6._value = ""
+        Me.sbDurchgangszollstelle6.conn_art = "FMZOLL"
+        Me.sbDurchgangszollstelle6.dgvpos = "LEFT"
+        Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing
+        Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing
+        Me.sbDurchgangszollstelle6.key_visible = False
+        Me.sbDurchgangszollstelle6.KEYPARAM = Nothing
+        Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(375, 415)
+        Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6"
+        Me.sbDurchgangszollstelle6.searchActive = True
+        Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(199, 22)
+        Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing
+        Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing
+        Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing
+        Me.sbDurchgangszollstelle6.TabIndex = 133
+        Me.sbDurchgangszollstelle6.usrcntl = Nothing
+        '
         'Button3
         '
-        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button3.Location = New System.Drawing.Point(409, 584)
         Me.Button3.Name = "Button3"
         Me.Button3.Size = New System.Drawing.Size(178, 23)
@@ -970,18 +971,30 @@ Partial Class frmATEZ_NCTS
         Me.lblAnh.TabIndex = 151
         Me.lblAnh.Visible = False
         '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(3, 807)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(178, 23)
+        Me.Button2.TabIndex = 155
+        Me.Button2.Text = "JSON"
+        Me.Button2.UseVisualStyleBackColor = True
+        Me.Button2.Visible = False
+        '
         'frmATEZ_NCTS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.ClientSize = New System.Drawing.Size(589, 842)
+        Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Button3)
         Me.Controls.Add(Me.lblAnh)
         Me.Controls.Add(Me.pnlHead)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.Button1)
         Me.Controls.Add(Me.dgvAnhaenge)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmATEZ_NCTS"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -1042,4 +1055,5 @@ Partial Class frmATEZ_NCTS
     Friend WithEvents cboProzedur As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents lblAnh As Label
     Friend WithEvents Button3 As Button
+    Friend WithEvents Button2 As Button
 End Class

Aviso/ATEZ/frmATEZ_NCTS.vb

@@ -72,7 +72,7 @@ Public Class frmATEZ_NCTS
 
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click, Button2.Click
         Try
 
 
@@ -148,6 +148,11 @@ Public Class frmATEZ_NCTS
             saveRoute(atez_data)
             setDurchgangszolstellen()
             setRoute()
+
+            If sender Is Button2 Then
+                MsgBox(getJSONAtezData(atez_data, atez))
+                Exit Sub
+            End If
             If sendAtezData(atez_data, atez) Then
                 AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
                 Me.Close()
@@ -165,6 +170,10 @@ Public Class frmATEZ_NCTS
 
     End Sub
 
+    Private Function getJSONAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As String
+        Dim jsonData = atez.setJsonPDF(atezData, dgvAnhaenge)
+        Return (jsonData.Emit())
+    End Function
     Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
 
         Dim failreDesc As String
@@ -446,7 +455,7 @@ Public Class frmATEZ_NCTS
                                                 when [anh_Art] = 'Sonstiges' then 'OTHER'
                                                 when [anh_Art] ='' then 'OTHER' End
                                                 [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]=" & AVISO.AvisoID & "AND (anh_SendungsId is null OR anh_SendungsId <=0 OR anh_SendungsId='" & SENDUNG.tblSnd_SendungID & "') And anh_Typ NOT IN ('MSG', 'SONSTIGES')
                                            ORDER BY  anh_SendungsId desc,
 										  case	  
                                                 when [anh_Art] = 'ATR-EUR1' then 0

Aviso/Aviso.vbproj

@@ -1905,6 +1905,54 @@
     <None Include="Resources\qr.png" />
     <None Include="Resources\qr_s.png" />
     <None Include="Resources\Transcode.png" />
+    <None Include="Resources\SND_verbinden.png" />
+    <None Include="Resources\SND_loesen.png" />
+    <None Include="Resources\ico_settings.png" />
+    <None Include="Resources\ico_kunden.png" />
+    <None Include="Resources\ico_fakturierung.png" />
+    <None Include="Resources\ico_rechnungen.png" />
+    <None Include="Resources\ico_mitarbeiter.png" />
+    <None Include="Resources\ico_kassenbuch.png" />
+    <None Include="Resources\ico_dienstplan.png" />
+    <None Include="Resources\ico_zeiterfassung.png" />
+    <None Include="Resources\ico_parkzeit.png" />
+    <None Include="Resources\ico_truck.png" />
+    <None Include="Resources\ico_docSearch.png" />
+    <None Include="Resources\ico_checklist.png" />
+    <None Include="Resources\ico_persDocument.png" />
+    <None Include="Resources\ico_security.png" />
+    <None Include="Resources\ico_handshake.png" />
+    <None Include="Resources\ico_docSave.png" />
+    <None Include="Resources\ico_DocEdit.png" />
+    <None Include="Resources\ico_docFin.png" />
+    <None Include="Resources\ico_mail.png" />
+    <None Include="Resources\ico_add.png" />
+    <None Include="Resources\ico_weel.png" />
+    <None Include="Resources\ico_loupe.png" />
+    <None Include="Resources\ico_inventor.png" />
+    <None Include="Resources\ico_verzeichnis.png" />
+    <None Include="Resources\ico_webWww.png" />
+    <None Include="Resources\ico_www.png" />
+    <None Include="Resources\ico_verknuepfung.png" />
+    <None Include="Resources\ico_webSearch.png" />
+    <None Include="Resources\ico_webSecurity.png" />
+    <None Include="Resources\ico_organigram.png" />
+    <None Include="Resources\ico_support.png" />
+    <None Include="Resources\ico_speditionsbuch.png" />
+    <None Include="Resources\ico_statistic.png" />
+    <None Include="Resources\ico_zertifikate.png" />
+    <None Include="Resources\ico_Options.png" />
+    <None Include="Resources\ico_ATR.png" />
+    <None Include="Resources\ico_CMR.png" />
+    <None Include="Resources\ico_ImportAssistant.png" />
+    <None Include="Resources\ico_kasse.png" />
+    <None Include="Resources\ico_importaviso.png" />
+    <None Include="Resources\ico_vorkasse.png" />
+    <None Include="Resources\ico_weitereForm.png" />
+    <None Include="Resources\ico_atez_transitAI.png" />
+    <None Include="Resources\ico_atez_declarantAI.png" />
+    <None Include="Resources\ico_atez_tariffAI.png" />
+    <None Include="Resources\ico_atez_logicust.png" />
     <Content Include="Resources\WLAN\RunNHide.exe">
       <CopyToOutputDirectory>Always</CopyToOutputDirectory>
     </Content>

Aviso/AvisoStatusFunctions.vb

@@ -1,4 +1,5 @@
-Imports SDL
+Imports Confluent.Kafka
+Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
 Imports VERAG_PROG_ALLGEMEIN.cGlobal
 Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
@@ -1813,8 +1814,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1837,10 +1838,10 @@ ELSE_ATILLA:
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
             End If
             SENDUNG_TMP.tblSnd_Vorbereitet = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_Vorbereitet = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT VORBEREITET gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT VORBEREITET gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1850,8 +1851,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1876,21 +1877,39 @@ ELSE_ATILLA:
             'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
             SENDUNG_TMP.tblSnd_AbklaerungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_AbklaerungTR = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEKLÄRT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEKLÄRT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
     End Function
 
+    Public Function setSendungSpeditionsbuchEintrag(SendungsId, AvisoID) As Boolean
+
+        Dim FUNC As New AvisoStatusFunctions
+
+        Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, SendungsId)
+        If posnr IsNot Nothing Then
+            Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
+            sndEntry.FilialenNr = posnr.Filiale
+            sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
+            sndEntry.UnterNr = posnr.UnterNr
+            'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
+            Dim vorhanden = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
+            sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
+            sndEntry.SAVE()
+        End If
+        'Vermerke_anzeigen()
+
+    End Function
     Public Function setSendungAbfertigungTR(SendungsId, AvisoID, Optional anzahl = 1, Optional anzahlPos = 1) As Boolean
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1917,10 +1936,10 @@ ELSE_ATILLA:
             ' If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId IsNot Nothing Then SENDUNG_TMP.tblSnd_TeamId = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId
 
             SENDUNG_TMP.tblSnd_AbfertigungTR = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm") & "(Anz:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahl & ", Pos:" & SENDUNG_TMP.tblSnd_AbfertigungTRAnzahlPos & ")")
         Else
             SENDUNG_TMP.tblSnd_AbfertigungTR = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT ABGEFERTIGT (TR) gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT ABGEFERTIGT (TR) gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1930,8 +1949,8 @@ ELSE_ATILLA:
 
         If SendungsId Is Nothing Then Return False
         If Not IsNumeric(SendungsId) Then Return False
-        If AvisoID Is Nothing Then Return False
-        If Not IsNumeric(AvisoID) Then Return False
+        'If AvisoID Is Nothing Then Return False
+        'If Not IsNumeric(AvisoID) Then Return False
 
         Dim SENDUNG_TMP = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungsId)
 
@@ -1940,10 +1959,10 @@ ELSE_ATILLA:
         If SENDUNG_TMP.tblSnd_Fakturiert Is Nothing Then
 
             SENDUNG_TMP.tblSnd_Fakturiert = Now                     'SENDUNG_TMP.tblSnd_Status=VERAG_PROG_ALLGEMEIN.vor ' Status macht keinen Sinn..
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         Else
             SENDUNG_TMP.tblSnd_Fakturiert = Nothing
-            AvisoDAL.addAenderung(AvisoID, "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
+            AvisoDAL.addAenderung(If(AvisoID, -1), "Sendung auf NICHT FAKTURIERT gesetzt", "Sendung '" & SENDUNG_TMP.tblSnd_PosUnterNr & " " & SENDUNG_TMP.tblSnd_Empfaenger & "' auf NICHT FAKTURIERT gesetzt von " & VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter & " am " & Format(Now, "dd.MM.yyyy HH:mm"))
         End If
         Return SENDUNG_TMP.SAVE()
 
@@ -1955,9 +1974,9 @@ ELSE_ATILLA:
 
 
             If sendId Is Nothing Then Return Nothing
-            If AvisoID Is Nothing Then Return Nothing
+            ' If AvisoID Is Nothing Then Return Nothing
             If sendId <= 0 Then Return Nothing
-            If AvisoID <= 0 Then Return Nothing
+            ' If AvisoID <= 0 Then Return Nothing
 
             For Each openForm In Application.OpenForms()
                 If TypeOf (openForm) Is frmSendungsdetailsNEU Then

Aviso/My Project/AssemblyInfo.vb

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

Aviso/My Project/Resources.Designer.vb

@@ -878,6 +878,466 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_add() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_add", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_declarantAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_declarantAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_logicust() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_logicust", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_tariffAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_tariffAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_atez_transitAI() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_atez_transitAI", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_ATR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_ATR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_checklist() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_checklist", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_CMR() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_CMR", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_dienstplan() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_dienstplan", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_DocEdit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_DocEdit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docFin() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docFin", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docSave() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docSave", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_docSearch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_docSearch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_fakturierung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_fakturierung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_handshake() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_handshake", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_ImportAssistant() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_ImportAssistant", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_importaviso() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_importaviso", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_inventor() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_inventor", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kasse() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kasse", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kassenbuch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kassenbuch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_kunden() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_kunden", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_loupe() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_loupe", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_mail() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_mail", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_mitarbeiter() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_mitarbeiter", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_Options() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_Options", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_organigram() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_organigram", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_parkzeit() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_parkzeit", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_persDocument() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_persDocument", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_rechnungen() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_rechnungen", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_security() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_security", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_settings() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_settings", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_speditionsbuch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_speditionsbuch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_statistic() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_statistic", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_support() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_support", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_truck() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_truck", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_verknuepfung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_verknuepfung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_verzeichnis() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_verzeichnis", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_vorkasse() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_vorkasse", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webSearch() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webSearch", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webSecurity() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webSecurity", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_webWww() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_webWww", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_weel() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_weel", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_weitereForm() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_weitereForm", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_www() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_www", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_zeiterfassung() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_zeiterfassung", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property ico_zertifikate() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ico_zertifikate", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>
@@ -1518,6 +1978,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property SND_loesen() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SND_loesen", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Public ReadOnly Property SND_verbinden() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("SND_verbinden", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

Aviso/My Project/Resources.resx

@@ -730,4 +730,148 @@
   <data name="AVISO_DCS" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\AVISO_DCS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="SND_loesen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SND_loesen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="SND_verbinden" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\SND_verbinden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_add" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_dienstplan" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_dienstplan.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_DocEdit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_DocEdit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_docFin" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docFin.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_docSave" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docSave.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_docSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_docSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_fakturierung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_fakturierung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_handshake" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_handshake.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_inventor" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_inventor.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kassenbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kassenbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kunden" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kunden.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_loupe" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_loupe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_mail" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_mail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_mitarbeiter" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_mitarbeiter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_parkzeit" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_parkzeit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_persDocument" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_persDocument.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_rechnungen" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_rechnungen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_security" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_security.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_truck" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_truck.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_verzeichnis" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_verzeichnis.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_weel" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_weel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_zeiterfassung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_zeiterfassung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_organigram" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_organigram.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_speditionsbuch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_speditionsbuch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_statistic" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_statistic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_support" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_support.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_verknuepfung" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_verknuepfung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_webSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webSearch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_webSecurity" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webSecurity.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_webWww" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_webWww.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_www" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_www.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_zertifikate" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_zertifikate.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_ATR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_ATR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_CMR" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_CMR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_ImportAssistant" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_ImportAssistant.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_Options" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_Options.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_atez_declarantAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_declarantAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_atez_logicust" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_logicust.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_atez_tariffAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_tariffAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_atez_transitAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_atez_transitAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_importaviso" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_importaviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_vorkasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_vorkasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="ico_weitereForm" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\Resources\ico_weitereForm.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
 </root>

Aviso/frmHauptfensterNew.Designer.vb

@@ -271,9 +271,18 @@ Partial Class frmHauptfensterNew
         Me.btnVIEW_SND = New System.Windows.Forms.Button()
         Me.btnVIEW_KOMBI = New System.Windows.Forms.Button()
         Me.btnVIEW_Compliance = New System.Windows.Forms.Button()
+        Me.btnVIEW_CustControling = New System.Windows.Forms.Button()
+        Me.btnDEFAULT_Selected = New System.Windows.Forms.Button()
+        Me.btnDEFAULT_UnSelected = New System.Windows.Forms.Button()
         Me.Panel6 = New System.Windows.Forms.Panel()
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.FlowLayoutPanel2 = New System.Windows.Forms.FlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
+        Me.btnKunden = New System.Windows.Forms.Button()
+        Me.btnSpedBuch = New System.Windows.Forms.Button()
+        Me.btnKassenbuch = New System.Windows.Forms.Button()
+        Me.btnFakturierung = New System.Windows.Forms.Button()
+        Me.btnRg = New System.Windows.Forms.Button()
         Me.pnlOptionen = New System.Windows.Forms.Panel()
         Me.btnKasse_User = New System.Windows.Forms.Button()
         Me.btnKasse_LG = New System.Windows.Forms.Button()
@@ -303,25 +312,18 @@ Partial Class frmHauptfensterNew
         Me.ZertifikateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HomepageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlLeft = New System.Windows.Forms.Panel()
+        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
         Me.Panel5 = New System.Windows.Forms.Panel()
+        Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlMessenger_ListNewChats1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats()
         Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
-        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
-        Me.btnKunden = New System.Windows.Forms.Button()
-        Me.btnFakturierung = New System.Windows.Forms.Button()
-        Me.btnRg = New System.Windows.Forms.Button()
-        Me.btnKassenbuch = New System.Windows.Forms.Button()
-        Me.btnSpedBuch = New System.Windows.Forms.Button()
         Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
+        Me.Panel7 = New System.Windows.Forms.Panel()
+        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
         Me.UidAbfrageService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.uidAbfrageService()
-        Me.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungen()
-        Me.btnVIEW_CustControling = New System.Windows.Forms.Button()
-        Me.btnDEFAULT_Selected = New System.Windows.Forms.Button()
-        Me.btnDEFAULT_UnSelected = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -347,6 +349,7 @@ Partial Class frmHauptfensterNew
         Me.Panel6.SuspendLayout()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.FlowLayoutPanel2.SuspendLayout()
+        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.pnlOptionen.SuspendLayout()
         Me.Panel9.SuspendLayout()
         Me.cntxt.SuspendLayout()
@@ -356,7 +359,7 @@ Partial Class frmHauptfensterNew
         Me.pnlLeft.SuspendLayout()
         Me.Panel5.SuspendLayout()
         Me.TabControl1.SuspendLayout()
-        Me.MyFlowLayoutPanel1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
         Me.SuspendLayout()
         '
         'mnuInfo
@@ -1694,7 +1697,7 @@ Partial Class frmHauptfensterNew
         Me.btnMAVerzeichnis.Cursor = System.Windows.Forms.Cursors.Default
         Me.btnMAVerzeichnis.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.btnMAVerzeichnis.ForeColor = System.Drawing.Color.Black
-        Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.mitarbeiter_s
+        Me.btnMAVerzeichnis.Image = Global.AVISO.My.Resources.Resources.ico_mitarbeiter
         Me.btnMAVerzeichnis.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnMAVerzeichnis.Location = New System.Drawing.Point(3, 3)
         Me.btnMAVerzeichnis.Name = "btnMAVerzeichnis"
@@ -1714,7 +1717,7 @@ Partial Class frmHauptfensterNew
         Me.btnKontakt.Cursor = System.Windows.Forms.Cursors.Default
         Me.btnKontakt.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.btnKontakt.ForeColor = System.Drawing.Color.Black
-        Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.Telefonliste_small
+        Me.btnKontakt.Image = Global.AVISO.My.Resources.Resources.ico_verzeichnis
         Me.btnKontakt.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnKontakt.Location = New System.Drawing.Point(3, 59)
         Me.btnKontakt.Name = "btnKontakt"
@@ -1749,7 +1752,7 @@ Partial Class frmHauptfensterNew
         Me.Button5.Cursor = System.Windows.Forms.Cursors.Default
         Me.Button5.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.Button5.ForeColor = System.Drawing.Color.Black
-        Me.Button5.Image = Global.AVISO.My.Resources.Resources.parkplatz
+        Me.Button5.Image = Global.AVISO.My.Resources.Resources.ico_parkzeit
         Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button5.Location = New System.Drawing.Point(315, 3)
         Me.Button5.Name = "Button5"
@@ -1794,6 +1797,7 @@ Partial Class frmHauptfensterNew
         Me.btnDienstplan.Cursor = System.Windows.Forms.Cursors.Default
         Me.btnDienstplan.Font = New System.Drawing.Font("Segoe UI", 10.0!)
         Me.btnDienstplan.ForeColor = System.Drawing.Color.Black
+        Me.btnDienstplan.Image = Global.AVISO.My.Resources.Resources.ico_dienstplan
         Me.btnDienstplan.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnDienstplan.Location = New System.Drawing.Point(159, 3)
         Me.btnDienstplan.Name = "btnDienstplan"
@@ -1850,9 +1854,9 @@ Partial Class frmHauptfensterNew
         Me.btnDrucken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnDrucken.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
         Me.btnDrucken.ForeColor = System.Drawing.Color.Black
-        Me.btnDrucken.Location = New System.Drawing.Point(57, 88)
+        Me.btnDrucken.Location = New System.Drawing.Point(3, 127)
         Me.btnDrucken.Name = "btnDrucken"
-        Me.btnDrucken.Size = New System.Drawing.Size(79, 39)
+        Me.btnDrucken.Size = New System.Drawing.Size(35, 14)
         Me.btnDrucken.TabIndex = 0
         Me.btnDrucken.Text = "Logbuch"
         Me.btnDrucken.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@@ -1866,9 +1870,9 @@ Partial Class frmHauptfensterNew
         Me.Button6.ForeColor = System.Drawing.Color.Black
         Me.Button6.Image = Global.AVISO.My.Resources.Resources.fremdSped
         Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button6.Location = New System.Drawing.Point(13, 105)
+        Me.Button6.Location = New System.Drawing.Point(13, 127)
         Me.Button6.Name = "Button6"
-        Me.Button6.Size = New System.Drawing.Size(140, 39)
+        Me.Button6.Size = New System.Drawing.Size(46, 17)
         Me.Button6.TabIndex = 7
         Me.Button6.TabStop = False
         Me.Button6.Text = "Kunden von" & Global.Microsoft.VisualBasic.ChrW(10) & "Fremd-Speditionen"
@@ -1896,7 +1900,7 @@ Partial Class frmHauptfensterNew
         Me.btnZollwebseiten.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.btnZollwebseiten.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnZollwebseiten.ForeColor = System.Drawing.Color.Black
-        Me.btnZollwebseiten.Image = CType(resources.GetObject("btnZollwebseiten.Image"), System.Drawing.Image)
+        Me.btnZollwebseiten.Image = Global.AVISO.My.Resources.Resources.ico_webWww
         Me.btnZollwebseiten.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnZollwebseiten.Location = New System.Drawing.Point(5, 44)
         Me.btnZollwebseiten.Name = "btnZollwebseiten"
@@ -1945,7 +1949,7 @@ Partial Class frmHauptfensterNew
         Me.btnZertifikate.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
         Me.btnZertifikate.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnZertifikate.ForeColor = System.Drawing.Color.Black
-        Me.btnZertifikate.Image = CType(resources.GetObject("btnZertifikate.Image"), System.Drawing.Image)
+        Me.btnZertifikate.Image = Global.AVISO.My.Resources.Resources.ico_webSecurity
         Me.btnZertifikate.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnZertifikate.Location = New System.Drawing.Point(5, 86)
         Me.btnZertifikate.Name = "btnZertifikate"
@@ -2161,7 +2165,7 @@ Partial Class frmHauptfensterNew
         Me.splitMainWorkingView.Panel2.Controls.Add(Me.pnlMain_Bottom)
         Me.splitMainWorkingView.Size = New System.Drawing.Size(945, 501)
         Me.splitMainWorkingView.SplitterDistance = 350
-        Me.splitMainWorkingView.SplitterWidth = 10
+        Me.splitMainWorkingView.SplitterWidth = 15
         Me.splitMainWorkingView.TabIndex = 9
         '
         'pnlMain
@@ -2177,7 +2181,7 @@ Partial Class frmHauptfensterNew
         Me.pnlMain_Bottom.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain_Bottom.Location = New System.Drawing.Point(0, 0)
         Me.pnlMain_Bottom.Name = "pnlMain_Bottom"
-        Me.pnlMain_Bottom.Size = New System.Drawing.Size(945, 141)
+        Me.pnlMain_Bottom.Size = New System.Drawing.Size(945, 136)
         Me.pnlMain_Bottom.TabIndex = 9
         '
         'Panel1
@@ -2289,6 +2293,60 @@ Partial Class frmHauptfensterNew
         "d sortiert nach Dauer")
         Me.btnVIEW_Compliance.UseVisualStyleBackColor = False
         '
+        'btnVIEW_CustControling
+        '
+        Me.btnVIEW_CustControling.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.btnVIEW_CustControling.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.btnVIEW_CustControling.FlatAppearance.BorderSize = 0
+        Me.btnVIEW_CustControling.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnVIEW_CustControling.ForeColor = System.Drawing.Color.White
+        Me.btnVIEW_CustControling.Location = New System.Drawing.Point(3, 79)
+        Me.btnVIEW_CustControling.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
+        Me.btnVIEW_CustControling.Name = "btnVIEW_CustControling"
+        Me.btnVIEW_CustControling.Size = New System.Drawing.Size(158, 47)
+        Me.btnVIEW_CustControling.TabIndex = 8
+        Me.btnVIEW_CustControling.TabStop = False
+        Me.btnVIEW_CustControling.Text = "Customs Controlling"
+        Me.ToolTip1.SetToolTip(Me.btnVIEW_CustControling, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
+        "d sortiert nach Dauer")
+        Me.btnVIEW_CustControling.UseVisualStyleBackColor = False
+        '
+        'btnDEFAULT_Selected
+        '
+        Me.btnDEFAULT_Selected.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnDEFAULT_Selected.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnDEFAULT_Selected.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer))
+        Me.btnDEFAULT_Selected.Location = New System.Drawing.Point(167, 79)
+        Me.btnDEFAULT_Selected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
+        Me.btnDEFAULT_Selected.Name = "btnDEFAULT_Selected"
+        Me.btnDEFAULT_Selected.Size = New System.Drawing.Size(74, 47)
+        Me.btnDEFAULT_Selected.TabIndex = 9
+        Me.btnDEFAULT_Selected.TabStop = False
+        Me.btnDEFAULT_Selected.Text = "DEFAULT_Selected"
+        Me.ToolTip1.SetToolTip(Me.btnDEFAULT_Selected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
+        "d sortiert nach Dauer")
+        Me.btnDEFAULT_Selected.UseVisualStyleBackColor = False
+        Me.btnDEFAULT_Selected.Visible = False
+        '
+        'btnDEFAULT_UnSelected
+        '
+        Me.btnDEFAULT_UnSelected.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.btnDEFAULT_UnSelected.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.btnDEFAULT_UnSelected.FlatAppearance.BorderSize = 0
+        Me.btnDEFAULT_UnSelected.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnDEFAULT_UnSelected.ForeColor = System.Drawing.Color.White
+        Me.btnDEFAULT_UnSelected.Location = New System.Drawing.Point(247, 79)
+        Me.btnDEFAULT_UnSelected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
+        Me.btnDEFAULT_UnSelected.Name = "btnDEFAULT_UnSelected"
+        Me.btnDEFAULT_UnSelected.Size = New System.Drawing.Size(85, 47)
+        Me.btnDEFAULT_UnSelected.TabIndex = 10
+        Me.btnDEFAULT_UnSelected.TabStop = False
+        Me.btnDEFAULT_UnSelected.Text = "DEFAULT_UnSelected"
+        Me.ToolTip1.SetToolTip(Me.btnDEFAULT_UnSelected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
+        "d sortiert nach Dauer")
+        Me.btnDEFAULT_UnSelected.UseVisualStyleBackColor = False
+        Me.btnDEFAULT_UnSelected.Visible = False
+        '
         'Panel6
         '
         Me.Panel6.Controls.Add(Me.PictureBox1)
@@ -2323,6 +2381,114 @@ Partial Class frmHauptfensterNew
         Me.FlowLayoutPanel2.Size = New System.Drawing.Size(608, 65)
         Me.FlowLayoutPanel2.TabIndex = 86
         '
+        'MyFlowLayoutPanel1
+        '
+        Me.MyFlowLayoutPanel1.AutoScroll = True
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
+        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
+        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
+        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
+        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(608, 65)
+        Me.MyFlowLayoutPanel1.TabIndex = 85
+        '
+        'btnKunden
+        '
+        Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnKunden.ForeColor = System.Drawing.Color.Black
+        Me.btnKunden.Image = Global.AVISO.My.Resources.Resources.ico_kunden
+        Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKunden.Location = New System.Drawing.Point(3, 3)
+        Me.btnKunden.Name = "btnKunden"
+        Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnKunden.Size = New System.Drawing.Size(150, 50)
+        Me.btnKunden.TabIndex = 2
+        Me.btnKunden.TabStop = False
+        Me.btnKunden.Text = "Kunden"
+        Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKunden.UseVisualStyleBackColor = False
+        '
+        'btnSpedBuch
+        '
+        Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
+        Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.ico_speditionsbuch
+        Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSpedBuch.Location = New System.Drawing.Point(159, 3)
+        Me.btnSpedBuch.Name = "btnSpedBuch"
+        Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
+        Me.btnSpedBuch.TabIndex = 3
+        Me.btnSpedBuch.TabStop = False
+        Me.btnSpedBuch.Text = "Sped.Buch"
+        Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSpedBuch.UseVisualStyleBackColor = False
+        '
+        'btnKassenbuch
+        '
+        Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
+        Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.ico_kassenbuch
+        Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnKassenbuch.Location = New System.Drawing.Point(315, 3)
+        Me.btnKassenbuch.Name = "btnKassenbuch"
+        Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
+        Me.btnKassenbuch.TabIndex = 8
+        Me.btnKassenbuch.TabStop = False
+        Me.btnKassenbuch.Text = "Kassenbuch"
+        Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnKassenbuch.UseVisualStyleBackColor = False
+        Me.btnKassenbuch.Visible = False
+        '
+        'btnFakturierung
+        '
+        Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
+        Me.btnFakturierung.Image = Global.AVISO.My.Resources.Resources.ico_fakturierung
+        Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnFakturierung.Location = New System.Drawing.Point(3, 59)
+        Me.btnFakturierung.Name = "btnFakturierung"
+        Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
+        Me.btnFakturierung.TabIndex = 11
+        Me.btnFakturierung.TabStop = False
+        Me.btnFakturierung.Text = "Fakturierung"
+        Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnFakturierung.UseVisualStyleBackColor = False
+        Me.btnFakturierung.Visible = False
+        '
+        'btnRg
+        '
+        Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
+        Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.btnRg.ForeColor = System.Drawing.Color.Black
+        Me.btnRg.Image = Global.AVISO.My.Resources.Resources.ico_rechnungen
+        Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRg.Location = New System.Drawing.Point(159, 59)
+        Me.btnRg.Name = "btnRg"
+        Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
+        Me.btnRg.Size = New System.Drawing.Size(150, 50)
+        Me.btnRg.TabIndex = 9
+        Me.btnRg.TabStop = False
+        Me.btnRg.Text = "Rechnungen"
+        Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRg.UseVisualStyleBackColor = False
+        Me.btnRg.Visible = False
+        '
         'pnlOptionen
         '
         Me.pnlOptionen.BackColor = System.Drawing.Color.Black
@@ -2382,6 +2548,7 @@ Partial Class frmHauptfensterNew
         '
         'Panel9
         '
+        Me.Panel9.Controls.Add(Me.Button4)
         Me.Panel9.Controls.Add(Me.btnRefresh)
         Me.Panel9.Controls.Add(Me.Button6)
         Me.Panel9.Controls.Add(Me.btnDrucken)
@@ -2560,6 +2727,14 @@ Partial Class frmHauptfensterNew
         Me.pnlLeft.Size = New System.Drawing.Size(408, 741)
         Me.pnlLeft.TabIndex = 88
         '
+        'UsrCntlBenachrichtigungen2
+        '
+        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
+        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
+        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
+        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
+        '
         'Panel5
         '
         Me.Panel5.BackColor = System.Drawing.Color.White
@@ -2580,6 +2755,18 @@ Partial Class frmHauptfensterNew
         Me.Panel5.Size = New System.Drawing.Size(408, 416)
         Me.Panel5.TabIndex = 3
         '
+        'cbxInfoChat
+        '
+        Me.cbxInfoChat.AutoSize = True
+        Me.cbxInfoChat.Checked = True
+        Me.cbxInfoChat.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxInfoChat.Location = New System.Drawing.Point(221, 6)
+        Me.cbxInfoChat.Name = "cbxInfoChat"
+        Me.cbxInfoChat.Size = New System.Drawing.Size(183, 17)
+        Me.cbxInfoChat.TabIndex = 87
+        Me.cbxInfoChat.Text = "Chat-Benachrichtigung aktivieren"
+        Me.cbxInfoChat.UseVisualStyleBackColor = True
+        '
         'TabControl1
         '
         Me.TabControl1.Controls.Add(Me.TabPage1)
@@ -2594,6 +2781,7 @@ Partial Class frmHauptfensterNew
         '
         'TabPage1
         '
+        Me.TabPage1.Controls.Add(Me.UsrCntlMessenger_ListNewChats1)
         Me.TabPage1.Location = New System.Drawing.Point(4, 25)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
@@ -2602,6 +2790,15 @@ Partial Class frmHauptfensterNew
         Me.TabPage1.Text = "Chat"
         Me.TabPage1.UseVisualStyleBackColor = True
         '
+        'UsrCntlMessenger_ListNewChats1
+        '
+        Me.UsrCntlMessenger_ListNewChats1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UsrCntlMessenger_ListNewChats1.Location = New System.Drawing.Point(3, 3)
+        Me.UsrCntlMessenger_ListNewChats1.Margin = New System.Windows.Forms.Padding(4)
+        Me.UsrCntlMessenger_ListNewChats1.Name = "UsrCntlMessenger_ListNewChats1"
+        Me.UsrCntlMessenger_ListNewChats1.Size = New System.Drawing.Size(394, 266)
+        Me.UsrCntlMessenger_ListNewChats1.TabIndex = 0
+        '
         'TabPage2
         '
         Me.TabPage2.Location = New System.Drawing.Point(4, 25)
@@ -2612,146 +2809,6 @@ Partial Class frmHauptfensterNew
         Me.TabPage2.Text = "TabPage2"
         Me.TabPage2.UseVisualStyleBackColor = True
         '
-        'Panel7
-        '
-        Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
-        Me.Panel7.Location = New System.Drawing.Point(0, 0)
-        Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(408, 10)
-        Me.Panel7.TabIndex = 4
-        '
-        'cbxInfoChat
-        '
-        Me.cbxInfoChat.AutoSize = True
-        Me.cbxInfoChat.Checked = True
-        Me.cbxInfoChat.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxInfoChat.Location = New System.Drawing.Point(221, 6)
-        Me.cbxInfoChat.Name = "cbxInfoChat"
-        Me.cbxInfoChat.Size = New System.Drawing.Size(183, 17)
-        Me.cbxInfoChat.TabIndex = 87
-        Me.cbxInfoChat.Text = "Chat-Benachrichtigung aktivieren"
-        Me.cbxInfoChat.UseVisualStyleBackColor = True
-        '
-        'UsrCntlTestsystem1
-        '
-        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
-        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
-        Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
-        Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
-        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
-        Me.UsrCntlTestsystem1.TabIndex = 8
-        '
-        'MyFlowLayoutPanel1
-        '
-        Me.MyFlowLayoutPanel1.AutoScroll = True
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKunden)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnFakturierung)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnRg)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnKassenbuch)
-        Me.MyFlowLayoutPanel1.Controls.Add(Me.btnSpedBuch)
-        Me.MyFlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
-        Me.MyFlowLayoutPanel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MyFlowLayoutPanel1.Location = New System.Drawing.Point(181, 5)
-        Me.MyFlowLayoutPanel1.Name = "MyFlowLayoutPanel1"
-        Me.MyFlowLayoutPanel1.Size = New System.Drawing.Size(608, 65)
-        Me.MyFlowLayoutPanel1.TabIndex = 85
-        '
-        'btnKunden
-        '
-        Me.btnKunden.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnKunden.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnKunden.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnKunden.ForeColor = System.Drawing.Color.Black
-        Me.btnKunden.Image = CType(resources.GetObject("btnKunden.Image"), System.Drawing.Image)
-        Me.btnKunden.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnKunden.Location = New System.Drawing.Point(3, 3)
-        Me.btnKunden.Name = "btnKunden"
-        Me.btnKunden.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnKunden.Size = New System.Drawing.Size(150, 50)
-        Me.btnKunden.TabIndex = 2
-        Me.btnKunden.TabStop = False
-        Me.btnKunden.Text = "Kunden"
-        Me.btnKunden.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKunden.UseVisualStyleBackColor = False
-        '
-        'btnFakturierung
-        '
-        Me.btnFakturierung.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnFakturierung.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnFakturierung.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnFakturierung.ForeColor = System.Drawing.Color.Black
-        Me.btnFakturierung.Image = CType(resources.GetObject("btnFakturierung.Image"), System.Drawing.Image)
-        Me.btnFakturierung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnFakturierung.Location = New System.Drawing.Point(159, 3)
-        Me.btnFakturierung.Name = "btnFakturierung"
-        Me.btnFakturierung.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnFakturierung.Size = New System.Drawing.Size(150, 50)
-        Me.btnFakturierung.TabIndex = 11
-        Me.btnFakturierung.TabStop = False
-        Me.btnFakturierung.Text = "Fakturierung"
-        Me.btnFakturierung.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnFakturierung.UseVisualStyleBackColor = False
-        Me.btnFakturierung.Visible = False
-        '
-        'btnRg
-        '
-        Me.btnRg.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnRg.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnRg.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnRg.ForeColor = System.Drawing.Color.Black
-        Me.btnRg.Image = CType(resources.GetObject("btnRg.Image"), System.Drawing.Image)
-        Me.btnRg.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRg.Location = New System.Drawing.Point(315, 3)
-        Me.btnRg.Name = "btnRg"
-        Me.btnRg.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnRg.Size = New System.Drawing.Size(150, 50)
-        Me.btnRg.TabIndex = 9
-        Me.btnRg.TabStop = False
-        Me.btnRg.Text = "Rechnungen"
-        Me.btnRg.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRg.UseVisualStyleBackColor = False
-        Me.btnRg.Visible = False
-        '
-        'btnKassenbuch
-        '
-        Me.btnKassenbuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnKassenbuch.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnKassenbuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnKassenbuch.ForeColor = System.Drawing.Color.Black
-        Me.btnKassenbuch.Image = Global.AVISO.My.Resources.Resources.kasse_sw_small
-        Me.btnKassenbuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnKassenbuch.Location = New System.Drawing.Point(3, 59)
-        Me.btnKassenbuch.Name = "btnKassenbuch"
-        Me.btnKassenbuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnKassenbuch.Size = New System.Drawing.Size(150, 50)
-        Me.btnKassenbuch.TabIndex = 8
-        Me.btnKassenbuch.TabStop = False
-        Me.btnKassenbuch.Text = "Kassenbuch"
-        Me.btnKassenbuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnKassenbuch.UseVisualStyleBackColor = False
-        Me.btnKassenbuch.Visible = False
-        '
-        'btnSpedBuch
-        '
-        Me.btnSpedBuch.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnSpedBuch.Cursor = System.Windows.Forms.Cursors.Default
-        Me.btnSpedBuch.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnSpedBuch.ForeColor = System.Drawing.Color.Black
-        Me.btnSpedBuch.Image = Global.AVISO.My.Resources.Resources.spedbuch1
-        Me.btnSpedBuch.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSpedBuch.Location = New System.Drawing.Point(159, 59)
-        Me.btnSpedBuch.Name = "btnSpedBuch"
-        Me.btnSpedBuch.Padding = New System.Windows.Forms.Padding(10, 0, 0, 0)
-        Me.btnSpedBuch.Size = New System.Drawing.Size(150, 50)
-        Me.btnSpedBuch.TabIndex = 3
-        Me.btnSpedBuch.TabStop = False
-        Me.btnSpedBuch.Text = "Sped.Buch"
-        Me.btnSpedBuch.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSpedBuch.UseVisualStyleBackColor = False
-        '
         'btnMitarbeiterKonto
         '
         Me.btnMitarbeiterKonto.allowBorder = False
@@ -2770,73 +2827,50 @@ Partial Class frmHauptfensterNew
         Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
         '
+        'Panel7
+        '
+        Me.Panel7.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Panel7.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel7.Location = New System.Drawing.Point(0, 0)
+        Me.Panel7.Name = "Panel7"
+        Me.Panel7.Size = New System.Drawing.Size(408, 10)
+        Me.Panel7.TabIndex = 4
+        '
+        'UsrCntlTestsystem1
+        '
+        Me.UsrCntlTestsystem1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlTestsystem1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.UsrCntlTestsystem1.ForeColor = System.Drawing.Color.Red
+        Me.UsrCntlTestsystem1.Location = New System.Drawing.Point(632, -1)
+        Me.UsrCntlTestsystem1.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
+        Me.UsrCntlTestsystem1.Name = "UsrCntlTestsystem1"
+        Me.UsrCntlTestsystem1.Size = New System.Drawing.Size(152, 28)
+        Me.UsrCntlTestsystem1.TabIndex = 8
+        '
         'UidAbfrageService1
         '
         Me.UidAbfrageService1.Credentials = Nothing
         Me.UidAbfrageService1.Url = "https://finanzonline.bmf.gv.at/fon/ws/uidAbfrage/"
         Me.UidAbfrageService1.UseDefaultCredentials = False
         '
-        'UsrCntlBenachrichtigungen2
+        'Button4
         '
-        Me.UsrCntlBenachrichtigungen2.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UsrCntlBenachrichtigungen2.Location = New System.Drawing.Point(0, 10)
-        Me.UsrCntlBenachrichtigungen2.Name = "UsrCntlBenachrichtigungen2"
-        Me.UsrCntlBenachrichtigungen2.Size = New System.Drawing.Size(408, 315)
-        Me.UsrCntlBenachrichtigungen2.TabIndex = 5
-        '
-        'btnVIEW_CustControling
-        '
-        Me.btnVIEW_CustControling.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
-        Me.btnVIEW_CustControling.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.btnVIEW_CustControling.FlatAppearance.BorderSize = 0
-        Me.btnVIEW_CustControling.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnVIEW_CustControling.ForeColor = System.Drawing.Color.White
-        Me.btnVIEW_CustControling.Location = New System.Drawing.Point(3, 79)
-        Me.btnVIEW_CustControling.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
-        Me.btnVIEW_CustControling.Name = "btnVIEW_CustControling"
-        Me.btnVIEW_CustControling.Size = New System.Drawing.Size(158, 47)
-        Me.btnVIEW_CustControling.TabIndex = 8
-        Me.btnVIEW_CustControling.TabStop = False
-        Me.btnVIEW_CustControling.Text = "Customs Controlling"
-        Me.ToolTip1.SetToolTip(Me.btnVIEW_CustControling, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
-        "d sortiert nach Dauer")
-        Me.btnVIEW_CustControling.UseVisualStyleBackColor = False
-        '
-        'btnDEFAULT_Selected
-        '
-        Me.btnDEFAULT_Selected.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.btnDEFAULT_Selected.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnDEFAULT_Selected.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(44, Byte), Integer), CType(CType(108, Byte), Integer))
-        Me.btnDEFAULT_Selected.Location = New System.Drawing.Point(167, 79)
-        Me.btnDEFAULT_Selected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
-        Me.btnDEFAULT_Selected.Name = "btnDEFAULT_Selected"
-        Me.btnDEFAULT_Selected.Size = New System.Drawing.Size(74, 47)
-        Me.btnDEFAULT_Selected.TabIndex = 9
-        Me.btnDEFAULT_Selected.TabStop = False
-        Me.btnDEFAULT_Selected.Text = "DEFAULT_Selected"
-        Me.ToolTip1.SetToolTip(Me.btnDEFAULT_Selected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
-        "d sortiert nach Dauer")
-        Me.btnDEFAULT_Selected.UseVisualStyleBackColor = False
-        Me.btnDEFAULT_Selected.Visible = False
-        '
-        'btnDEFAULT_UnSelected
-        '
-        Me.btnDEFAULT_UnSelected.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
-        Me.btnDEFAULT_UnSelected.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
-        Me.btnDEFAULT_UnSelected.FlatAppearance.BorderSize = 0
-        Me.btnDEFAULT_UnSelected.Font = New System.Drawing.Font("Segoe UI", 10.0!)
-        Me.btnDEFAULT_UnSelected.ForeColor = System.Drawing.Color.White
-        Me.btnDEFAULT_UnSelected.Location = New System.Drawing.Point(247, 79)
-        Me.btnDEFAULT_UnSelected.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
-        Me.btnDEFAULT_UnSelected.Name = "btnDEFAULT_UnSelected"
-        Me.btnDEFAULT_UnSelected.Size = New System.Drawing.Size(85, 47)
-        Me.btnDEFAULT_UnSelected.TabIndex = 10
-        Me.btnDEFAULT_UnSelected.TabStop = False
-        Me.btnDEFAULT_UnSelected.Text = "DEFAULT_UnSelected"
-        Me.ToolTip1.SetToolTip(Me.btnDEFAULT_UnSelected, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
-        "d sortiert nach Dauer")
-        Me.btnDEFAULT_UnSelected.UseVisualStyleBackColor = False
-        Me.btnDEFAULT_UnSelected.Visible = False
+        Me.Button4.BackColor = System.Drawing.Color.FromArgb(CType(CType(253, Byte), Integer), CType(CType(253, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.Button4.Cursor = System.Windows.Forms.Cursors.Default
+        Me.Button4.FlatAppearance.BorderSize = 3
+        Me.Button4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.Button4.ForeColor = System.Drawing.Color.Black
+        Me.Button4.Image = Global.AVISO.My.Resources.Resources.ico_atez_tariffAI
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.Location = New System.Drawing.Point(11, 84)
+        Me.Button4.Margin = New System.Windows.Forms.Padding(0)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
+        Me.Button4.Size = New System.Drawing.Size(135, 52)
+        Me.Button4.TabIndex = 8
+        Me.Button4.Text = "Tariff AI"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.UseVisualStyleBackColor = False
         '
         'frmHauptfensterNew
         '
@@ -2885,6 +2919,7 @@ Partial Class frmHauptfensterNew
         Me.Panel6.ResumeLayout(False)
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.FlowLayoutPanel2.ResumeLayout(False)
+        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.pnlOptionen.ResumeLayout(False)
         Me.Panel9.ResumeLayout(False)
         Me.cntxt.ResumeLayout(False)
@@ -2896,7 +2931,7 @@ Partial Class frmHauptfensterNew
         Me.Panel5.ResumeLayout(False)
         Me.Panel5.PerformLayout()
         Me.TabControl1.ResumeLayout(False)
-        Me.MyFlowLayoutPanel1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -3199,4 +3234,6 @@ Partial Class frmHauptfensterNew
     Friend WithEvents btnVIEW_CustControling As Button
     Friend WithEvents btnDEFAULT_Selected As Button
     Friend WithEvents btnDEFAULT_UnSelected As Button
+    Friend WithEvents UsrCntlMessenger_ListNewChats1 As VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats
+    Friend WithEvents Button4 As Button
 End Class

Aviso/frmHauptfensterNew.resx

@@ -123,41 +123,13 @@
   <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>249, 17</value>
   </metadata>
-  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
-  <data name="btnZollwebseiten.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt
-        1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7
-        3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC
-        NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA
-        0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4
-        WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK
-        4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s
-        FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr
-        ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd
-        y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>364, 17</value>
   </metadata>
-  <data name="btnZertifikate.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAgBJREFUSEvt
-        1suLzXEYx/HXSVggt7LzH8jWzm0t8geQXFaU3DfEwshfoFzK2kLMTimFYkURcisjNhOxcmk06DN9z/Q7
-        3845M+PMRs1TT33P8/08n/c5M79znge+YBk24A2+4TMuYC2WYiFaekfuook2PemNR7xeY2O5S81vvCjC
-        NTiMUfzCeKvV+oMr5Q0tx7wGKOfU1uNy0Y6X3ngcKZ7xfjbBiqgIf2AYW3AGd/EBPxvgIazDopI5DzVA
-        0X7EveIRr5v4PslpH0pTGh7jBLbiJG6Vd9uGPsDBkg8bsGiiPYVtOI5H8exgNF80wGm+hr3Yjqt4iU/4
-        WmVquYsm2vSkd7T27QlsgEdwuhjtwHlcxKWSOaeWu2iifVf7TBvYgO7DEmzCTuwqmfNmLC6fbKTur3NK
-        4ISIc1iJs7iD+yVzzoO0Ind1X7ecKfA6xhr1MdyYA3Z41YVuOQecA3Z41YVu+X8DM/PqYp2zBSzz1f6s
-        FvVlJRwYiLc4EOD88kv/vBbNFrCsMJk4C9q7ScbLbjypxYMC8RR7CqMjsgxlkN7OFB8UWDaBeGVmxrtr
-        ZJXLBpYZ9+pfgektHvGKZ9/I33k1DrUfppkAy8ORVTMek/+zqSKL7SocLSvGtIB4j2Olt9/i3DOykWfd
-        y1dnKmA0WS/TM1Bkhc9XJ9ELmIgm2r7xF+xPKXpoDa+RAAAAAElFTkSuQmCC
-</value>
-  </data>
   <metadata name="cntxtAtilla.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>1158, 17</value>
   </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="Button8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@@ -204,32 +176,6 @@
   <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,6 +192,9 @@
         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>

Aviso/frmHauptfensterNew.vb

@@ -107,15 +107,20 @@ Public Class frmHauptfensterNew
 
 
         ' toggle_Buttons_Main(sender)
-        For Each button In FlowLayoutPanel1.Controls
+        For Each button As Control In FlowLayoutPanel1.Controls
             With button
-                .BackColor = btnDEFAULT_UnSelected.BackColor
-                .ForeColor = btnDEFAULT_UnSelected.ForeColor
-                .Font = btnDEFAULT_UnSelected.Font
+                If Not .Name.ToString.Contains("DEFAULT") Then
+                    .BackColor = btnDEFAULT_UnSelected.BackColor
+                    .ForeColor = btnDEFAULT_UnSelected.ForeColor
+                    .Font = btnDEFAULT_UnSelected.Font
+                End If
             End With
         Next
 
         Dim SelectedBtn As Button = Nothing
+
+
+
         Select Case SEARCH_AVISO_AKTIV
             Case "SND"
                 splitMainWorkingView.Panel2Collapsed = True
@@ -129,7 +134,7 @@ Public Class frmHauptfensterNew
                 Application.DoEvents()
             Case "AVISO"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_LKW
+                SetBtnSelectedolor(btnVIEW_LKW)
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -140,7 +145,7 @@ Public Class frmHauptfensterNew
 
             Case "AVISO_SND_KOMBI"
                 splitMainWorkingView.Panel2Collapsed = False
-                SelectedBtn = btnVIEW_KOMBI
+                SetBtnSelectedolor(btnVIEW_KOMBI)
                 If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 pnlMain.Controls.Add(SEARCH_AVISO)
@@ -159,7 +164,7 @@ Public Class frmHauptfensterNew
 
             Case "COMPLIANCE"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_Compliance
+                SetBtnSelectedolor(btnVIEW_Compliance)
                 'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 'pnlMain.Controls.Add(SEARCH_AVISO)
@@ -170,7 +175,7 @@ Public Class frmHauptfensterNew
 
             Case "CUSTOMS_CONTROLLING"
                 splitMainWorkingView.Panel2Collapsed = True
-                SelectedBtn = btnVIEW_CustControling
+                SetBtnSelectedolor(btnVIEW_CustControling)
                 'If SEARCH_AVISO Is Nothing Then SEARCH_AVISO = New usrCntlHauptfenster_Suche_AVISO
                 'SEARCH_AVISO.PARENT_FRMHAUPTFENSTER = Me
                 'pnlMain.Controls.Add(SEARCH_AVISO)
@@ -184,15 +189,16 @@ Public Class frmHauptfensterNew
         initsearch(SEARCH_AVISO_AKTIV, False) ': Aviso_anzeigen("")
 
 
+
+    End Sub
+
+    Sub SetBtnSelectedolor(SelectedBtn)
         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)
         If SEARCH_AVISO IsNot Nothing Then
 
@@ -1874,6 +1880,8 @@ ELSE_ATILLA:
             End If
         End If
 
+        'Evtl abhängign vom User machen:
+        SWITCH_SEARCH("AVISO")
 
     End Sub
 
@@ -3947,4 +3955,8 @@ ELSE_ATILLA:
         SEARCH_AVISO.RESET()
         Grid_aktiv = True
     End Sub
+
+    Private Sub Button4_Click_2(sender As Object, e As EventArgs) Handles Button4.Click
+
+    End Sub
 End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -1384,22 +1384,6 @@
         jz+j/Pnl74VBJGCkA5INlEIwhRFGwBADCPtkJqjJYJPhJgMOQ04GHZYMiGwJvwcFHhk+GEIUiHQwkoEU
         QimMMEpByGAzwU0GHAU6Cng6yfAwCf8eFn5vGTwYQDKEhI8UgiiMMC6AEANclgwAAT5ZMiz8CL8Ofh8M
         nRA+F3D8f7cAkA4zZGm9AAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="btnOptionen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V
-        0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml
-        hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo
-        BXidk8YAAAAAAElFTkSuQmCC
-</value>
-  </data>
-  <data name="btnImportAssi.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V
-        0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml
-        hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo
-        BXidk8YAAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -1543,6 +1527,21 @@
   <metadata name="clmnAbrPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="clmnAbrId.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAbrFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAbrLeistungsNr.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAbrLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnAbrPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAG9JREFUSEvt
@@ -1653,6 +1652,18 @@
   <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>404, 17</value>
   </metadata>
@@ -1683,14 +1694,6 @@
         E90MFIBuGJJmH2QDYy/ETpW0lEQJDpxAVE9UM/5S/BV0Q5GxRqRGDro+gsAwz7AV3SAQtqi1mMzIwoiu
         nDhg32vfHn8p/ivMsLiLcWdMK0w10dWRDGLOxPyIuxj30Xm6cya6HNkgeEfwA3SxgQUqKipM1dXVytOm
         TTNGxhMmTFCztLTEn/6gAACeTwgqe9wYrQAAAABJRU5ErkJggg==
-</value>
-  </data>
-  <data name="btnSpedBuch.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-    <value>
-        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V
-        0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml
-        hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo
-        BXidk8YAAAAAAElFTkSuQmCC
 </value>
   </data>
   <metadata name="cntxtAnh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

Aviso/frmSendungsdetailsNEU.vb

@@ -17,6 +17,7 @@ Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
     Public SendungID As Integer = -1
     Dim FUNC As New SDL.cProgramFunctions
+
     Dim AVISOFUNC As New AvisoStatusFunctions
     Dim ADMIN As New cADMIN
     Dim AvisoDAL As New cAvisoDAL
@@ -601,6 +602,22 @@ Public Class frmSendungsdetailsNEU
                 Button19.Visible = True
             End If
 
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_Statusoptions") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
+                lblStatusOptionen.Visible = True
+                pnlStatus.Visible = True
+                flpnlStatus.Visible = True
+            Else
+                lblStatusOptionen.Visible = False
+                pnlStatus.Visible = False
+                flpnlStatus.Visible = False
+            End If
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_Zuteilung") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
+                pnlSND_Zuteilung.Visible = True
+            Else
+                pnlSND_Zuteilung.Visible = False
+            End If
+
             ContextMenuStrip3.Items.Clear()
             Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
             If dt IsNot Nothing Then
@@ -1469,7 +1486,7 @@ Public Class frmSendungsdetailsNEU
             txtColli.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
             txtGewicht.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
             rtbWarenbezeichnung.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung, "")
-            cbxSpedBuch.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen, False)
+            'cbxSpedBuch.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen, False)
 
             '  cntlBar.Checked = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_bar, False)
             '  txtBarBelegNr.Text = loadValue(SENDUNG_LIST(CURRENT_INDEX).tblSnd_barBeleg, "")
@@ -1554,6 +1571,7 @@ Public Class frmSendungsdetailsNEU
 
             setVorpapiere()
 
+
             doVeranlagungsValidation()
 
             initFraechterAvisererFromAkt()
@@ -1711,6 +1729,9 @@ Public Class frmSendungsdetailsNEU
             checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)
 
 
+            initSendungs_Status()
+            initZuteilung()
+
             SENDUNG_LIST(CURRENT_INDEX).LOAD_VORKOSTEN()
             If tbcntr.SelectedTab Is tbBAR Then
                 initDGVBelege()
@@ -1812,6 +1833,125 @@ Public Class frmSendungsdetailsNEU
         End If
     End Sub
 
+    Sub initSendungs_Status()
+
+        Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
+        'cbxSpedBuch.Checked = (vorhanden > 0)
+        SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
+
+
+
+        btnStatusAbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Inaktiv
+        btnStatusVorbereitetQS.BackgroundImage = My.Resources.statusBtn_vorbereitet_InAktiv
+        btnStatusVorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_InAktiv
+        btnStatusAbfertigungTR.BackgroundImage = My.Resources.abfetigungTR_inaktiv
+        btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchInaktiv
+        btnSendungFakturiert.BackgroundImage = My.Resources.fakturiertInaktiv
+        btnStatusAbgeschlossen.BackgroundImage = My.Resources.ok '-> Logik einbauen
+        setTooltioBtn(btnStatusAbklaerungTR, "Status 'Abklärung TR' eintragen")
+        setTooltioBtn(btnStatusVorbereitetQS, "Status 'Vorbereitet-QS' eintragen")
+        setTooltioBtn(btnStatusVorgeschrieben, "Status 'Vorgeschrieben' eintragen")
+        setTooltioBtn(btnStatusAbfertigungTR, "Status 'Abfertigung TR' eintragen")
+        setTooltioBtn(btnSpeditionsbuchEintragen, "Status 'Speditionsbuch Eintragen' eintragen")
+        setTooltioBtn(btnSendungFakturiert, "Status 'Fakturiert' eintragen")
+        setTooltioBtn(btnStatusAbgeschlossen, "Status 'Abgeschlossen' eintragen")
+
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbklaerungTR", "AVISO") Then
+            btnStatusAbklaerungTR.Visible = True
+        End If
+        btnStatusVorbereitetQS.Visible = True
+        btnStatusVorgeschrieben.Visible = True
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusAbfertigungTR", "AVISO") Then
+            btnStatusAbfertigungTR.Visible = True
+        End If
+
+        btnSpeditionsbuchEintragen.Visible = True
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("SendungsStatusFakturiert", "AVISO") Then
+            btnSendungFakturiert.Visible = True
+        End If
+
+        btnStatusAbgeschlossen.Visible = False
+
+        '---------
+
+
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbklaerungTR IsNot Nothing Then
+            btnStatusAbklaerungTR.BackgroundImage = My.Resources.abklaerungTR_Aktiv
+            Dim username = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbklaerungTR_MA, -1) & "'", "ADMIN", "-")
+            setTooltioBtn(btnStatusAbklaerungTR, "Status 'Abklärung TR' entfernen" & vbNewLine & "(" & CDate(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbklaerungTR).ToString("dd.MM.yyyy HH:mm") & "," & username & ")")
+        End If
+
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorbereitet IsNot Nothing Then
+            btnStatusVorbereitetQS.BackgroundImage = My.Resources.statusBtn_vorbereitet_Aktiv
+            Dim username = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_QS_MA, -1) & "'", "ADMIN", "-")
+            setTooltioBtn(btnStatusVorbereitetQS, "Status 'Vorbereitet-QS' entfernen" & vbNewLine & "(" & CDate(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorbereitet).ToString("dd.MM.yyyy HH:mm") & "," & username & ")")
+        End If
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorgeschrieben IsNot Nothing Then
+            btnStatusVorgeschrieben.BackgroundImage = My.Resources.statusBtn_vorgeschrieben_Aktiv
+            Dim username = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_VG_MA, -1) & "'", "ADMIN", "-")
+            setTooltioBtn(btnStatusVorgeschrieben, "Status 'Vorgeschrieben' entfernen" & vbNewLine & "(" & CDate(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorgeschrieben).ToString("dd.MM.yyyy HH:mm") & "," & username & ")")
+        End If
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbfertigungTR IsNot Nothing Then
+            btnStatusAbfertigungTR.BackgroundImage = My.Resources.abfetigungTR_aktiv
+            Dim username = SQL.DLookup("mit_username", "tblMitarbeiter", "mit_id='" & If(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbfertigungTR_MA, -1) & "'", "ADMIN", "-")
+            setTooltioBtn(btnStatusAbfertigungTR, "Status 'Abklärung TR' entfernen" & vbNewLine & "(" & CDate(SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbfertigungTR).ToString("dd.MM.yyyy HH:mm") & "," & username & ")")
+        End If
+
+
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
+            btnStatusAbklaerungTR.BackgroundImage = My.Resources.speditionsbuchAktiv
+            setTooltioBtn(btnStatusAbklaerungTR, "Status 'Speditionsbuch Eingetragen' entfernen")
+        End If
+
+
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fakturiert Then
+            btnStatusAbklaerungTR.BackgroundImage = My.Resources.fakturiertAktiv
+            setTooltioBtn(btnStatusAbklaerungTR, "Status 'Fakturiert' entfernen")
+        End If
+
+
+        'If SENDUNG_LIST(CURRENT_INDEX).abgeschlossen Then
+        '    btnStatusAbgeschlossen.BackgroundImage = My.Resources.ok '-> Logik einbauen
+        '    setTooltioBtn(btnStatusAbklaerungTR, "Status 'Abgeschlossen' aufheben")
+        'End If
+
+
+        lblStatus.Text = VERAG_PROG_ALLGEMEIN.cGlobal.getSNDStatusText(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Status)
+
+
+
+        Select Case SENDUNG_LIST(CURRENT_INDEX).tblSnd_Status
+            'Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ankunft
+            '    pnlStatus.BackColor = usrcntlAktDetails.btnAnkunft.BackColor
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Erfasst : pnlStatus.BackColor = Color.Red
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_InBearbeitung : pnlStatus.BackColor = Color.Orange
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Eingereicht : pnlStatus.BackColor = Color.LightSeaGreen
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ueberlassen : pnlStatus.BackColor = Color.Green
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_NichtEingetroffen : pnlStatus.BackColor = Color.FromArgb(64, 64, 64)
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ankunft : pnlStatus.BackColor = Color.Blue
+
+            Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen
+                lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = Color.Gray 'btnNichtEingetroffen.BackColor
+
+        End Select
+
+
+
+    End Sub
+
+    Sub setTooltioBtn(btn As Button, tooltiptext As String)
+        Dim tt As New ToolTip() : tt.SetToolTip(btn, tooltiptext)
+    End Sub
+
     Sub setVorpapiere()
 
         cboVorpapier.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_Vorpapier
@@ -1878,13 +2018,31 @@ Public Class frmSendungsdetailsNEU
                 If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
             Next
 
-            lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
-            lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
+            'lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
+            'lblgesGewicht.Text = If(gesGewicht = 0, "-", gesGewicht.ToString("N1")) & " kg"
+
+            lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk" & If(gesGewicht = 0, "-", ", " & gesGewicht.ToString("N1")) & " kg"
 
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
     End Sub
+
+    Sub initZuteilung()
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisoID >= 0 Then
+            lblSND_Zuteilg.Text = "LKW zugeteilt:"
+            lblSND_ZuteilgAvisoId.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisoID.ToString
+            picSND_Zuteilg.BackgroundImage = My.Resources.SND_verbinden
+            btnSND_Zuteilg.Text = "Von LKW lösen"
+        Else
+            lblSND_Zuteilg.Text = "Sendung gelöst"
+            lblSND_ZuteilgAvisoId.Text = "-"
+            picSND_Zuteilg.BackgroundImage = My.Resources.SND_loesen
+            btnSND_Zuteilg.Text = "LKW zuordnen"
+        End If
+
+
+    End Sub
     Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As Object = Nothing, Optional formatString As String = "")
         o.DataBindings.Clear()
         '    If bindingNullValue = Nothing Then bindingNullValue = DBNull.Value
@@ -1997,7 +2155,7 @@ Public Class frmSendungsdetailsNEU
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_Colli = txtColli.Text
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_Gewicht = txtGewicht.Text
         SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
-        SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = cbxSpedBuch.Checked
+        '     SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = cbxSpedBuch.Checked
 
         '  SENDUNG_LIST(CURRENT_INDEX).tblSnd_aufschub = cboAufschub._value
         '  MsgBox(CURRENT_INDEX & " _ " & txtColli.Text)
@@ -2357,7 +2515,7 @@ Public Class frmSendungsdetailsNEU
         Return b
     End Function
 
-    Private Sub btn_Click_1(sender As Object, e As EventArgs) Handles btnSpedBuch.Click
+    Private Sub btn_Click_1(sender As Object, e As EventArgs)
 
         'loadDataInLIST()
         If Not SAVE_ME() Then
@@ -2378,8 +2536,8 @@ Public Class frmSendungsdetailsNEU
             txtUnterNr.Text = posnr.UnterNr
             'cbxSpedBuch.Checked = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
             Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & cboFiliale._value & "' AND AbfertigungsNr='" & txtAbfertigungsnummer.Text & "'", "FMZOLL") ' AND UnterNr='" & txtUnterNr.Text & "'
-            cbxSpedBuch.Checked = (vorhanden > 0)
-
+            'cbxSpedBuch.Checked = (vorhanden > 0)
+            SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
 
         End If
 
@@ -2774,7 +2932,7 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
-    Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSpedBuch.CheckedChanged
+    Private Sub cbxSpedBuch_CheckedChanged(sender As Object, e As EventArgs)
         cboFiliale.Enabled = Not sender.checked
         txtAbfertigungsnummer.Enabled = Not sender.checked
         txtUnterNr.Enabled = Not sender.checked
@@ -3245,7 +3403,7 @@ Public Class frmSendungsdetailsNEU
         Dim AbfertigungsNr = txtAbfertigungsnummer.Text
         If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Fremdspedition Then Return False
         If Filiale Is Nothing Or AbfertigungsNr Is Nothing Then Return False
-        If cbxSpedBuch.Checked Then Return False
+        'If cbxSpedBuch.Checked Then Return False
         If IsNumeric(Filiale) And IsNumeric(AbfertigungsNr) Then
             If SDL.cRKSV.SpedBuchExists(Filiale, AbfertigungsNr) Then
                 Return True
@@ -3338,7 +3496,7 @@ Public Class frmSendungsdetailsNEU
         ' TabControl1.Enabled = Not sperren
         Panel6.Enabled = Not sperren
         Panel16.Enabled = Not sperren
-        btnSpedBuch.Enabled = Not sperren
+        'btnSpedBuch.Enabled = Not sperren
         '  Panel5.Enabled = Not sperren
         '  cboAbfertigungsart.Enabled = Not sperren
         txtAnzahl.Enabled = Not sperren
@@ -7899,4 +8057,62 @@ Public Class frmSendungsdetailsNEU
             initAnhang()
         End If
     End Sub
+
+    Private Sub btnSND_Zuteilg_Click(sender As Object, e As EventArgs) Handles btnSND_Zuteilg.Click
+        MsgBox("TODO")
+    End Sub
+
+    Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
+        Me.Cursor = Cursors.WaitCursor
+        If AVISOFUNC.setSendungAbklaerungTR(SendungsId, AvisoId) Then
+            initDataBinding()
+        End If
+        Me.Cursor = Cursors.Default 
+    End Sub
+
+    Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
+        Me.Cursor = Cursors.WaitCursor
+        If AVISOFUNC.setSendungVorbereitetQS(SendungsId, AvisoId) Then
+            initDataBinding()
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
+        Me.Cursor = Cursors.WaitCursor
+        If AVISOFUNC.setSendungVorgeschrieben(SendungsId, AvisoId) Then
+            initDataBinding()
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
+        Me.Cursor = Cursors.WaitCursor
+        If AVISOFUNC.setSendungAbfertigungTR(SendungsId, AvisoId) Then
+            initDataBinding()
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnSpeditionsbuchEintragen_Click(sender As Object, e As EventArgs) Handles btnSpeditionsbuchEintragen.Click
+        Me.Cursor = Cursors.WaitCursor
+        If Not cbxFremdspedition.Checked Then
+            If AVISOFUNC.setSendungFakturiert(SendungsId, AvisoId) Then
+                initDataBinding()
+            End If
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
+        Me.Cursor = Cursors.WaitCursor
+        If AVISOFUNC.setSendungFakturiert(SendungsId, AvisoId) Then
+            initDataBinding()
+        End If
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub btnStatusAbgeschlossen_Click(sender As Object, e As EventArgs) Handles btnStatusAbgeschlossen.Click
+        '''
+    End Sub
 End Class

Aviso/usrCntlHauptfenster_Suche_AVISO.Designer.vb

@@ -24,12 +24,13 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlHauptfenster_Suche_AVISO))
-        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()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblHinweis = New System.Windows.Forms.Label()
         Me.btnDetailsuche = New System.Windows.Forms.Button()
         Me.pnlSearch = New System.Windows.Forms.Panel()
         Me.lblAbsender = New System.Windows.Forms.Label()
@@ -85,7 +86,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.tabFreigegeben = New System.Windows.Forms.TabPage()
         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()
@@ -150,6 +150,18 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.Panel1.Size = New System.Drawing.Size(1243, 118)
         Me.Panel1.TabIndex = 3
         '
+        'lblHinweis
+        '
+        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(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
+        '
         'btnDetailsuche
         '
         Me.btnDetailsuche.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer))
@@ -158,7 +170,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         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(129, 55)
+        Me.btnDetailsuche.Location = New System.Drawing.Point(129, 58)
         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)
@@ -413,7 +425,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         'txtAbfertigungsnummer
         '
         Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(500, 10)
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(500, 11)
         Me.txtAbfertigungsnummer.MaxLength = 8
         Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
         Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(147, 23)
@@ -452,7 +464,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         '
         'Label22
         '
-        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label22.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Label22.BackColor = System.Drawing.Color.Red
         Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label22.ForeColor = System.Drawing.Color.White
@@ -551,7 +563,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.cboImEx._value = ""
         Me.cboImEx.BackColor = System.Drawing.Color.WhiteSmoke
         Me.cboImEx.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
-        Me.cboImEx.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboImEx.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboImEx.FormattingEnabled = True
         Me.cboImEx.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD"})
@@ -568,7 +579,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.cboTeams.BackColor = System.Drawing.Color.WhiteSmoke
         Me.cboTeams.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboTeams.DropDownWidth = 200
-        Me.cboTeams.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboTeams.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboTeams.FormattingEnabled = True
         Me.cboTeams.Location = New System.Drawing.Point(408, 4)
@@ -591,7 +601,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label8.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))
-        Me.Label8.Location = New System.Drawing.Point(67, 7)
+        Me.Label8.Location = New System.Drawing.Point(67, 10)
         Me.Label8.Name = "Label8"
         Me.Label8.Size = New System.Drawing.Size(15, 18)
         Me.Label8.TabIndex = 15
@@ -619,7 +629,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.cboGrenzstelle.BackColor = System.Drawing.Color.WhiteSmoke
         Me.cboGrenzstelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboGrenzstelle.DropDownWidth = 200
-        Me.cboGrenzstelle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.cboGrenzstelle.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cboGrenzstelle.FormattingEnabled = True
         Me.cboGrenzstelle.Items.AddRange(New Object() {"ALLE", "SUB", "SBG", "WAI", "NKD", "NEU", "AMB", "???"})
@@ -643,7 +652,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label6.ForeColor = System.Drawing.Color.White
-        Me.Label6.Location = New System.Drawing.Point(6, 53)
+        Me.Label6.Location = New System.Drawing.Point(6, 56)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(81, 13)
         Me.Label6.TabIndex = 11
@@ -652,7 +661,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         'txtSuche
         '
         Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSuche.Location = New System.Drawing.Point(7, 28)
+        Me.txtSuche.Location = New System.Drawing.Point(7, 31)
         Me.txtSuche.MaxLength = 30
         Me.txtSuche.Name = "txtSuche"
         Me.txtSuche.Size = New System.Drawing.Size(306, 26)
@@ -662,7 +671,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         '
         Me.btnWichtige.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnWichtige.ForeColor = System.Drawing.Color.White
-        Me.btnWichtige.Location = New System.Drawing.Point(235, 1)
+        Me.btnWichtige.Location = New System.Drawing.Point(235, 4)
         Me.btnWichtige.Name = "btnWichtige"
         Me.btnWichtige.Size = New System.Drawing.Size(78, 25)
         Me.btnWichtige.TabIndex = 4
@@ -674,7 +683,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         '
         Me.btnWichtigeStandort.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.btnWichtigeStandort.ForeColor = System.Drawing.Color.White
-        Me.btnWichtigeStandort.Location = New System.Drawing.Point(129, 0)
+        Me.btnWichtigeStandort.Location = New System.Drawing.Point(129, 3)
         Me.btnWichtigeStandort.Name = "btnWichtigeStandort"
         Me.btnWichtigeStandort.Size = New System.Drawing.Size(100, 27)
         Me.btnWichtigeStandort.TabIndex = 3
@@ -686,7 +695,7 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         '
         Me.lblSuche.AutoSize = True
         Me.lblSuche.ForeColor = System.Drawing.Color.White
-        Me.lblSuche.Location = New System.Drawing.Point(6, 9)
+        Me.lblSuche.Location = New System.Drawing.Point(6, 12)
         Me.lblSuche.Name = "lblSuche"
         Me.lblSuche.Size = New System.Drawing.Size(68, 15)
         Me.lblSuche.TabIndex = 1
@@ -812,8 +821,6 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         '
         'pnlTime
         '
-        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.MyComboBox1)
         Me.pnlTime.Controls.Add(Me.Label2)
         Me.pnlTime.Controls.Add(Me.dtpVon)
@@ -827,25 +834,12 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         Me.pnlTime.Size = New System.Drawing.Size(307, 57)
         Me.pnlTime.TabIndex = 12
         '
-        'lblHinweis
-        '
-        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(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
@@ -979,47 +973,47 @@ Partial Class usrCntlHauptfenster_Suche_AVISO
         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
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.Azure
+        DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         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
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.LightBlue
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.gridAviso.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle7
         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
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.DefaultCellStyle = DataGridViewCellStyle8
         Me.gridAviso.Dock = System.Windows.Forms.DockStyle.Fill
         Me.gridAviso.Location = New System.Drawing.Point(0, 118)
         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
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
         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
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        Me.gridAviso.RowsDefaultCellStyle = DataGridViewCellStyle10
         Me.gridAviso.RowTemplate.ReadOnly = True
         Me.gridAviso.RowTemplate.Resizable = System.Windows.Forms.DataGridViewTriState.[False]
         Me.gridAviso.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect

Aviso/usrCntlHauptfenster_Suche_SND.Designer.vb

@@ -30,22 +30,41 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.cbxLoseSnd = New System.Windows.Forms.CheckBox()
+        Me.txtAvisierer = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblErwLKWID = New System.Windows.Forms.Label()
+        Me.lblAbsender = New System.Windows.Forms.Label()
+        Me.txtlkwId = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtAbsender = New System.Windows.Forms.TextBox()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.lblZeit_aktuell = 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.btnColor = New System.Windows.Forms.Button()
+        Me.Button4 = New System.Windows.Forms.Button()
+        Me.lblDauer = New System.Windows.Forms.Label()
+        Me.lblMySND_Anzeige = New System.Windows.Forms.Label()
+        Me.txtKdAuftragsnr = New System.Windows.Forms.TextBox()
+        Me.lblErwKdAtrNr = New System.Windows.Forms.Label()
+        Me.cboMyAvisoAnzeige = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.btnNeu = New System.Windows.Forms.Button()
+        Me.cboMy_Grenzstelle = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtEmpfänger = New System.Windows.Forms.TextBox()
+        Me.txtAbfertigungsnummer = New System.Windows.Forms.TextBox()
+        Me.lblErwFilialePos = New System.Windows.Forms.Label()
+        Me.lblErwEmpfänger = New System.Windows.Forms.Label()
+        Me.lblEintraege = New System.Windows.Forms.Label()
+        Me.cboMy_QS = New System.Windows.Forms.CheckBox()
+        Me.txtAuftraggeber = New System.Windows.Forms.TextBox()
+        Me.cboMy_VB = New System.Windows.Forms.CheckBox()
+        Me.lblMySnd_Grenzstelle = New System.Windows.Forms.Label()
+        Me.lblErwAuftraggeber = 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)
@@ -53,10 +72,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.tbNichtEingetroffen = New System.Windows.Forms.TabPage()
         Me.Panel1.SuspendLayout()
         Me.tbcntrAvisoSND.SuspendLayout()
         CType(Me.gridAviso, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -66,171 +82,166 @@ Partial Class usrCntlHauptfenster_Suche_SND
         '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.cbxLoseSnd)
+        Me.Panel1.Controls.Add(Me.txtAvisierer)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.lblErwLKWID)
+        Me.Panel1.Controls.Add(Me.lblAbsender)
+        Me.Panel1.Controls.Add(Me.txtlkwId)
         Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.txtAbsender)
         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.Button4)
         Me.Panel1.Controls.Add(Me.lblDauer)
         Me.Panel1.Controls.Add(Me.lblMySND_Anzeige)
+        Me.Panel1.Controls.Add(Me.txtKdAuftragsnr)
+        Me.Panel1.Controls.Add(Me.lblErwKdAtrNr)
         Me.Panel1.Controls.Add(Me.cboMyAvisoAnzeige)
         Me.Panel1.Controls.Add(Me.btnNeu)
         Me.Panel1.Controls.Add(Me.cboMy_Grenzstelle)
+        Me.Panel1.Controls.Add(Me.cboFiliale)
+        Me.Panel1.Controls.Add(Me.txtEmpfänger)
+        Me.Panel1.Controls.Add(Me.txtAbfertigungsnummer)
+        Me.Panel1.Controls.Add(Me.lblErwFilialePos)
+        Me.Panel1.Controls.Add(Me.lblErwEmpfänger)
         Me.Panel1.Controls.Add(Me.lblEintraege)
         Me.Panel1.Controls.Add(Me.cboMy_QS)
+        Me.Panel1.Controls.Add(Me.txtAuftraggeber)
         Me.Panel1.Controls.Add(Me.cboMy_VB)
         Me.Panel1.Controls.Add(Me.lblMySnd_Grenzstelle)
+        Me.Panel1.Controls.Add(Me.lblErwAuftraggeber)
         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.Size = New System.Drawing.Size(1243, 115)
         Me.Panel1.TabIndex = 3
         '
-        'btnDetailsuche
+        'cbxLoseSnd
         '
-        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
+        Me.cbxLoseSnd.AutoSize = True
+        Me.cbxLoseSnd.ForeColor = System.Drawing.Color.White
+        Me.cbxLoseSnd.Location = New System.Drawing.Point(832, 53)
+        Me.cbxLoseSnd.Name = "cbxLoseSnd"
+        Me.cbxLoseSnd.Size = New System.Drawing.Size(181, 19)
+        Me.cbxLoseSnd.TabIndex = 46
+        Me.cbxLoseSnd.Text = "nur lose Sendungen anzeigen"
+        Me.cbxLoseSnd.UseVisualStyleBackColor = True
+        Me.cbxLoseSnd.Visible = False
         '
-        'lblDauer
+        'txtAvisierer
         '
-        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
+        Me.txtAvisierer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAvisierer.Location = New System.Drawing.Point(622, 50)
+        Me.txtAvisierer.MaxLength = 100
+        Me.txtAvisierer.Name = "txtAvisierer"
+        Me.txtAvisierer.Size = New System.Drawing.Size(199, 23)
+        Me.txtAvisierer.TabIndex = 44
         '
-        'lblEintraege
+        'Label2
         '
-        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
+        Me.Label2.AutoSize = True
+        Me.Label2.ForeColor = System.Drawing.Color.White
+        Me.Label2.Location = New System.Drawing.Point(619, 32)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(55, 15)
+        Me.Label2.TabIndex = 45
+        Me.Label2.Text = "Avisierer:"
         '
-        'cbx_My_Brexit
+        'lblErwLKWID
         '
-        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
+        Me.lblErwLKWID.AutoSize = True
+        Me.lblErwLKWID.ForeColor = System.Drawing.Color.White
+        Me.lblErwLKWID.Location = New System.Drawing.Point(619, 9)
+        Me.lblErwLKWID.Name = "lblErwLKWID"
+        Me.lblErwLKWID.Size = New System.Drawing.Size(49, 15)
+        Me.lblErwLKWID.TabIndex = 19
+        Me.lblErwLKWID.Text = "LKW-Id:"
         '
-        'btnColor
+        'lblAbsender
         '
-        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
+        Me.lblAbsender.AutoSize = True
+        Me.lblAbsender.ForeColor = System.Drawing.Color.White
+        Me.lblAbsender.Location = New System.Drawing.Point(209, 32)
+        Me.lblAbsender.Name = "lblAbsender"
+        Me.lblAbsender.Size = New System.Drawing.Size(60, 15)
+        Me.lblAbsender.TabIndex = 23
+        Me.lblAbsender.Text = "Absender:"
         '
-        'lblMySND_Anzeige
+        'txtlkwId
         '
-        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:"
+        Me.txtlkwId.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtlkwId.Location = New System.Drawing.Point(674, 5)
+        Me.txtlkwId.MaxLength = 100
+        Me.txtlkwId.Name = "txtlkwId"
+        Me.txtlkwId.Size = New System.Drawing.Size(147, 23)
+        Me.txtlkwId.TabIndex = 10
         '
-        'cboMyAvisoAnzeige
+        'Label1
         '
-        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
+        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(892, 89)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(63, 15)
+        Me.Label1.TabIndex = 43
+        Me.Label1.Text = "Prio/Stufe:"
         '
-        'cboMy_Grenzstelle
+        'txtAbsender
         '
-        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
+        Me.txtAbsender.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbsender.Location = New System.Drawing.Point(212, 50)
+        Me.txtAbsender.MaxLength = 100
+        Me.txtAbsender.Name = "txtAbsender"
+        Me.txtAbsender.Size = New System.Drawing.Size(199, 23)
+        Me.txtAbsender.TabIndex = 2
         '
-        'cboMy_QS
+        'Button2
         '
-        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
+        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, 86)
+        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
         '
-        'cboMy_VB
+        'Button1
         '
-        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
+        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, 86)
+        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
         '
-        'lblMySnd_Grenzstelle
+        'lblZeit_aktuell
         '
-        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:"
+        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(1012, 38)
+        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
         '
         'tbcntrAvisoSND
         '
@@ -238,14 +249,15 @@ Partial Class usrCntlHauptfenster_Suche_SND
         Me.tbcntrAvisoSND.Controls.Add(Me.tbSndAlle)
         Me.tbcntrAvisoSND.Controls.Add(Me.tbSndOffen)
         Me.tbcntrAvisoSND.Controls.Add(Me.tbSndFreigegeben)
+        Me.tbcntrAvisoSND.Controls.Add(Me.tbNichtEingetroffen)
         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.Location = New System.Drawing.Point(3, 84)
         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.Size = New System.Drawing.Size(486, 31)
         Me.tbcntrAvisoSND.TabIndex = 27
         Me.tbcntrAvisoSND.Visible = False
         '
@@ -257,7 +269,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.Size = New System.Drawing.Size(478, 0)
         Me.tbSndAlle.TabIndex = 0
         Me.tbSndAlle.Text = "Alle Sendungen"
         '
@@ -268,19 +280,102 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.Size = New System.Drawing.Size(478, 0)
         Me.tbSndOffen.TabIndex = 1
-        Me.tbSndOffen.Text = "Offen"
+        Me.tbSndOffen.Text = "In Bearbeitung"
         '
         '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.Size = New System.Drawing.Size(478, 0)
         Me.tbSndFreigegeben.TabIndex = 2
-        Me.tbSndFreigegeben.Text = "Freigegeben"
+        Me.tbSndFreigegeben.Text = "Überlassen"
         Me.tbSndFreigegeben.UseVisualStyleBackColor = True
         '
+        '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(961, 87)
+        Me.btnColor.Name = "btnColor"
+        Me.btnColor.Size = New System.Drawing.Size(36, 23)
+        Me.btnColor.TabIndex = 37
+        Me.btnColor.UseVisualStyleBackColor = False
+        '
+        'Button4
+        '
+        Me.Button4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button4.ForeColor = System.Drawing.Color.White
+        Me.Button4.Image = Global.AVISO.My.Resources.Resources.search
+        Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button4.Location = New System.Drawing.Point(916, 5)
+        Me.Button4.Name = "Button4"
+        Me.Button4.Size = New System.Drawing.Size(92, 44)
+        Me.Button4.TabIndex = 17
+        Me.Button4.TabStop = False
+        Me.Button4.Text = "Suche"
+        Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button4.UseVisualStyleBackColor = True
+        '
+        '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(1005, 21)
+        Me.lblDauer.Name = "lblDauer"
+        Me.lblDauer.Size = New System.Drawing.Size(105, 17)
+        Me.lblDauer.TabIndex = 27
+        Me.lblDauer.Text = "1111123 ms"
+        Me.lblDauer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'lblMySND_Anzeige
+        '
+        Me.lblMySND_Anzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom 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(710, 89)
+        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:"
+        '
+        'txtKdAuftragsnr
+        '
+        Me.txtKdAuftragsnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtKdAuftragsnr.Location = New System.Drawing.Point(495, 5)
+        Me.txtKdAuftragsnr.MaxLength = 100
+        Me.txtKdAuftragsnr.Name = "txtKdAuftragsnr"
+        Me.txtKdAuftragsnr.Size = New System.Drawing.Size(121, 23)
+        Me.txtKdAuftragsnr.TabIndex = 9
+        '
+        'lblErwKdAtrNr
+        '
+        Me.lblErwKdAtrNr.AutoSize = True
+        Me.lblErwKdAtrNr.ForeColor = System.Drawing.Color.White
+        Me.lblErwKdAtrNr.Location = New System.Drawing.Point(414, 9)
+        Me.lblErwKdAtrNr.Name = "lblErwKdAtrNr"
+        Me.lblErwKdAtrNr.Size = New System.Drawing.Size(75, 15)
+        Me.lblErwKdAtrNr.TabIndex = 0
+        Me.lblErwKdAtrNr.Text = "Kd-Auftr.Nr.:"
+        '
+        'cboMyAvisoAnzeige
+        '
+        Me.cboMyAvisoAnzeige._allowedValuesFreiText = Nothing
+        Me.cboMyAvisoAnzeige._allowFreiText = False
+        Me.cboMyAvisoAnzeige._value = ""
+        Me.cboMyAvisoAnzeige.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom 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.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.cboMyAvisoAnzeige.FormattingEnabled = True
+        Me.cboMyAvisoAnzeige.Location = New System.Drawing.Point(768, 87)
+        Me.cboMyAvisoAnzeige.Name = "cboMyAvisoAnzeige"
+        Me.cboMyAvisoAnzeige.Size = New System.Drawing.Size(118, 21)
+        Me.cboMyAvisoAnzeige.TabIndex = 21
+        '
         'btnNeu
         '
         Me.btnNeu.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -296,7 +391,144 @@ Partial Class usrCntlHauptfenster_Suche_SND
         Me.btnNeu.Text = "Sendung"
         Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnNeu.UseVisualStyleBackColor = True
-        Me.btnNeu.Visible = False
+        '
+        '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.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.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, 24)
+        Me.cboMy_Grenzstelle.TabIndex = 26
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 300
+        Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(212, 4)
+        Me.cboFiliale.MaxLength = 4
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(70, 24)
+        Me.cboFiliale.TabIndex = 3
+        '
+        'txtEmpfänger
+        '
+        Me.txtEmpfänger.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtEmpfänger.Location = New System.Drawing.Point(417, 50)
+        Me.txtEmpfänger.MaxLength = 100
+        Me.txtEmpfänger.Name = "txtEmpfänger"
+        Me.txtEmpfänger.Size = New System.Drawing.Size(199, 23)
+        Me.txtEmpfänger.TabIndex = 3
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(281, 5)
+        Me.txtAbfertigungsnummer.MaxLength = 8
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(130, 23)
+        Me.txtAbfertigungsnummer.TabIndex = 5
+        '
+        'lblErwFilialePos
+        '
+        Me.lblErwFilialePos.AutoSize = True
+        Me.lblErwFilialePos.ForeColor = System.Drawing.Color.White
+        Me.lblErwFilialePos.Location = New System.Drawing.Point(142, 9)
+        Me.lblErwFilialePos.Name = "lblErwFilialePos"
+        Me.lblErwFilialePos.Size = New System.Drawing.Size(64, 15)
+        Me.lblErwFilialePos.TabIndex = 2
+        Me.lblErwFilialePos.Text = "Filiale/Pos:"
+        '
+        'lblErwEmpfänger
+        '
+        Me.lblErwEmpfänger.AutoSize = True
+        Me.lblErwEmpfänger.ForeColor = System.Drawing.Color.White
+        Me.lblErwEmpfänger.Location = New System.Drawing.Point(414, 34)
+        Me.lblErwEmpfänger.Name = "lblErwEmpfänger"
+        Me.lblErwEmpfänger.Size = New System.Drawing.Size(68, 15)
+        Me.lblErwEmpfänger.TabIndex = 6
+        Me.lblErwEmpfänger.Text = "Empfänger:"
+        '
+        '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
+        '
+        '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.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow
+        Me.cboMy_QS.ForeColor = System.Drawing.Color.White
+        Me.cboMy_QS.Location = New System.Drawing.Point(1203, 92)
+        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
+        '
+        'txtAuftraggeber
+        '
+        Me.txtAuftraggeber.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtAuftraggeber.Location = New System.Drawing.Point(7, 50)
+        Me.txtAuftraggeber.MaxLength = 100
+        Me.txtAuftraggeber.Name = "txtAuftraggeber"
+        Me.txtAuftraggeber.Size = New System.Drawing.Size(199, 23)
+        Me.txtAuftraggeber.TabIndex = 1
+        '
+        '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.FlatAppearance.CheckedBackColor = System.Drawing.Color.Yellow
+        Me.cboMy_VB.ForeColor = System.Drawing.Color.White
+        Me.cboMy_VB.Location = New System.Drawing.Point(1222, 92)
+        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, 9)
+        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:"
+        '
+        'lblErwAuftraggeber
+        '
+        Me.lblErwAuftraggeber.AutoSize = True
+        Me.lblErwAuftraggeber.ForeColor = System.Drawing.Color.White
+        Me.lblErwAuftraggeber.Location = New System.Drawing.Point(4, 32)
+        Me.lblErwAuftraggeber.Name = "lblErwAuftraggeber"
+        Me.lblErwAuftraggeber.Size = New System.Drawing.Size(80, 15)
+        Me.lblErwAuftraggeber.TabIndex = 7
+        Me.lblErwAuftraggeber.Text = "Auftraggeber:"
         '
         'gridAviso
         '
@@ -308,6 +540,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
         DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
         Me.gridAviso.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.gridAviso.BackgroundColor = System.Drawing.Color.DarkGray
+        Me.gridAviso.CausesValidation = False
         Me.gridAviso.ClipboardCopyMode = System.Windows.Forms.DataGridViewClipboardCopyMode.Disable
         DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.LightBlue
@@ -328,7 +561,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.Location = New System.Drawing.Point(0, 115)
         Me.gridAviso.MultiSelect = False
         Me.gridAviso.Name = "gridAviso"
         Me.gridAviso.ReadOnly = True
@@ -348,7 +581,7 @@ Partial Class usrCntlHauptfenster_Suche_SND
         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.Size = New System.Drawing.Size(1243, 517)
         Me.gridAviso.TabIndex = 4
         Me.gridAviso.TabStop = False
         '
@@ -390,58 +623,14 @@ Partial Class usrCntlHauptfenster_Suche_SND
         Me.ToolStripMenuItem21.Size = New System.Drawing.Size(121, 22)
         Me.ToolStripMenuItem21.Text = "GELB"
         '
-        'lblZeit_aktuell
+        'tbNichtEingetroffen
         '
-        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:"
+        Me.tbNichtEingetroffen.Location = New System.Drawing.Point(4, 34)
+        Me.tbNichtEingetroffen.Name = "tbNichtEingetroffen"
+        Me.tbNichtEingetroffen.Size = New System.Drawing.Size(478, 0)
+        Me.tbNichtEingetroffen.TabIndex = 3
+        Me.tbNichtEingetroffen.Text = "Nicht Eingetroffen"
+        Me.tbNichtEingetroffen.UseVisualStyleBackColor = True
         '
         'usrCntlHauptfenster_Suche_SND
         '
@@ -461,7 +650,6 @@ Partial Class usrCntlHauptfenster_Suche_SND
     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
@@ -483,9 +671,26 @@ Partial Class usrCntlHauptfenster_Suche_SND
     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
+    Friend WithEvents lblAbsender As Label
+    Friend WithEvents txtAbsender As TextBox
+    Friend WithEvents txtKdAuftragsnr As TextBox
+    Friend WithEvents lblErwKdAtrNr As Label
+    Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtEmpfänger As TextBox
+    Friend WithEvents txtAbfertigungsnummer As TextBox
+    Friend WithEvents lblErwFilialePos As Label
+    Friend WithEvents lblErwEmpfänger As Label
+    Friend WithEvents txtAuftraggeber As TextBox
+    Friend WithEvents lblErwAuftraggeber As Label
+    Friend WithEvents lblErwLKWID As Label
+    Friend WithEvents txtlkwId As TextBox
+    Friend WithEvents Button4 As Button
+    Friend WithEvents txtAvisierer As TextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents cbxLoseSnd As CheckBox
+    Friend WithEvents tbNichtEingetroffen As TabPage
 End Class

Aviso/usrCntlHauptfenster_Suche_SND.vb

@@ -16,6 +16,7 @@ Public Class usrCntlHauptfenster_Suche_SND
     Private FUNC As New AvisoStatusFunctions
     Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
 
+
     Dim sd = 0
     Dim closeOK = False
     Dim Fullscreen = False
@@ -45,6 +46,12 @@ Public Class usrCntlHauptfenster_Suche_SND
         'pnlSearch.Height = 145
         PARENT_FRMHAUPTFENSTER = PARENT_FRMHAUPTFENSTER
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
+            btnColor.Visible = True 'Not cbx_My_LKW.Checked
+        Else
+            btnColor.Visible = False
+        End If
+
 
         '  txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
 
@@ -131,9 +138,9 @@ Public Class usrCntlHauptfenster_Suche_SND
         SucheStandort = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG.Trim
 
 
-        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
-            cbx_My_Brexit.Checked = True
-        End If
+        'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+        '    cbx_My_Brexit.Checked = True
+        'End If
 
 
 
@@ -141,6 +148,21 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         TimerAkte.Enabled = True
 
+        '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
+
         ' pnlSearch.Visible = False
         initPnlSearch()
         Grid_aktiv = True
@@ -270,28 +292,36 @@ Public Class usrCntlHauptfenster_Suche_SND
 
 
 
-                .Columns("tblSnd_Status").Visible = False
+                    .Columns("tblSnd_Status").Visible = False
 
-                .Columns("tblSnd_Abfertigungsart_ID").Visible = False
-                .Columns("tblSnd_Zollsystem_Land").Visible = False
-                .Columns("tblSnd_Vorgeschrieben").Visible = False
-                .Columns("tblSnd_Vorbereitet").Visible = False
-                .Columns("tblSnd_SendungID").Visible = False
-                .Columns("tblSnd_Fremdspedition").Visible = False
-                .Columns("tblSnd_FremdspeditionText").Visible = False
+                    .Columns("tblSnd_Abfertigungsart_ID").Visible = False
+                    .Columns("tblSnd_Zollsystem_Land").Visible = False
+                    .Columns("tblSnd_Vorgeschrieben").Visible = False
+                    .Columns("tblSnd_Vorbereitet").Visible = False
+                    .Columns("tblSnd_SendungID").Visible = False
+                    .Columns("tblSnd_Fremdspedition").Visible = False
+                    .Columns("tblSnd_FremdspeditionText").Visible = False
 
-                .Columns("tblSnd_Empfaenger").MinimumWidth = 80
-                .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
-                .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                    .Columns("tblSnd_Absender").MinimumWidth = 80
+                    .Columns("tblSnd_Absender").HeaderText = "Absender"
+                    .Columns("tblSnd_Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                .Columns("VoraussichtlichesEintreffen").Width = 55
-                .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
-                .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
+                    .Columns("tblSnd_Empfaenger").MinimumWidth = 80
+                    .Columns("tblSnd_Empfaenger").HeaderText = "Empfaenger"
+                    .Columns("tblSnd_Empfaenger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-                '    .Columns("Vermerke_Anzahl").Width = 60
-                '   .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
-                '   .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-                .Columns("AbfertigungsNr").Width = 110
+                    .Columns("tblSnd_Avisierer").MinimumWidth = 80
+                    .Columns("tblSnd_Avisierer").HeaderText = "Avisierer"
+                    .Columns("tblSnd_Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+                    .Columns("VoraussichtlichesEintreffen").Width = 55
+                    .Columns("VoraussichtlichesEintreffen").HeaderText = "Eintreffen"
+                    .Columns("VoraussichtlichesEintreffen").DefaultCellStyle.Format = "dd.MM."
+
+                    '    .Columns("Vermerke_Anzahl").Width = 60
+                    '   .Columns("Vermerke_Anzahl").HeaderText = "Vermerke"
+                    '   .Columns("Vermerke_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                    .Columns("AbfertigungsNr").Width = 110
                 .Columns("AbfertigungsNr").HeaderText = "Pos-Nr."
                 .Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
                 .Columns("AbfertigungsNr").Visible = False
@@ -533,6 +563,9 @@ Public Class usrCntlHauptfenster_Suche_SND
         If AVISO_TYP = "SND" Then
 
 
+            Dim AMBAR_AnzeigenSQL As String = " (tblSendungen.FilialenNr IN('5701') AND tblSnd_Abfertigungsart_ID IN(1,38,39,46,66)) "
+
+
             '----------------------------------------------------------------------------------------------------------------------------------
             '--- Sendung ---
             '----------------------------------------------------------------------------------------------------------------------------------
@@ -548,7 +581,7 @@ Public Class usrCntlHauptfenster_Suche_SND
                 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)) )  "
+                                                    OR Grenzstelle IN('SBG') OR (" & AMBAR_AnzeigenSQL & ") )  "
                     Else
                         inBearbeitungSQL = " ((Aviso.[TeamId]= " & cboMyAvisoAnzeige._value & "  AND tblSendungen.[tblSnd_TeamId] is null)  OR tblSendungen.[tblSnd_TeamId]= " & cboMyAvisoAnzeige._value & " OR tblSendungen.LetzterMitarbeiterId=@maId) "
 
@@ -557,13 +590,12 @@ Public Class usrCntlHauptfenster_Suche_SND
             End If
 
 
-
             Dim hSQLFirma = ""
             hSQL = " SELECT " & top & "  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 ,tblSnd_Zollsystem_Land " &
+                                     " ,tblSnd_Absender ,tblSnd_Empfaenger,tblSnd_Avisierer,AbfertigungsNr,tblSnd_Abfertigungsart_ID,tblSnd_Vorgeschrieben,tblSnd_Vorbereitet,tblSnd_Status,tblSnd_SendungID,tblSnd_Fremdspedition,tblSnd_FremdspeditionText ,tblSnd_Zollsystem_Land " &
                                      " 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 & ") "
+                                            hSQLFirma & " AND  ( (" & inBearbeitungSQL & ") OR (" & AMBAR_AnzeigenSQL & ")) "
 
             Select Case cboMy_VB.CheckState
                 Case CheckState.Checked : hSQL &= " AND tblSnd_Vorgeschrieben is not null	 "
@@ -579,13 +611,34 @@ Public Class usrCntlHauptfenster_Suche_SND
                 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') "
+            If txtEmpfänger.Text <> "" Then hSQL &= "  AND tblSnd_Empfaenger LIKE '" & txtEmpfänger.Text.Replace("*", "%") & "%' "
+            If txtAbsender.Text <> "" Then hSQL &= "  AND tblSnd_Absender LIKE '" & txtAbsender.Text.Replace("*", "%") & "%' "
+            If txtAuftraggeber.Text <> "" Then hSQL &= "  AND tblSnd_Auftraggeber LIKE '" & txtAuftraggeber.Text.Replace("*", "%") & "%' "
+            If txtKdAuftragsnr.Text <> "" Then hSQL &= "  AND (tblSnd_KdAuftragsNr LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrAvisierer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrEmpfaenger LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%' OR tblSnd_KdAuftragsNrFrachtfuehrer LIKE '" & txtKdAuftragsnr.Text.Replace("*", "%") & "%') "
+            If cboFiliale._value <> "" Then hSQL &= "  AND FilialenNr ='" & cboFiliale._value & "'"
+            If txtAbfertigungsnummer.Text <> "" Then hSQL &= "  AND AbfertigungsNr LIKE '" & txtAbfertigungsnummer.Text.Replace("*", "%") & "' "
+            If txtlkwId.Text <> "" Then hSQL &= "  AND tblSnd_AvisoID LIKE '" & txtlkwId.Text & "' "
+
+            Select Case cbxLoseSnd.CheckState
+                Case CheckState.Unchecked : hSQL &= "  AND tblSnd_AvisoID > 0 "
+                Case CheckState.Checked : hSQL &= "  AND tblSnd_AvisoID <=0 "
+                Case CheckState.Indeterminate
+            End Select
+
+            Select Case tbcntrAvisoSND.SelectedTab.Name
+                Case "tbSndOffen" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Erfasst & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_InBearbeitung & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Eingereicht & "','" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ankunft & "') "
+                Case "tbSndFreigegeben" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_Ueberlassen & "') "
+                Case "tbSndNichtEingetroffen" : hSQL &= "  AND tblSnd_Status  IN( '" & VERAG_PROG_ALLGEMEIN.cGlobal.SND_Status_NichtEingetroffen & "') "
+                Case Else 'tbSndAlle
+            End Select
+
+
+
+            ' 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
@@ -621,7 +674,7 @@ Public Class usrCntlHauptfenster_Suche_SND
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("maId", VERAG_PROG_ALLGEMEIN.cAllgemein.USRID))
 
-        'MsgBox(hSQL)
+        ' MsgBox(hSQL)
         'If hSort = "" Then
         'hSQL += " ORDER BY Ankunft DESC, AvisoEingang DESC, Datum DESC"
         ' Else
@@ -791,18 +844,18 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         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 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
+        Dim f = FUNC.openSnd(SendungsId, AvisoID)
+        If f IsNot Nothing Then
+            AddHandler f.FormClosed, Sub()
+                                         PARENT_FRMHAUPTFENSTER.btnRefresh.PerformClick()
+                                     End Sub
+        End If
 
 
-            If gridAviso.SelectedRows.Count = 0 Then Exit Sub
+        If gridAviso.SelectedRows.Count = 0 Then Exit Sub
 
 
     End Sub
@@ -813,70 +866,16 @@ Public Class usrCntlHauptfenster_Suche_SND
 
         ' lblAkte.Visible = False
     End Sub
-    Private Sub cboTeams_SelectedIndexChanged(sender As Object, e As EventArgs)
-        If Grid_aktiv Then
-            ' SucheStandort = cboGrenzstelle._value.Replace("ALLE", "")
-            Aviso_anzeigen("")
-        End If
+
+
+
+    Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, cboMy_Grenzstelle.SelectedIndexChanged, cboMy_QS.CheckStateChanged, cboMy_VB.CheckStateChanged
+        Aviso_anzeigen("")
     End Sub
 
 
-
-    Private Sub cboMyAvisoAnzeige_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboMyAvisoAnzeige.SelectedIndexChanged, 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 = True 'Not cbx_My_LKW.Checked
-        'cboMy_VB.Visible = True 'Not cbx_My_LKW.Checked
-        'cboMyAvisoAnzeige.Visible = True 'Not cbx_My_LKW.Checked
-        'lblMySND_Anzeige.Visible = True 'Not cbx_My_LKW.Checked
-        'cbx_My_Brexit.Visible = True
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_MeineSND_Farbe") Then
-            btnColor.Visible = True '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)
-        If Grid_aktiv Then
-            Aviso_anzeigen("")
-        End If
-    End Sub
-
-    Private Sub txtBestimmungszollstelle_VALUE_CHANGED()
-        If Grid_aktiv Then
-            Aviso_anzeigen("")
-        End If
-    End Sub
-
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles btnColor.Click
         ctxtFarben.Show(Cursor.Position)
-
     End Sub
 
     Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
@@ -1347,7 +1346,7 @@ Public Class usrCntlHauptfenster_Suche_SND
 
     End Sub
 
-    Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs) Handles btnDetailsuche.Click
+    Private Sub btnDetailsuche_Click(sender As Object, e As EventArgs)
         'pnlSearch.Visible = Not pnlSearch.Visible
         initPnlSearch()
     End Sub
@@ -1371,4 +1370,24 @@ Public Class usrCntlHauptfenster_Suche_SND
         Aviso_anzeigen("")
         Grid_aktiv = True
     End Sub
+
+
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        Aviso_anzeigen("")
+    End Sub
+
+
+    Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles cbxLoseSnd.CheckStateChanged, txtAbfertigungsnummer.Leave, txtKdAuftragsnr.Leave, txtlkwId.Leave,
+            txtAuftraggeber.Leave, txtAbsender.Leave, txtEmpfänger.Leave, txtAvisierer.Leave, cboFiliale.SelectedIndexChanged
+        Aviso_anzeigen("")
+    End Sub
+
+    Private Sub tbcntrAvisoSND_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbcntrAvisoSND.SelectedIndexChanged
+        Aviso_anzeigen("")
+    End Sub
+
+
+    Private Sub btnNeu_Click_1(sender As Object, e As EventArgs) Handles btnNeu.Click
+
+    End Sub
 End Class

Aviso/usrcntlAktDetails.vb

@@ -281,7 +281,7 @@ Public Class usrcntlAktDetails
         cboFormulareRgAn.changeItem("AVISIERER")
 
         'AVISO_TRIPS
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_TRIPS") Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("AVISO_TRIPS") Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN" Then
             Panel5.Visible = True
         End If
 
@@ -1664,25 +1664,7 @@ Public Class usrcntlAktDetails
         rtb.Text = t
         f.ShowDialog()
     End Sub
-    Private Sub SpeditionsbuchEintrag()
 
-        If dgvSendungen.SelectedRows.Count = 0 Then Exit Sub
-        Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
-
-        Dim posnr As posNr = FUNC.SpeditionsbuchEintrag(AvisoID, sndIdTmp)
-        If posnr IsNot Nothing Then
-            Dim sndEntry As New VERAG_PROG_ALLGEMEIN.cSendungen(sndIdTmp)
-            sndEntry.FilialenNr = posnr.Filiale
-            sndEntry.AbfertigungsNr = posnr.Abfertigungsnummer
-            sndEntry.UnterNr = posnr.UnterNr
-            'sndEntry.tblSnd_SpeditionsbuchEingetragen = (posnr.Filiale > 0 And posnr.Abfertigungsnummer > 0 And posnr.UnterNr >= 0) ' Wenn Sped Eintrag gelöscht-> - 1, dann ist der Eintrag nicht mehr vorhanden
-            Dim vorhanden = ADMIN.getValueTxtBySql("SELECT COUNT(*) FROM [Speditionsbuch] WHERE [FilialenNr]='" & sndEntry.FilialenNr & "' AND AbfertigungsNr='" & sndEntry.AbfertigungsNr & "' AND UnterNr='" & sndEntry.UnterNr & "'", "FMZOLL")
-            sndEntry.tblSnd_SpeditionsbuchEingetragen = (vorhanden > 0)
-            sndEntry.SAVE()
-            reload(AvisoID)
-        End If
-        'Vermerke_anzeigen()
-    End Sub
 
     ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
     Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick
@@ -1952,7 +1934,17 @@ Public Class usrcntlAktDetails
                 sendAktiv = False
                 Me.Cursor = Cursors.WaitCursor
                 If Not dgvSendungen.Rows(e.RowIndex).Cells("tblSnd_Fremdspedition").Value Then
-                    SpeditionsbuchEintrag()
+
+                    If dgvSendungen.SelectedRows.Count > 0 Then
+                        Dim sndIdTmp = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
+                        FUNC.setSendungSpeditionsbuchEintrag(sndIdTmp, AvisoID)
+                        reload(AvisoID)
+                    End If
+
+
+
+
+
                 End If
                 Me.Cursor = Cursors.Default