Index: DOM/PM/Maatwerk/LadeInfo/impl/Lade.cls.xml
===================================================================
diff -u -r29970 -r30592
--- DOM/PM/Maatwerk/LadeInfo/impl/Lade.cls.xml	(.../Lade.cls.xml)	(revision 29970)
+++ DOM/PM/Maatwerk/LadeInfo/impl/Lade.cls.xml	(.../Lade.cls.xml)	(revision 30592)
@@ -37,12 +37,15 @@
 <FormalSpec>Rol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim ZijkantIt As TECH.Iterator = ..GeefZijkantIterator()
-	#dim Gevonden As %Boolean = $$$False
-	While ZijkantIt.HasNext() && ('Gevonden) {
-		Set Gevonden = ZijkantIt.Next().GeefZijkantRol()=Rol
+	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant
+	
+	try {
+		set Zijkant = ..GeefZijkant(Rol)
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch()
 	}
-	quit Gevonden
+
+	quit $$$Not(Zijkant = "")
 ]]></Implementation>
 </Method>
 
@@ -52,17 +55,20 @@
 <ReturnType>DOM.PM.Maatwerk.LadeInfo.Zijkant</ReturnType>
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant
-	#dim ZijkantIt As TECH.Iterator = ..GeefZijkantIterator()
+	#dim Iterator As TECH.Iterator = ..GeefZijkantIterator()
 	#dim Gevonden As %Boolean = $$$False
-	While ZijkantIt.HasNext() && ('Gevonden) {
-		Set Zijkant = ZijkantIt.Next()
-		Set Gevonden = Zijkant.GeefZijkantRol()=Rol
+	
+	while (Iterator.HasNext() && $$$Not(Gevonden)) {
+		set Zijkant = Iterator.Next()
+		set Gevonden = (Zijkant.GeefZijkantRol() = Rol)
 	}
-	If 'Gevonden {
-		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("Er is voor de rol, "_Rol_", geen zijkant gevonden.")
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	
+	if $$$Not(Gevonden) {
+		#dim Exceptie As TECH.IException =  ##class(TECH.Exceptions.InvalidInputException).%New("Er is voor de rol, " _ Rol _ ", geen zijkant gevonden.")
+		do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
-	Quit Zijkant
+	
+	quit Zijkant
 ]]></Implementation>
 </Method>