vhUnitTest.TestCase Links") Do TBXKenmerken.NietMeeleveren.Insert("Zijkant->Rechts") Do TBXKenmerken.Onderdelen.Insert("Bodem") Do TBXKenmerken.Onderdelen.Insert("Rug") Set TBXKenmerken.CorpusBinnenbreedte = 200 Set TBXKenmerken.LadeDiepte = 250 Set TBXKenmerken.LadeVariant = ##class(DOM.PM.enu.LadeVariant).TBXPlus() Set TBXKenmerken.IsBinnenlade = 1 Set TBXKenmerken.Antislipmat = ##class(DOM.PM.enu.TBXAntislipmat).Zwart() Set TBXKenmerken.BodemKleur = "LG" Set TBXKenmerken.Draagkracht = 30 Set TBXKenmerken.DwarsverdelingAantal = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie() Set TBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroef() Set TBXKenmerken.FrontHouderKleur = "SW" Set TBXKenmerken.FrontOndersteuningAantal = 1 Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() Set TBXKenmerken.HangmapBoringAantal = 0 Set TBXKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() Set TBXKenmerken.HeeftOpvullijstLinks = 1 Set TBXKenmerken.HeeftOpvullijstRechts = 0 Set TBXKenmerken.PlaatMateriaal = "HS" Set TBXKenmerken.RugKleur = "DG" Set TBXKenmerken.RugHouderKleur = "RHK" Set TBXKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N() Set TBXKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout() Set TBXKenmerken.SpoelbakBinnenzijwandHoogte = "M" Set TBXKenmerken.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal() Set TBXKenmerken.UitsparingZijkantKleur = "SZK" Set TBXKenmerken.HeeftZijstabilisering = 1 Set TBXKenmerken.UitsparingBreedte1 = 102 Set TBXKenmerken.UitsparingBreedte2 = 106 Set TBXKenmerken.UitsparingDiepte = 103 Set TBXKenmerken.UitsparingPositie1 = 104 Set TBXKenmerken.UitsparingPositie2 = 105 Set TBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.TBXVerpakking).Pallet() Set TBXKenmerken.VoorwandMetMeenemer = 0 Set TBXKenmerken.VoorwandMetGreep = 1 Set TBXKenmerken.VoorwandVerhogingType = ##class(DOM.PM.enu.TBXVoorwandVerhogingType).Reling() Set TBXKenmerken.VoorwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXVoorwandVerhogingMateriaal).Metaal() Set TBXKenmerken.VoorwandVerhogingKleur = ##class(DOM.PM.enu.TBXVoorwandVerhogingKleur).FloatGezuurd() Set TBXKenmerken.ZijkantDesign = ##class(DOM.PM.enu.TBXZijkantDesign).F() Set TBXKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).K() Set TBXKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).IN() Set TBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).G() Set TBXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Boxside() Set TBXKenmerken.ZijwandVerhogingMateriaal = ##class(DOM.PM.enu.TBXZijwandVerhogingMateriaal).Leder() Set TBXKenmerken.ZijwandVerhogingKleur = ##class(DOM.PM.enu.TBXZijwandVerhogingKleur).DiamantGezuurd() Set TBXKenmerken.ZijwandVerhogingAantal = 2 Set TBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.TBXOpvullijstKleur).Lichtgrijs() Set TBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.TBXGeleiderTechnologie).Blumotion() Set TBXKenmerken.GUIKenmerken.CorpusBreedte = 200 Set TBXKenmerken.GUIKenmerken.CorpusWandDikte = 18 Set TBXKenmerken.GUIKenmerken.IsBinnenbreedte = 1 Set TBXKenmerken.InterneBreedte = 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) ]]>