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) Index: DOM/PM/impl/MVXLangtekstCreator.cls.xml =================================================================== diff -u -r64563 -r65140 --- DOM/PM/impl/MVXLangtekstCreator.cls.xml (.../MVXLangtekstCreator.cls.xml) (revision 64563) +++ DOM/PM/impl/MVXLangtekstCreator.cls.xml (.../MVXLangtekstCreator.cls.xml) (revision 65140) @@ -301,12 +301,6 @@ ]]> - -1 - - - 1 %Boolean Index: DOM/PM/impl/LangtekstCreator.cls.xml =================================================================== diff -u -r63882 -r65140 --- DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 63882) +++ DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 65140) @@ -114,24 +114,6 @@ If ..IsNietMeeleverenInfoViaVerwijderdeHalffabItems() { Set NietMeeTeLeverenRollenOnvertaald = ..GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems() - // Hardcoded strings toegevoegd in afwachting van implementatie extra rollen MVX (nog geen builders ervoor in DotNet): - // Vergeet niet aanpassingen ook te doen in klassen: vhUnitTest.DOM.PM.impl.MVXLangtekstCreator.Test en vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken - If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "AfdekkapBinnen")) { - Do NietMeeTeLeverenRollenOnvertaald.Insert("AfdekkapBinnen") - } - If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "AfdekkapBuiten")) { - Do NietMeeTeLeverenRollenOnvertaald.Insert("AfdekkapBuiten") - } - - If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "Geleider")) { - Do NietMeeTeLeverenRollenOnvertaald.Insert("Geleider") - } - - #dim MvxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..IngegevenKenmerken - If (MvxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).TIPONBLUMOTION()) { - If (##class(TECH.ListUtils).Contains(..IngegevenKenmerken.NietMeeleveren, "TiponBlumotionMeenemer")) Do NietMeeTeLeverenRollenOnvertaald.Insert("TiponBlumotionMeenemer") - } - // Omdat NietMeeTeLeverenRollenOnvertaald eerst in GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems gevuld wordt en daarna hier aangevuld wordt is alfabetisering nodig: Set Comparator = ##class(TECH.Comparator.StringComparator).%New() Do ##class(TECH.Algo.Sort.MergeSort).Sort(.NietMeeTeLeverenRollenOnvertaald, Comparator) @@ -150,9 +132,8 @@ 1