Änderungen Rechnungsnummernveragbe, Fiskalkunden, Creditsafe-API Fehlerausgabe verbessert, Gesamtsicherheitem (Feature für Refrerenzbetragänderungen)

SDL/Fakturierung/cFakturierung.vb

@@ -2064,7 +2064,7 @@ Public Class cFakturierung
         getNewRgNr = RG_NR.LfdRechnungsNr ' --> Die in der DB gespeicherte RgNr wird verwendet
 
         ' Nächste Rechnungsnummer speichern.
-        RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
+        'RG_NR.INCREASE_RGNR() ' SOFORT Speichern, Sonst gibt es wieder eine Doppelvergabe!
         ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
         getNewRgNr = VERAG_PROG_ALLGEMEIN.cRechnungsnummern.CHECK_RGNR_NEW(getNewRgNr, Firma_ID, Buchungsjahr)
 

SDL/kunden/Berichte/rptFiskalkunde.vb

@@ -13,9 +13,10 @@ Public Class rptFiskalkunde
     Dim EORI As cEORIPruefung
     Dim UID As cUIDPruefung
     Dim UVM As cKundenVollmachten
+    Dim VMOriginal As Boolean = False
     Dim unterlagenliste As List(Of String)
 
-    Sub New(KdNr As Integer, FiskalId As Integer, VM As cKundenVollmachten, BR As cBonitaetsauskunft, EORI As cEORIPruefung, UID As cUIDPruefung, UVM As cKundenVollmachten, unterlagenliste As List(Of String), Optional Firma As String = "VERAG")
+    Sub New(KdNr As Integer, FiskalId As Integer, VM As cKundenVollmachten, BR As cBonitaetsauskunft, EORI As cEORIPruefung, UID As cUIDPruefung, UVM As cKundenVollmachten, VMOriginal As Boolean, unterlagenliste As List(Of String), Optional Firma As String = "VERAG")
 
         ' Dieser Aufruf ist f<>r den Designer erforderlich.
         InitializeComponent()
@@ -60,6 +61,8 @@ Public Class rptFiskalkunde
             End If
 
             If IsDate(VM.kdvm_erhalten_Datum) Then txtVM.Text &= CDate(VM.kdvm_erhalten_Datum).ToShortDateString
+
+            If VMOriginal Then txtVM.Text &= " (Original vorhanden)"
         Else
             txtVMNein.Text = "X"
         End If

SDL/kunden/usrcntlFiskaluebersicht.vb

@@ -258,7 +258,7 @@ Public Class usrcntlFiskaluebersicht
 
 
             Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Fiskalanalyse", ".pdf", , False)
-            Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id, VM, BA, EORI, UID, UVM, listeUnterlagen)
+            Dim rptFiskalkunden As New SDL.rptFiskalkunde(kdNr, fk.FK_Id, VM, BA, EORI, UID, UVM, fk.FK_VollmachtOriginal, listeUnterlagen)
 
             Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
             rptFiskalkunden.Run(False)