From 9588c5f7d13c1f50371dfa6d6c2a0f4eaa080f34 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 25 Aug 2026 12:45:09 +0200 Subject: [PATCH] automail, etc. --- SDL/Fakturierung/cAutomailversand.vb | 4 +- .../frmAbrechnungsMaske.Designer.vb | 135 +++++++++++++----- SDL/Fakturierung/frmAbrechnungsMaske.vb | 41 +++++- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 8 +- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 12 +- 5 files changed, 149 insertions(+), 51 deletions(-) diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index a1fbbf64..4a69234c 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/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 diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb b/SDL/Fakturierung/frmAbrechnungsMaske.Designer.vb index bda671a5..d7c1241c 100644 --- 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 diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index e5ccdcaf..d8cd4f83 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/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,9 +60,15 @@ Public Class frmAbrechnungsMaske FirmaTmp = "VERAGIMEX" End If - 'FirmaTmp = "AMBAR" - cboSachbearbeiter.Items.Clear() + txtRechnungsdatumAutomail.Visible = setDefaultAutoMailversand + dtp_RD_automail.Visible = setDefaultAutoMailversand + lblRechnungsdatumAUTOMAIL.Visible = setDefaultAutoMailversand + + + 'FirmaTmp = "AMBAR" + + cboSachbearbeiter.Items.Clear() Select Case FirmaTmp @@ -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 \ No newline at end of file diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 949cf579..57b04f5d 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/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 diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 75a47310..380f8928 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/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! - RECHNUNG.RechnungsDatum = Today() + 'LAUT AUSSAGE VON VERR. IMMER HEUTIGES DATUM! - NUN DOCH WIEDER NICHT!!!!!!!!!!!!!!!!! + 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