Index: vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml =================================================================== diff -u -r64368 -r65140 --- vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 64368) +++ vhUnitTest/DOM/PM/impl/MVXLangtekstCreator/Test.cls.xml (.../Test.cls.xml) (revision 65140) @@ -522,14 +522,24 @@ Set ..MvxKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).StandaardLadeMetNietMeeleverens() Set VerwijderdeHalffabItemsOpHalffabItemsBoom = ##class(%ArrayOfObjects).%New() - ;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "AfdekkapBinnen") // Nog niet in enum, want nog geen builder in DotNet! Code in DOM.PM.impl.LangtekstCreator vult deze voorlopig aan! - ;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "AfdekkapBuiten") // Nog niet in enum, want nog geen builder in DotNet! Code in DOM.PM.impl.LangtekstCreator vult deze voorlopig aan! + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBinnen()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapBuiten()) Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).AfdekkapRugWandHouder()) + //Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Boxcap()) + //Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "Boxcover") //Er is een voor en achter Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingBoven()) Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).FrontBevestigingOnder()) - ;Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "Geleider") // Nog niet in enum, want nog geen builder in DotNet! Code in DOM.PM.impl.LangtekstCreator vult deze voorlopig aan! + //Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), "FrontStabilisator") + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Geleider()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementVoor()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).InschuifElementZijkant()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Opvullijst()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingVoor()) + //Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RelingZijkant()) + 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).TiponBlumotionEenheid()) Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionSynchronisatieStang()) + Do VerwijderdeHalffabItemsOpHalffabItemsBoom.SetAt(..GeefVerwijderdHalffabItem(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Zijstabilisering()) #dim Langtekst As DOM.PM.ProductLangtekst = ..GeefLangtekst(VerwijderdeHalffabItemsOpHalffabItemsBoom) #dim ControleLangtekst As TECH.String = ##class(TECH.StringUtils).Concatenate( "MERIVOBOX lade M" _ $$$CRLF, @@ -541,9 +551,12 @@ "niet meegeleverd: afdekkappen binnen;" _ $$$CRLF, "afdekkappen buiten; afdekkappen" _ $$$CRLF, "rugwandhouders M; Frontbevestiging;" _ $$$CRLF, - "corpusprofiel; TIP-ON BLUMOTION eenheden;" _ $$$CRLF, - "TIP-ON BLUMOTION meenemers; TIP-ON" _ $$$CRLF, - "BLUMOTION synchronisatiestang") + "corpusprofiel; inschuifelement front;" _ $$$CRLF, + "inschuifelement ladezijkant free;" _ $$$CRLF, + "opvullijst; reling; TIP-ON BLUMOTION" _ $$$CRLF, + " eenheden; TIP-ON BLUMOTION meenemers;" _ $$$CRLF, + " TIP-ON BLUMOTION synchronisatiestang;" _ $$$CRLF, + "zijdelingse stabilisatie") Do $$$AssertEquals(Langtekst.GeefString(), ControleLangtekst) ]]> @@ -554,14 +567,15 @@ 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("TiponBlumotionMeenemer") // Nog niet in enum, want nog geen builder in DotNet! ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).TiponBlumotionMeenemer() + 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)