Index: CHUI/MAG/vHoss/TerugVanKlant.cls.xml
===================================================================
diff -u -r51516 -r58840
--- CHUI/MAG/vHoss/TerugVanKlant.cls.xml	(.../TerugVanKlant.cls.xml)	(revision 51516)
+++ CHUI/MAG/vHoss/TerugVanKlant.cls.xml	(.../TerugVanKlant.cls.xml)	(revision 58840)
@@ -80,33 +80,24 @@
 <Implementation><![CDATA[
 	If ..VHossID?1.5N 
 	{
-		Set ..VHossID="O11"_$E(10000000+..VHossID,2,8)
+		Set ..VHossID="O1"_$E(100000+..VHossID,2,6)
 	}
-	Quit ..VHossID?1"O"1(1"1",1"2")1(1"1",1"2")7N
+	Quit ..VHossID?1"O1"6N
 ]]></Implementation>
 </Method>
 
 <Method name="HaalInfoOpOverVHoss">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim VHossID1A as %String = ..VHossID
-	#dim VHossID1B as %String = ..VHossID
-	#dim VHossID2A as %String = ..VHossID
-	#dim VHossID2B as %String = ..VHossID
-	Set $E(VHossID1A,2,3)=11 ; Type 1 A kant
-	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 = ""
 	
 	#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))
+	Set Query = Query _     "WHERE V.VHossID = ?"	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(..VHossID))
 	if (ResultSet.Next()) {
 		Set ..KlantNr=ResultSet.Data("KlantNr")
 		Set ..KlantNaam=ResultSet.Data("KlantNaam")