Prüfung bei Rechnungsdruck ob ReNr in DB gespeichert wurde, ansonsten abbruch!

SDL/Fakturierung/cFakturierung.vb

@@ -1315,7 +1315,7 @@ Public Class cFakturierung
                             Return False
                         End If
                     Else
-                        MsgBox("Fehler: Kein Rechnugsempfänger gefunden!")
+                        MsgBox("Fehler: Kein Rechnungsempfänger gefunden!")
                         Return False
                     End If
                 Else
@@ -1325,6 +1325,10 @@ Public Class cFakturierung
                     End If
                 End If
 
+                If Not RECHNUNG.checkRechnungsNrIsSet() Then
+                    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                    Return False
+                End If
 
                 'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
                 ' Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Rechnung_" & If(RECHNUNG.RechnungsNr, "") & ".pdf"
@@ -1450,7 +1454,7 @@ Public Class cFakturierung
                             End If
 
                         Catch ex As Exception
-                            MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
+                            MsgBox("Fehler beim Öffnen des Mail-Programmes. PDF wird geladen!")
                             Process.Start(tmpPath)
                         End Try
                         rpt.Dispose()
@@ -2065,8 +2069,15 @@ Public Class cFakturierung
                     End If
                     RG.SAVE()
 
+
+                    If Not RG.checkRechnungsNrIsSet() Then
+                        MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                        Return False
+                    Else
                         found = True
                     End If
+
+                End If
             Next
 
             'Letzter Abschnitt:
@@ -2076,6 +2087,7 @@ Public Class cFakturierung
                 If path <> "" Then listPDFs.Add(path)
             End If
             lastAktuelle_RgNr = Aktuelle_RgNr
+
         Catch ex As Exception
             MsgBox(ex.Message & ex.StackTrace)
         End Try

SDL/Fakturierung/frmFaktEmail.vb

@@ -275,9 +275,10 @@ Public Class frmFaktEmail
                     Dim lastAktuelle_RgNr As Integer = -1
                     'Rechnung erstellen:
                     '-----------------------------------------------------------------
+                    Dim RechnungsNrisSet As Boolean = False
                     Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
                     If RechnungsNr <= 0 Then
-                        cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart)
+                        RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(Firma_ID, SammelrechungArt, DatumBis, Rechnungsdatum, "", EinzelAnlagen, Sammelbericht, KdNr, 4, listPDFs, SB, lastAktuelle_RgNr, DruckDatumZeit, AvisoIds, cbxExcelEvolog.Checked, SonstAnlagen,, cbxTransFerry.Checked, FakturierungsGruppe, Abfertigungsart)
                         RechnungsNr = lastAktuelle_RgNr
                     Else
                         Dim path = ""
@@ -287,6 +288,9 @@ Public Class frmFaktEmail
                         listPDFs.Add(path)
                     End If
 
+                    If Not RechnungsNrisSet Then 'Abbruch bei fehlender RE-Nr
+                        Exit Sub
+                    End If
 
                     If cbxRgKopieDrucken.Checked Then
                         'KOPIE DRUCK
@@ -390,6 +394,8 @@ Public Class frmFaktEmail
             If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF als Mail-Anhang  erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
                 abfNr = " Pos-Nr.: " & RECHNUNG.FilialenNr & "-" & RECHNUNG.AbfertigungsNr & "-" & RECHNUNG.SpeditionsbuchUnterNr
 
+
+
                 Try
                     Dim outl As New Outlook.Application
                     Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
@@ -414,6 +420,12 @@ Public Class frmFaktEmail
                     If Not cFakturierung.doRechnungsDruck(RECHNUNG,,, 4, pathRG,, cbxOriginalPrint.Checked) Then
                         Exit Sub
                     End If
+
+                    'If Not RECHNUNG.checkRechnungsNrIsSet() Then
+                    '    MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                    '    Exit Sub
+                    'End If
+
                     RechnungsNr = RECHNUNG.RechnungsNr
 
                     If cbxRgKopieDrucken.Checked Then

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -254,10 +254,16 @@ Public Class frmFaktSammelRgDrucken
             Me.Cursor = Cursors.WaitCursor
             Dim listPDFs As New List(Of String)
             Dim SonstAnlagen As New List(Of String)
-            cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value)
+            Dim RechnungsNrisSet As Boolean = False
+            RechnungsNrisSet = cFakturierung.doSAMMELRechnungsDruck(cboFirma._value, Sammelrechung, CDate(txtZeitraumBis.Text), CDate(txtRechnungsdatum.Text), cboPrinter.Text, cbxEinzelAnlagen.Checked, cbxSammelbericht.Checked, getSelectionKdNr, If(ausgabeArt = 1, -1, 4), listPDFs, cboSB._value,,, getAvisoIds, cbxEVOLOG.Checked, SonstAnlagen, vorschau, cbxTransFerry.Checked, cboFaktGrp._value, cboAbfertigungsart._value)
 
             '-------------- für PDF-Sammel-Rechnung -------------- 
 
+            If Not RechnungsNrisSet Then
+                MsgBox("Rechnungsnummer wurde nicht in Datenbank eingetragen" & vbNewLine & "Vorgang wird abgebrochen")
+                Exit Sub
+            End If
+
             If cbxZusammenfassen.Checked Then ' Gibt an, ob mehrere Sammelrechnung zusammengefasst werden sollten
 
                 Select Case ausgabeArt

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -148,6 +148,13 @@ Public Class cRechnungsausgang
         Return cnt > 0
     End Function
 
+    Public Function checkRechnungsNrIsSet() As Boolean
+        'Prüfugn ob Eintrag mit dieser Rechnungsnr in DB existiert
+        If Me.RechnungsNr <= 0 Then Return False
+        Dim cnt = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Rechnungsausgang] WHERE RechnungsNr='" & Me.RechnungsNr & "' and DruckDatumZeit is not null and Buchungsjahr = " & Me.Buchungsjahr & " and Firma_ID = '" & Me.Firma_ID & "'", "FMZOLL")
+        Return cnt > 0
+    End Function
+
     Public Shared Function getMaxRGUnterNr(FilialenNr As Integer, AbfertigungsNr As Integer, SpeditionsbuchUnterNr As Integer) As Integer
         ' Dim Nr = SQL.getValueTxtBySql("Select isnull([UnterNr], -1) + 1  FROM [Rechnungsausgang]  where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "' And SpeditionsbuchUnterNr='" & SpeditionsbuchUnterNr & "'  ORDER BY [UnterNr] desc", "FMZOLL")
         Dim Nr = SQL.getValueTxtBySql("Select TOP 1 isnull([UnterNr], -1) + 1  FROM [Rechnungsausgang]  where [FilialenNr]='" & FilialenNr & "' And AbfertigungsNr='" & AbfertigungsNr & "'   ORDER BY [UnterNr] desc", "FMZOLL")