Index: vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 37611)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="WriteRequest">
+<FormalSpec>UniekeSleutel:%String,Requestcubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("WriteRequest",UniekeSleutel,Requestcubeiq)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml
===================================================================
diff -u -r36411 -r37611
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 36411)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bereken/Test.cls.xml	(.../Test.cls.xml)	(revision 37611)
@@ -3,6 +3,23 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.PallettenBepaler.Bereken.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: schrijft optiboxbestand met referentie en groep als unieke sleutel">
+<Implementation><![CDATA[
+	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
+	#dim FileAPIFake As vhTest.Fake.TECH.File.FileAPI = ##class(vhTest.Fake.TECH.File.FileAPI).%New(FileUtilsFake)
+	#dim RequestWriter As vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter = ##class(vhTest.Mock.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter).%New(FileAPIFake)
+	Do RequestWriter.VerwachtMethodCall("WriteRequest","DummyReferentieDummyGroep", $$$ElkeWaarde).DanDoeNiks()
+	#dim StapelingBepaler As APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New(,, RequestWriter)
+
+	#dim ColliOpPalletDummy As APPS.TRANSP.Stapeling.dto.CollisOpPallet = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.CollisOpPallet).GeefCollisOpPallet()
+	Set ColliOpPalletDummy.Referentie = "DummyReferentie"	
+	Set ColliOpPalletDummy.Groep = "DummyGroep"	
+	Do StapelingBepaler.Bereken(ColliOpPalletDummy)
+	
+	Do RequestWriter.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: schrijft optiboxbestand aan de hand van CollisOpPallet">
 <Implementation><![CDATA[
 	#dim FileUtilsFake As vhTest.Fake.TECH.File.FileUtils = ##class(vhTest.Fake.TECH.File.FileUtils).%New()
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u -r36729 -r37611
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 36729)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(.../RequestWriter.cls.xml)	(revision 37611)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Property name="FileAPI">
 <Type>TECH.File.FileAPI</Type>
Index: vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/RequestWriter.cls.xml	(revision 37611)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.RequestWriter</Super>
+
+<Method name="WriteRequest">
+<FormalSpec>UniekeSleutel:%String,Requestcubeiq:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Request.cubeiq</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r36417 -r37611
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 36417)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 37611)
@@ -63,7 +63,7 @@
 <FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
 <Implementation><![CDATA[
 	Do ..StapelingRepository.VerwijderViaReferentie(CollisOpPallet.Referentie)
-	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie, ..OptiboxRequestComposer.Compose(CollisOpPallet))
+	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie _CollisOpPallet.Groep, ..OptiboxRequestComposer.Compose(CollisOpPallet))
 ]]></Implementation>
 </Method>
 </Class>