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

Asfinag, Mitarbeiter, UID-Prüfung, Rechnugssuche, Fiskalkunde, Kundenübersicht, div. Auswertungen für Asfinag

Browse Source
This commit is contained in:
d.breimaier
2023-12-01 15:27:11 +01:00
parent 8ddcd33a34
commit 250a8303f0
9 changed files with 557 additions and 533 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2456,7 +2456,7 @@ Public Class frmStartOptions
Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Try
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), Nothing)
Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False)
@@ -3347,7 +3347,7 @@ Public Class frmStartOptions
Else
SDL_LKW.Änderungsdatum = Now
End If
SDL_LKW.Sachbearbeiter = "ASFINAG"
SDL_LKW.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
SDL_LKW.Nationalität = Nationalitaet
Return SDL_LKW.SAVE
@@ -3360,7 +3360,7 @@ Public Class frmStartOptions
Else
KUNDEN_SDL.Änderungsdatum = Now
End If
KUNDEN_SDL.Sachbearbeiter = "ASFINAG"
KUNDEN_SDL.Sachbearbeiter = "ASFINAG" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_TEST", "")
Return KUNDEN_SDL.SAVE