Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r61604 -r61614
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61604)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61614)
@@ -61,11 +61,21 @@
 </Method>
 
 <Method name="VulInStream">
-<FormalSpec>DevObj:%Library.Stream</FormalSpec>
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,DevObj:%Library.Stream,Taal:%String</FormalSpec>
 <Implementation><![CDATA[
 	//#dim Status As %Status = ..SvgBox.XMLExportToStream(DevObj)
 	//Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status)
 	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(..SvgBox))
+	
+	
+	#dim KadVertaler As Prod.GADef.KadVertaler = ##class(Prod.GADef.KadVertaler).%New(Taal)
+	#dim Value1 As %String =KadVertaler.Vertaal("Vooraanzicht")_": "
+ 	Set Value1=Value1_KadVertaler.Vertaal("lblAfmeting_Hoogte_Kort")_":"_KaderdeurObject.Hoogte_" mm x "_KadVertaler.Vertaal("lblAfmeting_Breedte_Kort")_":"_KaderdeurObject.Breedte_" mm"
+ 	Set Value1=Value1_$S(KaderdeurObject.Toepassing.ItemID="GL":"", 1:"  "_KaderdeurObject.ProfAfw.ItemID)
+ 	Set Value1=Value1_$S(KaderdeurObject.Vulling.Vulling="":"", 1:"  "_KaderdeurObject.Vulling.Vulling.OmsGet(Taal))
+ 	Do ##class(Tools.Wlip).%New(238).String(Value1)
+ 	#dim TextBox As TECH.Svg.Basis.Text = ..BasisElementFactory.MaakText(0,0,Value1)
+ 	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(TextBox))
 ]]></Implementation>
 </Method>
 
@@ -88,7 +98,8 @@
   	Do ..MaakBoringen(KaderdeurObject)
   	;Schuine hoeken
   	Do ..MaakSchuineHoeken(KaderdeurObject)
-  
+  	
+
 	Quit
 ]]></Implementation>
 </Method>
Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r61604 -r61614
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 61604)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 61614)
@@ -2659,6 +2659,7 @@
  Set Value1=Value1_KadVertaler.Vertaal("lblAfmeting_Hoogte_Kort")_":"_..Hoogte_" mm x "_KadVertaler.Vertaal("lblAfmeting_Breedte_Kort")_":"_..Breedte_" mm"
  Set Value1=Value1_$S(..Toepassing.ItemID="GL":"", 1:"  "_..ProfAfw.ItemID)
  Set Value1=Value1_$S(..Vulling.Vulling="":"", 1:"  "_..Vulling.Vulling.OmsGet(Taal))
+ Do ##class(Tools.Wlip).%New(238).String(Value1)
  Do TAGWRITE^XMLWRITE(DevObj,"v:textbox", $$ConvertToHTML^vhRtn1(Value1), Param1)
  Do WRITE^XMLWRITE(DevObj,NL)
  Do ENDTAG^XMLWRITE(DevObj, "v:shape")
@@ -2788,9 +2789,9 @@
  #dim SvgKaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
  If $G(Opties)["GASVG" Do  ; Tekening opnemen
  . Do SvgKaderdeur.GenereerSvg(%this)
- . Do BEGINTAG^XMLWRITE(DevObj,"SVN", "" )
- . Do SvgKaderdeur.VulInStream(DevObj)
- . Do ENDTAG^XMLWRITE(DevObj,"SVN")
+ . Do BEGINTAG^XMLWRITE(DevObj,"DRAWSVG", "" )
+ . Do SvgKaderdeur.VulInStream(%this, DevObj, Taal)
+ . Do ENDTAG^XMLWRITE(DevObj,"DRAWSVG")
  . Do WRITELN^XMLWRITE(DevObj)
 
  Do ENDTAG^XMLWRITE(DevObj,Tag)