Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60292 -r60385
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60292)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60385)
@@ -17,15 +17,20 @@
 <Type>TECH.Svg.BasisElementFactory</Type>
 </Property>
 
+<Property name="BeslagBoringSpecialevorm">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm</Type>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<FormalSpec>BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory,BeslagBoringSpecialevorm:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BoringElementFactory = $$$Inject(BoringElementFactory, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New())
 	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ..BeslagBoringSpecialevorm = $$$Inject(BeslagBoringSpecialevorm, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New())
 	Set ..Group = ##class(TECH.Svg.Basis.SvgBox).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -63,7 +68,7 @@
 				Do ElementToevoeger.VoegToeElement(..Group,ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
-				Set SpecialeBoring = ..BoringElementFactory.SpecialeBoring(XPos,YPos,10,10,Kleur)
+				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos,YPos,10,10,Kleur)
 				Do ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
@@ -97,7 +102,6 @@
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
-	
 	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Blauw()
 	#dim TijdelijkeOffsetX As %Integer = Beslag.ConstructAfm.GetAt("OFFSX")
 	#dim TijdelijkeOffsetY As %Integer = Beslag.ConstructAfm.GetAt("OFFSY")
@@ -131,7 +135,6 @@
 		Set Boring = BoringenIterator.Next()
 		#dim tmpX As %Integer =Boring.XPos
  		#dim tmpY As %Integer =Boring.YPos
- 		Do ##class(Tools.Wlip).%New(238).String("Oospronkelijk"_tmpX)
  		#dim XPos As %Integer = $S(ProfielPlaats="PR":-tmpX, (ProfielPlaats="PB")!(ProfielPlaats="PO"):tmpY, 1:tmpX)
  		#dim YPos As %Integer = $S(ProfielPlaats="PR":tmpY, ProfielPlaats="PB":tmpX, ProfielPlaats="PO":-tmpX, 1:tmpY)
  		Set XPos = XPos + OffsetX
@@ -149,10 +152,8 @@
 		#dim PuntBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
 		#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
