Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59846 -r60046
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59846)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60046)
@@ -3,13 +3,6 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur">
 <Super>TECH.RegisteredObject,TECH.Svg.Basis.DomElement</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*Property KaderdeurObject as Prod.GADef.KaderDeur;
-*/
-]]></Content>
-</UDLText>
-
 <Property name="Beslag">
 <Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagLijst</Type>
 <Collection>array</Collection>
@@ -51,11 +44,9 @@
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	;Set ..KaderdeurObject = KaderdeurObject
 	Set Breedte = KaderdeurObject.Breedte
 	Set Hoogte = 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()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
@@ -68,6 +59,7 @@
 		} ElseIf (ProfPlaats = "PO") {
 			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		}
+
 		;Groep aanmaken met 3 rechthoeken
 		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
 		;Path aanmaken v/h profiel en toevoegen aan de kadergroep
@@ -86,12 +78,12 @@
   	
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = ..VulTweeVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,ProfPlaats)
+		Set VerbindersGroup = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,ProfPlaats)
 		Do VerbindersGroup.VoegToeID("VerbindersGroep")
 		Do SvgBox.VoegToeElement(VerbindersGroup)
 	} Else {
 		Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = ..VulVierVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID)
+		Set VerbindersGroup = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,"All")
 		Do VerbindersGroup.VoegToeID("VerbindersGroep")
 		Do SvgBox.VoegToeElement(VerbindersGroup)
 	}
@@ -107,15 +99,16 @@
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
   	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
-  		Do SvgBox.VoegToeElement(..SchuineHoeken(KaderdeurObject))
+  		Set SchuinehoekenGroep = ..SchuineHoeken(KaderdeurObject)
+  		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
   	}
 	Try {
 	#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"	
+	w "het bestand is weggeschreven hoi"	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 	}
@@ -129,6 +122,7 @@
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set SchuineHoekenOffset = KaderdeurObject.ProfType.Breedte
 	Set SchuineHoekGroup =##class(TECH.Svg.Basis.Group).%New()
+	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
 	#dim LeftTopLine As TECH.Svg.Basis.Line
 	#dim RightTopLine As TECH.Svg.Basis.Line
 	#dim LeftBottomLine As TECH.Svg.Basis.Line
@@ -151,6 +145,7 @@
 
 <Method name="LosProfiel">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
@@ -165,7 +160,6 @@
 	
 	#dim CoordinatesList As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	
 	If (ProfPlaats="PL") {
 		Do CoordinatesList.Insert(LeftTopInner)
 		Do CoordinatesList.Insert(LeftTopOuter)
@@ -194,7 +188,6 @@
 		Do CoordinatesList.Insert(LeftBottomInner)
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
-	
 		Do Path.SetFill("#F0F0F0")
 		Do Path.SetStroke("black",2)
 		Do Path.SetOpacity(0.5)
@@ -204,6 +197,7 @@
 
 <Method name="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim KaderOffset As %Integer
@@ -221,16 +215,18 @@
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (Los = 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())
 		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-		Do KDMiddle.SetOpacity($S(FillS="T":0, FillS="S":1, 1:FillS))
 		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
-		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGrijs(),1:##class(TECH.Svg.enu.Kleur).Wit()))
+		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {
-		Do KDOuter.SetStroke("black",,"2")
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 		Do KDOuter.SetFill()
-		Do KDMiddle.SetStroke("black",,"2")
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 		Do KDMiddle.SetFill()
-		Do KDInner.SetStroke("black",,"2")
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 		Do KDInner.SetFill()
 	}
 	Do KaderGroup.VoegToeElement(KDOuter)
@@ -243,30 +239,33 @@
 
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim 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)
-	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Geen())
+	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 	Set KDInner = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
   	Do KaderGroup.VoegToeElement(KDOuter)
   	Do KaderGroup.VoegToeElement(KDInner)
+ 
   	Quit KaderGroup
 ]]></Implementation>
 </Method>
 
-<Method name="VulTweeVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,Vcode:%Integer,ProfPlaats:%String</FormalSpec>
+<Method name="VulVerbinders">
+<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
 	Set StartVerbinder =1
