Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r38669 -r38917 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38669) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 38917) @@ -97,6 +97,8 @@ _ ";" _ TBXKenmerken.GUIKenmerken.CorpusWandDikte _ ";" _ TBXKenmerken.GUIKenmerken.IsBinnenbreedte _ ";" _ TBXKenmerken.InterneBreedte + + Set ..CanonischeWaarde = ..CanonischeWaarde _ "#" _ TBXKenmerken.LegacyKenmerken.GeefCanonischeWaarde() ]]> Index: vhDeploy/D20170106TBXKenmerkenHerberekenCanonischeWaarde.cls.xml =================================================================== diff -u --- vhDeploy/D20170106TBXKenmerkenHerberekenCanonischeWaarde.cls.xml (revision 0) +++ vhDeploy/D20170106TBXKenmerkenHerberekenCanonischeWaarde.cls.xml (revision 38917) @@ -0,0 +1,24 @@ + + + +TECH.RegisteredObject + + +1 + + + + +1 +1 + + + + + + Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml =================================================================== diff -u -r38912 -r38917 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38912) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestTBXKenmerken.cls.xml (.../TestTBXKenmerken.cls.xml) (revision 38917) @@ -5,10 +5,14 @@ @@ -74,7 +78,13 @@ Set TBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1 Set TBXKenmerken.InterneBreedte = 200 - Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG;B;200;18;1;200") + + #dim CanonischeWaardeKenmerken As %String = ";;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;Staal;SZK;1;102;106;103;104;105;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2;LG;B;200;18;1;200" + #dim CanonischeWaardeLegacy As %String = ";;;;;;;;;;;;;;;;;;;;;;;;;;" + + #dim CanonischeWaarde As %String = CanonischeWaardeKenmerken_"#"_CanonischeWaardeLegacy + + Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(TBXKenmerken),CanonischeWaarde) ]]>