Therefore Atilla, etc.

SDL/buchhaltung/usrCntlBH.vb

@@ -1552,10 +1552,16 @@ Public Class usrCntlBH
 
                             Dim ignoreMonth As Boolean = False
 
-                            If vbYes = MsgBox("Möchten Sie die fortlaufende Re-Nr für das Gesamtjahr " & txtRE_Jahr.Text & " prüfen?", vbYesNoCancel) Then ignoreMonth = True
+                            Dim InfoText As String = "Möchten Sie die fortlaufende Re-Nr für das Gesamtjahr " & txtRE_Jahr.Text & " prüfen?"
+
+                            If Not vbYes = MsgBox(InfoText, vbYesNoCancel) Then Exit Sub
 
 
                             Bezeichnung = "Lücken in der fortl. Belegnummerierung von " & cbxFirma_RE.SelectedItem.Text & " Zeitraum: " & IIf(Not ignoreMonth, txtRE_Monat.Text & "/" & txtRE_Jahr.Text, txtRE_Jahr.Text)
+
+
+                            '----OLD-------------
+
                             SQL_RE = "WITH Nummern AS (
                                         SELECT
                                             RechnungsNr,
@@ -1573,6 +1579,41 @@ Public Class usrCntlBH
                                       AND NextRechnungsNr > RechnungsNr + 1
                                     ORDER BY FehlendeVon;"
 
+                            '----NEW-------------
+
+                            SQL_RE = "WITH Rechnungen AS
+                                    (
+                                        SELECT
+                                            RechnungsNr,
+                                            MIN(CAST(RechnungsDatum AS date)) AS Rechnungsdatum
+                                        FROM Rechnungsausgang
+                                        WHERE Firma_ID = " & cbxFirma_RE._value & "
+                                          AND YEAR(RechnungsDatum) = " & txtRE_Jahr.Text &
+                                        " GROUP BY
+                                            RechnungsNr
+                                    ),
+                                    Nummern AS
+                                    (
+                                        SELECT
+                                            RechnungsNr,
+                                            Rechnungsdatum,
+                                            LEAD(RechnungsNr) OVER (ORDER BY RechnungsNr) AS NextRechnungsNr,
+                                            LEAD(Rechnungsdatum) OVER (ORDER BY RechnungsNr) AS NextRechnungsdatum
+                                        FROM Rechnungen
+                                    )
+                                    SELECT
+                                        RechnungsNr,
+                                        Rechnungsdatum,
+                                        NextRechnungsNr,
+                                        NextRechnungsdatum,
+                                        RechnungsNr + 1 AS FehlendeVon,
+                                        NextRechnungsNr - 1 AS FehlendeBis
+                                    FROM Nummern
+                                    WHERE NextRechnungsNr IS NOT NULL
+                                      AND NextRechnungsNr > RechnungsNr + 1
+                                    ORDER BY
+                                        FehlendeVon;"
+
                     End Select
 
                     Me.Cursor = Cursors.WaitCursor