Index: vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti/ZetDoorHandelMeeleverens.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti/ZetDoorHandelMeeleverens.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti/ZetDoorHandelMeeleverens.cls.xml	(revision 55079)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Galimberti.ZetDoorHandelMeeleverens">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	
+	#dim HalffabMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab).%New("GlijderProductId")
+	Do HalffabMock.VerwachtMethodCall("GeefProductID").DanReturn("GlijderProductId")
+	
+	Set GlijderHalfFabItemMock = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.StandaardHalffabItemMock).%New()
+	Do GlijderHalfFabItemMock.VerwachtMethodCall("GeefHalffab").DanReturn(HalffabMock)
+	Do GlijderHalfFabItemMock.VerwachtMethodCall("GeefAantal").DanReturn(1) 
+	
+	Set GlijderIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).CreateListOfObjects(GlijderHalfFabItemMock))
+	
+	Set HalfFabItemBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","Glijder").DanReturn(GlijderIterator)
+	Set LegeIterator = ##class(TECH.ListIterator).%New(##class(%ListOfDataTypes).%New()) 
+	
+	; als het voor 1 rol werkt dan voor de andere ook :-)
+	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","TiponBlumotionSetEenhedenEnMeenemers").DanReturn(LegeIterator)
+	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","TiponBlumotionSynchronisatieStang").DanReturn(LegeIterator)
+	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","TiponSynchronisatieStang").DanReturn(LegeIterator)
+	Do HalfFabItemBoomMock.VerwachtMethodCall("GeefHalffabItemsIterator","TiponSynchronisatieTandwiel").DanReturn(LegeIterator)
+	
+	Set MaatwerkCalcAPIMock = ##class(vhTest.Mock.DOM.PM.impl.MaatwerkCalcAPI).%New()
+	Do MaatwerkCalcAPIMock.VerwachtMethodCall("GeefHalffabItemsBoom",IngegevenKenmerken,1).DanReturn(HalfFabItemBoomMock)
+	
+	Set MaatwerkLijnMock = ##class(vhUnitTest.APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.MaatwerkLijnMock).%New()
+	Do MaatwerkLijnMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(IngegevenKenmerken)
+	Do MaatwerkLijnMock.VerwachtMethodCall("GeefAantal").DanReturn(2)
+	Do MaatwerkLijnMock.VerwachtMethodCall("GeefAantalDoorHandelMeeLeveren","GlijderProductId").DanReturn(0)
+	Do MaatwerkLijnMock.VerwachtMethodCall("ZetDoorHandelMeeleverenProductEnAantal","GlijderProductId",2).DanDoeNiks()
+	set DoorHandelMeeleverenBepaler = ##class(APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.BeslagDesign).%New(MaatwerkCalcAPIMock)
+	
+	Do DoorHandelMeeleverenBepaler.ZetDoorHandelMeeleverens(MaatwerkLijnMock)
+
+	Do MaatwerkCalcAPIMock.Verifieer()
+	Do MaatwerkLijnMock.Verifieer()
+	Do HalfFabItemBoomMock.Verifieer()
+	Do GlijderHalfFabItemMock.Verifieer()
+	Do HalffabMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/DoorHandelMeeleverenBepaler/Galimberti.cls.xml	(revision 55079)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler.Galimberti">
+<Super>APPS.EC.Winkelkar.impl.DoorHandelMeeleverenBepaler</Super>
+
+<Property name="MaatwerkCalcAPI">
+<Type>DOM.PM.impl.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>MaatwerkCalcAPI:DOM.PM.impl.MaatwerkCalcAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MaatwerkCalcAPI = $$$Inject(MaatwerkCalcAPI,##class(DOM.PM.impl.MaatwerkCalcAPI).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ZetDoorHandelMeeleverens">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[
+	If (Lijn.GeefIngegevenKenmerken().GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
+
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(Lijn.GeefIngegevenKenmerken()) 
+
+		Do Lijn.DoorHandelMeeleverens.Clear()
+		
+		#dim GlijderRol as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Glijder()
+		Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,GlijderRol)
+
+		#dim TOBRol1 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSetEenhedenEnMeenemers() ; waar ook de adapter in zit
+		Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,TOBRol1)
+		#dim TOBRol2 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSynchronisatieStang()
+		Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,TOBRol2)
+		
+		#dim TSRol1 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang()
+		Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,TSRol1)
+		#dim TSRol2 as %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieTandwiel()
+		Do ..ZetDoorHandelMeeleverensVoorRol(Lijn,HalffabItemsBoom,TSRol2)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetDoorHandelMeeleverensVoorRol">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,Rol:DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HFItemIterator as TECH.Iterator = HalffabItemsBoom.GeefHalffabItemsIterator( Rol )
+	While (HFItemIterator.HasNext()){
+		
+		#dim Item as DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = HFItemIterator.Next()
+		
+		#Dim PRNr as %String = Item.GeefHalffab().GeefProductID()	
+		#dim OldAantal as %Numeric = Lijn.GeefAantalDoorHandelMeeLeveren(PRNr)
+		#Dim NieuwAantal as %Numeric = OldAantal + (##class(TECH.Math).Ceil(Item.GeefAantal(),1) * Lijn.GeefAantal())
+		Do Lijn.ZetDoorHandelMeeleverenProductEnAantal(PRNr,NieuwAantal)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>