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).")