Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60842 -r71453
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60842)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 71453)
@@ -59,14 +59,32 @@
 ]]></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[
-	
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
-	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
-   ;kader v/d kaderdeur
+	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") { 	
@@ -79,11 +97,40 @@
   	Do ..MaakBoringen(KaderdeurObject)
   	;Schuine hoeken
   	Do ..MaakSchuineHoeken(KaderdeurObject)
-  	Do ..WriteFile(..SvgBox)
+  	
 	Quit
 ]]></Implementation>
 </Method>
 
+<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>
+
+<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[
@@ -97,12 +144,12 @@
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
 		If (ProfPlaats = "PR") {
-			Set LosOffset = (Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
+			Set LosOffset = (Breedte\1) - ((Breedte - (2 * LosOffset)) \ 1 + (LosOffset))
 		} ElseIf (ProfPlaats = "PO") {
-			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
+			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)
+		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = ..LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset, ProfPlaats)
 		Do ..ElementToevoeger.VoegToeElement(KaderGroup, KaderdeurProfiel)
 		;KaderGroup.VoegToeElement(KaderdeurProfiel)
 	} Else {
@@ -115,16 +162,9 @@
 <Method name="MaakVerbinders">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	#dim ProfPlaats As %String
-	#dim Breedte As %Integer = KaderdeurObject.Breedte
-	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
-	If (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
-	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
-	} Else {
-		Set ProfPlaats = "All"
-	}
+	
 	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
+	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinders(KaderdeurObject)
 	Do VerbindersGroup.VoegToeID("VerbindersGroep")
 	
 	Do ..ElementToevoeger.VoegToeElement(..SvgBox, VerbindersGroup)
@@ -137,7 +177,7 @@
 	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)
+		Do ..ElementToevoeger.VoegToeElement(..SvgBox, Beslag.Group)
 	}
 ]]></Implementation>
 </Method>
@@ -159,26 +199,10 @@
 	#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)
+  		Do ..ElementToevoeger.VoegToeElement(..SvgBox, SchuinehoekenGroep)
   	}
 ]]></Implementation>
 </Method>
-
-<Method name="WriteFile">
-<FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
-<Implementation><![CDATA[
-	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"	
-	} Catch {
-		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
-	}
-]]></Implementation>
-</Method>
 </Class>