Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml
===================================================================
diff -u -r36410 -r36417
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36410)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 36417)
@@ -41,7 +41,7 @@
 		
 		Do Requestcubeiq.packages.Insert(..MaakPackage(ColliOpPallet))
 		Do Requestcubeiq.packagestoload.Insert(..MaakPackageToLoad(ColliOpPallet, CollisOpPallet.Referentie))
-		Set Requestcubeiq.orientations = ..MaakOrientations(ColliOpPallet)
+		Do ..MaakOrientations(ColliOpPallet, Requestcubeiq.orientations)
 	}
 	
 	Quit Requestcubeiq
@@ -115,19 +115,16 @@
 </Method>
 
 <Method name="MaakOrientations">
-<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet</FormalSpec>
+<FormalSpec>ColliOpPallet:APPS.TRANSP.Stapeling.dto.ColliOpPallet,Orientations:%ListOfObjects</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim Orientations As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim packageid As %String = "Package." _ColliOpPallet.ProductID
 	Do Orientations.Insert(..MaakOrientation(packageid, "1", ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Hoogte, "true"))
 	Do Orientations.Insert(..MaakOrientation(packageid, "2", ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Hoogte, "true"))
 	Do Orientations.Insert(..MaakOrientation(packageid, "3", ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Lengte, "False"))
 	Do Orientations.Insert(..MaakOrientation(packageid, "4", ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Breedte, ColliOpPallet.Afmeting.Lengte, "False"))
 	Do Orientations.Insert(..MaakOrientation(packageid, "5", ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Breedte, "False"))
 	Do Orientations.Insert(..MaakOrientation(packageid, "6", ColliOpPallet.Afmeting.Lengte, ColliOpPallet.Afmeting.Hoogte, ColliOpPallet.Afmeting.Breedte, "False"))
-	Quit Orientations
 ]]></Implementation>
 </Method>
 
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r36388 -r36417
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 36388)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 36417)
@@ -61,7 +61,9 @@
 
 <Method name="Bereken">
 <FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
-<Implementation><![CDATA[	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie, ..OptiboxRequestComposer.Compose(CollisOpPallet))
+<Implementation><![CDATA[
+	Do ..StapelingRepository.VerwijderViaReferentie(CollisOpPallet.Referentie)
+	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie, ..OptiboxRequestComposer.Compose(CollisOpPallet))
 ]]></Implementation>
 </Method>
 </Class>