Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

2024-09-06 15:40:58 +02:00
parent ad7fa10999
commit a9228921e0
32 changed files with 6225 additions and 1100 deletions
--- a/SDL/frmMain.Designer.vb
+++ b/SDL/frmMain.Designer.vb
@@ -67,13 +67,11 @@ 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()
@@ -102,7 +100,6 @@ 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()
@@ -113,6 +110,10 @@ 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()
@@ -554,24 +555,6 @@ 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
@@ -639,20 +622,6 @@ 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
@@ -750,24 +719,24 @@ Partial Class frmMain
        'ToolStripSeparator4
        '
        Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
-        Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
+        Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
        '
        'NeuesPasswortToolStripMenuItem
        '
        Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem"
-        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
        Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort"
        '
        'UpdateToolStripMenuItem
        '
        Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
-        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
        Me.UpdateToolStripMenuItem.Text = "Update"
        '
        'TESTToolStripMenuItem
        '
        Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
-        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
        Me.TESTToolStripMenuItem.Text = "TEST"
        Me.TESTToolStripMenuItem.Visible = False
        '
@@ -795,7 +764,8 @@ Partial Class frmMain
        '
        'mnuFormular
        '
-        Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3})
+        Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.MailvorlagenToolStripMenuItem})
+        Me.mnuFormular.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.mnuFormular.Name = "mnuFormular"
        Me.mnuFormular.Size = New System.Drawing.Size(73, 20)
        Me.mnuFormular.Text = "Formulare"
@@ -819,7 +789,7 @@ Partial Class frmMain
        '
        Me.SMSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.SMSVerlaufToolStripMenuItem})
        Me.SMSToolStripMenuItem.Name = "SMSToolStripMenuItem"
-        Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(97, 22)
        Me.SMSToolStripMenuItem.Text = "SMS"
        '
        'NeueSMSSendenToolStripMenuItem
@@ -905,35 +875,6 @@ 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)
@@ -1037,6 +978,75 @@ 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!)
@@ -1161,4 +1171,5 @@ Partial Class frmMain
    Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem
    Friend WithEvents mnuFormular As ToolStripMenuItem
    Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
+    Friend WithEvents MailvorlagenToolStripMenuItem As ToolStripMenuItem
 End Class