Index: APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r40880 -r50879
--- APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 40880)
+++ APPS/TRANSP/GLS/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 50879)
@@ -46,15 +46,19 @@
 <FormalSpec>RitID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ControleerRitVoorBevestiging(RitID)
-	
+	Do ##class(vhLib.Logger).%New().Warning("GLS - BevestigRit","Na - Ritbevestiging gecontroleerd. " _RitID)
 	Do ..AnnuleerNietGelukteRequest()
+	Do ##class(vhLib.Logger).%New().Warning("GLS - BevestigRit","Na - Mislukte requests geannuleerd. " _RitID)
 	
 	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
 	#dim itLevering As TECH.ListIterator = Rit.GeefLeveringIterator()
 	while itLevering.HasNext() {
-		set BevestigLevering = ##class(APPS.TRANSP.GLS.impl.CommunicatieService.BevestigLevering).%New(..CommunicatieServiceLocator,,Rit,itLevering.Next())
+		#dim Levering As DOM.TRANSP.Levering = itLevering.Next()
+		set BevestigLevering = ##class(APPS.TRANSP.GLS.impl.CommunicatieService.BevestigLevering).%New(..CommunicatieServiceLocator,,Rit,Levering)
 		do BevestigLevering.VoerUit()
+		Do ##class(vhLib.Logger).%New().Warning("GLS - BevestigRit","Na - Levering release verzonden voor ID " _Levering.GeefID())
 	}
+	Do ##class(vhLib.Logger).%New().Warning("GLS - BevestigRit","Na - Leveringen releaserequest afgerond. " _RitID)
 ]]></Implementation>
 </Method>