Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.impl.TestIKCanonischeWaarde") 1 vhUnitTest.TestCase 0 Boven") Do KADKenmerken.NietMeeleveren.Insert("Profiel->Onder") Do KADKenmerken.Onderdelen.Insert("Profiel->Links") Do KADKenmerken.Onderdelen.Insert("Profiel->Rechts") Set KADKenmerken.Breedte = 200 Set KADKenmerken.Hoogte = 300 Set KADKenmerken.ProfielType = ##class(DOM.PM.enu.KADProfielType).PSG() Set KADKenmerken.ProfielAfwerking = ##class(DOM.PM.enu.KADProfielAfwerking).Geanodiseerd() Set KADKenmerken.Ophangplaats = ##class(DOM.PM.enu.KADOphangplaats).Inliggend() Set KADKenmerken.Vulling = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving).%New("ABC") Set KADKenmerken.Vulling.InversePlaatsing = 0 Set KADKenmerken.Vulling.RodePoli = 1 Set KADKenmerken.Vulling.Beschermfolie = 0 Set KADKenmerken.Vulling.Gehard = 1 Set KADKenmerken.Vulling.Gezandstraald = 0 Set KADKenmerken.Vulling.Speciaal = 1 Set KADKenmerken.Montage = ##class(DOM.PM.enu.KADMontage).Los() Set KADKenmerken.Verpakking = ##class(DOM.PM.enu.KADVerpakking).Krimp() Set Boring = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBoring).%New("Element1",##class(TECH.Vector).%New(1,2,3),##class(DOM.PM.enu.KADBoringType).Punt(),##class(TECH.Vector).%New(4,5,6),100,101) Do KADKenmerken.Boringen.Insert(Boring) Set Boring = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBoring).%New("Element2",##class(TECH.Vector).%New(7,8,9),##class(DOM.PM.enu.KADBoringType).Gedeeltelijk(),##class(TECH.Vector).%New(10,11,12),102,103) Do KADKenmerken.Boringen.Insert(Boring) Set Beslag = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Element3",##class(TECH.Vector).%New(13,14,15),"Type1") Do KADKenmerken.Beslag.Insert(Beslag) Set Beslag = ##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Element4",##class(TECH.Vector).%New(16,17,18),"Type2") Do KADKenmerken.Beslag.Insert(Beslag) Do KADKenmerken.Accept(IKCanonischeWaardeGenerator) Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Profiel->Links;Profiel->Rechts\;\Profiel->Boven;Profiel->Onder\;200;300;PSG;EV;I;ABC;0;1;0;1;0;1;L;K;\Element1;1;2;3;Punt;4;5;6;100;101;Element2;7;8;9;Gedeeltelijk;10;11;12;102;103\;\Element3;13;14;15;Type1;Element4;16;17;18;Type2\","De canonische waarde voor KAD") ]]> Links") Do TBXKenmerken.NietMeeleveren.Insert("Zijkant->Rechts") Do TBXKenmerken.Onderdelen.Insert("Bodem") Do TBXKenmerken.Onderdelen.Insert("Rug") Set TBXKenmerken.InbouwBreedte = 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.Blumotion = 1 Set TBXKenmerken.TipOn = 0 Set TBXKenmerken.BodemKleur = "LG" Set TBXKenmerken.Draagkracht = 30 Set TBXKenmerken.Dwarsverdeling = ##class(DOM.PM.enu.TBXDwarsverdeling).Drie() Set TBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TBXFrontBevestiging).Schroeven() Set TBXKenmerken.FrontHouderKleur = "SW" Set TBXKenmerken.FrontOndersteuningAantal = 1 Set TBXKenmerken.FrontOndersteuningType = ##class(DOM.PM.enu.TBXFrontOndersteuningType).FrontSteun() Set TBXKenmerken.HangmapBoringen = 0 Set TBXKenmerken.Klasse = ##class(DOM.PM.enu.TBXKlas).Spoelbak() Set TBXKenmerken.OpvullijstLinks = 1 Set TBXKenmerken.OpvullijstRechts = 0 Set TBXKenmerken.PlaatMateriaal = "HS" Set TBXKenmerken.RugKleur = "DG" Set TBXKenmerken.RugHouderKleur = "RHK" Set TBXKenmerken.RugHoogte = ##class(DOM.PM.enu.TBXRugHoogte).N() Set TBXKenmerken.RugMateriaal = ##class(DOM.PM.enu.TBXRugMateriaal).Hout() Set TBXKenmerken.SpoelbakBinnenzijwandHoogte = "M" Set TBXKenmerken.SpoelbakZijkantKleur = "SZK" Set TBXKenmerken.Stabilisator = 1 Set TBXKenmerken.UitsparingBreedte = 102 Set TBXKenmerken.UitsparingDiepte = 103 Set TBXKenmerken.UitsparingPositie1 = 104 Set TBXKenmerken.UitsparingPositie2 = 105 Set TBXKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TBXUittrekbaarheid).Volledig() Set TBXKenmerken.Verpakking = ##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.ZijkantKleur = ##class(DOM.PM.enu.TBXZijkantKleur).IN() Set TBXKenmerken.ZijwandHoogte = ##class(DOM.PM.enu.TBXZijwandHoogte).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 Do TBXKenmerken.Accept(IKCanonischeWaardeGenerator) Do $$$AssertEquals(IKCanonischeWaardeGenerator.GeefCanonischeWaarde(),";Volledig;\Bodem;Rug\;\Zijkant->Links;Zijkant->Rechts\;200;250;TBX_Plus;1;Z;1;0;LG;30;3;S;SW;1;FrontSteun;0;SP2;1;0;HS;DG;RHK;N;Hout;M;SZK;1;102;103;104;105;V;P;0;1;Reling;Metaal;FZ;F;K;IN;G;Boxside;Leder;DFZ;2","De canonische waarde voor KAD") ]]>