Index: vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r41644 -r53495
--- vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41644)
+++ vhTest/Mock/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 53495)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler">
 <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>
+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.Offerte.impl.DHL.StapelingBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bepaal/Test.cls.xml
===================================================================
diff -u -r41647 -r53495
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 41647)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler/Bepaal/Test.cls.xml	(.../Test.cls.xml)	(revision 53495)
@@ -3,7 +3,12 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler.Bepaal.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: geeft palletten weer aan de hand van berekeninput">
+<Parameter name="PalletHoogte">
+<Type>%String</Type>
+<Default>130</Default>
+</Parameter>
+
+<Method name="Test: geeft pallet weer aan de hand van berekeninput">
 <Implementation><![CDATA[
 	#dim StapelingRepository As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
 	
@@ -19,14 +24,88 @@
 	
 	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = StapelingBepaler.Bepaal(BerekenInputDummy)
 	
-	Do $$$AssertEquals(Palletten.Count(),1)
-	#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(1)
-	Do $$$AssertEquals(Pallet.GewichtInKG,100.000)
-	Do $$$AssertEquals(Pallet.Afmeting.Hoogte,220)
-	Do $$$AssertEquals(Pallet.Afmeting.Breedte,80)
-	Do $$$AssertEquals(Pallet.Afmeting.Lengte,70)
+	if $$$AssertEquals(Palletten.Count(),1) {
+		#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(1)
+		Do $$$AssertEquals(Pallet.GewichtInKG,100.000)
+		Do $$$AssertEquals(Pallet.Afmeting.Hoogte,90 + ..#PalletHoogte)
+		Do $$$AssertEquals(Pallet.Afmeting.Breedte,80)
+		Do $$$AssertEquals(Pallet.Afmeting.Lengte,70)
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: geeft geen palletten weer indien de gegevens nog niet volledig zijn">
+<Implementation><![CDATA[
+	#dim StapelingRepository As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	
+
+	#dim BerekendeStapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).GeefStapeling()
+	
+	#dim NietBerekendeStapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).GeefStapeling()
+	Set NietBerekendeStapeling.IsBerekend = $$$False
+	Set NietBerekendeStapeling.Groep = "NietBerekendGroep"
+	Set NietBerekendeStapeling.Referentie = "NietBerekendReferentie"
+
+
+	#dim StapelingList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do StapelingList.Insert(BerekendeStapeling)
+	Do StapelingList.Insert(NietBerekendeStapeling)
+	
+	#dim StapelingIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingList)
+	
+	Do StapelingRepository.IndienMethodCall("ZoekViaReferentie", $$$ElkeWaarde).DanReturn(StapelingIterator)
+	
+	#dim StapelingBepaler As APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New(StapelingRepository)
+	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	
+	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = StapelingBepaler.Bepaal(BerekenInputDummy)
+	
+	Do $$$AssertEquals(Palletten.Count(),0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft alle palletten weer">
+<Implementation><![CDATA[
+	#dim StapelingRepository As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New()
+	
+
+	#dim Stapeling1 As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).GeefStapeling()
+	
+	#dim Stapeling2 As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(vhTest.Utils.APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).GeefStapeling()
+	Set Stapeling2.Palletten.GetAt(1).GewichtInKG = 50
+	Set Stapeling2.Palletten.GetAt(1).Afmeting.Breedte = 40
+	Set Stapeling2.Palletten.GetAt(1).Afmeting.Lengte = 35
+	Set Stapeling2.Palletten.GetAt(1).Afmeting.Hoogte = 110
+
+
+	#dim StapelingList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do StapelingList.Insert(Stapeling1)
+	Do StapelingList.Insert(Stapeling2)
+	
+	#dim StapelingIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingList)
+	
+	Do StapelingRepository.IndienMethodCall("ZoekViaReferentie", $$$ElkeWaarde).DanReturn(StapelingIterator)
+	
+	#dim StapelingBepaler As APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New(StapelingRepository)
+	#dim BerekenInputDummy As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	
+	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = StapelingBepaler.Bepaal(BerekenInputDummy)
+	
+	if $$$AssertEquals(Palletten.Count(),2) {
+		#dim Pallet1 As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(1)
+		Do $$$AssertEquals(Pallet1.GewichtInKG,100.000)
+		Do $$$AssertEquals(Pallet1.Afmeting.Hoogte,90 + ..#PalletHoogte)
+		Do $$$AssertEquals(Pallet1.Afmeting.Breedte,80)
+		Do $$$AssertEquals(Pallet1.Afmeting.Lengte,70)
+
+		#dim Pallet2 As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(2)
+		Do $$$AssertEquals(Pallet2.GewichtInKG,50.000)
+		Do $$$AssertEquals(Pallet2.Afmeting.Hoogte,110 + ..#PalletHoogte)
+		Do $$$AssertEquals(Pallet2.Afmeting.Breedte,40)
+		Do $$$AssertEquals(Pallet2.Afmeting.Lengte,35)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r53172 -r53495
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 53172)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 53495)
@@ -100,7 +100,7 @@
 		#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ..StapelingBepaler.Bepaal(..BerekenInput)
 		Set ..AantalPalletten = Palletten.Count()
 		If ..AantalPalletten=0 {
-			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Er zijn (nog) geen palletten berekend voor DHL of het berekende aantal is 0 voor berekeninput referentie " _..BerekenInput.Referentie)
+			Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Palletten zijn nog niet (volledig) berekend voor DHL of het berekende aantal is 0 voor berekeninput referentie " _..BerekenInput.Referentie)
 		}
 
 		Set ..TransportTarief = ..BerekenTarief(Palletten)
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r41673 -r53495
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 41673)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 53495)
@@ -61,12 +61,16 @@
 <Implementation><![CDATA[
 	Do ..Logger.Info("XML Stapelaar verwerken","Stapelingresultaat wordt opgehaald voor berekeninput : " _BerekenInput.Referentie _" ") 		
 
+	#dim BerekeningIsVolledig As %Boolean = $$$True
+	
 	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
 
 	#dim StapelingIterator As TECH.Iterator = ..StapelingRepository.ZoekViaReferentie(BerekenInput.Referentie)
 	While StapelingIterator.HasNext() {
 		#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = StapelingIterator.Next()
-
+		
+		Set BerekeningIsVolledig = BerekeningIsVolledig && Stapeling.IsBerekend
+		
 		#dim PallettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Stapeling.Palletten)
 		While PallettenIterator.HasNext()
 		{
@@ -77,7 +81,9 @@
 			Do Palletten.Insert(Pallet)
 		}
 	}
-	Quit Palletten
+	Quit:BerekeningIsVolledig Palletten
+	
+	Quit ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
 ]]></Implementation>
 </Method>
 
@@ -89,7 +95,9 @@
 
 <Method name="Bereken">
 <FormalSpec>CollisOpPallet:APPS.TRANSP.Stapeling.dto.CollisOpPallet</FormalSpec>
-<Implementation><![CDATA[	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie _CollisOpPallet.Groep, ..OptiboxRequestComposer.Compose(CollisOpPallet))
+<Implementation><![CDATA[
+	Do ..StapelingBewaarder.BewaarTeVerwachtenStapeling(CollisOpPallet.Referentie, CollisOpPallet.Groep)
+	Do ..OptiboxRequestWriter.WriteRequest(CollisOpPallet.Referentie _CollisOpPallet.Groep, ..OptiboxRequestComposer.Compose(CollisOpPallet))
 ]]></Implementation>
 </Method>
 
Index: APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml
===================================================================
diff -u -r37617 -r53495
--- APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 37617)
+++ APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 53495)
@@ -21,6 +21,11 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="IsBerekend">
+<Type>%Boolean</Type>
+<InitialExpression>"0"</InitialExpression>
+</Property>
+
 <Index name="Referentie">
 <Properties>Referentie</Properties>
 </Index>
@@ -60,6 +65,9 @@
 <Value name="6">
 <Value>Groep</Value>
 </Value>
+<Value name="7">
+<Value>IsBerekend</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml
===================================================================
diff -u -r41652 -r53495
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 41652)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 53495)
@@ -53,6 +53,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BewaarTeVerwachtenStapeling">
+<FormalSpec>Referentie:%String,Groep:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderOudeStapelingGegevens(Referentie, Groep)
+	
+	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ..StapelingRepository.Maak()
+	Set Stapeling.Referentie = Referentie
+	Set Stapeling.Groep = Groep
+	Set Stapeling.AanmaakTijdStip = ..DateTimeAPI.CurrentTimeStamp()
+	Set Stapeling.IsBerekend = $$$False
+	Do ..StapelingRepository.Bewaar(Stapeling)
+	Do ..Logger.Info("XML Stapelaar verwerken","Te verwachten stapelingresultaat wordt bewaard : " _Referentie _" " _Groep)
+]]></Implementation>
+</Method>
+
 <Method name="MaakStapeling">
 <FormalSpec>StapelingResultaat:APPS.TRANSP.Stapeling.dto.StapelingResultaat</FormalSpec>
 <Private>1</Private>
@@ -62,6 +77,7 @@
 	Set Stapeling.Referentie = StapelingResultaat.Referentie
 	Set Stapeling.Groep = StapelingResultaat.Groep
 	Set Stapeling.AanmaakTijdStip = ..DateTimeAPI.CurrentTimeStamp()
+	Set Stapeling.IsBerekend = $$$True
 	#dim StapelingResultaatIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(StapelingResultaat.Palletten)
 	While StapelingResultaatIterator.HasNext()
 	{
Index: vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml
===================================================================
diff -u -r37622 -r53495
--- vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 37622)
+++ vhTest/Utils/APPS/TRANSP/Offerte/impl/DHL/Data/Stapeling.cls.xml	(.../Stapeling.cls.xml)	(revision 53495)
@@ -9,6 +9,7 @@
 	#dim Stapeling As APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Stapeling).%New()
 	Set Stapeling.Referentie = "DummyReferentie"
 	Set Stapeling.Groep = "DummyGroep"
+	Set Stapeling.IsBerekend = $$$True
 	#dim Pallet As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = ##class(APPS.TRANSP.Offerte.impl.DHL.Data.Pallet).%New()
 	Set Pallet.GewichtInKG = 100
 	Set Pallet.Afmeting = ##class(APPS.TRANSP.dto.Afmeting).%New(90,80,70)