Dakosy Anpassung - Datumsfehler

Dienstplan Feiertage
This commit is contained in:
2022-11-07 13:22:36 +01:00
parent 43d68083aa
commit 655a5fedae
12 changed files with 26652 additions and 247 deletions

View File

@@ -2242,7 +2242,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.ToString("01.MM.yyyy")).AddDays(TageZurueck * -1), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
Dim dateBack = If(TageZurueck <> "", CDate(Now.AddDays(TageZurueck * -1)), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1))
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)