automail, etc.

2026-08-25 12:45:09 +02:00
parent b4b483d9d2
commit 9588c5f7d1
5 changed files with 149 additions and 51 deletions
--- a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
+++ b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb
@@ -32,6 +32,8 @@ Partial Class frmAbrechnungsMaske
        Me.Label12 = New System.Windows.Forms.Label()
        Me.dgvRechnungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.txtMailanzeigen = New System.Windows.Forms.TextBox()
+        Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
        Me.btn_doMailAutoversand = New System.Windows.Forms.Button()
        Me.Button11 = New System.Windows.Forms.Button()
        Me.cbxOriginalDrucken = New System.Windows.Forms.CheckBox()
@@ -52,7 +54,10 @@ Partial Class frmAbrechnungsMaske
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.txtRechnungsdatumAutomail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dtp_RD_automail = New System.Windows.Forms.DateTimePicker()
        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.lblRechnungsdatumAUTOMAIL = New System.Windows.Forms.Label()
        Me.lblKunde = New System.Windows.Forms.Label()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.cbxGutschriftenAnVerag = New System.Windows.Forms.CheckBox()
@@ -89,8 +94,6 @@ Partial Class frmAbrechnungsMaske
        Me.btnVonJahr = New System.Windows.Forms.Button()
        Me.UsrCntlFaktAbrechnung1 = New SDL.usrCntlFaktAbrechnung()
        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.cbxMailoeffnen = New System.Windows.Forms.CheckBox()
-        Me.txtMailanzeigen = New System.Windows.Forms.TextBox()
        Me.pnl.SuspendLayout()
        CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer.Panel1.SuspendLayout()
@@ -111,7 +114,7 @@ Partial Class frmAbrechnungsMaske
        Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnl.Location = New System.Drawing.Point(0, 0)
        Me.pnl.Name = "pnl"
-        Me.pnl.Size = New System.Drawing.Size(1442, 615)
+        Me.pnl.Size = New System.Drawing.Size(1442, 646)
        Me.pnl.TabIndex = 0
        '
        'SplitContainer
@@ -130,7 +133,7 @@ Partial Class frmAbrechnungsMaske
        'SplitContainer.Panel2
        '
        Me.SplitContainer.Panel2.Controls.Add(Me.UsrCntlFaktAbrechnung1)
-        Me.SplitContainer.Size = New System.Drawing.Size(1442, 615)
+        Me.SplitContainer.Size = New System.Drawing.Size(1442, 646)
        Me.SplitContainer.SplitterDistance = 575
        Me.SplitContainer.TabIndex = 0
        '
@@ -138,10 +141,10 @@ Partial Class frmAbrechnungsMaske
        '
        Me.tbcntr.Controls.Add(Me.TabPage1)
        Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.tbcntr.Location = New System.Drawing.Point(0, 170)
+        Me.tbcntr.Location = New System.Drawing.Point(0, 187)
        Me.tbcntr.Name = "tbcntr"
        Me.tbcntr.SelectedIndex = 0
-        Me.tbcntr.Size = New System.Drawing.Size(575, 445)
+        Me.tbcntr.Size = New System.Drawing.Size(575, 459)
        Me.tbcntr.TabIndex = 3
        '
        'TabPage1
@@ -153,7 +156,7 @@ Partial Class frmAbrechnungsMaske
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(567, 419)
+        Me.TabPage1.Size = New System.Drawing.Size(567, 433)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Rechnungen"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -197,7 +200,7 @@ Partial Class frmAbrechnungsMaske
        Me.dgvRechnungen.RowHeadersVisible = False
        Me.dgvRechnungen.RowTemplate.Height = 28
        Me.dgvRechnungen.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvRechnungen.Size = New System.Drawing.Size(561, 316)
+        Me.dgvRechnungen.Size = New System.Drawing.Size(561, 334)
        Me.dgvRechnungen.TabIndex = 1
        '
        'Panel2
@@ -225,12 +228,34 @@ Partial Class frmAbrechnungsMaske
        Me.Panel2.Controls.Add(Me.Label2)
        Me.Panel2.Controls.Add(Me.Label10)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel2.Location = New System.Drawing.Point(3, 319)
+        Me.Panel2.Location = New System.Drawing.Point(3, 337)
        Me.Panel2.Margin = New System.Windows.Forms.Padding(2)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(561, 97)
+        Me.Panel2.Size = New System.Drawing.Size(561, 93)
        Me.Panel2.TabIndex = 0
        '
+        'txtMailanzeigen
+        '
+        Me.txtMailanzeigen.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtMailanzeigen.Location = New System.Drawing.Point(327, 51)
+        Me.txtMailanzeigen.Multiline = True
+        Me.txtMailanzeigen.Name = "txtMailanzeigen"
+        Me.txtMailanzeigen.Size = New System.Drawing.Size(57, 34)
+        Me.txtMailanzeigen.TabIndex = 33
+        Me.txtMailanzeigen.Text = "Mail anzeigen"
+        '
+        'cbxMailoeffnen
+        '
+        Me.cbxMailoeffnen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.cbxMailoeffnen.AutoSize = True
+        Me.cbxMailoeffnen.Checked = True
+        Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxMailoeffnen.Location = New System.Drawing.Point(306, 54)
+        Me.cbxMailoeffnen.Name = "cbxMailoeffnen"
+        Me.cbxMailoeffnen.Size = New System.Drawing.Size(15, 14)
+        Me.cbxMailoeffnen.TabIndex = 32
+        Me.cbxMailoeffnen.UseVisualStyleBackColor = True
+        '
        'btn_doMailAutoversand
        '
        Me.btn_doMailAutoversand.BackgroundImage = Global.SDL.My.Resources.Resources.auto_mailversand_small
@@ -463,7 +488,10 @@ Partial Class frmAbrechnungsMaske
        'Panel1
        '
        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.txtRechnungsdatumAutomail)
+        Me.Panel1.Controls.Add(Me.dtp_RD_automail)
        Me.Panel1.Controls.Add(Me.KdSearchBox1)
+        Me.Panel1.Controls.Add(Me.lblRechnungsdatumAUTOMAIL)
        Me.Panel1.Controls.Add(Me.lblKunde)
        Me.Panel1.Controls.Add(Me.PictureBox5)
        Me.Panel1.Controls.Add(Me.cbxGutschriftenAnVerag)
@@ -481,9 +509,47 @@ Partial Class frmAbrechnungsMaske
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Margin = New System.Windows.Forms.Padding(2)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(575, 170)
+        Me.Panel1.Size = New System.Drawing.Size(575, 187)
        Me.Panel1.TabIndex = 0
        '
+        'txtRechnungsdatumAutomail
+        '
+        Me.txtRechnungsdatumAutomail._DateTimeOnly = False
+        Me.txtRechnungsdatumAutomail._numbersOnly = False
+        Me.txtRechnungsdatumAutomail._numbersOnlyKommastellen = ""
+        Me.txtRechnungsdatumAutomail._numbersOnlyTrennzeichen = True
+        Me.txtRechnungsdatumAutomail._Prozent = False
+        Me.txtRechnungsdatumAutomail._ShortDateNew = True
+        Me.txtRechnungsdatumAutomail._ShortDateOnly = False
+        Me.txtRechnungsdatumAutomail._TimeOnly = False
+        Me.txtRechnungsdatumAutomail._TimeOnly_Seconds = False
+        Me.txtRechnungsdatumAutomail._value = ""
+        Me.txtRechnungsdatumAutomail._Waehrung = False
+        Me.txtRechnungsdatumAutomail._WaehrungZeichen = True
+        Me.txtRechnungsdatumAutomail.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtRechnungsdatumAutomail.ForeColor = System.Drawing.Color.Black
+        Me.txtRechnungsdatumAutomail.Location = New System.Drawing.Point(442, 42)
+        Me.txtRechnungsdatumAutomail.MaxLength = 10
+        Me.txtRechnungsdatumAutomail.MaxLineLength = -1
+        Me.txtRechnungsdatumAutomail.MaxLines_Warning = ""
+        Me.txtRechnungsdatumAutomail.MaxLines_Warning_Label = Nothing
+        Me.txtRechnungsdatumAutomail.Name = "txtRechnungsdatumAutomail"
+        Me.txtRechnungsdatumAutomail.Size = New System.Drawing.Size(73, 20)
+        Me.txtRechnungsdatumAutomail.TabIndex = 58
+        Me.txtRechnungsdatumAutomail.Visible = False
+        '
+        'dtp_RD_automail
+        '
+        Me.dtp_RD_automail.CustomFormat = "''"
+        Me.dtp_RD_automail.Format = System.Windows.Forms.DateTimePickerFormat.Custom
+        Me.dtp_RD_automail.Location = New System.Drawing.Point(442, 42)
+        Me.dtp_RD_automail.Margin = New System.Windows.Forms.Padding(0)
+        Me.dtp_RD_automail.Name = "dtp_RD_automail"
+        Me.dtp_RD_automail.RightToLeft = System.Windows.Forms.RightToLeft.No
+        Me.dtp_RD_automail.Size = New System.Drawing.Size(106, 20)
+        Me.dtp_RD_automail.TabIndex = 59
+        Me.dtp_RD_automail.Visible = False
+        '
        'KdSearchBox1
        '
        Me.KdSearchBox1._AlleFirmenCLUSTER = False
@@ -512,6 +578,16 @@ Partial Class frmAbrechnungsMaske
        Me.KdSearchBox1.TIMER_SEARCH = True
        Me.KdSearchBox1.usrcntl = Nothing
        '
