Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60404 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60404)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 62697)
@@ -1,12 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
-<Property name="CoordinatesService">
-<Type>TECH.Svg.Services.CoordinatesService</Type>
-</Property>
-
 <Property name="HoekverbinderMaker">
 <Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</Type>
 </Property>
@@ -15,87 +11,73 @@
 <Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
 </Property>
 
+<Property name="VerbinderGroup">
+<Type>TECH.Svg.Basis.Group</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>CoordinatesService:TECH.Svg.Services.CoordinatesService,ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,HoekverbinderMaker:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</FormalSpec>
+<FormalSpec>ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,HoekverbinderMaker:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
 	Set ..HoekverbinderMaker = $$$Inject(HoekverbinderMaker, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New())
 	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeVerbinder">
-<FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<Method name="VoegToeVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
+	Set ..VerbinderGroup = ##class(TECH.Svg.Basis.Group).%New()
+	Do ..HoekverbinderMaker.ZetVerbinderParameters(KaderdeurObject)
 	
+	#dim ProductiewijzeID As %String = KaderdeurObject.ProductieWijzeGetObjectId()
 	If (ProductiewijzeID = "LPR") {
-		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, ProfPlaats)
+	  	#dim ProfPlaats As %String = KaderdeurObject.Onderdelen.GetNext("")
+		Do ..VulVerbinders(ProfPlaats)
 	} Else {
-		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, "All")
+		Do ..VulVerbinders("All")
 	}
+
+	Quit ..VerbinderGroup
 ]]></Implementation>
 </Method>
 
 <Method name="VulVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
+<FormalSpec>ProfPlaats:%String</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	#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 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){
-		Set BreedteVerbinder = 43
-		Set LengteVerbinder = 17
-		Set XCirkel = 23
-		Set YCirkel = 6 
-		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+	
+	If (ProfPlaats = "All") {
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
 	}
-	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
-	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
-	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
-	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
-	;benedenprofiel
-	If (ProfPlaats="PO"){ 
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+	ElseIf (ProfPlaats = "PO") {   ; Profiel Onder 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
 	}
-	;bovenprofiel
-	If (ProfPlaats="PB"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+	ElseIf (ProfPlaats = "PB") {   ; Profiel Boven 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
 	}
-	;linkse profiel
-	If (ProfPlaats="PL"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+	ElseIf (ProfPlaats = "PL") {   ; Profiel Links 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
 	}
-	;rechtse profiel
-	If (ProfPlaats="PR"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+	ElseIf (ProfPlaats = "PR") {   ; Profiel Rechts 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
 	}
-	If (ProfPlaats="All") {
-		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
+	
+	Quit ..VerbinderGroup
 ]]></Implementation>
 </Method>
 </Class>