BH, Kundenkontakte, MD;

2024-09-11 11:58:25 +02:00
parent 3ad1e4dbfc
commit d3174821d3
28 changed files with 1149 additions and 784 deletions
--- a/SDL/frmMain.Designer.vb
+++ b/SDL/frmMain.Designer.vb
@@ -67,11 +67,13 @@ Partial Class frmMain
        Me.VERAGCardParkplatzToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnlHeader = New System.Windows.Forms.Panel()
+        Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.pnlInfo = New System.Windows.Forms.Panel()
        Me.txtInfotext = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Button9 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
+        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.lblTestsystem = New System.Windows.Forms.Label()
@@ -84,11 +86,12 @@ Partial Class frmMain
        Me.NeuesPasswortToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.TESTToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnuFormular = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
+        Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuAdministrator = New System.Windows.Forms.ToolStripMenuItem()
        Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
        Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.mnuFormular = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.mnuFunktionen = New System.Windows.Forms.ToolStripMenuItem()
        Me.SMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.NeueSMSSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -100,6 +103,7 @@ Partial Class frmMain
        Me.Panel2 = New System.Windows.Forms.Panel()
        Me.pnlJumpKunde = New System.Windows.Forms.Panel()
        Me.Button3 = New System.Windows.Forms.Button()
+        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.btnClose = New System.Windows.Forms.Button()
@@ -110,10 +114,6 @@ Partial Class frmMain
        Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
-        Me.btnMitarbeiterKonto = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.FlatButton1 = New VERAG_PROG_ALLGEMEIN.FlatButton()
-        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
-        Me.MailvorlagenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.pnlLeft.SuspendLayout()
        Me.MenuStripSDL.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -555,6 +555,24 @@ Partial Class frmMain
        Me.pnlHeader.Size = New System.Drawing.Size(1284, 73)
        Me.pnlHeader.TabIndex = 28
        '
+        'btnMitarbeiterKonto
+        '
+        Me.btnMitarbeiterKonto.allowBorder = False
+        Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
+        Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
+        Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
+        Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image)
+        Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0)
+        Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
+        Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
+        Me.btnMitarbeiterKonto.TabIndex = 87
+        Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
+        Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
+        Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
+        '
        'pnlInfo
        '
        Me.pnlInfo.Anchor = System.Windows.Forms.AnchorStyles.Bottom
@@ -622,6 +640,20 @@ Partial Class frmMain
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button2.UseVisualStyleBackColor = False
        '
+        'FlatButton1
+        '
+        Me.FlatButton1.allowBorder = False
+        Me.FlatButton1.FlatAppearance.BorderSize = 0
+        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
+        Me.FlatButton1.Location = New System.Drawing.Point(130, 4)
+        Me.FlatButton1.Name = "FlatButton1"
+        Me.FlatButton1.Size = New System.Drawing.Size(75, 23)
+        Me.FlatButton1.TabIndex = 36
+        Me.FlatButton1.Text = "FlatButton1"
+        Me.FlatButton1.UseVisualStyleBackColor = True
+        Me.FlatButton1.Visible = False
+        '
        'Button7
        '
        Me.Button7.BackColor = System.Drawing.Color.WhiteSmoke
@@ -700,7 +732,7 @@ Partial Class frmMain
        '
        Me.MenuStrip1.BackColor = System.Drawing.Color.White
        Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFormular, Me.mnuFunktionen, Me.mnuFragezeichen})
+        Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuFormular, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFunktionen, Me.mnuFragezeichen})
        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
        Me.MenuStrip1.Name = "MenuStrip1"
        Me.MenuStrip1.Size = New System.Drawing.Size(984, 24)
@@ -719,49 +751,27 @@ Partial Class frmMain
        'ToolStripSeparator4
        '
        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
        '
        'NeuesPasswortToolStripMenuItem
        '
        Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem"
-        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
+        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort"
        '
        'UpdateToolStripMenuItem
        '
        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.UpdateToolStripMenuItem.Text = "Update"
        '
        'TESTToolStripMenuItem
        '
        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
-        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.TESTToolStripMenuItem.Text = "TEST"
        Me.TESTToolStripMenuItem.Visible = False
        '
