Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml
===================================================================
diff -u -r37620 -r38250
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 37620)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBewaarder.cls.xml	(.../StapelingBewaarder.cls.xml)	(revision 38250)
@@ -3,6 +3,11 @@
 <Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingBewaarder">
 <Super>TECH.PubSub.EventHandler,TECH.RegisteredObject</Super>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+<Default>ColliOpPalletStapelaar</Default>
+</Parameter>
+
 <Property name="StapelingRepository">
 <Type>APPS.TRANSP.Offerte.impl.DHL.StapelingRepository</Type>
 <Private>1</Private>
@@ -13,13 +18,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</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 ..Logger = ##class(vhLib.Logger).%New()
 	Set ..StapelingRepository = $$$Inject(StapelingRepository,##class(APPS.TRANSP.Offerte.impl.DHL.StapelingRepository).%New())
 	set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Quit $$$OK
@@ -37,6 +48,7 @@
 <FormalSpec>StapelingResultaat:APPS.TRANSP.Stapeling.dto.StapelingResultaat</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwijderOudeStapelingGegevens(StapelingResultaat.Referentie, StapelingResultaat.Groep)
+	Do ..Logger.Info("XML Stapelaar verwerken","Stapelingresultaat wordt bewaard : " _StapelingResultaat.Referentie _" " _StapelingResultaat.Groep)		
 	Do ..StapelingRepository.Bewaar(..MaakStapeling(StapelingResultaat))
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml
===================================================================
diff -u -r37622 -r38250
--- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 37622)
+++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml	(.../StapelingBepaler.cls.xml)	(revision 38250)
@@ -3,6 +3,11 @@
 <Class name="APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+<Default>ColliOpPalletStapelaar</Default>
+</Parameter>
+
 <Parameter name="PalletHoogte">
 <Type>%Integer</Type>
 <Default>130</Default>
@@ -23,13 +28,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <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 ..Logger = ##class(vhLib.Logger).%New()
 	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())
@@ -41,6 +52,8 @@
 <FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
 <ReturnType>APPS.TRANSP.OfferteService.dto.Palletten</ReturnType>
 <Implementation><![CDATA[
+	Do ..Logger.Info("XML Stapelaar verwerken","Stapelingresultaat wordt opgehaald voor berekeninput : " _BerekenInput.Referentie _" ") 		
+
 	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
 
 	#dim StapelingIterator As TECH.Iterator = ..StapelingRepository.ZoekViaReferentie(BerekenInput.Referentie)
Index: APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml
===================================================================
diff -u -r36773 -r38250
--- APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 36773)
+++ APPS/TRANSP/Stapeling/impl/ColliOpPalletStapelaar/Optibox/ResponseProcessor.cls.xml	(.../ResponseProcessor.cls.xml)	(revision 38250)
@@ -3,6 +3,11 @@
 <Class name="APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.ResponseProcessor">
 <Super>TECH.IteratorUitvoerderOpdracht</Super>
 
+<Parameter name="Applicatie">
+<Type>%String</Type>
+<Default>ColliOpPalletStapelaar</Default>
+</Parameter>
+
 <Property name="FileAPI">
 <Type>TECH.File.FileAPI</Type>
 <Private>1</Private>
@@ -18,13 +23,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>FileAPI:TECH.File.FileAPI,XmlCorrelater:TECH.XMLCorrelater,EventRaiser:APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	set ..Logger = ##class(vhLib.Logger).%New()
 	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
 	set ..XmlCorrelater = $$$Inject(XmlCorrelater,##class(TECH.XMLCorrelater).%New())
 	set ..EventRaiser = $$$Inject(EventRaiser,##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.EventRaiser).%New())
@@ -48,16 +59,20 @@
 <FormalSpec>FullFilename:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ..Logger.Info("XML Stapelaar verwerken","Verwerkt bestand : " _FullFilename)		
 	try {
 		#dim Message As APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq = ..XmlCorrelater.GeefObjectVanBestand(FullFilename,##class(APPS.TRANSP.Stapeling.impl.ColliOpPalletStapelaar.Optibox.XML.Response.cubeiq).%ClassName(1),"cubeiq")
 		if $IsObject(Message.unloadedpackages) && Message.unloadedpackages.Count() > 0
 		{
+			Do ..Logger.Info("XML Stapelaar verwerken","Er zijn unloadedpackages bij verwerking via de optiboxbig : " _FullFilename)		
 			do ..EventRaiser.RaiseCorruptedResponseReceivedEvent(FullFilename,..FileAPI.GeefFileReader(FullFilename).GeefStream())
 		} else {
+			Do ..Logger.Info("XML Stapelaar verwerken","Bestand is correct ingelezen : " _FullFilename)		
 			do ..EventRaiser.RaiseResponseReceivedEvent(Message)
 		}
 		do ..FileAPI.GeefFileUtils().Delete(FullFilename)
 	} catch {
+		Do ..Logger.Info("XML Stapelaar verwerken","Foutmelding tijdens conversie naar XML " _FullFilename)		
 		do ##class(vhLib.Logger).LogExceptie(##class(TECH.ExceptionHandler).Catch())
 		Do ..VerwijderFoutBestand(FullFilename)
 	}