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)
]]>