-        'mnuAdministrator
-        '
-        Me.mnuAdministrator.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator3})
-        Me.mnuAdministrator.ForeColor = System.Drawing.Color.Black
-        Me.mnuAdministrator.Name = "mnuAdministrator"
-        Me.mnuAdministrator.Size = New System.Drawing.Size(92, 20)
-        Me.mnuAdministrator.Text = "Administrator"
-        Me.mnuAdministrator.Visible = False
-        '
-        'ToolStripSeparator3
-        '
-        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
-        '
-        'StatistikToolStripMenuItem
-        '
-        Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black
-        Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem"
-        Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(60, 20)
-        Me.StatistikToolStripMenuItem.Text = "Statistik"
-        Me.StatistikToolStripMenuItem.Visible = False
-        '
        'mnuFormular
        '
        Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.MailvorlagenToolStripMenuItem})
@@ -775,9 +785,39 @@ Partial Class frmMain
        Me.ToolStripMenuItem3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.android_note12
        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(192, 30)
+        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(184, 22)
        Me.ToolStripMenuItem3.Text = "Formular - Manager"
        '
+        'MailvorlagenToolStripMenuItem
+        '
+        Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.MailvorlagenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1
+        Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
+        Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(184, 22)
+        Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
+        '
+        'mnuAdministrator
+        '
+        Me.mnuAdministrator.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripSeparator3})
+        Me.mnuAdministrator.ForeColor = System.Drawing.Color.Black
+        Me.mnuAdministrator.Name = "mnuAdministrator"
+        Me.mnuAdministrator.Size = New System.Drawing.Size(92, 20)
+        Me.mnuAdministrator.Text = "Administrator"
+        Me.mnuAdministrator.Visible = False
+        '
+        'ToolStripSeparator3
+        '
+        Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(57, 6)
+        '
+        'StatistikToolStripMenuItem
+        '
+        Me.StatistikToolStripMenuItem.ForeColor = System.Drawing.Color.Black
+        Me.StatistikToolStripMenuItem.Name = "StatistikToolStripMenuItem"
+        Me.StatistikToolStripMenuItem.Size = New System.Drawing.Size(60, 20)
+        Me.StatistikToolStripMenuItem.Text = "Statistik"
+        Me.StatistikToolStripMenuItem.Visible = False
+        '
        'mnuFunktionen
        '
        Me.mnuFunktionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SMSToolStripMenuItem})
@@ -875,6 +915,35 @@ Partial Class frmMain
        Me.Button3.Text = "< >"
        Me.Button3.UseVisualStyleBackColor = False
        '
+        'KdSearchBox1
+        '
+        Me.KdSearchBox1._AlleFirmenCLUSTER = False
+        Me.KdSearchBox1._AllowSetValue = False
+        Me.KdSearchBox1._autoSizeGross = False
+        Me.KdSearchBox1._display_Name1 = False
+        Me.KdSearchBox1._displayAVISO_Email = False
+        Me.KdSearchBox1._displayFullName = False
+        Me.KdSearchBox1._displayWoelflKd = True
+        Me.KdSearchBox1._hideIfListEmpty = True
+        Me.KdSearchBox1._loadKdData = False
+        Me.KdSearchBox1._searchName1 = True
+        Me.KdSearchBox1._UseFIRMA = ""
+        Me.KdSearchBox1._ValueKdAndName = True
+        Me.KdSearchBox1.dgvpos = "RIGHT"
+        Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.KdSearchBox1.KdName = Nothing
+        Me.KdSearchBox1.KdNr = "-1"
+        Me.KdSearchBox1.kdNrField = Nothing
+        Me.KdSearchBox1.KdNrNullInt = Nothing
+        Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30)
+        Me.KdSearchBox1.Name = "KdSearchBox1"
+        Me.KdSearchBox1.nurAktive = False
+        Me.KdSearchBox1.searchActive = True
+        Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26)
+        Me.KdSearchBox1.TabIndex = 76
+        Me.KdSearchBox1.TIMER_SEARCH = True
+        Me.KdSearchBox1.usrcntl = Nothing
+        '
        'Button4
        '
        Me.Button4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -978,75 +1047,6 @@ Partial Class frmMain
        Me.Timer_REFRESH.Enabled = True
        Me.Timer_REFRESH.Interval = 5000
        '
