Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60220 -r60222
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60220)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60222)
@@ -24,7 +24,7 @@
 <Method name="VoegToeBoringen">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	Set SvgBoxElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Do ..Group.VoegToeID("Boringen")
 	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Zwart()
 	#dim Boringen As array of Prod.GADef.emKadBoring = KaderdeurObject.Boringen
@@ -50,29 +50,29 @@
 			If (BoorType="Z") {
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 				Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,10,10,Rotation,Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,ZijBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
 				Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(XPos,YPos,10,10,Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
 				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,YPos,10,10,Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,PuntBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,PuntBoring)
 			}
 			Else {
 		
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10,Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,RugBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,RugBoring)
 			}	
 		
 			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10,Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Do ElementToevoeger.VoegToeElement(..Group,DoorBoring)
 			}
 			Set Boring = Boringen.GetNext(.Key)
 		}
@@ -83,7 +83,7 @@
 <Method name="VoegToeBeslagBoringen">
 <FormalSpec>Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set SvgBoxElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
@@ -136,13 +136,13 @@
 		
 		If ($L(Boring.VmlID) > 2) {
 			Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation)
-			Do SvgBoxElementToevoeger.VoegToeElement(SvgBox, BeslagBoringSpecialeVorm)
+			Do ElementToevoeger.VoegToeElement(SvgBox, BeslagBoringSpecialeVorm)
 		}
 		ElseIf (BoorType="Z") {
 			Set GrootteBoring = 14
 			Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 			Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
-			Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
+			Do ElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
 		}
 		ElseIf(Boring.IsSpecialeBoring()){
 			Set GrootteBoring = 10
@@ -151,12 +151,12 @@
 			} Else {
 				Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
 			}
-			Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
+			Do ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
 		}
 		ElseIf (Boring.BoorDiepte < 0) {
 			Set GrootteBoring = 10
 			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
-			Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
+			Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){
 			Set GrootteBoring = 10
@@ -165,21 +165,21 @@
 			} Else {
 				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
 			}
-			Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
+			Do ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
 		}
 		Else {
 			If (GrootteBoring<10) {
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,RugBoring)
+				Do ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
 			}Else {
 				#dim Straal As %Integer = GrootteBoring/2
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
-				Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
+				Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
 			}
 		}	
 	
 	}
-	Do SvgBoxElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
+	Do ElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
 	Do SvgBox.VoegToeID("beslag")
 	Do ..Group.VoegToeElement(SvgBox)
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60210 -r60222
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60210)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60222)
@@ -18,14 +18,19 @@
 <Method name="VulVerbinders">
 <FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
+	#dim BreedteVerbinder As %Integer
+	#dim XCirkel As %Integer 
+	#dim YCirkel As %Integer 
+	#dim LengteVerbinder As %Integer 
+	#dim StartVerbinder =1
 	if (HoekId=2) {
 		Set BreedteVerbinder = 61
-		Set LengteVerbinder = 41
 		Set XCirkel =39
+		Set LengteVerbinder = 41
 		Set YCirkel = 19 
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	} ElseIf (HoekId=1){
@@ -48,31 +53,31 @@
 	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
 	;benedenprofiel
-	If (ProfPlaats="PO"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+	If (ProfPlaats="PO"){ 
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	;bovenprofiel
 	If (ProfPlaats="PB"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	;linkse profiel
 	If (ProfPlaats="PL"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
 	}
 	;rechtse profiel
 	If (ProfPlaats="PR"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	
 	If (ProfPlaats="All") {
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	
 	Quit VerbinderGroup
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r60137 -r60222
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60137)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60222)
@@ -6,51 +6,51 @@
 <Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	Set ProfPlaats = "PL"
-	Set ProductiewijzeID= ""
-	Set HoekId=2
-	Set Breedte = 350
-	Set Hoogte = 450 
-	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	#dim ProfPlaats As %String = "PL"
+	#dim ProductiewijzeID As %String = ""
+	#dim HoekId As %Integer = 2
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450 
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met rechts profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	Set ProfPlaats = "PR"
-	Set ProductiewijzeID= ""
-	Set HoekId=2
-	Set Breedte = 350
-	Set Hoogte = 450 
-	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	#dim ProfPlaats As %String = "PR"
+	#dim ProductiewijzeID As %String = ""
+	#dim HoekId As %Integer = 2
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450 
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	Set ProfPlaats = "PL"
-	Set ProductiewijzeID= "LPR"
-	Set HoekId=2
-	Set Breedte = 350
-	Set Hoogte = 450 
-	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	#dim ProfPlaats As %String = "PL"
+	#dim ProductiewijzeID As %String = "LPR"
+	#dim HoekId As %Integer = 2
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450 
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	Set ProfPlaats = "PR"
-	Set ProductiewijzeID= "LPR"
-	Set HoekId=2
-	Set Breedte = 350
-	Set Hoogte = 450 
-	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	#dim ProfPlaats As %String = "PR"
+	#dim ProductiewijzeID As %String = "LPR"
+	#dim HoekId As %Integer = 2
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450 
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
 ]]></Implementation>
 </Method>