Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60209)
@@ -22,7 +22,7 @@
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set Circle = BasisElementFactory.MaakCirkel( Straal,Straal,Straal)
 	Do Circle.SetFill(Kleur)
-	Set ..SvgBox = BasisElementFactory.MaakSvgBox(PosX,PosY, Straal*2, Straal*2)
+	Set ..SvgBox = BasisElementFactory.MaakSvgBox(PosX-Straal,PosY-Straal, Straal*2, Straal*2)
 	DO ..SvgBox.VoegToeElement(Circle)
 	DO ..SvgBox.VoegToeID("doorboring")
 	Quit $$$OK
@@ -32,9 +32,7 @@
 <Method name="XMLExport">
 <FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
+<Implementation><![CDATA[	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml	(.../CrossDiag.cls.xml)	(revision 60209)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag">
-<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossdiag</Default>
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Set val=..TopLine
    	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-   	if ('sc) {
+   	if $$$Not(sc) {
    		Quit sc 
    	}Else {
  		Set val=..BottomLine
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>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml
===================================================================
diff -u -r60191 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 60191)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml	(.../TCross.cls.xml)	(revision 60209)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross">
-<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>tcross</Default>
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Set val=..HorizontalLine
    	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-   	if ('sc) {
+   	if $$$Not(sc) {
    		Quit sc 
    	}Else {
  		Set val=..VerticalLine
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml
===================================================================
diff -u -r60191 -r60209
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60191)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring/Test.cls.xml	(.../Test.cls.xml)	(revision 60209)
@@ -8,7 +8,7 @@
 	
 		Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(0,0,5,##class(TECH.Svg.enu.Kleur).Zwart())
 		
-		Do ..AssertSvg(DoorBoring, "<svg x=""0"" y=""0"" height=""10"" width=""10"" id=""doorboring"">  <circle fill=""black"" cx=""5"" cy=""5"" r=""5""></circle></svg>")
+		Do ..AssertSvg(DoorBoring, "<svg x=""-5"" y=""-5"" height=""10"" width=""10"" id=""doorboring"">  <circle fill=""black"" cx=""5"" cy=""5"" r=""5""></circle></svg>")
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60209)
@@ -31,10 +31,7 @@
 <Method name="XMLExport">
 <FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set val=..SvgBox
-   	Set sc = val.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-	Quit sc
+<Implementation><![CDATA[	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml	(.../CrossVH.cls.xml)	(revision 60209)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH">
-<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling</Super>
+<Super>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling,TECH.RegisteredObject</Super>
 
 <Parameter name="XMLNAME">
 <Default>crossvh</Default>
@@ -40,7 +40,7 @@
 <Implementation><![CDATA[
 	Set val=..HorizontalLine
    	Set sc = val.XMLExport("line", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-   	if ('sc) {
+   	if $$$Not(sc) {
    		Quit sc 
    	}Else {
  		Set val=..VerticalLine
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60138 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60138)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60209)
@@ -26,14 +26,11 @@
 <Implementation><![CDATA[
 	
 	Do ..Group.VoegToeID("Boringen")
-	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Zwart()
+	Set Kleur = ##class(TECH.Svg.enu.Kleur).Zwart()
 	#dim Boringen As array of Prod.GADef.emKadBoring = KaderdeurObject.Boringen
 	#dim Key As %String = ""
 	#dim Boring As Prod.GADef.emKadBoring = Boringen.GetNext(.Key)
 	#dim Circle As TECH.Svg.Basis.Circle
-	;#dim TCross As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross
-	;#dim CrossDiag As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag
-	;#dim CrossVH As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH
 	#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
 	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring
 	#dim RugBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring
@@ -63,7 +60,7 @@
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
 				Do ..Group.VoegToeElement(DoorBoring)
 			}
-			ElseIf(Boring.BoorDiameter<0)||(Boring.BoorDiepte=0){
+			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 ..Group.VoegToeElement(PuntBoring)
 			}
@@ -73,7 +70,7 @@
 				Do ..Group.VoegToeElement(RugBoring)
 			}	
 		
-			If (BoorType = "Z"), (Boring.BoorDiepte<0) {
+			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10,Kleur)
 				Do ..Group.VoegToeElement(DoorBoring)
 			}
@@ -86,21 +83,20 @@
 <Method name="VoegToeBeslagBoringen">
 <FormalSpec>Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	;
 	Do ..Group.VoegToeID("Boringen")
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
-	#dim Boring As Prod.GADef.emKadBoring = ##class(Prod.GADef.emKadBoring).%New()
-	#dim BoringenIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(Boringen)
-	#dim BasisElementFactory As TECH.Svg.BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim Kleur As TECH.Svg.enu.Kleur = ##class(TECH.Svg.enu.Kleur).Blauw()
-	Set:(BPosX<0) BPosX= Breedte - BPosX
-	Set:(BPosY<0) BPosY= Hoogte - BPosY
+	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
+	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set Kleur = ##class(TECH.Svg.enu.Kleur).Blauw()
 	Set TijdelijkeOffsetX = Beslag.ConstructAfm.GetAt("OFFSX")
 	Set TijdelijkeOffsetY = Beslag.ConstructAfm.GetAt("OFFSY")
 	Set TijdelijkeBreedte = Beslag.ConstructAfm.GetAt("VRZB")
 	Set TijdelijkeHoogte = Beslag.ConstructAfm.GetAt("VRZH")
 	Set Hoogte =$S(ProfielPlaats="PB"!(ProfielPlaats="PO"):TijdelijkeBreedte, 1:TijdelijkeHoogte)
 	Set Breedte = $S(ProfielPlaats="PB"!(ProfielPlaats="PO"):TijdelijkeHoogte, 1:TijdelijkeBreedte)
+	Set:(BPosX<0) BPosX= Breedte - BPosX
+	Set:(BPosY<0) BPosY= Hoogte - BPosY
 	If (ProfielPlaats = "PL") {
 		Set OffsetX = TijdelijkeOffsetX
 		Set OffsetY = TijdelijkeOffsetY
@@ -125,6 +121,7 @@
 		Set Boring = BoringenIterator.Next()
 		Set tmpX=Boring.XPos
  		Set tmpY=Boring.YPos
+ 		Do ##class(Tools.Wlip).%New(238).String("Oospronkelijk"_tmpX)
  		Set XPos = $S(ProfielPlaats="PR":-tmpX, (ProfielPlaats="PB")!(ProfielPlaats="PO"):tmpY, 1:tmpX)
  		Set YPos = $S(ProfielPlaats="PR":tmpY, ProfielPlaats="PB":tmpX, ProfielPlaats="PO":-tmpX, 1:tmpY)
  		Set XPos = XPos + OffsetX
@@ -137,7 +134,7 @@
 		Set BoorType = Boring.BoringType
 		Set BoorType=$S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
-		If ($L(Boring.VmlID)>2) {
+		If ($L(Boring.VmlID) > 2) {
 			Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation)
 			Do ..Group.VoegToeElement(BeslagBoringSpecialeVorm)
 		}
@@ -161,7 +158,7 @@
 			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
 			Do SvgBox.VoegToeElement(DoorBoring)
 		}
-		ElseIf(Boring.BoorDiameter<0) || (Boring.BoorDiepte=0){
+		ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){
 			Set GrootteBoring = 10
 			if (YPos < 0) {
 				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
@@ -175,8 +172,8 @@
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
 				Do ..Group.VoegToeElement(RugBoring)
 			}Else {
-				Set Straal = GrootteBoring\2
-				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
+				Set Straal = GrootteBoring/2
+				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,Straal, Kleur)
 				Do SvgBox.VoegToeElement(DoorBoring)	
 			}
 		}	
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60192 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60192)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60209)
@@ -37,65 +37,65 @@
 		Set blnCalcPrm=1
 		While ($$$HasLength(Positie)) {
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
-			If (blnCalcPrm)!(KeyPositie'?.N) {
+			If (blnCalcPrm)!$$$Not(KeyPositie?.N) {
 			Set ProfielPlaats = KaderdeurObject.ProfielPlaatsGet(Beslag, Key, KeyPositie)
 			Set ProfType = KaderdeurObject.ProfType
 			Set blnCalcPrm = $S(KeyPositie?.N:0,1:1)
 			}	
 			Set BeslagPositie = Posities.GetAt(KeyPositie)
-			Set Pos = BeslagPositie.LengtePos
+			Set LengtePositie = BeslagPositie.LengtePos
 			Set AfBM = BeslagPositie.AfstandRand
-			Set:('AfBM) AfBM = 0
+			Set:($$$Not(AfBM)) AfBM = 0
 			Set TYP = Beslag.Beslag.AfstandBoorMaat.GetAt("TYP")
 			Set:(TYP="") TYP="ON+"
-			Set BPosX = ..BepaalPositieX(TYP, ProfType, AfBM, ProfielPlaats)
- 			Set BPosZ = ..BepaalPositieZ(TYP,ProfType,AfBM,ProfielPlaats)
- 			Set BPosY=Pos
+			Set BeslagPositieX = ..BepaalPositieX(TYP, ProfType, AfBM, ProfielPlaats)
+ 			Set BeslagPositieZ = ..BepaalPositieZ(TYP,ProfType,AfBM,ProfielPlaats)
+ 			Set BeslagPositieY=LengtePositie
  			
- 			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BPosX="") ! (BPosY="") ! (BPosZ="") {
+ 			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BeslagPositieX="") ! (BeslagPositieY="") ! (BeslagPositieZ="") {
 				Set Positie = Posities.GetNext(.KeyPositie)
 			} else {
- 			Set tmpX=BPosX
- 			Set tmpY=BPosY
- 			If (ProfielPlaats="") {
- 				Set ProfielPlaats = "PL"
- 			}
- 			If (ProfielPlaats="PB") {
-  				Set BPosX=tmpY
-  				Set BPosY=tmpX
- 			}
- 			ElseIf (ProfielPlaats="PR") {
-  				Set BPosX=KaderdeurObject.Breedte-tmpX
- 			}
- 			ElseIf (ProfielPlaats="PO") {
-  				Set BPosX=tmpY
-  				Set BPosY=KaderdeurObject.Hoogte-tmpX
- 			}
- 			If (BPosY<0) {
-	 			Set BPosY=KaderdeurObject.Hoogte+BPosY         ; Substract = add Negative Number
- 			}
- 			If (BPosX<0) {
-				Set BPosX=KaderdeurObject.Breedte+BPosX        ; Substract = add Negative Number
+	 			Set tmpX=BeslagPositieX
+	 			Set tmpY=BeslagPositieY
+	 			If (ProfielPlaats="") {
+	 				Set ProfielPlaats = "PL"
+	 			}
+	 			If (ProfielPlaats="PB") {
+	  				Set BeslagPositieX=tmpY
+	  				Set BeslagPositieY=tmpX
+	 			}
+	 			ElseIf (ProfielPlaats="PR") {
+	  				Set BeslagPositieX = KaderdeurObject.Breedte-tmpX
+	 			}
+	 			ElseIf (ProfielPlaats="PO") {
+	  				Set BeslagPositieX = tmpY
+	  				Set BeslagPositieY = KaderdeurObject.Hoogte-tmpX
+	 			}
+	 			If (BeslagPositieY<0) {
+		 			Set BeslagPositieY=KaderdeurObject.Hoogte+BeslagPositieY         ; Substract = add Negative Number
+	 			}
+	 			If (BeslagPositieX<0) {
+					Set BeslagPositieX=KaderdeurObject.Breedte+BeslagPositieX        ; Substract = add Negative Number
+				}
+				If (BeslagPositieZ<0) {
+		 			Set BeslagPositieZ=ProfType.Dikte+BeslagPositieZ            ; Substract = add Negative Number
+	 			}
+	 			Do ..MaakBeslag(Beslag, BeslagPositieX, BeslagPositieY, BeslagPositieZ, ProfielPlaats)
+				Set Positie = Posities.GetNext(.KeyPositie)
 			}
-			If (BPosZ<0) {
-	 			Set BPosZ=ProfType.Dikte+BPosZ            ; Substract = add Negative Number
- 			}
- 			Do ..MaakBeslag(Beslag, BPosX, BPosY, BPosZ, ProfielPlaats)
-			Set Positie = Posities.GetNext(.KeyPositie)
-			}
 		}
 		Set Beslag = Beslagen.GetNext(.Key)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBeslag">
-<FormalSpec>Beslag:Prod.GADef.emKadBeslag,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer,ProfielPlaats:%String</FormalSpec>
+<FormalSpec>Beslag:Prod.GADef.emKadBeslag,BeslagPositieX:%Integer,BeslagPositieY:%Integer,BeslagPositieZ:%Integer,ProfielPlaats:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	
 	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
-  	Do Boringen.VoegToeBeslagBoringen(Beslag.Beslag, ProfielPlaats, BPosX, BPosY, BPosZ)
+  	Do Boringen.VoegToeBeslagBoringen(Beslag.Beslag, ProfielPlaats, BeslagPositieX, BeslagPositieY, BeslagPositieZ)
   
   	Do ..Group.VoegToeElement(Boringen.Group)
 ]]></Implementation>
@@ -106,32 +106,32 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (TYP="ON+") {
-		Set BPosX=AfBM
+		Set BeslagPositieX=AfBM
 	}
 	ElseIf (TYP="ON-") {
-		Set BPosX=ProfType.Breedte-AfBM
+		Set BeslagPositieX=ProfType.Breedte-AfBM
 	}
 	ElseIf (TYP="IN+") {
-		Set BPosX=ProfType.Breedte 
+		Set BeslagPositieX=ProfType.Breedte 
 	}
  	ElseIf (TYP="IN-") {
-	 	Set BPosX=ProfType.Breedte
+	 	Set BeslagPositieX=ProfType.Breedte
  	}
  	ElseIf (TYP="BO+") {
-	 	Set BPosX=AfBM
+	 	Set BeslagPositieX=AfBM
  	}
  	ElseIf (TYP="BO-") {
-	 	Set BPosX=ProfType.Breedte-AfBM
+	 	Set BeslagPositieX=ProfType.Breedte-AfBM
  	}
  	ElseIf (TYP="EX+") {
-	 	Set BPosX=0
+	 	Set BeslagPositieX=0
  	}
  	ElseIf (TYP="EX-") {
-	 	Set BPosX=0
+	 	Set BeslagPositieX=0
  	}Else {
 	 	Quit
  	}
-	Quit BPosX
+	Quit BeslagPositieX
 ]]></Implementation>
 </Method>
 
@@ -140,21 +140,21 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If ($E(TYP,1,2)="ON") {
-	 	Set BPosZ=0
+	 	Set BeslagPositieZ=0
  	}
 	ElseIf (TYP="IN+")!(TYP="EX+") {
-		Set BPosZ=AfBM
+		Set BeslagPositieZ=AfBM
 	}
  	ElseIf (TYP="IN-")!(TYP="EX-") {
-	 	Set BPosZ=ProfType.Dikte-AfBM
+	 	Set BeslagPositieZ=ProfType.Dikte-AfBM
  	}ElseIf ($E(TYP,1,2)="BO") {
-	 	Set BPosX=ProfType.Breedte
+	 	Set BeslagPositieX=ProfType.Breedte
  	}
  	Else {
 	 	Quit
  	}
  
- 	Quit BPosZ
+ 	Quit BeslagPositieZ
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u -r60134 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60209)
@@ -32,7 +32,6 @@
 	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 	
-	
 	Do ..Group.VoegToeElement(Circle1)
 	Do ..Group.VoegToeElement(Circle2)
 	Do ..Group.VoegToeElement(Path)
@@ -44,10 +43,7 @@
 <Method name="XMLExport">
 <FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set val=..Group
-   	Set sc = val.XMLExport("g", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
-	Quit sc
+<Implementation><![CDATA[	Quit ..Group.XMLExport("g", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60122 -r60209
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60122)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60209)
@@ -4,7 +4,7 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="VulDrieRects">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim KaderOffset As %Integer
@@ -20,7 +20,7 @@
 	Set KDInner = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
-	If (Los = 0){
+	If (LosProfiel = 0){
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
 		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
@@ -48,7 +48,7 @@
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
 	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)