fix

Aviso/Benachrichtigung/usrCntlBenachrichtigungen.vb

@@ -285,6 +285,10 @@ Public Class usrCntlBenachrichtigungen
         End If
 
 
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
+            cbxTeams.Checked = True
+        End If
+
         'NEIN; weils zB Waidhaus dann alles sieht und übernimmt
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then
         '    If CInt(If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_teamId, "-1")) <= 0 Then cbxTeams.Checked = True

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmHauptfensterNew.Designer.vb

@@ -280,6 +280,12 @@ Partial Class frmHauptfensterNew
         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()
@@ -311,23 +317,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.usrCntlBenachrichtigungenNEW()
         Me.Panel5 = New System.Windows.Forms.Panel()
         Me.cbxChartNurGelesen = New System.Windows.Forms.CheckBox()
         Me.cbxInfoChat = New System.Windows.Forms.CheckBox()
         Me.TabControl1 = New System.Windows.Forms.TabControl()
         Me.TabPage1 = New System.Windows.Forms.TabPage()
-        Me.Panel7 = New System.Windows.Forms.Panel()
-        Me.UsrCntlTestsystem1 = New VERAG_PROG_ALLGEMEIN.usrCntlTestsystem()
-        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.UsrCntlBenachrichtigungen2 = New AVISO.usrCntlBenachrichtigungenNEW()
         Me.UsrCntlMessenger_ListNewChats1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ListNewChats()
         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.Button9 = New System.Windows.Forms.Button()
         Me.conMenuAviso.SuspendLayout()
         Me.MenuStrip1.SuspendLayout()
         Me.pnlDetailsRechts.SuspendLayout()
@@ -353,6 +354,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()
@@ -363,7 +365,6 @@ Partial Class frmHauptfensterNew
         Me.Panel5.SuspendLayout()
         Me.TabControl1.SuspendLayout()
         Me.TabPage1.SuspendLayout()
-        Me.MyFlowLayoutPanel1.SuspendLayout()
         Me.SuspendLayout()
         '
         'mnuInfo
@@ -2239,6 +2240,7 @@ Partial Class frmHauptfensterNew
         Me.FlowLayoutPanel1.Controls.Add(Me.btnVIEW_CustControling)
         Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_Selected)
         Me.FlowLayoutPanel1.Controls.Add(Me.btnDEFAULT_UnSelected)
+        Me.FlowLayoutPanel1.Controls.Add(Me.Button9)
         Me.FlowLayoutPanel1.Dock = System.Windows.Forms.DockStyle.Top
         Me.FlowLayoutPanel1.Location = New System.Drawing.Point(0, 0)
         Me.FlowLayoutPanel1.Margin = New System.Windows.Forms.Padding(3, 3, 3, 0)
@@ -2404,6 +2406,114 @@ Partial Class frmHauptfensterNew
         Me.FlowLayoutPanel2.Size = New System.Drawing.Size(593, 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(593, 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
@@ -2680,6 +2790,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
@@ -2745,142 +2863,6 @@ Partial Class frmHauptfensterNew
         Me.TabPage1.Text = "Chat"
         Me.TabPage1.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
-        '
-        '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.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(593, 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
-        '
-        '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
-        '
         'UsrCntlMessenger_ListNewChats1
         '
         Me.UsrCntlMessenger_ListNewChats1.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2908,12 +2890,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
         '
+        'Button9
+        '
+        Me.Button9.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(80, Byte), Integer), CType(CType(150, Byte), Integer))
+        Me.Button9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
+        Me.Button9.FlatAppearance.BorderSize = 0
+        Me.Button9.Font = New System.Drawing.Font("Segoe UI", 10.0!)
+        Me.Button9.ForeColor = System.Drawing.Color.White
+        Me.Button9.Location = New System.Drawing.Point(338, 79)
+        Me.Button9.Margin = New System.Windows.Forms.Padding(3, 16, 3, 0)
+        Me.Button9.Name = "Button9"
+        Me.Button9.Size = New System.Drawing.Size(158, 47)
+        Me.Button9.TabIndex = 11
+        Me.Button9.TabStop = False
+        Me.Button9.Text = "DISPO"
+        Me.ToolTip1.SetToolTip(Me.Button9, "Es werden alle LKWs mit Status Ankunft des aktiven Standorts angezeigt, absteigen" &
+        "d sortiert nach Dauer")
+        Me.Button9.UseVisualStyleBackColor = False
+        '
         'frmHauptfensterNew
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2961,6 +2981,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)
@@ -2973,7 +2994,6 @@ Partial Class frmHauptfensterNew
         Me.Panel5.PerformLayout()
         Me.TabControl1.ResumeLayout(False)
         Me.TabPage1.ResumeLayout(False)
-        Me.MyFlowLayoutPanel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -3282,4 +3302,5 @@ Partial Class frmHauptfensterNew
     Friend WithEvents ToolStripMenuItem25 As ToolStripMenuItem
     Friend WithEvents Button7 As Button
     Friend WithEvents cbxChartNurGelesen As CheckBox
+    Friend WithEvents Button9 As Button
 End Class

Aviso/frmHauptfensterNew.resx

@@ -192,9 +192,6 @@
         AAAAAElFTkSuQmCC
 </value>
   </data>
-  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>560, 17</value>
-  </metadata>
   <metadata name="BackgroundWorker1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>659, 17</value>
   </metadata>

Aviso/frmSendungsdetailsNEU.vb

@@ -400,16 +400,14 @@ Public Class frmSendungsdetailsNEU
               String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)))))
 
                 If invalidSendung IsNot Nothing Then
-                    If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf &
-                  "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." &
-                  vbCrLf & vbCrLf &
-                  "Möchten Sie trotzdem fortfahren?",
-                  MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then
-                        Return False
-                    End If
+                    Dim err = "Sendung " & invalidSendung.tblSnd_PosUnterNr & " Vorp-Nr/PosNr fehlt/ist falsch."
+                    rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
                 End If
 
-            End If
+                End If
+
+
+
 
 
 
@@ -4427,7 +4425,10 @@ Public Class frmSendungsdetailsNEU
                 Dim f As SDL.frmFormulare = Nothing
                 SDL.FormularManagerNEU.OPEN_FORM_Byref(SDL.FormularManagerArten.Importaviso, kdnrFrm, {kdnrFrm, FirmaFrm, SENDUNG_LIST(CURRENT_INDEX), AVISO, ROLLE},, f)
                 AddHandler f.FormClosing, Sub()
-                                              If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
+                                              If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Firma <> "24" Then
+                                                  If f.printed Then AvisoStatusFunctions.insertSendungsVermerk(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId, "Auftrag fehlt - angefordert", 1)
+                                              End If
+
                                           End Sub
 
         End Select
@@ -8259,7 +8260,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbklaerungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8268,7 +8269,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorbereitetQS(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8277,7 +8278,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungVorgeschrieben(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8286,7 +8287,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungAbfertigungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default
@@ -8296,7 +8297,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
         If Not cbxFremdspedition.Checked Then
-            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
+            If AVISOFUNC.setSendungSpeditionsbuchEintrag(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
                 initDataBinding()
             End If
         End If
@@ -8306,7 +8307,7 @@ Public Class frmSendungsdetailsNEU
     Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
         Me.Cursor = Cursors.WaitCursor
         SAVE_ME()
-        If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
+        If AVISOFUNC.setSendungFakturiert(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
             initDataBinding()
         End If
         Me.Cursor = Cursors.Default

Aviso/usrCntlHauptfenster_Suche_SND.vb

@@ -714,7 +714,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