Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml =================================================================== diff -u -r60122 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml (.../Kaderdeur.cls.xml) (revision 60122) +++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml (.../Kaderdeur.cls.xml) (revision 60134) @@ -55,6 +55,7 @@ Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte) } Do SvgBox.VoegToeElement(KaderGroup) + Do ##class(Tools.Wlip).%New(238).String("kaders toegevoegd") ;Verbinders Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New() If (KaderdeurObject.Toepassing.ItemID ="GL") { @@ -104,90 +105,6 @@ } ]]> - - -%Library.CacheSerialState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -Rects - - -Circles - - -Lines - - -Paths - - -Texts - - -CrossDiags - - -CrossVHs - - -TCrosss - - -Transform - - -X - - -Y - - -Height - - -Width - - -ID - - -Beslag - - -Boringen - - -Breedte - - -Hoogte - - -KADConversieUtils - - -KleurEnu - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml (.../PuntBoring.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml (.../PuntBoring.cls.xml) (revision 60134) @@ -34,41 +34,6 @@ - - -%Library.CacheSerialState -PuntBoringState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -SvgBox - - - -listnode -"PuntBoring" - -SvgBox - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml =================================================================== diff -u -r60127 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml (.../Hoekverbinder.cls.xml) (revision 60127) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml (.../Hoekverbinder.cls.xml) (revision 60134) @@ -15,7 +15,9 @@ 1 %Status 1 - @@ -30,9 +32,10 @@ Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart()) Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart()) - Do ..Group.VoegToeElement(Path) + Do ..Group.VoegToeElement(Circle1) Do ..Group.VoegToeElement(Circle2) + Do ..Group.VoegToeElement(Path) Do ..Group.VoegToeTransform(Transform) Do ..Group.VoegToeID(ID) ]]> @@ -47,41 +50,6 @@ Quit sc ]]> - - -%Library.CacheSerialState -HoekverbinderState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -Group - - - -listnode -"Hoekverbinder" - -Group - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml (.../SpecialeBoring.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml (.../SpecialeBoring.cls.xml) (revision 60134) @@ -37,40 +37,6 @@ Quit sc ]]> - - -%Library.CacheSerialState -SpecialeBoringState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -SvgBox - - - -"SpecialeBoring" - -SvgBox - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml (.../BeslagBoringSpecialeVorm.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml (.../BeslagBoringSpecialeVorm.cls.xml) (revision 60134) @@ -4,15 +4,6 @@ APPS.Halux.PPS.ALUFrees.Svg.BasisElement.BasisElementSvgTooling -%New method to -provide notification that a new instance of an object is being created. - -

If this method returns an error then the object will not be created. -

It is passed the arguments provided in the %New call. -When customizing this method, override the arguments with whatever variables and types you expect to receive from %New(). -For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be: -

Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]> TECH.Svg.Basis.SvgBox @@ -24,6 +15,7 @@ %Status 1 - - -%Library.CacheSerialState -BeslagBoringSpecialeVormState - -"BeslagBoringSpecialeVorm" - -SvgBox - - - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -SvgBox - - - Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml (.../BasisElementSvgTooling.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/BasisElementSvgTooling.cls.xml (.../BasisElementSvgTooling.cls.xml) (revision 60134) @@ -1,13 +1,7 @@ -serial -%SerialObject,%XML.Adaptor - - -%Library.CacheSerialState -^APPS.HaluxB584.BasisElement235S - +%RegisteredObject,%XML.Adaptor Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml (.../CrossDiag.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossDiag.cls.xml (.../CrossDiag.cls.xml) (revision 60134) @@ -48,47 +48,6 @@ } ]]> - - -%Library.CacheSerialState -CrossDiagState - -listnode -"CrossDiag" - -TopLine - - -BottomLine - - - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -TopLine - - -BottomLine - - - Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml (.../TCross.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/TCross.cls.xml (.../TCross.cls.xml) (revision 60134) @@ -48,47 +48,6 @@ } ]]> - - -%Library.CacheSerialState -TCrossState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -HorizontalLine - - -VerticalLine - - - -listnode -"TCross" - -HorizontalLine - - -VerticalLine - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml =================================================================== diff -u -r60127 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml (.../Beslagen.cls.xml) (revision 60127) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml (.../Beslagen.cls.xml) (revision 60134) @@ -9,6 +9,18 @@ + +initvalue:%CacheString +1 +1 +%Status +1 + + + KaderdeurObject:Prod.GADef.KaderDeur - - -%Library.CacheSerialState -BeslagenState - -listnode -"Beslagen" - -Group - - - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -Group - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml (.../ZijBoring.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml (.../ZijBoring.cls.xml) (revision 60134) @@ -37,41 +37,6 @@ - - -%Library.CacheSerialState -ZijBoringState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -SvgBox - - - -listnode -"ZijBoring" - -SvgBox - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml (.../DoorBoring.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml (.../DoorBoring.cls.xml) (revision 60134) @@ -37,41 +37,6 @@ Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local ) ]]> - - -%Library.CacheSerialState -DoorBoringState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -SvgBox - - - -listnode -"DoorBoring" - -SvgBox - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml =================================================================== diff -u -r60127 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml (.../Boringen.cls.xml) (revision 60127) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml (.../Boringen.cls.xml) (revision 60134) @@ -9,6 +9,18 @@ + +initvalue:%CacheString +1 +1 +%Status +1 + + + KaderdeurObject:Prod.GADef.KaderDeur - - -%Library.CacheSerialState -BoringenState - -"Boringen" - -Group - - - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -DoorBoringen - - -PuntBoringen - - -RugBoringen - - -ZijBoringen - - -Group - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml (.../RugBoring.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml (.../RugBoring.cls.xml) (revision 60134) @@ -45,56 +45,6 @@ Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local ) ]]> - - -%Library.CacheSerialState -RugBoringState - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -CrossDiag - - -Circle - - -Group - - -SvgBox - - -BasisElementFactory - - - -listnode -"RugBoring" - -SvgBox - - -BasisElementFactory - - - Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml =================================================================== diff -u -r60128 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml (.../CrossVH.cls.xml) (revision 60128) +++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossVH.cls.xml (.../CrossVH.cls.xml) (revision 60134) @@ -24,6 +24,7 @@ %Status 1 - - -%Library.CacheSerialState -CrossVHState - -listnode -"CrossVH" - -HorizontalLine - - -VerticalLine - - - - -Fill - - -Stroke - - -StrokeWidth - - -StrokeDashArray - - -Overflow - - -Opacity - - -HorizontalLine - - -VerticalLine - - - Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml =================================================================== diff -u -r60127 -r60134 --- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml (.../BasisElementSvgObject.cls.xml) (revision 60127) +++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/BasisElementSvgObject.cls.xml (.../BasisElementSvgObject.cls.xml) (revision 60134) @@ -1,12 +1,7 @@ -%SerialObject,%XML.Adaptor - - -%Library.CacheSerialState -^APPS.Halux100B.BasisElemen3A18S - +%RegisteredObject,%XML.Adaptor