Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(revision 59774)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Property name="Group">
+<Type>TECH.Svg.Basis.Group</Type>
+<Parameter name="XMLNAME" value="g"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakHoekverbinder">
+<FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer</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("gray")
+	Do Circle2.SetFill("gray")
+	
+	Do ..Group.VoegToeElement(Path)
+	Do ..Group.VoegToeElement(Circle1)
+	Do ..Group.VoegToeElement(Circle2)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="DomElementState">
+<Value name="1">
+<Value>Fill</Value>
+</Value>
+<Value name="2">
+<Value>Stroke</Value>
+</Value>
+<Value name="3">
+<Value>StrokeWidth</Value>
+</Value>
+<Value name="4">
+<Value>StrokeDashArray</Value>
+</Value>
+<Value name="5">
+<Value>Overflow</Value>
+</Value>
+<Value name="6">
+<Value>Opacity</Value>
+</Value>
+<Value name="7">
+<Value>Group</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
FishEye: Tag 59774 refers to a dead (removed) revision in file `APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Verbinders.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59713 -r59774
--- 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 59774)
@@ -62,40 +62,43 @@
 	  	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
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
 	
+	If (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+		Set VerbindersGroup = ..VulTweeVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,ProfPlaats)
+	} Else {
+		Set VerbindersGroup = ..VulVierVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID)
+	}
+	Do VerbindersGroup.VoegToeID("VerbindersGroep")
+	Do SvgBox.VoegToeElement(VerbindersGroup)
 	;Beslag 
 	;Boringen
   	If (KaderdeurObject.Toepassing.ItemID = "GL") {
   		#dim KaderVerbinder = KaderdeurObject.ProfType.Hoek
-  		Set VKeys=$LB("LB","RB","RO","LO")
   	}
   	;Schuine hoeken
   	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") {
   		Do SvgBox.VoegToeElement(..SchuineHoeken(KaderdeurObject))
   	}
-  	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()
@@ -235,6 +238,163 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulTweeVerbinders">
+<FormalSpec>Breedte:%Integer,Hoogte:%Integer,Vcode:%Integer,ProfPlaats:%String</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)
+	}
+	#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")
+	
+	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)")
+	
+	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)")
+	
+	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)")
+	;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)
+	}
+	
+	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)
+	}
+	#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>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">