Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60138 -r71453
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60138)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 71453)
@@ -12,97 +12,197 @@
 <Type>APPS.Halux.PPS.ALUFrees.KADConversie.Utils</Type>
 </Property>
 
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Property name="KaderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosProfielToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HoekverbinderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SchuinehoekenToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<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>
 
+<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>
+
 <Method name="GenereerSvg">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Breedte = KaderdeurObject.Breedte
-	Set Hoogte = KaderdeurObject.Hoogte
-	#Dim SvgBox As TECH.Svg.Basis.SvgBox =BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
-   ;kader v/d kaderdeur
-  	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
-  	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
-  	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
-	  	Set KaderGroup = KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
-	  	Set ProfPlaats = "All"
-  	} 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)
-		Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
-		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
-		Do KaderGroup.VoegToeElement(KaderdeurProfiel)
-	} Else {
-		Set ProfPlaats = "All"
-		Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
-	}
-	Do SvgBox.VoegToeElement(KaderGroup)
+	#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
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
+	If (KaderdeurObject.Toepassing.ItemID ="GL") { 	
   	} Else {
-		Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
-		Do VerbindersGroup.VoegToeID("VerbindersGroep")
-		Do SvgBox.VoegToeElement(VerbindersGroup)
+	  	Do ..MaakVerbinders(KaderdeurObject)
 	}
 	;Beslag 
-	If (KaderdeurObject.Toepassing.ItemID'="GL") {
-		#dim Beslag As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
-		Do Beslag.VoegToeBeslagen(KaderdeurObject)
-		Do SvgBox.VoegToeElement(Beslag.Group)
-	} 
+	Do ..MaakBeslag(KaderdeurObject)
 	;Boringen
-  	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
-  	Do Boringen.VoegToeBoringen(KaderdeurObject)
-	Do SvgBox.VoegToeElement(Boringen.Group)
+  	Do ..MaakBoringen(KaderdeurObject)
   	;Schuine hoeken
-  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
-  		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
-  		Set SchuinehoekenGroep = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
-  		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
-  	}
-  	Set ..SvgBox = SvgBox
+  	Do ..MaakSchuineHoeken(KaderdeurObject)
   	
-  	;schrijf svg tag naar file
-  	Do ..WriteFile(SvgBox)
 	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="WriteFile">
-<FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
+<Method name="WriteSvgToFile">
+<FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox,Locatie:%String=""</FormalSpec>
 <Implementation><![CDATA[
+	#dim DoelLocatie As %String
+	
 	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(SvgBox)
-	Do FileWriter.Close()
-	w "het bestand is weggeschreven hoi"	
+		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.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefTekstVoorSvgDRAWTEXT">
+<FormalSpec>InputTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$FLATASCI^vhRtn1(InputTekst)
+]]></Implementation>
+</Method>
+
+<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="MaakVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinders(KaderdeurObject)
+	Do VerbindersGroup.VoegToeID("VerbindersGroep")
+	
+	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>
+
+<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>