Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60630 -r60737
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60630)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60737)
@@ -12,7 +12,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: standaardgedrag uitvoeren van methodes volledig kaderdeurobject">
+<Method name="Test: standaardgedrag uitvoeren van methodes volledig kaderdeurobject met boring">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
@@ -35,7 +35,39 @@
 	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()
+]]></Implementation>
+</Method>
+
+<Method name="Test: standaardgedrag uitvoeren van methodes volledig kaderdeurobject zonder boring">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslag()
+	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("VulDrieRects",Kaderdeur,470,800,0).DanReturn(Group)
+	Do HoekverbinderToevoegerMock.VerwachtMethodCall("VoegToeVerbinder","","All",2,470,800).DanReturn(Group)
+	;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()
@@ -46,6 +78,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="aTest: 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()
+	#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("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 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 -r60630 -r60737
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60630)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60737)
@@ -66,21 +66,15 @@
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
 	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
-   ;kader v/d kaderdeur
 	Do ..MaakKader(KaderdeurObject)
-	;Verbinders
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 	
   	} Else {
 	  	Do ..MaakVerbinders(KaderdeurObject)
 	}
-	;Beslag 
 	Do ..MaakBeslag(KaderdeurObject)
-	;Boringen
   	Do ..MaakBoringen(KaderdeurObject)
-  	;Schuine hoeken
   	Do ..MaakSchuineHoeken(KaderdeurObject)
-
-  	;schrijf svg tag naar file 
+  	
   	Do ..WriteFile(..SvgBox)
 	Quit
 ]]></Implementation>
Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60385 -r60737
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60385)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60737)
@@ -13,7 +13,7 @@
 	Do Kaderdeur.ToepassingSetObjectId(##class(Res.PI.Definitie).IDViaNaam("Toepas")_"||"_"KD")
 	Do Kaderdeur.ProfTypeSetObjectId(##class(Res.PI.Definitie).IDViaNaam("ProfType")_"||PBG")
 	Do Kaderdeur.ProfAfwSetObjectId(##class(Res.PI.Definitie).IDViaNaam("ProfAfw")_"||PBG-EV")
-	
+	w "standaard kaderdeur gebruik je nu"
 	Quit Kaderdeur
 ]]></Implementation>
 </Method>
@@ -384,6 +384,27 @@
 	Quit Kaderdeur
 ]]></Implementation>
 </Method>
+
+<Method name="StandaardKaderdeurMetBeslagEnBoringLosProfiel">
+<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
+	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>
 </Class>