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

cZoll_Import

Browse Source
This commit is contained in:
d.breimaier
2026-03-02 13:17:14 +01:00
parent 3e842f853f
commit bffceedf6f
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