APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject,TECH.RegisteredObject TECH.Svg.Basis.SvgBox APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory TECH.Svg.BasisElementFactory BoringElementFactory:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.BoringElementFactory,BasisElementFactory:TECH.Svg.BasisElementFactory 1 1 %Status 1 KaderdeurObject:Prod.GADef.KaderDeur Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer 2) { Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation) Do ElementToevoeger.VoegToeElement(SvgBox, BeslagBoringSpecialeVorm) } ElseIf (BoorType="Z") { Set GrootteBoring = 14 Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0) Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur) Do ElementToevoeger.VoegToeElement(SvgBox,ZijBoring) } ElseIf(Boring.IsSpecialeBoring()){ Set GrootteBoring = 10 if (YPos < 0) { Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur) } Do ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring) } ElseIf (Boring.BoorDiepte < 0) { Set GrootteBoring = 10 Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,GrootteBoring/2, Kleur) Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring) } ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){ Set GrootteBoring = 10 if (YPos < 0) { Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur) } Do ElementToevoeger.VoegToeElement(SvgBox,PuntBoring) } Else { If (GrootteBoring<10) { Set RugBoring = ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10, Kleur) Do ElementToevoeger.VoegToeElement(SvgBox,RugBoring) }Else { #dim Straal As %Integer = GrootteBoring/2 Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur) Do ElementToevoeger.VoegToeElement(SvgBox,DoorBoring) } } } Do ElementToevoeger.VoegToeElement(SvgBox,Rechthoek) Do SvgBox.VoegToeID("beslag") Do ..Group.VoegToeElement(SvgBox) ]]>