Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59511 -r71453
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59511)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 71453)
@@ -1,199 +1,208 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>TECH.RegisteredObject,TECH.Svg.Basis.DomElement</Super>
 
-<Property name="Rects">
-<Type>TECH.Svg.Basis.Rect</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="rect"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="SvgBox">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
 </Property>
 
-<Property name="Circles">
-<Type>TECH.Svg.Basis.Circle</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="circle"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="KADConversieUtils">
+<Type>APPS.Halux.PPS.ALUFrees.KADConversie.Utils</Type>
 </Property>
 
-<Property name="Lines">
-<Type>TECH.Svg.Basis.Line</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="line"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
 </Property>
 
-<Property name="Paths">
-<Type>TECH.Svg.Basis.Path</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="path"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
 </Property>
 
-<Property name="Texts">
-<Type>TECH.Svg.Basis.Text</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="text"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="KaderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger</Type>
+<Private>1</Private>
 </Property>
 
-<Property name="CrossDiags">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="crossdiag"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="LosProfielToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger</Type>
+<Private>1</Private>
 </Property>
 
-<Property name="CrossVHs">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="crossvh"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="HoekverbinderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger</Type>
+<Private>1</Private>
 </Property>
 
-<Property name="TCrosss">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="tcross"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+<Property name="SchuinehoekenToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger</Type>
+<Private>1</Private>
 </Property>
 
-<Property name="Transform">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="transform"/>
-</Property>
+<Method name="%OnNew">
+<FormalSpec>ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,BasisElementFactory:TECH.Svg.BasisElementFactory,KaderToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger,LosProfielToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger,HoekverbinderToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger,SchuinehoekenToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KADConversieUtils = ##class(APPS.Halux.PPS.ALUFrees.KADConversie.Utils).%New()
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ..KaderToevoeger = $$$Inject(KaderToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New())
+	Set ..LosProfielToevoeger = $$$Inject(LosProfielToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New())
+	Set ..HoekverbinderToevoeger = $$$Inject(HoekverbinderToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New())
+	Set ..SchuinehoekenToevoeger = $$$Inject(SchuinehoekenToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
 
-<Property name="X">
-<Type>%Integer</Type>
-<Parameter name="XMLNAME" value="x"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
+<Method name="VulInStream">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,DevObj:%Library.Stream,Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(..SvgBox))
+	
+	#dim KadVertaler As Prod.GADef.KadVertaler = ##class(Prod.GADef.KadVertaler).%New(Taal)
+	#dim Description As %String =KadVertaler.Vertaal("Vooraanzicht")_": "
+ 	Set Description = Description_KadVertaler.Vertaal("lblAfmeting_Hoogte_Kort")_":"_KaderdeurObject.Hoogte_" mm x "_KadVertaler.Vertaal("lblAfmeting_Breedte_Kort")_":"_KaderdeurObject.Breedte_" mm"
+ 	Set Description = Description_$S(KaderdeurObject.Toepassing.ItemID="GL":"", 1:"  "_KaderdeurObject.ProfAfw.ItemID)
+ 	Set Description = Description_$S(KaderdeurObject.Vulling.Vulling="":"", 1:"  "_KaderdeurObject.Vulling.Vulling.OmsGet(Taal))
+ 	#dim TextBox As TECH.Svg.Basis.Text = ..BasisElementFactory.MaakText(0, 0, ..GeefTekstVoorSvgDRAWTEXT(Description))
+ 	Set TextBox.ID = "DRAWTEXT"
+ 	
+ 	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(TextBox))
+]]></Implementation>
+</Method>
 
-<Property name="Y">
-<Type>%Integer</Type>
-<Parameter name="XMLNAME" value="y"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
+<Method name="GenereerSvg">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0, 0, Hoogte, Breedte, "http://www.w3.org/2000/svg", "http://www.w3.org/1999/xlink")
+	Set ..SvgBox.ViewBox = 0_" "_0_" "_Breedte_" "_Hoogte
+	Set ..SvgBox.ID = "groupDRAW"
+    ;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)
+  	
+	Quit
+]]></Implementation>
+</Method>
 
-<Property name="Height">
-<Type>%Integer</Type>
-<Parameter name="XMLNAME" value="height"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
+<Method name="WriteSvgToFile">
+<FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox,Locatie:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim DoelLocatie As %String
+	
+	Try {
+		If (Locatie ="") {
+			Set DoelLocatie = "D:\CacheExport\2010v2\DEV1\test2.xml"
+		} Else {
+			Set DoelLocatie = Locatie	
+		}
+		#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+		Do FileWriter.Open(DoelLocatie)
+		Do FileWriter.WriteXML(SvgBox)
+		Do FileWriter.Close()	
+	} Catch {
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
+	}
+]]></Implementation>
+</Method>
 
