Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60197 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60197)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60226)
@@ -8,32 +8,29 @@
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
-	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
-	Set RightTopInner = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
-	Set LeftBottomInner = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
-	Set RightBottomInner =BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
+	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
+	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
+	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
 	
-	Set LeftTopOuter = BasisElementFactory.MaakCoordinaat(0,0)
-	Set RightTopOuter = BasisElementFactory.MaakCoordinaat(Breedte,0)
-	Set LeftBottomOuter = BasisElementFactory.MaakCoordinaat(0, Lengte)
-	Set RightBottomOuter = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
-	
+	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0,0)
+	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte,0)
+	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0, Lengte)
+	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
+	#dim CoordinatesList As %ListOfObject
 	If (ProfPlaats="PL") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PB") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, RightTopOuter, RightTopInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PR") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightTopInner, RightTopOuter, RightBottomOuter, RightBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PO") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(CoordinatesList)
 		Do Path.SetFill("#F0F0F0")
 		Do Path.SetStroke("black",2)
 		Do Path.SetOpacity(0.5)