Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r35996 -r36000
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 35996)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 36000)
@@ -3,19 +3,31 @@
 <Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="OptiboxRequestComposer">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestComposer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OptiboxRequestWriter">
+<Type>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="StapelingRepository">
 <Type>APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</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</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -45,7 +57,9 @@
 </Method>
 
 <Method name="Bereken">
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
+<Implementation><![CDATA[	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie, ..OptiboxRequestComposer.Compose(CollisOpPallet))
+]]></Implementation>
 </Method>
 </Class>