Index: APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r60393 -r66680
--- APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 60393)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 66680)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="UitgesteldeZendingLijst">
+<Type>APPS.TRANSP.VRD.UitgesteldeZendingLijst</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI</FormalSpec>
+<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI,UitgesteldeZendingLijst:APPS.TRANSP.VRD.UitgesteldeZendingLijst=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..UitgesteldeZendingLijst = $$$Inject(UitgesteldeZendingLijst,##class(APPS.TRANSP.VRD.UitgesteldeZendingLijst).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,7 +53,8 @@
 <Method name="BevestigRit">
 <FormalSpec>RitID:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"RitID " _ RitID)
+	Do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"RitID " _ RitID)
+	Do ..UitgesteldeZendingLijst.Rapport(RitID)
 	Do ..ControleerRitVoorBevestiging(RitID)
 ]]></Implementation>
 </Method>