Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60123 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60123)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 62697)
@@ -1,103 +1,83 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
-<Super>%RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
-<Method name="VoegToeVerbinder">
-<FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<Property name="HoekverbinderMaker">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</Type>
+</Property>
+
+<Property name="ElementToevoeger">
+<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>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 ..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="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 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)
+	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()
-	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)
+	ElseIf (ProfPlaats = "PO") {   ; Profiel Onder 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
 	}
-	;bovenprofiel
-	If (ProfPlaats="PB"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(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 VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-		Do VerbinderGroup.VoegToeElement(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 VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(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 VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-	}
-	
-	Quit VerbinderGroup
+	Quit ..VerbinderGroup
 ]]></Implementation>
 </Method>
 </Class>