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