Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60138 -r60209
--- 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 60209)
@@ -65,17 +65,17 @@
 		Do SvgBox.VoegToeElement(VerbindersGroup)
 	}
 	;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()
+	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") {
+		Set Beslag = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
 		Do Beslag.VoegToeBeslagen(KaderdeurObject)
 		Do SvgBox.VoegToeElement(Beslag.Group)
 	} 
 	;Boringen
-  	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+  	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
   	Do Boringen.VoegToeBoringen(KaderdeurObject)
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
-  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
+  	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)
   		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
@@ -92,14 +92,14 @@
 <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()
+	Set DoelLocatie = "D:\CacheExport\2010v2\DEV1\test2.xml"
+	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	Do FileWriter.Open(DoelLocatie)
 	Do FileWriter.WriteXML(SvgBox)
 	Do FileWriter.Close()
-	w "het bestand is weggeschreven hoi"	
+	w "het bestand is weggeschreven"	
 	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 	}
 ]]></Implementation>
 </Method>