Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r58842 -r58849
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58842)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 58849)
@@ -51,13 +51,9 @@
 		#dim ID As %String = ""
 		#dim KlantNr As %String = ""
 		
-		/// Wildcard instellen voor VHossID
-		#dim QueryVHossID As %String = VHossID
-		Set $EXTRACT(QueryVHossID,3)="_"
-		
 		Set ResultSet = ##class(%ResultSet).%New()
-		Do ResultSet.Prepare("SELECT ID, KlantID FROM APPS_VisiDot_data.VHossUitlening WHERE VHossID LIKE ? ")
-		Do ResultSet.Execute(QueryVHossID)	
+		Do ResultSet.Prepare("SELECT ID, KlantID FROM APPS_VisiDot_data.VHossUitlening WHERE VHossID = ? ")
+		Do ResultSet.Execute(VHossID)	
 		If (ResultSet.Next()){
 			Set ID = ResultSet.Data("ID")
 			Set KlantNr = ResultSet.Data("KlantID")