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

UID-Prüfungen, wenn Datum leer -> Prüfung wenn letzte Prüfung älter als 15. des Vormonats

Browse Source
This commit is contained in:
d.breimaier
2023-07-03 13:59:29 +02:00
parent 0ba24ef930
commit 9b0527867d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -149,7 +149,7 @@ Public Class cUIDPruefung
Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable Public Shared Function doUIDPruefungALL(Optional datum As Object = Nothing, Optional SaveErgInAdressen As Boolean = True, Optional Sciherheitsabfrage As Boolean = True, Optional MaxEintraege As Integer = -1, Optional showErr As Boolean = True) As DataTable
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
If datum = Nothing Then datum = CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1) If datum = Nothing Then datum = CDate("15." & Now.ToString("MM.yyyy")).AddMonths(-1)
Dim where = "" Dim where = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA