Index: vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestLBXKenmerkenv01.cls.xml =================================================================== diff -u -r45774 -r53661 --- vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestLBXKenmerkenv01.cls.xml (.../TestLBXKenmerkenv01.cls.xml) (revision 45774) +++ vhUnitTest/DOM/PM/impl/IKCanonischeWaarde/TestLBXKenmerkenv01.cls.xml (.../TestLBXKenmerkenv01.cls.xml) (revision 53661) @@ -24,7 +24,7 @@ @@ -36,7 +36,7 @@ Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak() Set LBXKenmerken.SpoelbakKenmerken = ..GeefLBXSpoelbakKenmerken() - #dim CanonischeWaardeSuffix As %String = ";SP;Pure;;0"_"/200;100/" + #dim CanonischeWaardeSuffix As %String = ";SP;Pure;;0;"_"/200;100/" Do $$$AssertEquals(..IKCanonischeWaardeGenerator.GeefCanonischeWaarde(LBXKenmerken),..#CanonischeWaardeBasis_CanonischeWaardeSuffix) ]]> @@ -47,7 +47,7 @@ Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon() Set LBXKenmerken.UitsparingData = ..GeefUitsparingDataDubbel() - #dim CanonischeWaardeSuffix As %String = ";SY;Pure;;0"_"/;/" + #dim CanonischeWaardeSuffix As %String = ";SY;Pure;;0;"_"/;/" #dim VerwachteCanonischeWaarde = ..#CanonischeWaardeBasis_CanonischeWaardeSuffix Set $P(VerwachteCanonischeWaarde,";",5)="\"_..GeefVerwachteCanonischeWaardeUitsparingDubbel()_"\" Index: DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml =================================================================== diff -u -r52307 -r53661 --- DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 52307) +++ DOM/PM/Maatwerk/Calc/Common/IKCanonischeWaardeGenerator.cls.xml (.../IKCanonischeWaardeGenerator.cls.xml) (revision 53661) @@ -221,6 +221,7 @@ _ ";" _ LBXKenmerken.ZijWandType _ ";" _ LBXKenmerken.ZijWandVerhogingMateriaal _ ";" _ LBXKenmerken.AantalDwarsverdelingen + _ ";" _ LBXKenmerken.MeenemerSet If (LBXKenmerkenv01.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()) { Set ..CanonischeWaarde = ..CanonischeWaarde