Index: vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBewerkingen.cls.xml
===================================================================
diff -u -r29059 -r40297
--- vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBewerkingen.cls.xml	(.../TestBewerkingen.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBewerkingen.cls.xml	(.../TestBewerkingen.cls.xml)	(revision 40297)
@@ -6,22 +6,22 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.KAD.Deur.TestBewerkingen")
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	Do ##class(DOM.PM.Maatwerk.KAD.Template.TemplateTools).CreateTemplates()
+]]></Implementation>
+</Method>
 
-]]></Content>
-</UDLText>
-
 <Method name="TestBewerkingenPerElement">
 <Implementation><![CDATA[
 	// 700 breed, 400 hoog
-	Set Deur = ##class(vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils).MaakDeurIntern(700, 400, "PBG")
+	#dim Deur As  DOM.PM.Maatwerk.KAD.Deur.Kaderdeur = ##class(vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils).MaakDeurIntern(700, 400, "PBG")
 
-	Set Frame = Deur.GeefElement("FrameB")
+	#dim Frame As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameB")
 	
 	// Frontboring, 10mm vanaf links, 8mm vanaf de buitenzijde
-	Set Boring = ##class(Boring).MaakFrontBoring("B1", "BOR", Frame, 10, 8, 6, 20, 8)
+	#dim Boring As  DOM.PM.Maatwerk.KAD.Deur.Boring = ##class(Boring).MaakFrontBoring("B1", "BOR", Frame, 10, 8, 6, 20, 8)
 	Do Deur.VoegToeBewerking(Boring)
 	
 	// Rugboring, 20mm van de linkerkant van de rug, 5mm vanaf de buitenzijde
@@ -48,7 +48,7 @@
 	Do Deur.VoegToeBewerking(Boring)
 	
 	// Rugfrezing, 90mm vanaf links kijkend naar de rug, 20mm vanaf de buitenzijde
-	Set Frezing = ##class(Frezing).MaakRugFrezing("KADHS1", Frame, 90, 20)
+	#dim Frezing As  DOM.PM.Maatwerk.KAD.Deur.Frezing = ##class(Frezing).MaakRugFrezing("KADHS1", Frame, 90, 20)
 	Do Deur.VoegToeBewerking(Frezing)
 
 	// Frontfrezing, 90mm vanaf links, 20mm vanaf de buitenzijde
@@ -62,17 +62,17 @@
 	Do ..ToonKanten(Deur.GeefElement("FrameR"))
 	Do ..ToonKanten(Deur.GeefElement("Vulling"))
 	//*/
-	Set Voor = ##class(ElementKant).Voor()
-	Set Achter = ##class(ElementKant).Achter()
-	Set Extern = ##class(ElementKant).Extern()
-	Set Intern = ##class(ElementKant).Intern()
+	#dim Voor As DOM.PM.Maatwerk.KAD.Template.ElementKant = ##class(ElementKant).Voor()
+	#dim Achter As DOM.PM.Maatwerk.KAD.Template.ElementKant = ##class(ElementKant).Achter()
+	#dim Extern As DOM.PM.Maatwerk.KAD.Template.ElementKant = ##class(ElementKant).Extern()
+	#dim Intern As DOM.PM.Maatwerk.KAD.Template.ElementKant = ##class(ElementKant).Intern()
 	
-	Set FrameL = Deur.GeefElement("FrameL")
-	Set FrameB = Deur.GeefElement("FrameB")
-	Set FrameR = Deur.GeefElement("FrameR")
-	Set FrameO = Deur.GeefElement("FrameO")
-	Set Vulling = Deur.GeefElement("Vulling")
-	Set VDikte = Vulling.Dikte
+	#dim FrameL As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameL")
+	#dim FrameB As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameB")
+	#dim FrameR As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameR")
+	#dim FrameO As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameO")
+	#dim Vulling As DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("Vulling")
+	#dim VDikte As %Float = Vulling.Dikte
 
 	Do $$$AssertTrue(..BewerkingOpElementKant(FrameO, Voor, "B5", 20, 25, 0, 20.6, 5, ""), "FrameO B5 front")
 	Do $$$AssertTrue(..BewerkingOpElementKant(FrameO, Achter, "B6", 680, 20, 20.6, -20.6, 4, ""), "FrameO B6 rug")
@@ -97,33 +97,27 @@
 <FormalSpec>Element:KaderdeurElement,Kant:ElementKant,ID:%String,X:%Float,Y:%Float,Z:%Float,Diepte:%String,Diameter:%Float,Glasdiameter:%Float</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set Lijst = Element.GeefBewerkingLijst(Kant)
+	#dim Lijst As DOM.PM.Maatwerk.KAD.Deur.BewerkingLijst = Element.GeefBewerkingLijst(Kant)
 	Set Visitor = ##class(ControleerBoringBewerkingVisitor).%New(
 			ID, X, Y, Z, Diepte, Diameter, Glasdiameter)
 	Do Lijst.Accept(Visitor)
 	Quit Visitor.OK
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(DOM.PM.Maatwerk.KAD.Template.TemplateTools).CreateTemplates()
- 	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="ToonKanten">
 <FormalSpec>Element:KaderdeurElement</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+	#dim Lijst As DOM.PM.Maatwerk.KAD.Deur.BewerkingLijst
 	w "Bewerkingen op ", Element.Naam, ": ", !
-	Set Lijst = Element.GeefBewerkingLijst(##class(ElementKant).Intern())
+	Set Lijst = Element.GeefBewerkingLijst(##class(DOM.PM.Maatwerk.KAD.Template.ElementKant).Intern())
 	w Lijst.ToString()
-	Set Lijst = Element.GeefBewerkingLijst(##class(ElementKant).Extern())
+	Set Lijst = Element.GeefBewerkingLijst(##class(DOM.PM.Maatwerk.KAD.Template.ElementKant).Extern())
 	w Lijst.ToString()
-	Set Lijst = Element.GeefBewerkingLijst(##class(ElementKant).Voor())
+	Set Lijst = Element.GeefBewerkingLijst(##class(DOM.PM.Maatwerk.KAD.Template.ElementKant).Voor())
 	w Lijst.ToString()
-	Set Lijst = Element.GeefBewerkingLijst(##class(ElementKant).Achter())
+	Set Lijst = Element.GeefBewerkingLijst(##class(DOM.PM.Maatwerk.KAD.Template.ElementKant).Achter())
 	w Lijst.ToString()
 ]]></Implementation>
 </Method>