Index: vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBoring.cls.xml
===================================================================
diff -u -r29059 -r40294
--- vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBoring.cls.xml	(.../TestBoring.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestBoring.cls.xml	(.../TestBoring.cls.xml)	(revision 40294)
@@ -6,25 +6,25 @@
 <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.TestBoring")
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Do ##class(DOM.PM.Maatwerk.KAD.Template.TemplateTools).CreateTemplates()
+]]></Implementation>
+</Method>
 
-]]></Content>
-</UDLText>
-
 <Method name="TestDeurMetBoring">
 <Implementation><![CDATA[
-	Set Deur = ##class(vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils).MaakDeurIntern(500, 400, "PSV")
+	#dim Deur As DOM.PM.Maatwerk.KAD.Deur.Kaderdeur = ##class(vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils).MaakDeurIntern(500, 400, "PSV")
 	
 	// A. Conflicten tov de volledige deur.  Plaatsing geeft de
 	// relatieve coordinaten tov de deur.
 
 	Set Boring = ##class(Boring).%New("BA1", "*", 5)
-	Set Plaatsing = ##class(RelatievePlaatsing).MaakFrontPlaatsingAbs(70, 10, 0)
+	#dim Plaatsing As RelatievePlaatsing = ##class(RelatievePlaatsing).MaakFrontPlaatsingAbs(70, 10, 0)
 	Set Boring.Plaatsing = Plaatsing
 	Do Boring.HerrekenZones()
-	Set Conflicten = Deur.GeefConflicten(Boring)
+	#dim Conflicten = Deur.GeefConflicten(Boring)
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring FrameO, absolute coord")
 
 	// --------------------------------------------------------------------
@@ -33,8 +33,7 @@
 	Set Boring.Plaatsing = Plaatsing
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
-	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring FrameO in glas, absolute coord")
+ 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring FrameO in glas, absolute coord")
 
 	// --------------------------------------------------------------------
 	// Diep genoeg boren dat we de hoekverbinder raken
@@ -43,7 +42,7 @@
 	Set Boring.Plaatsing = Plaatsing	
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 4, "Boring LO, absolute coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameO", ##class(ProfielZones).Buitenrand()), "Rand van FrameO")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameL", ##class(ProfielZones).Buitenrand()), "Rand van FrameL")
@@ -55,8 +54,7 @@
 	Set Boring.Plaatsing = Plaatsing	
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
-	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring Extern FrameL, absolute coord")
+ 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring Extern FrameL, absolute coord")
 
 	// --------------------------------------------------------------------
 	Set Boring = ##class(Boring).%New("BA4", "*", 5)
@@ -73,7 +71,6 @@
 	Set Boring.Plaatsing = Plaatsing	
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 2, "Onwerkelijk diepe boring Extern FrameL teveel naar rugzijde, absolute coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameL", ##class(ProfielZones).Rugrand()), "Rugzijde van FrameL")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameR", ##class(ProfielZones).Rugrand()), "Rugzijde van FrameR")
@@ -84,7 +81,6 @@
 	Set Boring.Plaatsing = Plaatsing	
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 1, "Boring Extern FrameR teveel naar rugzijde, absolute coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameR", ##class(ProfielZones).Rugrand()), "Rugzijde van FrameR")
 
@@ -94,40 +90,40 @@
 	Set Boring.Plaatsing = Plaatsing	
 	Do Boring.HerrekenZones()
 	Set Conflicten = Deur.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 1, "Rugboring FrameR teveel naar extern, absolute coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameR", ##class(ProfielZones).Buitenrand()), "Externe kant van FrameR")
 
 	// B. Conflicten tov een specifiek element.  Plaating is relatief
 	// tov dat element.
 
 	// --------------------------------------------------------------------
-	Set Frame = Deur.GeefElement("FrameR")
+	#dim Frame As  DOM.PM.Maatwerk.KAD.Deur.KaderdeurElement = Deur.GeefElement("FrameR")
 	//Do Frame.HerrekenZones(Frame)
 
 	Set Boring = ##class(Boring).MaakFrontBoring("BR1", "BOR", Frame, 200, 5, 5, 20)
 	Set Conflicten = Frame.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 1, "Boring FrameL teveel naar extern, relatieve coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameR", ##class(ProfielZones).Buitenrand()), "Externe kant van FrameL")
 
 	// --------------------------------------------------------------------
 	Set Boring = ##class(Boring).MaakFrontBoring("BR2", "BOR", Frame, 200, 10, 5, 20)
 	Set Conflicten = Frame.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Boring FrameL intern, relatieve coord")
 
 	// --------------------------------------------------------------------
 	Set Boring = ##class(Boring).MaakInterneBoring("BR3", "BOR", Frame, 200, 16, 5, 20)
 	Set Conflicten = Frame.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 1, "Boring FrameL intern teveel naar frontzijde, relatieve coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameR", ##class(ProfielZones).Frontrand()), "Front van FrameL")
 
 	// --------------------------------------------------------------------
 	Set Boring = ##class(Boring).MaakRugBoring("BR4", "BOR", Frame, 200, 10, 5, 20)
 	Set Conflicten = Frame.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 0, "Rugboring FrameL, relatieve coord")
 	
 	// --------------------------------------------------------------------
@@ -136,19 +132,11 @@
 
 	Set Boring = ##class(Boring).MaakRugBoring("BR2", "BOR", Frame, 5, 5, 5, 20)
 	Set Conflicten = Frame.GeefConflicten(Boring)
- 	//w Conflicten.ToString(), !
+
 	Do $$$AssertEquals(Conflicten.AantalNietToegelaten(), 1, "Rugboring FrameB teveel LB, relatieve coord")
 	Do $$$AssertTrue(Conflicten.ConflictMet("FrameB", ##class(ProfielZones).Buitenrand()), "Externe kant van FrameB")
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(DOM.PM.Maatwerk.KAD.Template.TemplateTools).CreateTemplates()
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestUtils.cls.xml
===================================================================
diff -u -r29059 -r40294
--- vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestUtils.cls.xml	(.../TestUtils.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/Maatwerk/KAD/Deur/TestUtils.cls.xml	(.../TestUtils.cls.xml)	(revision 40294)
@@ -2,17 +2,14 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.Maatwerk.KAD.Deur.TestUtils">
 <ClassType/>
-<Import>DOM.PM.Maatwerk.KAD.Deur</Import>
 <ProcedureBlock>1</ProcedureBlock>
 
 <Method name="MaakDeurIntern">
-<Description>
-[Previously private]</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>B,H,ProfielType="PSV"</FormalSpec>
-<ReturnType>Kaderdeur</ReturnType>
+<FormalSpec>B:%Decimal,H:%Decimal,ProfielType:%String="PSV"</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.KAD.Deur.Kaderdeur</ReturnType>
 <Implementation><![CDATA[
-	Set Beschrijving = ##class(KaderdeurBeschrijving).%New()
+	Set Beschrijving = ##class(DOM.PM.Maatwerk.KAD.Deur.KaderdeurBeschrijving).%New()
 	Set Beschrijving.ProfielType = ProfielType
 	Set Beschrijving.VullingType = "FZ"
 	Set Beschrijving.Breedte = B
@@ -21,7 +18,7 @@
 	Set Beschrijving.Type = "KD"
 	Set Beschrijving.Subtype = "S"
 	Set Beschrijving.Ophanging = "Links"
-	Quit ##class(Kaderdeur).%New(Beschrijving)
+	Quit ##class(DOM.PM.Maatwerk.KAD.Deur.Kaderdeur).%New(Beschrijving)
 ]]></Implementation>
 </Method>
 </Class>