Index: vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428) +++ vhTest/Utils/AXimpl/PM/Maatwerk/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447) @@ -33,6 +33,7 @@ Do ..VoegToeKenmerk("Inbouwbreedte", 876, RvgKenmerken) Do ..VoegToeKenmerk("Inbouwdiepte", 595, RvgKenmerken) Do ..VoegToeKenmerk("Inbouwhoogte", 1928, RvgKenmerken) + Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.") Do ..VoegToeKenmerk("Krasbescherming", "false", RvgKenmerken) Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken) Do ..VoegToeKenmerk("Materiaalopties", ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront(), RvgKenmerken) @@ -86,6 +87,7 @@ Do ..VoegToeKenmerk("Inbouwbreedte", 2876, RvgKenmerken) Do ..VoegToeKenmerk("Inbouwdiepte", 998, RvgKenmerken) Do ..VoegToeKenmerk("Inbouwhoogte", 2378, RvgKenmerken) + Do ..VoegToeKenmerk("Inkortinglijst1", "Track right;834;mm;", RvgKenmerken, "Data.Bomkenmerken.") Do ..VoegToeKenmerk("Krasbescherming", "true", RvgKenmerken) Do ..VoegToeKenmerk("Leveranciera", "unilin", RvgKenmerken) Do ..VoegToeKenmerk("Leverancierb", "egger", RvgKenmerken) Index: vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428) +++ vhTest/Utils/APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447) @@ -34,6 +34,7 @@ Set RvgKenmerken.InbouwDiepte = 595 Set RvgKenmerken.InbouwHoogte = 1928 Set RvgKenmerken.InstelZijde = $$$False + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = $$$False Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront() @@ -86,6 +87,7 @@ Set RvgKenmerken.InbouwDiepte = 998 Set RvgKenmerken.InbouwHoogte = 2378 Set RvgKenmerken.InstelZijde = $$$False + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = $$$True Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.LeverancierB = "egger" Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml =================================================================== diff -u -r69333 -r69447 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69333) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69447) @@ -61,6 +61,7 @@ } ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) { Do ..ConverteerIdentnummers(OPCKenmerkenRequest.BlumIdentnummers, AXConfiguratieArray) Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray) + Do ..ConverteerInkortingen(OPCKenmerkenRequest.BlumInkortAfmetingen, AXConfiguratieArray) } Else { Do ..LogOnbekendeVariant(Variant, OPCKenmerkenRequest.Header) } @@ -104,11 +105,11 @@ IdentnummerLijst:%ListOfObjects,AXConfiguratieArray:%ArrayOfDataTypes 1 @@ -132,6 +133,20 @@ ]]> + +InkortingLijst:%ListOfObjects,AXConfiguratieArray:%ArrayOfDataTypes +1 + + + BlumKenmerken:%ListOfObjects,VertaaldeWinkelkarInfo:%ListOfObjects 1 Index: vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428) +++ vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447) @@ -40,6 +40,7 @@ Set RVGKenmerken.InbouwHoogte = 1837 Set RVGKenmerken.InstelZijde = $$$False Set RVGKenmerken.InbouwBreedte = 540 + Set RVGKenmerken.InkortingLijst = "Track right;834;mm;" Set RVGKenmerken.NominaleLengte = 450 Set RVGKenmerken.FrontOverstand = 99 Set RVGKenmerken.PocketAchterwandDikte = 4.5 Index: ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428) +++ ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447) @@ -129,6 +129,11 @@ + +ECON.String + + + ECON.Boolean @@ -279,6 +284,8 @@ If (Property = "StukLijst") { Set Code = "Set .."_Property_" = ..ConcateneerStuklijst(KenmerkenArray)" + } ElseIf (Property = "InkortingLijst") { + Set Code = "Set .."_Property_" = ..ConcateneerInkortinglijst(KenmerkenArray)" } ElseIf (PropertyType = "ECON.Boolean") { Set Code = "Set .."_Property_" = $ZCVT(KenmerkenArray.GetAt("""_Key_"""),""L"")" } Else { @@ -309,6 +316,27 @@ ]]> + +KenmerkenArray:%ArrayOfDataTypes +1 +%String + + + objectgenerator %ArrayOfDataTypes @@ -491,6 +519,9 @@ VoegZijkant + +InkortingLijst + Index: DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428) +++ DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447) @@ -101,6 +101,10 @@ %Decimal + +TECH.String + + %Boolean @@ -229,7 +233,6 @@ %Library.CacheStorage RVGKenmerkenDefaultData -listnode "RVGKenmerken" BinnencorpusbreedteInDeToepassing @@ -378,6 +381,9 @@ VoegZijkant + +InkortingLijst + Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428) +++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447) @@ -32,6 +32,7 @@ Set RvgKenmerken.InbouwBreedte = 876 Set RvgKenmerken.InbouwDiepte = 595 Set RvgKenmerken.InbouwHoogte = 1928 + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = $$$False Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront() @@ -83,6 +84,7 @@ Set RvgKenmerken.InbouwBreedte = 2876 Set RvgKenmerken.InbouwDiepte = 998 Set RvgKenmerken.InbouwHoogte = 2378 + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = $$$True Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.LeverancierB = "egger" Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml =================================================================== diff -u -r68549 -r69447 --- ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml (.../Rvg.cls.xml) (revision 68549) +++ ECONimpl/PM/Maatwerk/KenmerkenConverter/EconNaarApps/Rvg.cls.xml (.../Rvg.cls.xml) (revision 69447) @@ -36,7 +36,7 @@ #dim Property As %String = "" For { set Property = $order(Properties(Property)) quit:Property="" continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant") - continue:##class(TECH.StringUtils).Equals(Property,"Stuklijst") + continue:##class(TECH.StringUtils).Equals(Property,"Stuklijst","Inkortinglijst") if $listget(Properties(Property),1)="ECON.Boolean" { Do %code.WriteLine($$$TAB_"Set RvgKenmerken."_Property_" = $select(Kenmerken."_Property_"=""true"":""1"",1:""0"")") Index: vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69428) +++ vhTest/Utils/ECON/PM/Maatwerk/dto/RvgKenmerken.cls.xml (.../RvgKenmerken.cls.xml) (revision 69447) @@ -26,6 +26,7 @@ Set RvgKenmerken.InbouwBreedte = 876 Set RvgKenmerken.InbouwDiepte = 595 Set RvgKenmerken.InbouwHoogte = 1928 + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = "false" Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.MateriaalOpties = ##class(DOM.PM.enu.RVGMateriaalOpties).GeenFront() @@ -78,6 +79,7 @@ Set RvgKenmerken.InbouwBreedte = 2876 Set RvgKenmerken.InbouwDiepte = 998 Set RvgKenmerken.InbouwHoogte = 2378 + Set RvgKenmerken.InkortingLijst = "Track right;834;mm;" Set RvgKenmerken.Krasbescherming = "true" Set RvgKenmerken.LeverancierA = "unilin" Set RvgKenmerken.LeverancierB = "egger" Index: APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml =================================================================== diff -u -r69428 -r69447 --- APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69428) +++ APPS/PM/Maatwerk/dto/RVGKenmerken.cls.xml (.../RVGKenmerken.cls.xml) (revision 69447) @@ -105,6 +105,10 @@ %Boolean + +TECH.String + + %Boolean Index: APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml =================================================================== diff -u -r69428 -r69447 --- APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 69428) +++ APPS/PM/Maatwerk/impl/RVG/DtoNaarKenmerkConverter.cls.xml (.../DtoNaarKenmerkConverter.cls.xml) (revision 69447) @@ -43,6 +43,7 @@ Set DomKenmerken.InbouwDiepte = DtoKenmerken.InbouwDiepte Set DomKenmerken.InbouwHoogte = DtoKenmerken.InbouwHoogte Set DomKenmerken.InstelZijde = DtoKenmerken.InstelZijde + Set DomKenmerken.InkortingLijst = DtoKenmerken.InkortingLijst Set DomKenmerken.Krasbescherming = DtoKenmerken.Krasbescherming Set DomKenmerken.LeverancierA = DtoKenmerken.LeverancierA Set DomKenmerken.LeverancierB = DtoKenmerken.LeverancierB