Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59713 -r60046
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59713)
+++ 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,58 +44,71 @@
 <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
-	Set SvgBox =BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
-  	
+	#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") { 
 	  	Set KaderGroup = ..VulTweeRects(KaderdeurObject, Breedte, Hoogte)
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	#dim ProfPlaats As %String = KaderdeurObject.Onderdelen.GetNext("")
-	  	#dim LosOffset1 As %Integer = KaderdeurObject.ProfType.Breedte
+	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
 		If (ProfPlaats = "PR") {
-			Set LosOffset1 =(Breedte\1)-((Breedte-(2*LosOffset1))\1+(LosOffset1))
+			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		} ElseIf (ProfPlaats = "PO") {
-			Set LosOffset1 =(Breedte\1)-((Breedte-(2*LosOffset1))\1+(LosOffset1))
+			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		}
-		#dim ProfielHoogte As %Decimal = Hoogte - (LosOffset1 *2)
-		#dim ProfielBreedte As %Decimal = Breedte - (LosOffset1 *2)
-		Set CX=$S(ProfPlaats="PR":Breedte\1, 1:0)   ; Rechtse profiel : Corner is Rechts-Boven
- 		Set CY=$S(ProfPlaats="PO":Hoogte\1, 1:0)    ; Onderste profiel : Corner is Links-Onder de 
- 		
+
 		;Groep aanmaken met 3 rechthoeken
 		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
 		;Path aanmaken v/h profiel en toevoegen aan de kadergroep
-		#Dim KDProf As TECH.Svg.Basis.Path = ..LosProfiel(Breedte, Hoogte, LosOffset1,ProfPlaats)
+		#Dim KDProf As TECH.Svg.Basis.Path = ..LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
 		Do KaderGroup.VoegToeElement(KDProf)
 		
 	} Else {
 		;Groep aanmaken met 3 rechthoeken
 		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
 	Do SvgBox.VoegToeElement(KaderGroup)
+	;Verbinders
+	;bij glas heb je geen verbinders
 	
+	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
+  	
+  	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+	  	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+		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 = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,"All")
+		Do VerbindersGroup.VoegToeID("VerbindersGroep")
+		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()
+		Do Beslag.VoegToeBeslagen(KaderdeurObject)
+		Do SvgBox.VoegToeElement(Beslag.Group)
+	} 
 	;Boringen
-  	If (KaderdeurObject.Toepassing.ItemID = "GL") {
-  		#dim KaderVerbinder = KaderdeurObject.ProfType.Hoek
-  		Set VKeys=$LB("LB","RB","RO","LO")
-  	}
+  	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.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") {
-  		Do SvgBox.VoegToeElement(..SchuineHoeken(KaderdeurObject))
+  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
+  		Set SchuinehoekenGroep = ..SchuineHoeken(KaderdeurObject)
+  		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
   	}
-  	w KaderdeurObject.ProfType.Hoek
 	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()
 	}
@@ -116,16 +122,30 @@
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set SchuineHoekenOffset = KaderdeurObject.ProfType.Breedte
 	Set SchuineHoekGroup =##class(TECH.Svg.Basis.Group).%New()
-	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1))
-	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(KaderdeurObject.Breedte,0,KaderdeurObject.Breedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1))
-	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(0,KaderdeurObject.Hoogte\1,SchuineHoekenOffset\1,KaderdeurObject.Hoogte-(SchuineHoekenOffset\1)))
-	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(KaderdeurObject.Breedte\1,KaderdeurObject.Hoogte\1,KaderdeurObject.Breedte-(SchuineHoekenOffset\1), KaderdeurObject.Hoogte -(SchuineHoekenOffset\1)))
+	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
+	#dim RightBottomLine As TECH.Svg.Basis.Line
+	Set LeftTopLine = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
+	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
+	Set RightTopLine =BasisElementFactory.MaakLijn(KaderdeurObject.Breedte,0,KaderdeurObject.Breedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
+	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
+	Set LeftBottomLine = BasisElementFactory.MaakLijn(0,KaderdeurObject.Hoogte\1,SchuineHoekenOffset\1,KaderdeurObject.Hoogte-(SchuineHoekenOffset\1))
+	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
+	Set RightBottomLine = BasisElementFactory.MaakLijn(KaderdeurObject.Breedte\1,KaderdeurObject.Hoogte\1,KaderdeurObject.Breedte-(SchuineHoekenOffset\1), KaderdeurObject.Hoogte -(SchuineHoekenOffset\1))
+	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
 	Quit SchuineHoekGroup
 ]]></Implementation>
 </Method>
 
 <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)
@@ -140,7 +160,6 @@
 	
 	#dim CoordinatesList As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	
 	If (ProfPlaats="PL") {
 		Do CoordinatesList.Insert(LeftTopInner)
 		Do CoordinatesList.Insert(LeftTopOuter)
@@ -169,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)
@@ -179,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
@@ -196,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)
@@ -218,23 +239,112 @@
 
 <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="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 (HoekId=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 (HoekId=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)
+	}
+	#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,"Verbinder links boven")
+	
+	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	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,"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,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
+	;benedenprofiel
+	If (ProfPlaats="PO"){
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+	}
+	;bovenprofiel
+	If (ProfPlaats="PB"){
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+	}
+	;linkse profiel
+	If (ProfPlaats="PL"){
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+	}
+	;rechtse profiel
+	If (ProfPlaats="PR"){
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(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)
+	}
+	
+	Quit VerbinderGroup
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">