Fakt MDM

SDL/Fakturierung/cFakturierung.vb

@@ -2814,6 +2814,7 @@ Public Class cFakturierung
                 Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr) 'Nimmt die aktuelle RgNr und zählt eine Pos. hoch.
             End If
 
+
             DruckdatumUhrzeit = Now.ToString("dd.MM.yyyy HH:mm:ss.fff")
 
             If listPDFs Is Nothing Then listPDFs = New List(Of String)
@@ -2842,6 +2843,19 @@ Public Class cFakturierung
                             AvisoIdTmp = RG.AvisoID
                             FilialeTmp = RG.FilialenNr
                             FIRMATmp = RG.Firma_ID
+                        Case 6 'MDM Abrechnung
+                            If kdTmp < 0 Then kdTmp = RG.RechnungsKundenNr 'erstes Mal
+                            '  If FilialeTmp < 0 Then FilialeTmp = RG.FilialenNr  'erstes Mal
+                            If FIRMATmp < 0 Then FIRMATmp = RG.Firma_ID  'erstes Mal
+                            If kdTmp <> RG.RechnungsKundenNr Or FIRMATmp <> RG.Firma_ID Then 'Or FilialeTmp <> RG.FilialenNr
+
+                                ' KEIN doSAMMELRechnungsDruck_Abschnitt!!!!
+                                Aktuelle_RgNr = getNewRgNr(Firma_ID, Buchungsjahr)
+
+                            End If
+                            kdTmp = RG.RechnungsKundenNr
+                            FilialeTmp = RG.FilialenNr
+                            FIRMATmp = RG.Firma_ID
                         Case Else
                             If kdTmp < 0 Then kdTmp = RG.RechnungsKundenNr 'erstes Mal
                             '  If FilialeTmp < 0 Then FilialeTmp = RG.FilialenNr  'erstes Mal
@@ -2861,7 +2875,13 @@ Public Class cFakturierung
                         RG.[VorschauID] = VorschauID
                     Else
                         RG.[RechnungsNr] = Aktuelle_RgNr
-                        RG.[Status] = 3
+
+                        If SammelrechungArt = 6 Then
+                            RG.[Status] = 2 'Bei MDM Abrechnung; Druck später!!
+                        Else
+                            RG.[Status] = 3
+                        End If
+
                         RG.[RechnungsDatum] = Rechnungsdatum.ToShortDateString
                         RG.[Buchungsjahr] = Buchungsjahr
                         RG.[DruckDatumZeit] = DruckdatumUhrzeit.ToString("dd.MM.yyyy HH:mm:ss.fff")
@@ -4071,6 +4091,7 @@ Public Class cFakturierung
                         rpt.Dispose()
                         Return True
 
+
                 End Select
             End If
 

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1670,7 +1670,7 @@ Public Class usrCntlMDMAuswertungen
         If dtSammelRechnugen.Rows.Count > 0 Then
             For Each re In dtSammelRechnugen.Rows
 
-                reIsSet = cFakturierung.doSAMMELRechnungsDruck(19, 6, rechnungsdatum, rechnungsdatum, "", False, , re("RechnungsKundenNr"), 7, , , , Today(), , ,,, ,, )
+                reIsSet = cFakturierung.doSAMMELRechnungsDruck(19, 6, rechnungsdatum, rechnungsdatum, "", False, False, re("RechnungsKundenNr"), 7, , , , Nothing, , ,,, ,, )
 
                 If Not reIsSet Then Return reIsSet