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

Bugfix

Browse Source
This commit is contained in:
d.breimaier
2026-03-02 13:18:34 +01:00
parent bffceedf6f
commit 15330ca861
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -1720,14 +1720,14 @@ Public Class cZOLL_IMPORT
' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU)
Dim VorgangID As String = "'EF'" Dim VorgangID As String = "EF"
If isAES Then If isAES Then
VorgangID = "'AF'" VorgangID = "AF"
End If End If
Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & Dim dEZOLL As DataTable = KDSQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" &
" FROM zsAnmRefs" & " FROM zsAnmRefs" &
" WHERE (VorgangID = " & VorgangID & " ) AND (LRN = '" & EZA_Nr & "')" & " WHERE (VorgangID = '" & VorgangID & "' ) AND (LRN = '" & EZA_Nr & "')" &
" ORDER BY GeaendertAm DESC", EZOLL_SQL) " ORDER BY GeaendertAm DESC", EZOLL_SQL)
If dEZOLL Is Nothing Then notFound = True : Exit Sub If dEZOLL Is Nothing Then notFound = True : Exit Sub