automail, etc.

SDL/Fakturierung/cAutomailversand.vb

@@ -1529,7 +1529,7 @@ Public Class cAutomailversand
 
     End Function
 
-    Public Shared Function automRechnungsversand_aktivieren(showMessage As Boolean, Optional isEinzelrechnung As Boolean = False)
+    Public Shared Function automRechnungsversand_aktivieren(showMessage As Boolean, datum As Date, Optional isEinzelrechnung As Boolean = False)
 
         Dim RE_Text = ""
 
@@ -1542,7 +1542,7 @@ Public Class cAutomailversand
         If Not showMessage Then
             Return True
         Else
-            If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!", vbYesNoCancel) Then
+            If vbYes = MsgBox("Möchten Sie für " & RE_Text & " den automatischen Emailversand aktivieren?" & vbNewLine & "Die Rechnungen werden automatisch im Nachtlauf per EMail verschickt!" & vbNewLine & "Rechungsdatum: " & datum.ToShortDateString, vbYesNoCancel) Then
                 Return True
             Else
                 Return False

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

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -12,6 +12,8 @@ Public Class frmAbrechnungsMaske
 
     Dim FilialNrRestriction As Integer = -1
 
+    Dim setDefaultAutoMailversand As Boolean = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTOMAILVERSAND", "SDL")
+
     Private Sub frmAbrechnungsMaske_Load(sender As Object, e As EventArgs) Handles Me.Load
         'Größe anpassen:
 
@@ -49,6 +51,8 @@ Public Class frmAbrechnungsMaske
         cboSort.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Pos.Nr", "POS"))
         cboSort.changeItem("EZ")
 
+
+        txtRechnungsdatumAutomail.Text = Today.ToShortDateString
         'BERECHTIGUNG 90 = FAKTURIERUNG!!!
 
         Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -56,6 +60,12 @@ Public Class frmAbrechnungsMaske
             FirmaTmp = "VERAGIMEX"
         End If
 
+
+        txtRechnungsdatumAutomail.Visible = setDefaultAutoMailversand
+            dtp_RD_automail.Visible = setDefaultAutoMailversand
+            lblRechnungsdatumAUTOMAIL.Visible = setDefaultAutoMailversand
+
+
             'FirmaTmp = "AMBAR"
 
             cboSachbearbeiter.Items.Clear()
@@ -357,7 +367,6 @@ Public Class frmAbrechnungsMaske
         Button8.Visible = Not (enableAUTOMAIL_BTN AndAlso enableAUTOMAIL)
         Button9.Visible = Not (enableAUTOMAIL_BTN AndAlso enableAUTOMAIL)
 
-
         '  sqlstr &= " AND (SteuerpflichtigerGesamtbetrag<>0 OR SteuerfreierGesamtbetrag<>0)"
         Return sqlstr
     End Function
@@ -1059,5 +1068,31 @@ Public Class frmAbrechnungsMaske
             End If
 
 
+    End Sub
+
+    Private Sub txtRechnungsdatumAutomail_TextChanged(sender As Object, e As EventArgs) Handles txtRechnungsdatumAutomail.TextChanged
+        If txtRechnungsdatumAutomail._value <> "" AndAlso IsDate(txtRechnungsdatumAutomail._value) Then
+
+
+            UsrCntlFaktAbrechnung1.automail_rechnungsdatum = CDate(txtRechnungsdatumAutomail._value)
+
+
+
+        End If
+    End Sub
+
+    Private Sub dtp_RD_automail_ValueChanged(sender As Object, e As EventArgs) Handles dtp_RD_automail.ValueChanged
+
+        If CDate(sender.value).AddDays(-4) > Today() Then
+            MsgBox("Rechnungen können max. 4 Tage vordatiert werden!")
+            txtRechnungsdatumAutomail._value = Today
+        Else
+
+            txtRechnungsdatumAutomail._value = CDate(sender.value).ToShortDateString
+
+        End If
+
+
+
     End Sub
 End Class

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -660,7 +660,11 @@ Public Class frmFaktSammelRgDrucken
     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
         If MyDatagridview1.SelectedRows.Count > 0 Then
 
