Index: vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(revision 60103)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur">
+<Super>%RegisteredObject</Super>
+
+<Method name="StandaardKaderdeur">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	Set Kaderdeur=##class(Prod.GADef.KaderDeur).%New()
+	Set Kaderdeur.Hoogte=800
+	Set Kaderdeur.Breedte=470
+	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")
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetKaderdeurBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	Set 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.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetBeslag">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	Set Kaderdeur=..StandaardKaderdeur()
+	Set BeslagItem = ##class(Res.PI.Beslag).%New()
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set Beslag = ##class(Prod.GADef.emKadBeslag).%New()
+	Set Positie = ##class(Prod.GADef.emKadBeslagPos).%New()
+	
+	Set Positie.AfstandRand = 5
+	Set Positie.LengtePos = 10
+	Do Beslag.Positie.SetAt(Positie, Beslag.Positie.Count()+1)
+	
+	Set Boring.BoorDiameter=35
+	Set Boring.BoorDiepte = 12.7
+	Set Boring.BoringType = "ON"
+	Set Boring.XPos = 17.5
+	Set Boring.YPos = 0
+	Do BeslagItem.Boringen.SetAt(Boring, BeslagItem.Boringen.Count()+1)
+
+	Do BeslagItem.AfstandBoorMaat.SetAt(5,"DFL")
+	Do BeslagItem.AfstandBoorMaat.SetAt(7,"Max")
+	Do BeslagItem.AfstandBoorMaat.SetAt(-5,"Min")
+	Do BeslagItem.AfstandBoorMaat.SetAt("ON+","TYP")
+	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") 
+	Do BeslagItem.TaalOms.SetAt("BLUM - Std für Blumotion", "D") 
+	Do BeslagItem.TaalOms.SetAt("BLUM - std for Blumotion", "E") 
+	Do BeslagItem.TaalOms.SetAt("BLUM - std pour Blumotion", "F") 
+	Do BeslagItem.TaalOms.SetAt("BLUM - std voor Blumotion", "N") 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PBR"), 1)
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PBA"), 2) 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PBG"), 3) 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PBK"), 4) 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PB9"), 5) 
+	Do BeslagItem.BeperkingProfType.SetAt($lb("1||PB9"), 6)
+	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 Kaderdeur.Beslag.SetAt(Beslag, Kaderdeur.Beslag.Count()+1)
+	Set Beslag.Beslag = BeslagItem
+	
+
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+
+<Method name="StandaardKaderdeurMetBeslagEnBoring">
+<ClassMethod>1</ClassMethod>
+<ReturnType>Prod.GADef.KaderDeur</ReturnType>
+<Implementation><![CDATA[
+	Set Kaderdeur=..StandaardKaderdeurMetBeslag()
+	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.Boringen.SetAt(Boring, Kaderdeur.Boringen.Count()+1)
+	
+	Quit Kaderdeur
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>