Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r58841 -r58849
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 58841)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 58849)
@@ -146,9 +146,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If ..IsFrameID(VHossID) {
-		#dim Type As %String = $Extract(VHossID,1,2) 
-		#dim VHossNr As %String = $Extract(VHossID,5,10) 
-		Quit Type_VHossNr
+		Quit ..GeefVHossIdVanFrameId(VHossID)
 	}
 	If ..IsVHossID(VHossID) {
 		Quit VHossID
@@ -157,6 +155,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHossIdVanFrameId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FrameId:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Type As %String = $Extract(FrameId,1,2) 
+	#dim VHossNr As %String = $Extract(FrameId,5,10) 
+	Quit Type_VHossNr
+]]></Implementation>
+</Method>
+
 <Method name="GeefBatchVanLadeID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LadeID:%String</FormalSpec>
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")
Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r29059 -r58849
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 29059)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 58849)
@@ -126,7 +126,7 @@
 						#dim KlantID As DOM.VKP.VanHoeckeKlantID = Order.GeefKlantID()	
 					
 						Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
-						#dim VHossID As %String = FrameID
+						#dim VHossID As %String = ##class(APPS.VisiDot.impl.Tech).GeefVHossIdVanFrameId(FrameID)
 					
 						Do ..RecepteerBinnenkomendeVHoss(VHossID)