-            If cAutomailversand.automRechnungsversand_aktivieren(True) Then
+            If txtRechnungsdatum.Text = "" Then MsgBox("Bitte Rechnungsdatum angeben!") : Exit Sub
+
+            If CDate(txtRechnungsdatum.Text).AddDays(-4) > Today() Then MsgBox("Rechnungen können max. 4 Tage vordatiert werden!") : Exit Sub
+
+            If cAutomailversand.automRechnungsversand_aktivieren(True, CDate(txtRechnungsdatum.Text).ToShortDateString) Then
 
                 Dim onlyEMAIL As Boolean = True
 
@@ -670,7 +674,7 @@ Public Class frmFaktSammelRgDrucken
 
                     If cboFirma._value = "" Then MsgBox("Bitte Firma angeben!") : Exit Sub
                     If txtZeitraumBis.Text = "" Then MsgBox("Bitte Zeitraum-Bis angeben!") : Exit Sub
-                    If txtRechnungsdatum.Text = "" Then MsgBox("Bitte Rechnungsdatum angeben!") : Exit Sub
+
                     If Not onlyEMAIL Then MsgBox("Sammelrechnungen die per POST/FAX verschickt werden, können nicht gesetzt werden!") : Exit Sub
 
                     If vbYes = MsgBox("Es wird eine Beleg-NR vergeben, die Belege gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -21,6 +21,8 @@ Public Class usrCntlFaktAbrechnung
     Public Event EVENT_DELETED()
     Public Event SOMETHING_CHANGED(RK_ID)
 
+    Public automail_rechnungsdatum As Date = Today()
+
     Dim vorherige_RK_ID = 0
     Dim nachstehende_RK_ID = 0
     Dim veragKunde As Integer = -1
@@ -39,7 +41,7 @@ Public Class usrCntlFaktAbrechnung
 
     End Sub
 
-    Sub New(RK_ID)
+    Sub New(RK_ID As Integer)
 
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
@@ -49,6 +51,7 @@ Public Class usrCntlFaktAbrechnung
 
     End Sub
 
+
     Public Sub newRECHNUNG(Optional Firma = Nothing)
 
         RECHNUNG = Nothing
@@ -3512,7 +3515,7 @@ Public Class usrCntlFaktAbrechnung
         If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Sammelrechnung = 0 Then 'nur bei ER
 
             If cbxAUTOMailversand.Checked AndAlso (Not RECHNUNG.Automailversand Or RECHNUNG.RechnungsDatum Is Nothing) Then
-                If cAutomailversand.automRechnungsversand_aktivieren(showMessageBox, RECHNUNG.Sammelrechnung = 0) Then
+                If cAutomailversand.automRechnungsversand_aktivieren(showMessageBox, automail_rechnungsdatum, RECHNUNG.Sammelrechnung = 0) Then
 
                     Dim fun As New cAutomailversand
                     Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = kdFirmaRechnungAn.KdData_ADRESSEN
@@ -3522,8 +3525,8 @@ Public Class usrCntlFaktAbrechnung
 
                     If RECHNUNG.RechnungsDatum Is Nothing Then
 
-                        'LAUT AUSSAGE VON VERR. IMMER HEUTIGES DATUM!
+                        'LAUT AUSSAGE VON VERR. IMMER HEUTIGES DATUM! - NUN DOCH WIEDER NICHT!!!!!!!!!!!!!!!!!
-                        RECHNUNG.RechnungsDatum = Today()
+                        RECHNUNG.RechnungsDatum = automail_rechnungsdatum
                         'If Not cFakturierung.getRgDatInput("", RECHNUNG.[RechnungsDatum]) Then 'Now.ToShortDateString
                         '    cbxAUTOMailversand.Checked = False
                         '    Exit Sub
@@ -5683,7 +5686,6 @@ mwst:
         '    'Button16.Enabled = Not enableAUTOMAIL
         'End If
 
-
         Return enableAUTOMAIL