+        'lblRechnungsdatumAUTOMAIL
+        '
+        Me.lblRechnungsdatumAUTOMAIL.AutoSize = True
+        Me.lblRechnungsdatumAUTOMAIL.Location = New System.Drawing.Point(331, 45)
+        Me.lblRechnungsdatumAUTOMAIL.Name = "lblRechnungsdatumAUTOMAIL"
+        Me.lblRechnungsdatumAUTOMAIL.Size = New System.Drawing.Size(74, 13)
+        Me.lblRechnungsdatumAUTOMAIL.TabIndex = 60
+        Me.lblRechnungsdatumAUTOMAIL.Text = "ReDat.-AUTO"
+        Me.lblRechnungsdatumAUTOMAIL.Visible = False
+        '
        'lblKunde
        '
        Me.lblKunde.AutoSize = True
@@ -534,7 +610,7 @@ Partial Class frmAbrechnungsMaske
        'cbxGutschriftenAnVerag
        '
        Me.cbxGutschriftenAnVerag.AutoSize = True
-        Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(332, 44)
+        Me.cbxGutschriftenAnVerag.Location = New System.Drawing.Point(334, 66)
        Me.cbxGutschriftenAnVerag.Name = "cbxGutschriftenAnVerag"
        Me.cbxGutschriftenAnVerag.Size = New System.Drawing.Size(128, 17)
        Me.cbxGutschriftenAnVerag.TabIndex = 54
@@ -568,7 +644,7 @@ Partial Class frmAbrechnungsMaske
        Me.cbx.AutoSize = True
        Me.cbx.Checked = True
        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbx.Location = New System.Drawing.Point(332, 61)
+        Me.cbx.Location = New System.Drawing.Point(334, 83)
        Me.cbx.Name = "cbx"
        Me.cbx.Size = New System.Drawing.Size(181, 17)
        Me.cbx.TabIndex = 34
@@ -662,9 +738,9 @@ Partial Class frmAbrechnungsMaske
        Me.MyPanel1.Controls.Add(Me.btnBisJahr)
        Me.MyPanel1.Controls.Add(Me.btnVonJahr)
        Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.MyPanel1.Location = New System.Drawing.Point(0, 80)
+        Me.MyPanel1.Location = New System.Drawing.Point(0, 102)
        Me.MyPanel1.Name = "MyPanel1"
-        Me.MyPanel1.Size = New System.Drawing.Size(575, 90)
+        Me.MyPanel1.Size = New System.Drawing.Size(575, 85)
        Me.MyPanel1.TabIndex = 51
        Me.MyPanel1.Visible = False
        '
@@ -988,7 +1064,7 @@ Partial Class frmAbrechnungsMaske
        Me.UsrCntlFaktAbrechnung1.Location = New System.Drawing.Point(0, 0)
        Me.UsrCntlFaktAbrechnung1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
        Me.UsrCntlFaktAbrechnung1.Name = "UsrCntlFaktAbrechnung1"
-        Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 615)
+        Me.UsrCntlFaktAbrechnung1.Size = New System.Drawing.Size(863, 646)
        Me.UsrCntlFaktAbrechnung1.TabIndex = 0
        '
        'ContextMenuStrip1
@@ -996,33 +1072,11 @@ Partial Class frmAbrechnungsMaske
        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
        Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
        '
-        'cbxMailoeffnen
-        '
-        Me.cbxMailoeffnen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.cbxMailoeffnen.AutoSize = True
-        Me.cbxMailoeffnen.Checked = True
-        Me.cbxMailoeffnen.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cbxMailoeffnen.Location = New System.Drawing.Point(306, 58)
-        Me.cbxMailoeffnen.Name = "cbxMailoeffnen"
-        Me.cbxMailoeffnen.Size = New System.Drawing.Size(15, 14)
-        Me.cbxMailoeffnen.TabIndex = 32
-        Me.cbxMailoeffnen.UseVisualStyleBackColor = True
-        '
-        'txtMailanzeigen
-        '
-        Me.txtMailanzeigen.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.txtMailanzeigen.Location = New System.Drawing.Point(327, 51)
-        Me.txtMailanzeigen.Multiline = True
-        Me.txtMailanzeigen.Name = "txtMailanzeigen"
-        Me.txtMailanzeigen.Size = New System.Drawing.Size(57, 34)
-        Me.txtMailanzeigen.TabIndex = 33
-        Me.txtMailanzeigen.Text = "Mail anzeigen"
-        '
        'frmAbrechnungsMaske
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1442, 615)
+        Me.ClientSize = New System.Drawing.Size(1442, 646)
        Me.Controls.Add(Me.pnl)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.KeyPreview = True
@@ -1114,4 +1168,7 @@ Partial Class frmAbrechnungsMaske
    Friend WithEvents btn_doMailAutoversand As Button
    Friend WithEvents txtMailanzeigen As TextBox
    Friend WithEvents cbxMailoeffnen As CheckBox
+    Friend WithEvents txtRechnungsdatumAutomail As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dtp_RD_automail As DateTimePicker
+    Friend WithEvents lblRechnungsdatumAUTOMAIL As Label
 End Class