APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.BasisElementSvgObject,TECH.RegisteredObject TECH.Svg.Basis.SvgBox initvalue:%CacheString 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 ..Group.VoegToeElement(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 = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur) Do SvgBox.VoegToeElement(ZijBoring) } ElseIf(Boring.IsSpecialeBoring()){ Set GrootteBoring = 10 if (YPos < 0) { Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur) } Do SvgBox.VoegToeElement(SpecialeBoring) } ElseIf (Boring.BoorDiepte < 0) { Set GrootteBoring = 10 Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur) Do SvgBox.VoegToeElement(DoorBoring) } ElseIf(Boring.BoorDiameter<0) || (Boring.BoorDiepte=0){ Set GrootteBoring = 10 if (YPos < 0) { Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur) } Else { Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur) } Do SvgBox.VoegToeElement(PuntBoring) } Else { If (GrootteBoring<10) { Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur) Do ..Group.VoegToeElement(RugBoring) }Else { Set Straal = GrootteBoring\2 Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur) Do SvgBox.VoegToeElement(DoorBoring) } } } Do SvgBox.VoegToeElement(Rechthoek) Do SvgBox.VoegToeID("beslag") Do ..Group.VoegToeElement(SvgBox) ]]>