-        'btnMitarbeiterKonto
-        '
-        Me.btnMitarbeiterKonto.allowBorder = False
-        Me.btnMitarbeiterKonto.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnMitarbeiterKonto.BackColor = System.Drawing.Color.White
-        Me.btnMitarbeiterKonto.FlatAppearance.BorderSize = 0
-        Me.btnMitarbeiterKonto.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnMitarbeiterKonto.ForeColor = System.Drawing.Color.Black
-        Me.btnMitarbeiterKonto.Image = CType(resources.GetObject("btnMitarbeiterKonto.Image"), System.Drawing.Image)
-        Me.btnMitarbeiterKonto.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnMitarbeiterKonto.Location = New System.Drawing.Point(716, 0)
-        Me.btnMitarbeiterKonto.Name = "btnMitarbeiterKonto"
-        Me.btnMitarbeiterKonto.Size = New System.Drawing.Size(137, 61)
-        Me.btnMitarbeiterKonto.TabIndex = 87
-        Me.btnMitarbeiterKonto.Text = "Andreas Luxbauer"
-        Me.btnMitarbeiterKonto.TextAlign = System.Drawing.ContentAlignment.BottomCenter
-        Me.btnMitarbeiterKonto.UseVisualStyleBackColor = False
-        '
-        'FlatButton1
-        '
-        Me.FlatButton1.allowBorder = False
-        Me.FlatButton1.FlatAppearance.BorderSize = 0
-        Me.FlatButton1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.FlatButton1.ForeColor = System.Drawing.Color.Black
-        Me.FlatButton1.Location = New System.Drawing.Point(130, 4)
-        Me.FlatButton1.Name = "FlatButton1"
-        Me.FlatButton1.Size = New System.Drawing.Size(75, 23)
-        Me.FlatButton1.TabIndex = 36
-        Me.FlatButton1.Text = "FlatButton1"
-        Me.FlatButton1.UseVisualStyleBackColor = True
-        Me.FlatButton1.Visible = False
-        '
-        'KdSearchBox1
-        '
-        Me.KdSearchBox1._AlleFirmenCLUSTER = False
-        Me.KdSearchBox1._AllowSetValue = False
-        Me.KdSearchBox1._autoSizeGross = False
-        Me.KdSearchBox1._display_Name1 = False
-        Me.KdSearchBox1._displayAVISO_Email = False
-        Me.KdSearchBox1._displayFullName = False
-        Me.KdSearchBox1._displayWoelflKd = True
-        Me.KdSearchBox1._hideIfListEmpty = True
-        Me.KdSearchBox1._loadKdData = False
-        Me.KdSearchBox1._searchName1 = True
-        Me.KdSearchBox1._UseFIRMA = ""
-        Me.KdSearchBox1._ValueKdAndName = True
-        Me.KdSearchBox1.dgvpos = "RIGHT"
-        Me.KdSearchBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.KdSearchBox1.KdName = Nothing
-        Me.KdSearchBox1.KdNr = "-1"
-        Me.KdSearchBox1.kdNrField = Nothing
-        Me.KdSearchBox1.KdNrNullInt = Nothing
-        Me.KdSearchBox1.Location = New System.Drawing.Point(73, 30)
-        Me.KdSearchBox1.Name = "KdSearchBox1"
-        Me.KdSearchBox1.nurAktive = False
-        Me.KdSearchBox1.searchActive = True
-        Me.KdSearchBox1.Size = New System.Drawing.Size(215, 26)
-        Me.KdSearchBox1.TabIndex = 76
-        Me.KdSearchBox1.TIMER_SEARCH = True
-        Me.KdSearchBox1.usrcntl = Nothing
-        '
-        'MailvorlagenToolStripMenuItem
-        '
-        Me.MailvorlagenToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.MailvorlagenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.stift1
-        Me.MailvorlagenToolStripMenuItem.Name = "MailvorlagenToolStripMenuItem"
-        Me.MailvorlagenToolStripMenuItem.Size = New System.Drawing.Size(192, 30)
-        Me.MailvorlagenToolStripMenuItem.Text = "Mailvorlagen"
-        '
        'frmMain
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)