Index: DOM/PM/impl/LangtekstCreator.cls.xml =================================================================== diff -u -r70898 -r71379 --- DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 70898) +++ DOM/PM/impl/LangtekstCreator.cls.xml (.../LangtekstCreator.cls.xml) (revision 71379) @@ -149,7 +149,6 @@ If ..IsNietMeeleverenInfoViaVerwijderdeHalffabItems() { Set NietMeeTeLeverenRollenOnvertaald = ..GeefNietMeegeleverdeRollenViaVerwijderdeHalffabItems() - // 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) @@ -192,6 +191,7 @@ Do NietMeegeleverdeRollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).FrontBevestiging()) ; Review opmerking: MVX en LBX hier door elkaar gebruikt !!! Set IsRolFrontBevestigingToegevoegd = $$$True } ElseIf (($$$Not(IsRolVoorFrontBevestiging)) && (..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol) || ..HalffabItemsBoom.HalffabItems.IsDefined(Rol))) { + Set:(Rol="Glijder") Rol = "Geleider" ;Oude benaming Glijder heeft key Geleider in de nieuwe vertalingen Do NietMeegeleverdeRollen.Insert(Rol) } ElseIf (IsRolVoorBoxcover && (..HalffabItemsBoom.VerwijderdeHalffabItems.IsDefined(Rol))) { Do NietMeegeleverdeRollen.Insert(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXNietMeeleveren).Boxcover()) Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/VerwijderdeHalffabItemsFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r63531 -r71379 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/VerwijderdeHalffabItemsFromJsonNaarDomConverter.cls.xml (.../VerwijderdeHalffabItemsFromJsonNaarDomConverter.cls.xml) (revision 63531) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/VerwijderdeHalffabItemsFromJsonNaarDomConverter.cls.xml (.../VerwijderdeHalffabItemsFromJsonNaarDomConverter.cls.xml) (revision 71379) @@ -4,7 +4,7 @@ TECH.RegisteredObject -VerwijderdeHalffabItemsParsedFromJson:%ArrayOfObjects +VerwijderdeHalffabItemsParsedFromJson:%ArrayOfObjects,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %ArrayOfObjects + + +DotnetRolnaam:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +1 +%String + + Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml =================================================================== diff -u -r71238 -r71379 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml (.../MaatwerkDetailsFromJsonNaarDomConverter.cls.xml) (revision 71238) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml (.../MaatwerkDetailsFromJsonNaarDomConverter.cls.xml) (revision 71379) @@ -39,7 +39,7 @@ Do ..ValideerMaatwerkDetails(MaatwerkDetailsFromJson) #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabrikatenConverter.GeefHalffabItemsBoom(MaatwerkDetailsFromJson.Halffabrikaten, IngegevenKenmerken) - Set HalffabItemsBoom.VerwijderdeHalffabItems = ..VerwijderdeHalffabItemsConverter.ConverteerVerwijderdeHalffabItems(MaatwerkDetailsFromJson.VerwijderdeHalffabItems) + Set HalffabItemsBoom.VerwijderdeHalffabItems = ..VerwijderdeHalffabItemsConverter.ConverteerVerwijderdeHalffabItems(MaatwerkDetailsFromJson.VerwijderdeHalffabItems, IngegevenKenmerken) Quit HalffabItemsBoom ]]> Index: vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Test008GeenDubbeleNietMeeleveren.cls.xml =================================================================== diff -u -r59240 -r71379 --- vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Test008GeenDubbeleNietMeeleveren.cls.xml (.../Test008GeenDubbeleNietMeeleveren.cls.xml) (revision 59240) +++ vhUnitTest/DOM/PM/impl/TAORLangtekstCreator/GeefLangtekst/Test008GeenDubbeleNietMeeleveren.cls.xml (.../Test008GeenDubbeleNietMeeleveren.cls.xml) (revision 71379) @@ -40,7 +40,7 @@ Do List.Insert("[Eindkap] [ladezijkant]:[AL]") Do List.Insert("[Bevat]: [GemonteerdeLade];[Geleider] Movento 40[KilogramAfkorting];TIP-ON BLUMOTION T60L754 [R737];[FrontBevestiging.E]") Do List.Insert("[Verpakt]: [Karton]") - Do List.Insert("[NietMeegeleverd]: [Koppeling];[TiponBlumotionSynchronisatieStang];[TiponBlumotionSetEenhedenEnMeenemers]") + Do List.Insert("[NietMeegeleverd]: [Koppeling];[TiponBlumotionSetEenhedenEnMeenemers];[TiponBlumotionSynchronisatieStang]") Quit List ]]>