Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r61540 -r61600
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61540)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61600)
@@ -404,6 +404,66 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StandaardKaderdeurMetBeslagEnBoringRechtsLosProfiel">
+<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("PR")
+
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetBeslagEnBoringOnderLosProfiel">
+<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("PO")
+
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetBeslagEnBoringBovenLosProfiel">
+<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("PB")
+
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
 <Method name="GlasKaderdeurMetBeslagEnBoring">
 <ClassMethod>1</ClassMethod>
 <ReturnType>Prod.GADef.KaderDeur</ReturnType>