Sammelrechnung, etc.

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
 

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)