Index: CHUI/MAG/vHoss/TerugVanKlant.cls.xml
===================================================================
diff -u -r29059 -r51516
--- CHUI/MAG/vHoss/TerugVanKlant.cls.xml	(.../TerugVanKlant.cls.xml)	(revision 29059)
+++ CHUI/MAG/vHoss/TerugVanKlant.cls.xml	(.../TerugVanKlant.cls.xml)	(revision 51516)
@@ -89,10 +89,6 @@
 <Method name="HaalInfoOpOverVHoss">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KlantNr as %String = ""
-	#dim KlantNaam as %String = ""
-	#dim TijdStip as %String = ""
-	#dim RegistreerdVHossID as %String = ""
 	#dim VHossID1A as %String = ..VHossID
 	#dim VHossID1B as %String = ..VHossID
 	#dim VHossID2A as %String = ..VHossID
@@ -101,14 +97,22 @@
 	Set $E(VHossID1B,2,3)=12 ; Type 1 B kant
 	Set $E(VHossID2A,2,3)=21 ; Type 2 A kant
 	Set $E(VHossID2B,2,3)=22 ; Type 2 B kant
+
+	Set ..KlantNaam = ""
+	Set ..KlantNr = ""
+	Set ..TijdStip = ""
+	Set ..RegistreerdVHossID = ""
 	
-	&SQL(SELECT V.KlantID, K.Naam, V.TijdStip,V.VHossID Into :KlantNr, :KlantNaam, :TijdStip,:RegistreerdVHossID FROM APPS_VisiDot_data.VHossUitlening As V JOIN Derde_Klant.Klant As K ON V.KlantID = K.Nummer 
-	where (VHossID = :VHossID1A or VHossID = :VHossID1B or VHossID = :VHossID2A or VHossID = :VHossID2B) )
-	
-	Set ..KlantNr=KlantNr
-	Set ..KlantNaam=KlantNaam
-	Set ..TijdStip=TijdStip
-	Set ..RegistreerdVHossID=RegistreerdVHossID
+	#dim Query as %String = "SELECT V.KlantID as KlantNr, K.Naam as KlantNaam, V.TijdStip as Tijdstip,V.VHossID as VHossID "
+	Set Query = Query _     "FROM APPS_VisiDot_data.VHossUitlening As V JOIN Derde_Klant.Klant As K ON V.KlantID = K.Nummer "
+	Set Query = Query _     "WHERE ((V.VHossID = ?) or (V.VHossID = ?) or (V.VHossID = ?) or (V.VHossID = ?))"	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(VHossID1A,VHossID1B,VHossID2A,VHossID2B))
+	if (ResultSet.Next()) {
+		Set ..KlantNr=ResultSet.Data("KlantNr")
+		Set ..KlantNaam=ResultSet.Data("KlantNaam")
+		Set ..TijdStip=ResultSet.Data("Tijdstip")
+		Set ..RegistreerdVHossID = ResultSet.Data("VHossID")
+	}
 ]]></Implementation>
 </Method>