Index: APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml
===================================================================
diff -u -r66679 -r66685
--- APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66679)
+++ APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66685)
@@ -41,6 +41,7 @@
 debug output, lijntje per zending</Description>
 <FormalSpec>TransportNr:%String,DagenInToekomst:%Integer=2,RefDatum:%Date=$h,Debug:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
+	#dim MailSturen as %Boolean = $$$False
 	Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	#dim Transport as DOM.TRANSP.Rit = ..TransportAPI.GeefRit(TransportNr)
 	
@@ -61,6 +62,7 @@
 			While BonIterator.HasNext() {
 				#dim Bon as DOM.VKP.Bon = BonIterator.Next()
 				If ..IsKapstokBon(Referentie,Bon.GeefID()) & ..IsLeveringAantalWerkDagenInToekomst(Bon.GeefLeveringsDatum(),DagenInToekomst,RefDatum) {
+					Set MailSturen = $$$True
 					Set Lijn = Lijn _ $ZD(Bon.GeefLeveringsDatum(),4) ;DD/MM/YYYY
 					w:(Debug) !, "               * Bon " _ Bon.GeefID() _ " " _ $zd(RefDatum,4)_ " " _ $ZD(##class(TECH.DateTime).BerekenWerkdag(RefDatum,DagenInToekomst),4)_ "-"_ $ZD(Bon.GeefLeveringsDatum(),4)
 					Do Stream.WriteLine(Lijn)
@@ -74,23 +76,25 @@
 		Do ..Logger.LogEnMailExceptie(Exception)	
 	}
 	
-	Do ..Logger.Info("Verstuurde lijst",Stream)
+	If (MailSturen) {
+		Do ..Logger.Info("Verstuurde lijst voor transport " _ TransportNr,Stream)
 	
-	#Dim Mail as TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
-	;Do Mail.VoegToeOntvanger("liesbeth@vrd.be")
-	;Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
-	Do Mail.VoegToeOntvanger("jwi@vanhoecke.be")
-	Do Mail.VoegToeBijlageStream(Stream,"UitgesteldeLeveringen_"_$ZD($h,3)_"_"_TransportNr_".csv" )
-	Do Mail.VoegToeLijn("Beste,")
-	Do Mail.VoegToeLijn("")
-	Do Mail.VoegToeLijn("Gelieve in bijlage het csv bestand te vinden met de zendingen voor uitgestelde levering van transport " _ TransportNr)
-	Do Mail.VoegToeLijn("")
-	Do Mail.VoegToeLijn("Met vriendelijke groeten.")
-	Do Mail.VoegToeLijn("")
-	Do Mail.VoegToeLijn("Van Hoecke Verzending.")
-	Do Mail.ZetOnderwerp("Lijst zendingen voor uitgestelde levering")
-	Do Mail.ZetVerzender($$$SystemMail("Verzending Van Hoecke"))
-	Do ..MailAPI.VerstuurMail(Mail)
+		#Dim Mail as TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
+		;Do Mail.VoegToeOntvanger("liesbeth@vrd.be")
+		;Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
+		Do Mail.VoegToeOntvanger("jwi@vanhoecke.be")
+		Do Mail.VoegToeBijlageStream(Stream,"UitgesteldeLeveringen_"_$ZD($h,3)_"_"_TransportNr_".csv" )
+		Do Mail.VoegToeLijn("Beste,")
+		Do Mail.VoegToeLijn("")
+		Do Mail.VoegToeLijn("Gelieve in bijlage het csv bestand te vinden met de zendingen voor uitgestelde levering van transport " _ TransportNr)
+		Do Mail.VoegToeLijn("")
+		Do Mail.VoegToeLijn("Met vriendelijke groeten.")
+		Do Mail.VoegToeLijn("")
+		Do Mail.VoegToeLijn("Van Hoecke Verzending.")
+		Do Mail.ZetOnderwerp("Lijst zendingen voor uitgestelde levering")
+		Do Mail.ZetVerzender($$$SystemMail("Verzending Van Hoecke"))
+		Do ..MailAPI.VerstuurMail(Mail)
+	}
 ]]></Implementation>
 </Method>