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