edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fakt MDM

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-01-17 16:29:35 +01:00
parent 948431d397
commit 2618771bb1
2 changed files with 23 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/Fakturierung/cFakturierung.vb
View File

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

2
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1670,7 +1670,7 @@ Public Class usrCntlMDMAuswertungen
If dtSammelRechnugen.Rows.Count > 0 Then If dtSammelRechnugen.Rows.Count > 0 Then
For Each re In dtSammelRechnugen.Rows 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 If Not reIsSet Then Return reIsSet