-	if (Vcode=2) {
+	if (HoekId=2) {
 		Set BreedteVerbinder = 61
 		Set LengteVerbinder = 41
 		Set XCirkel =39
@@ -284,7 +283,7 @@
 		Do CoordinatesList.Insert(LeftInnerBottomBreed)
 		Do CoordinatesList.Insert(LeftBottomBreed)
 	
-	} ElseIf (Vcode=1){
+	} ElseIf (HoekId=1){
 		Set BreedteVerbinder = 43
 		Set LengteVerbinder = 17
 		Set XCirkel = 23
@@ -304,23 +303,16 @@
 	}
 	#dim VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do VerbinderLinksBoven.Group.VoegToeID("Verbinder links boven")
+	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
 	
 	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do VerbinderRechtsBoven.Group.VoegToeID("Verbinder rechts boven")
-	Do VerbinderRechtsBoven.Group.VoegToeTransform("translate("_Breedte_" 0) rotate(90)")
+	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
 	
 	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do VerbinderLinksOnder.Group.VoegToeID("Verbinder links onder")
-	Do VerbinderLinksOnder.Group.VoegToeTransform("translate(0 "_Hoogte_") rotate(270)")
+	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
 	
 	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do VerbinderRechtsOnder.Group.VoegToeID("Verbinder rechts onder")
-	Do VerbinderRechtsOnder.Group.VoegToeTransform("translate("_Breedte_" "_Hoogte_") rotate(180)")
+	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
 	;benedenprofiel
 	If (ProfPlaats="PO"){
 		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
@@ -342,77 +334,13 @@
 		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
 	}
 	
-	Quit VerbinderGroup
-]]></Implementation>
-</Method>
-
-<Method name="VulVierVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,Vcode:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	
-
-	
-	if (Vcode=2) {
-		Set BreedteVerbinder = 61
-		Set LengteVerbinder = 41
-		Set XCirkel =39
-		Set YCirkel = 19 
-		Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-		Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-		Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-		Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-		Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-		Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-		Do CoordinatesList.Insert(LeftTopBreed)
-		Do CoordinatesList.Insert(RightTopBreed)
-		Do CoordinatesList.Insert(RightInnerBottomBreed)
-		Do CoordinatesList.Insert(InnerBreed)
-		Do CoordinatesList.Insert(LeftInnerBottomBreed)
-		Do CoordinatesList.Insert(LeftBottomBreed)
-	
-	} ElseIf (Vcode=1){
-		Set BreedteVerbinder = 43
-		Set LengteVerbinder = 17
-		Set XCirkel = 23
-		Set YCirkel = 6 
-		Set LeftTopSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-		Set RightTopSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-		Set RightInnerBottomSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-		Set InnerSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-		Set LeftInnerBottomSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-		Set LeftBottomSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-		Do CoordinatesList.Insert(LeftTopSmal)
-		Do CoordinatesList.Insert(RightTopSmal)
-		Do CoordinatesList.Insert(RightInnerBottomSmal)
-		Do CoordinatesList.Insert(InnerSmal)
-		Do CoordinatesList.Insert(LeftInnerBottomSmal)
-		Do CoordinatesList.Insert(LeftBottomSmal)
+	If (ProfPlaats="All") {
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
 	}
-	#dim VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	Set Verbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	Do Verbinder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do Verbinder.Group.VoegToeID("Verbinder links boven")
-	Do VerbinderGroup.VoegToeElement(Verbinder.Group)
-	Set Verbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do Verbinder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do Verbinder.Group.VoegToeID("Verbinder rechts boven")
-	Do Verbinder.Group.VoegToeTransform("translate("_Breedte_" 0) rotate(90)")
-	Do VerbinderGroup.VoegToeElement(Verbinder.Group)
-	Set Verbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do Verbinder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do Verbinder.Group.VoegToeID("Verbinder links onder")
-	Do Verbinder.Group.VoegToeTransform("translate(0 "_Hoogte_") rotate(270)")
-	Do VerbinderGroup.VoegToeElement(Verbinder.Group)
-	Set Verbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do Verbinder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel)
-	Do Verbinder.Group.VoegToeID("Verbinder rechts onder")
-	Do Verbinder.Group.VoegToeTransform("translate("_Breedte_" "_Hoogte_") rotate(180)")
-	Do VerbinderGroup.VoegToeElement(Verbinder.Group)
-
 	Quit VerbinderGroup
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u -r59845 -r60046
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 59845)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60046)
@@ -20,22 +20,34 @@
 </Method>
 
 <Method name="MaakHoekverbinder">
-<FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer</FormalSpec>
+<FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer,ID:%String,Transform:%String="translate(0 0) rotate(0)"</FormalSpec>
 <Implementation><![CDATA[
 	Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
 	Set Circle1 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(XCirkel,YCirkel,3)
 	Set Circle2 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(YCirkel,XCirkel,3)
 	Do Path.SetFill("#A0A0A0")
 	Do Path.SetOpacity(0.5)
-	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
-	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
+	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 	
 	Do ..Group.VoegToeElement(Path)
 	Do ..Group.VoegToeElement(Circle1)
 	Do ..Group.VoegToeElement(Circle2)
+	Do ..Group.VoegToeTransform(Transform)
+	Do ..Group.VoegToeID(ID)
 ]]></Implementation>
 </Method>
 
+<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>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">