From bffceedf6f362c7e02783594cf5c89c63a54e189 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 2 Mar 2026 13:17:14 +0100
Subject: [PATCH] cZoll_Import

---
 DAKOSY_Worker/cZOLL_IMPORT.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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