Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(revision 59511)
@@ -0,0 +1,200 @@
+<?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>
+
+<Property name="Rects">
+<Type>TECH.Svg.Basis.Rect</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="rect"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Circles">
+<Type>TECH.Svg.Basis.Circle</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="circle"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Lines">
+<Type>TECH.Svg.Basis.Line</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="line"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Paths">
+<Type>TECH.Svg.Basis.Path</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="path"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Texts">
+<Type>TECH.Svg.Basis.Text</Type>
+<Collection>list</Collection>
+<Parameter name="XMLNAME" value="text"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</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>
+
+<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>
+
+<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>
+
+<Property name="Transform">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="transform"/>
+</Property>
+
+<Property name="X">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="x"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Y">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="y"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Height">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="height"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Width">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="width"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="ID">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Method name="GenereerSvg">
+<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 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()
+	}
+]]></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>
+</Class>
+
+
+</Export>