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

cFakt,

Browse Source
This commit is contained in:
d.breimaier
2025-12-23 11:06:33 +01:00
parent 31f391b4f9
commit 00c3215493
1 changed files with 97 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2855,9 +2855,14 @@ Public Class cFakturierung
'------------------------------------------------------------------------------- '-------------------------------------------------------------------------------
'----------Rechnung immer in Datenserver speichern------------------------ '----------Rechnung immer in Datenserver speichern------------------------
If Not Kopie Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
Dim RG_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("RECHNUNGEN", "Firma_" & RECHNUNG.Firma_ID, CDate(RECHNUNG.RechnungsDatum).Year & "_" & CDate(RECHNUNG.RechnungsDatum).Month, "", "", RG_Bezeichnung, RECHNUNG.RechnungsKundenNr, True) Dim RG_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("RECHNUNGEN", "Firma_" & RECHNUNG.Firma_ID, CDate(RECHNUNG.RechnungsDatum).Year & "_" & CDate(RECHNUNG.RechnungsDatum).Month, "", "", RG_Bezeichnung, RECHNUNG.RechnungsKundenNr, True)
RG_DS.uploadDataToDATENSERVER(tmpPath, RG_Bezeichnung, ".pdf",,,, True) RG_DS.uploadDataToDATENSERVER(tmpPath, RG_Bezeichnung, ".pdf",,,, True)
RECHNUNG.SAVE_DsId(RG_DS.da_id) RECHNUNG.SAVE_DsId(RG_DS.da_id)
End If
End If
'------------------------------------------------------------------------- '-------------------------------------------------------------------------
@@ -4475,7 +4480,11 @@ Public Class cFakturierung
'----------Rechnung immer in Datenserver speichern------------------------ '----------Rechnung immer in Datenserver speichern------------------------
If Not SRDruckWiederholen And saveInTherefore Then If Not SRDruckWiederholen And saveInTherefore Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM And VorschauID = "" Then If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM And VorschauID = "" Then
Dim RG_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("RECHNUNGEN", "Firma_" & Firma_ID, CDate(dt.Rows(0)("RechnungsDatum")).Year & "_" & CDate(dt.Rows(0)("RechnungsDatum")).Month, "", "", "Sammelrechnung_" & RechnungsNr & ".pdf", dt.Rows(0)("RechnungsKundenNr"), False) Dim FirmaID_temp = Firma_ID
If Firma_ID = -1 Then
FirmaID_temp = CInt(dt.Rows(0)("Firma_ID"))
End If
Dim RG_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("RECHNUNGEN", "Firma_" & FirmaID_temp, CDate(dt.Rows(0)("RechnungsDatum")).Year & "_" & CDate(dt.Rows(0)("RechnungsDatum")).Month, "", "", "Sammelrechnung_" & RechnungsNr & ".pdf", dt.Rows(0)("RechnungsKundenNr"), False)
RG_DS.uploadDataToDATENSERVER(pathPDF, "Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf",,,, True) RG_DS.uploadDataToDATENSERVER(pathPDF, "Sammelrechnung_" & RechnungsNr & ".pdf", ".pdf",,,, True)
For Each r In dt.Rows For Each r In dt.Rows
VERAG_PROG_ALLGEMEIN.cRechnungsausgang.SAVE_DsId(r("RK_ID"), RG_DS.da_id) VERAG_PROG_ALLGEMEIN.cRechnungsausgang.SAVE_DsId(r("RK_ID"), RG_DS.da_id)