Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r38250 -r41633
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 38250)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41633)
@@ -28,13 +28,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StapelingBewaarder">
+<Type>APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository,OptiboxRequestComposer:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer,OptiboxRequestWriter:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter</FormalSpec>
+<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository,OptiboxRequestComposer:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer,OptiboxRequestWriter:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter,StapelingBewaarder:APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -44,6 +49,8 @@
 	Set ..StapelingRepository = $$$Inject(StapelingRepository,##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New())
 	Set ..OptiboxRequestComposer = $$$Inject(OptiboxRequestComposer, ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer).%New())
 	Set ..OptiboxRequestWriter = $$$Inject(OptiboxRequestWriter, ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New())
+	Set ..StapelingBewaarder = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -81,6 +88,43 @@
 	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie _CollisOpPallet.Groep, ..OptiboxRequestComposer.Compose(CollisOpPallet))
 ]]></Implementation>
 </Method>
+
+<Method name="BerekenMetVastAantal">
+<FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet,AantalOpPallet:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim StapelaarResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(APPS.TRANSP.Stapeling.dto.StapelingResultaat).%New()
+	Set StapelaarResultaat.Referentie = CollisOpPallet.Referentie
+	Set StapelaarResultaat.Groep = CollisOpPallet.Groep 
+
+	#dim TotaalAantalCollis As %Integer = 0	
+	#dim TotaalGewichtInKG As %Integer = 0	
+	#dim CollisIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(CollisOpPallet.Collis)
+	#dim PalletHoogte As %Integer = 0
+	While CollisIterator.HasNext()
+	{
+		#dim ColliOpPallet As APPS.TRANSP.Stapeling.dto.ColliOpPallet = CollisIterator.Next()
+		Set TotaalAantalCollis = TotaalAantalCollis + ColliOpPallet.Aantal
+		Set TotaalGewichtInKG = TotaalGewichtInKG + ColliOpPallet.GewichtInKg
+	}
+	
+	#dim TotaalAantalPalletten As %Integer = ##class(TECH.Math).Ceil(TotaalAantalCollis / AantalOpPallet)
+	#dim PalletGewichtInKG = ##class(TECH.Math).Ceil(TotaalGewichtInKG / TotaalAantalPalletten)
+	#dim PalletSpecificaties As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.container 
+	Set PalletSpecificaties = ##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.PalletSpecifications).GeefEuroPallet()
+	
+	#dim AantalPalletten As %Integer 
+	For AantalPalletten=1:1:TotaalAantalPalletten {
+		#dim Pallet As APPS.TRANSP.Stapeling.dto.Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
+		Set Pallet.GewichtInKG = PalletGewichtInKG
+		Set Pallet.Afmeting.Hoogte = PalletSpecificaties.height
+		Set Pallet.Afmeting.Lengte = PalletSpecificaties.depth
+		Set Pallet.Afmeting.Breedte = PalletSpecificaties.width
+		Do StapelaarResultaat.Palletten.Insert(Pallet)
+	}
+	
+	Do ..StapelingBewaarder.Bewaar(StapelaarResultaat)
+]]></Implementation>
+</Method>
 </Class>