-		
 		If ($L(Boring.VmlID) > 2) {
-			Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation)
-			Do ElementToevoeger.VoegToeElement(SvgBox, BeslagBoringSpecialeVorm)
+			Do ElementToevoeger.VoegToeElement(SvgBox, ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation))
 		}
 		ElseIf (BoorType="Z") {
 			Set GrootteBoring = 14
@@ -184,14 +185,13 @@
 			Do ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
 		}
 		Else {
+			#dim Straal As %Integer = GrootteBoring/2
 			If (GrootteBoring<10) {
 				Set RugBoring = ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10, Kleur)
 				Do ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
-			}Else {
-				#dim Straal As %Integer = GrootteBoring/2
-				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
-				Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 			}
+			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
+			Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 		}	
 	
 	}
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml
===================================================================
diff -u -r60342 -r60385
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60342)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/BoringElementFactory.cls.xml	(.../BoringElementFactory.cls.xml)	(revision 60385)
@@ -48,9 +48,7 @@
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring</ReturnType>
 <Implementation><![CDATA[
 	Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New()
-	Do ##class(Tools.Wlip).%New(238).ObjToText(..CrossFactory)
 	#dim CrossDiag As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag = ..CrossFactory.MaakCrossDiag(Width,Height,Kleur)
-	Do ##class(Tools.Wlip).%New(238).String("deze niet")
 	Set Puntboring.SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	Do ..ElementToevoeger.VoegToeElement(Puntboring.SvgBox,CrossDiag)
 	Do Puntboring.SvgBox.VoegToeID("puntboring")
Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 60385)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory,CoordinatesService:TECH.Svg.Services.CoordinatesService,SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KadFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("KadFreesRect",Breedte,Lengte,Rotation)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBoringSpecialeVorm">
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBoringSpecialeVorm",VmlId,Breedte,Lengte,Rotation)
+]]></Implementation>
+</Method>
+
+<Method name="SD30FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("SD30FREES",Breedte,Lengte,Rotation)
+]]></Implementation>
+</Method>
+
+<Method name="SD35FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("SD35FREES",Breedte,Lengte,Rotation)
+]]></Implementation>
+</Method>
+
+<Method name="SDxFREES">
+<FormalSpec>Diameter:%Integer,MiddleOffset:%Integer,Offset:%Integer,OffsetOpposite:%Integer,P1:%Integer,P2:%Integer,Rotation:%Integer,Breedte:%Integer,Lengte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("SDxFREES",Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2,Rotation,Breedte,Lengte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60103 -r60385
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60103)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60385)
@@ -22,7 +22,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>Prod.GADef.KaderDeur</ReturnType>
 <Implementation><![CDATA[
-	Set Kaderdeur=..StandaardKaderdeur()
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set Boring.BoorDiameter=7
 	Set Boring.BoorDiepte = -1
@@ -36,11 +36,235 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StandaardKaderdeurMetKaderdeurBoringZijboring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=7
+	Set Boring.BoorDiepte = 5
+	Set Boring.BoringPlaats = "VUL"
+	Set Boring.BoringType = "Z"
+	Set Boring.XPos = 158
+	Set Boring.YPos = 473
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoringSpecialeboring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=7
+	Set Boring.BoorDiepte = -1
+	Set Boring.BoringPlaats = "ON"
+	Set Boring.BoringType = "LO"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoringDoorboring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=5
+	Set Boring.BoorDiepte = -5
+	Set Boring.BoringPlaats = "ON"
+	Set Boring.BoringType = "ON"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoringBoringTypeZ">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=5
+	Set Boring.BoorDiepte = -5
+	Set Boring.BoringType = "Z"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoringRugboring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=5
+	Set Boring.BoorDiepte = 5
+	Set Boring.BoringPlaats = "ON"
+	Set Boring.BoringType = "ON"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoringGroteRugboring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Boring.BoorDiameter=15
+	Set Boring.BoorDiepte = 5
+	Set Boring.BoringPlaats = "ON"
+	Set Boring.BoringType = "ON"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetSpecialeBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set SpecialeBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set SpecialeBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set SpecialeBoring.BoorDiameter=7
+	Set SpecialeBoring.BoorDiepte = -1
+	Set SpecialeBoring.BoringPlaats = "ON"
+	Set SpecialeBoring.BoringType = "LO"
+	Do BeslagItem.Boringen.SetAt(SpecialeBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetZijBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set ZijBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set ZijBoring.BoorDiameter=7
+	Set ZijBoring.BoorDiepte = 5
+	Set ZijBoring.BoringPlaats = "VUL"
+	Set ZijBoring.BoringType = "Z"
+	Set ZijBoring.XPos = 158
+	Set ZijBoring.YPos = 473
+	Do BeslagItem.Boringen.SetAt(ZijBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetDoorBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set DoorBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set DoorBoring.BoorDiameter=5
+	Set DoorBoring.BoorDiepte = -5
+	Set DoorBoring.BoringPlaats = "ON"
+	Set DoorBoring.BoringType = "ON"
+	Do BeslagItem.Boringen.SetAt(DoorBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetPuntBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set PuntBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set PuntBoring.BoorDiameter=-5
+	Set PuntBoring.BoorDiepte = 0
+	Set PuntBoring.BoringPlaats = "ON"
+	Set PuntBoring.BoringType = "ON"
+	Do BeslagItem.Boringen.SetAt(PuntBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetRugBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set RugBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set RugBoring.BoorDiameter=5
+	Set RugBoring.BoorDiepte = 5
+	Set RugBoring.BoringPlaats = "ON"
+	Set RugBoring.BoringType = "ON"
+	Do BeslagItem.Boringen.SetAt(RugBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
 <Method name="StandaardKaderdeurMetBeslag">
 <ClassMethod>1</ClassMethod>
 <ReturnType>Prod.GADef.KaderDeur</ReturnType>
 <Implementation><![CDATA[
-	Set Kaderdeur=..StandaardKaderdeur()
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
 	Set BeslagItem = ##class(Res.PI.Beslag).%New()
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set Beslag = ##class(Prod.GADef.emKadBeslag).%New()
@@ -80,10 +304,8 @@
 	Do BeslagItem.BeperkingProfType.SetAt($lb("1||P02"), 7)
 	Do BeslagItem.BeperkingProfType.SetAt($lb("1||P03"), 8)
 	Do BeslagItem.BeperkingProfType.SetAt($lb("1||P04"), 9)
-	Do BeslagItem.BeperkingProfType.SetAt($lb("1||P05"), 10) 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||P05"), 10)
 	
-
-	
 	Do Kaderdeur.Beslag.SetAt(Beslag, Kaderdeur.Beslag.Count()+1)
 	Set Beslag.Beslag = BeslagItem
 	
@@ -92,11 +314,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BeslagMetGroteRugBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set RugBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set RugBoring.BoorDiameter=15
+	Set RugBoring.BoorDiepte = 5
+	Set RugBoring.BoringPlaats = "ON"
+	Set RugBoring.BoringType = "ON"
+	Do BeslagItem.Boringen.SetAt(RugBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
+<Method name="BeslagMetSpecialeVorm">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Res.PI.Beslag</ReturnType>
+<Implementation><![CDATA[
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	
+	Do BeslagItem.ConstructAfm.SetAt(2,"OFFSX")
+	Do BeslagItem.ConstructAfm.SetAt(29,"OFFSY")
+	Do BeslagItem.ConstructAfm.SetAt(40,"VRZB")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZH")
+	Do BeslagItem.ConstructAfm.SetAt(58,"VRZHBOR")
+	Do BeslagItem.ConstructAfm.SetAt(46,"VRZHPOTS") 
+	
+	Set SpecialeVormBoring = ##class(Prod.GADef.emKadBoring).%New()
+	Set SpecialeVormBoring.VmlID="KAD"
+	Set SpecialeVormBoring.BoorDiameter=15
+	Set SpecialeVormBoring.BoorDiepte = 5
+	Set SpecialeVormBoring.BoringPlaats = "ON"
+	Set SpecialeVormBoring.BoringType = "ON"
+	Do BeslagItem.Boringen.SetAt(SpecialeVormBoring, BeslagItem.Boringen.Count())
+	Quit BeslagItem
+]]></Implementation>
+</Method>
+
 <Method name="StandaardKaderdeurMetBeslagEnBoring">
 <ClassMethod>1</ClassMethod>
 <ReturnType>Prod.GADef.KaderDeur</ReturnType>
 <Implementation><![CDATA[
-	Set Kaderdeur=..StandaardKaderdeurMetBeslag()
+	#dim Kaderdeur As Prod.GADeF.Kaderdeur = ..StandaardKaderdeur()
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set Boring.BoorDiameter=7
 	Set Boring.BoorDiepte = -1
Index: vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 60385)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm</Super>
+
+<Method name="KadFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="MaakBoringSpecialeVorm">
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="SD30FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="SD35FREES">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="SDxFREES">
+<FormalSpec>Diameter:%Integer,MiddleOffset:%Integer,Offset:%Integer,OffsetOpposite:%Integer,P1:%Integer,P2:%Integer,Rotation:%Integer,Breedte:%Integer,Lengte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60229 -r60385
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60229)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60385)
@@ -2,11 +2,10 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm">
 <IncludeCode>vhLib.Macro</IncludeCode>
-<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="SvgBox">
 <Type>TECH.Svg.Basis.SvgBox</Type>
-<Parameter name="XMLNAME" value="svg"/>
 </Property>
 
 <Property name="BasisElementFactory">
@@ -33,6 +32,7 @@
 
 <Method name="MaakBoringSpecialeVorm">
 <FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
@@ -48,6 +48,7 @@
 
 <Method name="SDxFREES">
 <FormalSpec>Diameter:%Integer,MiddleOffset:%Integer,Offset:%Integer,OffsetOpposite:%Integer,P1:%Integer,P2:%Integer,Rotation:%Integer,Breedte:%Integer,Lengte:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	#dim CoordinatesList As %ListOfObjects
 	If (Rotation = 0) {
@@ -62,6 +63,7 @@
 	}
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList,1)
 	Do ..SvgBox.VoegToeElement(Path)
+	Quit ..SvgBox
 ]]></Implementation>
 </Method>
 
@@ -95,6 +97,7 @@
 
 <Method name="KadFreesRect">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	#dim FreesB As %Integer =16
@@ -113,15 +116,9 @@
 		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte , FreesB, FreesL)
 	}
 	Do ElementToevoeger.VoegToeElement(..SvgBox,Rect)
+	Quit ..SvgBox
 ]]></Implementation>
 </Method>
-
-<Method name="XMLExport">
-<FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml
===================================================================
diff -u -r60104 -r60385
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60104)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBeslagBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60385)
@@ -36,6 +36,113 @@
 	Do $$$AssertEquals(Boringen.Group.SvgBox.GetAt(1).SvgBox.Count(),2)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: uitvoeren van methode SpecialeVormBoring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetSpecialeVorm()
+	Set BeslagBoringSpecialeVormMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New()
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,5,5)
+	Do BeslagBoringSpecialeVormMock.VerwachtMethodCall("MaakBoringSpecialeVorm","KAD",40,58,0).DanReturn(SvgBox)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(,,BeslagBoringSpecialeVormMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BeslagBoringSpecialeVormMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode Zijboring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetZijBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim Zijboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring = BoringElementFactory.MaakZijBoring(158,473, 10,10,0, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakZijBoring",160,502,14,14,0, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(Zijboring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode SpecialeBoring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetSpecialeBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim Specialeboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring = BoringElementFactory.MaakSpecialeBoring(158,473, 10,10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakSpecialeBoring",2,29,10,10, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(Specialeboring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode DoorBoring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetDoorBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring = BoringElementFactory.MaakDoorBoring(158,473, 10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakDoorBoring",2,29,5, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(DoorBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode PuntBoring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetPuntBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim PuntBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring = BoringElementFactory.MaakPuntBoring(158,473, 10,10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakPuntBoring",2,29,10,10, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(PuntBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode RugBoring">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetRugBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim RugBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring = BoringElementFactory.MaakRugBoring(158,473, 10,10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring = BoringElementFactory.MaakDoorBoring(158,473, 10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakDoorBoring",2,29,2.5, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(DoorBoring)
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakRugBoring",2,29,10,10, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(RugBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode grote Boring ">
+<Implementation><![CDATA[
+	#dim Beslag As Res.PI.Beslag = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).BeslagMetGroteRugBoring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring = BoringElementFactory.MaakDoorBoring(158,473, 10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakDoorBoring",2,29,7.5, ##class(TECH.Svg.enu.Kleur).Blauw()).DanReturn(DoorBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBeslagBoringen(Beslag,"PL",0,0,0)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml
===================================================================
diff -u -r60333 -r60385
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60333)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen/VoegToeBoringen/Test.cls.xml	(.../Test.cls.xml)	(revision 60385)
@@ -29,6 +29,66 @@
 	Do $$$AssertEquals(Boringen.Group.SvgBox.Count(),2)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: uitvoeren van methode Zijboring">
+<Implementation><![CDATA[
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoringZijboring()
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring = BoringElementFactory.MaakZijBoring(158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakZijBoring",158, 473, 10, 10, 0, ##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(ZijBoring)
+	
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode Specialeboring">
+<Implementation><![CDATA[
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoringSpecialeboring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring = BoringElementFactory.MaakSpecialeBoring(158,473, 10, 10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakSpecialeBoring","","",10,10, ##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(SpecialeBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode Doorboring">
+<Implementation><![CDATA[
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoringDoorboring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.DoorBoring = BoringElementFactory.MaakDoorBoring(158,473, 10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakDoorBoring","","",2.5, ##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(DoorBoring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: uitvoeren van methode Rugboring">
+<Implementation><![CDATA[
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetKaderdeurBoringRugboring()
+	Set BoringElementFactory = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	#dim Rugboring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring = BoringElementFactory.MaakRugBoring(158,473, 10,10, ##class(TECH.Svg.enu.Kleur).Zwart())
+	Set BoringElementFactoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory).%New()
+	Do BoringElementFactoryMock.VerwachtMethodCall("MaakRugBoring","","",10,10, ##class(TECH.Svg.enu.Kleur).Zwart()).DanReturn(Rugboring)
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New(BoringElementFactoryMock)
+	
+	Do Boringen.VoegToeBoringen(Kaderdeur)
+	
+	Do BoringElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>