Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60226)
@@ -29,15 +29,15 @@
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Breedte = KaderdeurObject.Breedte
-	Set Hoogte = KaderdeurObject.Hoogte
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = 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"
+	  	#dim ProfPlaats As %String = "All"
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
@@ -77,7 +77,7 @@
   	;Schuine hoeken
   	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
   		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
-  		Set SchuinehoekenGroep = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
+  		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
   		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
   	}
   	Set ..SvgBox = SvgBox
@@ -92,14 +92,14 @@
 <FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-	Set DoelLocatie = "D:\CacheExport\2010v2\DEV1\test2.xml"
-	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#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 {
-		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
 ]]></Implementation>
 </Method>