-<Property name="Width">
-<Type>%Integer</Type>
-<Parameter name="XMLNAME" value="width"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
+<Method name="GeefTekstVoorSvgDRAWTEXT">
+<FormalSpec>InputTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$FLATASCI^vhRtn1(InputTekst)
+]]></Implementation>
+</Method>
 
-<Property name="ID">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="id"/>
-<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
-</Property>
+<Method name="MaakKader">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	#dim ProfPlaats As %String
+	Set KaderGroup = ##class(TECH.Svg.Basis.Group).%New()
+  	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
+	  	Set KaderGroup = ..KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
+  	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
+	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
+		If (ProfPlaats = "PR") {
+			Set LosOffset = (Breedte\1) - ((Breedte - (2 * LosOffset)) \ 1 + (LosOffset))
+		} ElseIf (ProfPlaats = "PO") {
+			Set LosOffset = (Breedte\1) - ((Breedte - (2 * LosOffset))\1 + (LosOffset))
+		}
+		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
+		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = ..LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset, ProfPlaats)
+		Do ..ElementToevoeger.VoegToeElement(KaderGroup, KaderdeurProfiel)
+		;KaderGroup.VoegToeElement(KaderdeurProfiel)
+	} Else {
+		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
+	}
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, KaderGroup)
+]]></Implementation>
+</Method>
 
-<Method name="GenereerSvg">
+<Method name="MaakVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
 	
-	Set Group = ##class(TECH.Svg.Basis.Group).%New()
-	Set Circle = ##class(TECH.Svg.Basis.Circle).%New(15,35,1)
-	Set Rect = ##class(TECH.Svg.Basis.Rect).%New(0,0,150,105)
-	Do Group.VoegToeElement(Rect)
-	Do Group.VoegToeElement(Circle)
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinders(KaderdeurObject)
+	Do VerbindersGroup.VoegToeID("VerbindersGroep")
 	
-	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
-	Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(15,15,5,5)
-	Set Puntboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(15,15,5,5)
-	Set Rugboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(15,15,5,5)
-	Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
-	Do Boringen.VoegToeElement(DoorBoring)
-	Do Boringen.VoegToeElement(Puntboring)
-	Do Boringen.VoegToeElement(Rugboring)
-	Do Boringen.VoegToeElement(Zijboring)
-	
-	
-	
-	
-	Try {
-	#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
-	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	Do FileWriter.Open(DoelLocatie)
-	Do FileWriter.WriteXML(Boringen)
-	Do FileWriter.Close()
-	w "het bestand is weggeschreven"	
-	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, VerbindersGroup)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBeslag">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") {
+		Set Beslag = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
+		Do Beslag.VoegToeBeslagen(KaderdeurObject)
+		Do ..ElementToevoeger.VoegToeElement(..SvgBox, Beslag.Group)
 	}
 ]]></Implementation>
 </Method>
 
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<Data name="DomElementState">
-<Value name="1">
-<Value>Fill</Value>
-</Value>
-<Value name="2">
-<Value>Stroke</Value>
-</Value>
-<Value name="3">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="4">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="5">
-<Value>Overflow</Value>
-</Value>
-<Value name="6">
-<Value>Opacity</Value>
-</Value>
-<Value name="7">
-<Value>Rects</Value>
-</Value>
-<Value name="8">
-<Value>Circles</Value>
-</Value>
-<Value name="9">
-<Value>Lines</Value>
-</Value>
-<Value name="10">
-<Value>Paths</Value>
-</Value>
-<Value name="11">
-<Value>Texts</Value>
-</Value>
-<Value name="12">
-<Value>CrossDiags</Value>
-</Value>
-<Value name="13">
-<Value>CrossVHs</Value>
-</Value>
-<Value name="14">
-<Value>TCrosss</Value>
-</Value>
-<Value name="15">
-<Value>Transform</Value>
-</Value>
-<Value name="16">
-<Value>X</Value>
-</Value>
-<Value name="17">
-<Value>Y</Value>
-</Value>
-<Value name="18">
-<Value>Height</Value>
-</Value>
-<Value name="19">
-<Value>Width</Value>
-</Value>
-<Value name="20">
-<Value>ID</Value>
-</Value>
-</Data>
-</Storage>
+<Method name="MaakBoringen">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+  	Do Boringen.VoegToeBoringen(KaderdeurObject)
+	Do ..SvgBox.VoegToeElement(Boringen.Group)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSchuineHoeken">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
+  		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = ..SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
+  		Do ..ElementToevoeger.VoegToeElement(..SvgBox, SchuinehoekenGroep)
+  	}
+]]></Implementation>
+</Method>
 </Class>