Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml =================================================================== diff -u -r55971 -r70103 --- DOM/VKP/Maatwerk/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 55971) +++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml (.../BestelService.cls.xml) (revision 70103) @@ -55,7 +55,7 @@ } ElseIf (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) { #dim Lade As DOM.PM.Maatwerk.LadeInfo.impl.Lade = ..GeefLade(Kenmerken) Set LadeOnderdeel = Lade.GeefZijkant(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links()) - Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(LadeOnderdeel) + Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerdZRF(LadeOnderdeel) } } Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml =================================================================== diff -u -r55962 -r70103 --- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml (.../DoosConfiguratieBepaler.cls.xml) (revision 55962) +++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepaler.cls.xml (.../DoosConfiguratieBepaler.cls.xml) (revision 70103) @@ -53,7 +53,7 @@ If (IngegevenKenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) { Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidLosseComponentenInBulk(LadeOnderdeel) } ElseIf (IngegevenKenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) { - Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(LadeOnderdeel) + Set BestelEenheid = ..BestelEenheidBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerdZRF(LadeOnderdeel) } #dim BuilderInputDoos As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput = ..GeefBuilderInputDoos(LadeOnderdeel, BestelEenheid) Index: vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml =================================================================== diff -u -r70086 -r70103 --- vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml (.../BestelEenheidBepaler.cls.xml) (revision 70086) +++ vhTest/Fake/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBepaler.cls.xml (.../BestelEenheidBepaler.cls.xml) (revision 70103) @@ -7,13 +7,6 @@ 1 DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBepaler - -LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel -TECH.Integer - - - LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel TECH.Integer Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml =================================================================== diff -u -r55975 -r70103 --- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml (.../Test.cls.xml) (revision 55975) +++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml (.../Test.cls.xml) (revision 70103) @@ -93,7 +93,7 @@ Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel) #dim Aantal As TECH.Integer = 8 - Do ..BestelEenheidBepaler.VerwachtMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", LadeOnderdeel).ExactAantalKeer(1).DanReturn(Aantal) + Do ..BestelEenheidBepaler.VerwachtMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerdZRF", LadeOnderdeel).ExactAantalKeer(1).DanReturn(Aantal) Do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, Aantal * 3) Do $$$AssertFalse(..IsExceptieVerwacht()) @@ -116,7 +116,7 @@ Do ..LosseComponentFactory.IndienMethodCall("MaakLosseComponent", ..GeefHalffabItemsBoom(), ..IngegevenKenmerken, $$$ElkeWaarde).DanReturn(LadeOnderdeel) #dim Aantal As TECH.Integer = 8 - Do ..BestelEenheidBepaler.IndienMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerd", LadeOnderdeel).DanReturn(Aantal) + Do ..BestelEenheidBepaler.IndienMethodCall("GeefBestelEenheidBulkPerOnderdeelGegroepeerdZRF", LadeOnderdeel).DanReturn(Aantal) #dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal", "is geen geldige bestelhoeveelheid (Minimum =", ", anders een veelvoud hiervan).")