vhUnitTest.DOM.PM.Maatwerk.MVX.Base DOM.PM.impl.MVXLangtekstCreator 1 DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken 1 Enkel TiponBlumotion-rollen"() { Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLade() Set ..MvxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION() Set NietMeeleverens = ##class(%ListOfDataTypes).%New() Do NietMeeleverens.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid()) Do NietMeeleverens.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemer()) Do NietMeeleverens.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) // Volgens docu: "TiponBlumotionSynchronisatieStangEnAdapters" Set ..MvxKenmerken.NietMeeleveren = NietMeeleverens Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New() Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionEenheid()) Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemer()) Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) #dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom) #dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate( "MERIVOBOX lade M" _ $$$CRLF, "D:500xB:600; bodem:Orion grijs;" _ $$$CRLF, "ladezijkant:Orion grijs; bevat: gemont." _ $$$CRLF, "lade; corpusprofiel 40kg; TIP-ON BLUMOTION;" _ $$$CRLF, "frontbevest. INSERTA" _ $$$CRLF, "verpakt: Probox" _ $$$CRLF, "niet meegeleverd: TIP-ON BLUMOTION" _ $$$CRLF, "eenheden; TIP-ON BLUMOTION meenemers;" _ $$$CRLF, "TIP-ON BLUMOTION synchronisatiestang") Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst) } */ ]]> VerwijderdeHalffabItems:%ArrayOfObjects="" 1 TECH.String 1 DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem 1 1 DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken