Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder/Bewaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder/Bewaar/Test.cls.xml	(revision 35995)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder.Bewaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Bewaar stapeling roept maak en bewaar op">
+<Implementation><![CDATA[
+	#dim StapelingRepositoryMock As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	#dim StapelingBewaarder As APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder).%New(StapelingRepositoryMock)
+	#dim StapelingDummy As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).%New()
+	Do StapelingRepositoryMock.VerwachtMethodCall("BestaatViaReferentie","DummyReferentie").DanReturn(0)
+	Do StapelingRepositoryMock.VerwachtMethodCall("Maak").DanReturn(StapelingDummy)
+	Do StapelingRepositoryMock.VerwachtMethodCall("Bewaar",StapelingDummy)
+	#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.StapelingResultaat).GeefStapelingResultaat()
+	
+	Do StapelingBewaarder.Bewaar(StapelingResultaat)
+	
+	Do StapelingRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: verwijder oude stapeling gegevens verwijderdviareferentie en roept maak en bewaar op">
+<Implementation><![CDATA[
+	#dim StapelingRepositoryMock As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	#dim StapelingBewaarder As APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder).%New(StapelingRepositoryMock)
+	#dim StapelingDummy As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).%New()
+	Do StapelingRepositoryMock.VerwachtMethodCall("BestaatViaReferentie","DummyReferentie").DanReturn(1)
+	Do StapelingRepositoryMock.VerwachtMethodCall("VerwijderViaReferentie","DummyReferentie")
+	Do StapelingRepositoryMock.VerwachtMethodCall("Maak").DanReturn(StapelingDummy)
+	Do StapelingRepositoryMock.VerwachtMethodCall("Bewaar",StapelingDummy)
+	#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.StapelingResultaat).GeefStapelingResultaat()
+	
+	Do StapelingBewaarder.Bewaar(StapelingResultaat)
+	
+	Do StapelingRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: stapeling wordt opgeslagen">
+<Implementation><![CDATA[
+	#dim StapelingBewaarder As APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder).%New()
+	#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(vhTest.Utils.APPS.TRANSP.Stapeling.dto.StapelingResultaat).GeefStapelingResultaat()
+	
+	Do StapelingBewaarder.Bewaar(StapelingResultaat)
+
+	#dim StapelingRepository As APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	Do $$$AssertTrue(StapelingRepository.BestaatViaReferentie(StapelingResultaat.Referentie))
+	
+	Do StapelingRepository.VerwijderViaReferentie(StapelingResultaat.Referentie)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml
===================================================================
diff -u -r35967 -r35995
--- vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(.../StapelingRepository.cls.xml)	(revision 35967)
+++ vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingRepository.cls.xml	(.../StapelingRepository.cls.xml)	(revision 35995)
@@ -21,11 +21,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatViaReferentie">
+<FormalSpec>Referentie:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BestaatViaReferentie",Referentie)
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderViaReferentie">
 <FormalSpec>Referentie:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaReferentie",Referentie)
 ]]></Implementation>
 </Method>
+
+<Method name="Maak">
+<ReturnType>TECH.Persistent</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("Maak")
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/Stapeling/dto/StapelingResultaat.cls.xml	(revision 35995)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.Stapeling.dto.StapelingResultaat">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefStapelingResultaat">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.Stapeling.dto.StapelingResultaat</ReturnType>
+<Implementation><![CDATA[
+	#dim StapelingResultaat As APPS.TRANSP.Stapeling.dto.StapelingResultaat = ##class(APPS.TRANSP.Stapeling.dto.StapelingResultaat).%New()
+	Set StapelingResultaat.Referentie = "DummyReferentie"
+	#dim Pallet As APPS.TRANSP.Stapeling.dto.Pallet = ##class(APPS.TRANSP.Stapeling.dto.Pallet).%New()
+	Set Pallet.Gewicht = 100
+	Set Pallet.Afmeting = ##class(APPS.TRANSP.Stapeling.dto.Afmeting).%New(90,80,70)
+	Do StapelingResultaat.Palletten.Insert(Pallet)
+	Quit StapelingResultaat
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(revision 35995)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder">
+<Super>TECH.PubSub.EventHandler</Super>
+
+<Property name="StapelingRepository">
+<Type>APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>StapelingRepository:APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</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 ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:APPS.TRANSP.Stapeling.event.ColliOpPalletBerekeningKlaarEvent</FormalSpec>
+<Implementation><![CDATA[	do ..%New().Bewaar(Event.Data.StapelingResultaat)
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<FormalSpec>StapelingResultaat:APPS.TRANSP.Stapeling.dto.StapelingResultaat</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderOudeStapelingGegevens(StapelingResultaat.Referentie)
+	Do ..StapelingRepository.Bewaar(..MaakStapeling(StapelingResultaat))
+]]></Implementation>
+</Method>
+
+<Method name="MaakStapeling">
+<FormalSpec>StapelingResultaat:APPS.TRANSP.Stapeling.dto.StapelingResultaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling</ReturnType>
+<Implementation><![CDATA[
+	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ..StapelingRepository.Maak()
+	Set Stapeling.Referentie = StapelingResultaat.Referentie
+	Set Stapeling.AanmaakTijdStip = ..DateTimeAPI.CurrentTimeStamp()
+	#dim StapelingResultaatIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingResultaat.Palletten)
+	While StapelingResultaatIterator.HasNext()
+	{
+		#dim StapelingResultaatPallet As APPS.TRANSP.Stapeling.dto.Pallet = StapelingResultaatIterator.Next()
+		#dim StapelingPallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
+		Set StapelingPallet.Gewicht = StapelingResultaatPallet.Gewicht
+		Set StapelingPallet.Afmeting = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Afmeting).%New()
+		Set StapelingPallet.Afmeting.Breedte = StapelingResultaatPallet.Afmeting.Breedte
+		Set StapelingPallet.Afmeting.Hoogte = StapelingResultaatPallet.Afmeting.Hoogte
+		Set StapelingPallet.Afmeting.Lengte = StapelingResultaatPallet.Afmeting.Lengte
+		Do Stapeling.Palletten.Insert(StapelingPallet)
+	}
+	Quit Stapeling
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOudeStapelingGegevens">
+<FormalSpec>Referentie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ..StapelingRepository.BestaatViaReferentie(Referentie)
+	{
+		Do ..StapelingRepository.VerwijderViaReferentie(Referentie)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml
===================================================================
diff -u -r35986 -r35995
--- APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 35986)
+++ APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 35995)
@@ -13,7 +13,7 @@
 <Collection>list</Collection>
 </Property>
 
-<Property name="AanmaakDatum">
+<Property name="AanmaakTijdStip">
 <Type>%TimeStamp</Type>
 </Property>
 
@@ -37,6 +37,9 @@
 <Value name="4">
 <Value>AanmaakDatum</Value>
 </Value>
+<Value name="5">
+<Value>AanmaakTijdStip</Value>
+</Value>
 </Data>
 </Storage>
 </Class>