Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60737 -r60842
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60737)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60842)
@@ -400,11 +400,28 @@
 	Do Kaderdeur.ProductieWijzeSetObjectId("LPR")
 	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
 	Do Kaderdeur.Onderdelen.Insert("PL")
-	Do ##class(Tools.Wlip).%New(26).String(Kaderdeur.ProductieWijzeGetObjectId())
-	Do ##class(Tools.Wlip).%New(26).String(Kaderdeur.Onderdelen.GetNext())
+
 	Quit Kaderdeur
 ]]></Implementation>
 </Method>
+
+<Method name="GlasKaderdeurMetBeslagEnBoring">
+<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 = "VUL"
+	Set Boring.BoringType = "ON"
+	Set Boring.XPos = 158
+	Set Boring.YPos = 473
+	Set Kaderdeur.Toepassing.ItemID = "GL"
+	Do Kaderdeur.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60737 -r60842
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60737)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60842)
@@ -78,7 +78,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: standaardgedrag uitvoeren van methodes volledig kaderdeurobject met Los Profiel">
+<Method name="Test: standaardgedrag uitvoeren van methodes volledig kaderdeurobject met Los Profiel">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringLosProfiel()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
@@ -97,24 +97,47 @@
 	Do KaderToevoegerMock.VerwachtMethodCall("VulDrieRects",Kaderdeur,470,800,1).DanReturn(Group)
 	Do LosProfielToevoegerMock.VerwachtMethodCall("LosProfiel",470,800,50,"PL")
 	Do HoekverbinderToevoegerMock.VerwachtMethodCall("VoegToeVerbinder","LPR","PL",2,470,800).DanReturn(Group)
-	Do SchuinehoekenToevoegerMock.VerwachtMethodCall("SchuineHoeken",50,470,800)
-	;Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
 	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",..Matches.Object(SvgBox),..Matches.Object(Group))
 	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
-	Do SchuinehoekenToevoegerMock.VerwachtMethodCall("SchuineHoeken",50,470,800)
 	
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	
 	Do BasisElementFactoryMock.Verifieer()
 	Do ElementToevoegerMock.Verifieer()
-	Do SchuinehoekenToevoegerMock.Verifieer()
 	Do HoekverbinderToevoegerMock.Verifieer()
 	Do KaderToevoegerMock.Verifieer()
-	Do SchuinehoekenToevoegerMock.Verifieer()
 	Do LosProfielToevoegerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: standaardgedrag uitvoeren van methodes volledig kaderdeurobject met Glas">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).GlasKaderdeurMetBeslagEnBoring()
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,0,0)
+	#dim Group As TECH.Svg.Basis.Group = BasisElementFactory.MaakGroup()
+	
+	Set KaderToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
+	Set LosProfielToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
+	Set HoekverbinderToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
+	Set SchuinehoekenToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set ElementToevoegerMock =  ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New(ElementToevoegerMock, BasisElementFactoryMock, KaderToevoegerMock, LosProfielToevoegerMock, HoekverbinderToevoegerMock, SchuinehoekenToevoegerMock)
+	
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakSvgBox",0,0,800,470).DanReturn(SvgBox)
+	Do KaderToevoegerMock.VerwachtMethodCall("VulTweeRects",Kaderdeur,470,800).DanReturn(Group)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",..Matches.Object(SvgBox),..Matches.Object(Group))
+
+	
+	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
+	
+	Do BasisElementFactoryMock.Verifieer()
+	Do ElementToevoegerMock.Verifieer()
+	Do KaderToevoegerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: standaardgedrag met toegevoegde groepen: kader, verbindersgroep en schuine hoeken">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60838 -r60842
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60838)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60842)
@@ -86,7 +86,6 @@
 
 <Method name="MaakKader">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
-<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte