From 1b31bae7834f3a1cef59d7038b6398555d8dc4c6 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 5 May 2026 17:07:03 +0200 Subject: [PATCH] Sammelrechnung, etc. --- SDL/Fakturierung/frmAbrechnungsMaske.vb | 4 ++-- SDL/Fakturierung/frmFaktSammelRgDrucken.vb | 9 +++++---- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index f0322c91..786d8f87 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -188,7 +188,7 @@ Public Class frmAbrechnungsMaske If cbx.Checked Then reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr,cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " Else - reNrSQL = " cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " + reNrSQL = " isnull(Rechnungsausgang.RechnungsNr,'-') as ReNr, cast(isnull(Automailversand_sent, 0) as bit) as AUTO_sent, " End If @@ -987,7 +987,7 @@ Public Class frmAbrechnungsMaske Dim ListOfRK_ID As New List(Of Integer) - Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value)) + Dim noRE_DATE = dgvRechnungen.SelectedRows.Cast(Of DataGridViewRow)().Any(Function(r) r.Cells("RENR").Value Is Nothing OrElse IsDBNull(r.Cells("RENR").Value) OrElse (r.Cells("RENR").Value) <> "-") If noRE_DATE Then MsgBox("ACHTUNG, Rechnungsdatum wurde nicht gesetzt." & vbNewLine & "Vorgang wird abgebrochen!") : Exit Sub diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index c3ed5c80..ab9c86c2 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -669,12 +669,13 @@ Public Class frmFaktSammelRgDrucken Me.Enabled = True Me.Cursor = Cursors.Default - - Else - - End If End If + + Else + + MsgBox("Es wurde keine RE-Nr vergeben !") : Exit Sub + End If setMailversand_ALL(True, Firma, Sammelrechung)