cZoll_Import

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