Index: Prod/GADef/KaderDeur.cls.xml =================================================================== diff -u -r61920 -r62978 --- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 61920) +++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 62978) @@ -2788,11 +2788,13 @@ #dim SvgKaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New() If $G(Opties)["GASVG" Do ; Tekening opnemen . Do SvgKaderdeur.GenereerSvg(%this) + . Do WRITELN^XMLWRITE(DevObj) . Do BEGINTAG^XMLWRITE(DevObj,"DRAWSVG", "" ) + . Do WRITELN^XMLWRITE(DevObj) . Do SvgKaderdeur.VulInStream(%this, DevObj, Taal) . Do ENDTAG^XMLWRITE(DevObj,"DRAWSVG") . Do WRITELN^XMLWRITE(DevObj) - + Do ENDTAG^XMLWRITE(DevObj,Tag) Do WRITELN^XMLWRITE(DevObj)