Index: APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml
===================================================================
diff -u -r66675 -r66679
--- APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66675)
+++ APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(.../UitgesteldeZendingLijst.cls.xml)	(revision 66679)
@@ -13,45 +13,46 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportAPI:DOM.TRANSP.TransportAPI="",MailAPI:TECH.Mail.impl.MailAPI=""</FormalSpec>
+<FormalSpec>TransportAPI:DOM.TRANSP.TransportAPI="",MailAPI:TECH.Mail.impl.MailAPI="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..MailAPI = $$$Inject(MailAPI,##class(TECH.Mail.impl.MailAPI).%New())
 	Set ..TransportAPI = $$$Inject(TransportAPI,##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New())
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New(..%ClassName(1)))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// d ##class(APPS.TRANSP.VRD.UitgesteldeZendingLijst).%New().Rapport("31207",2,$h)
-
-]]></Content>
-</UDLText>
-
 <Method name="Rapport">
-<FormalSpec>TransportNr:%String,DagenInToekomst:%Integer=2,RefDatum:%Date=$h</FormalSpec>
+<Description>
+d ##class(APPS.TRANSP.VRD.UitgesteldeZendingLijst).%New().Rapport(31207,2,$h)
+Transportnummer
+aantal werkdagen dat levering in later moet zijn tov de referentiedatum
+de referentiedatum, in principe vandaag.
+debug output, lijntje per zending</Description>
+<FormalSpec>TransportNr:%String,DagenInToekomst:%Integer=2,RefDatum:%Date=$h,Debug:%Boolean=$$$False</FormalSpec>
 <Implementation><![CDATA[
 	Set Transporteurs = ##class(DOM.TRANSP.enu.Transporteur.AutoComplete).%New()
 	#dim Transport as DOM.TRANSP.Rit = ..TransportAPI.GeefRit(TransportNr)
 	
 	Quit:$$$Not(Transport.GeefTransporteur()=Transporteurs.VRD)
 	
-	#dim it as TECH.Iterator = Transport.GeefLeveringIterator()
+	#dim LeveringIterator as TECH.Iterator = Transport.GeefLeveringIterator()
 	Set Stream = ##class(%GlobalCharacterStream).%New()
-	;#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	;Do FileWriter.Open("c:\temp\rapport.csv",$$$False)
-	w !,"Ref datum " _ $ZD(RefDatum,4)
+	w:(Debug) !,"Ref datum " _ $ZD(RefDatum,4)
 	try {	
-		;Do FileWriter.WriteLine("Referentie;GewensteLeverdatum")
 		Do Stream.WriteLine("Referentie;GewensteLeverdatum")
-		w !,"Transport " _TransportNr
-		while it.HasNext(){
-			#dim Levering as DOM.TRANSP.Levering = it.Next()
+		while LeveringIterator.HasNext(){
+			#dim Levering as DOM.TRANSP.Levering = LeveringIterator.Next()
 			#dim Referentie as %String = Levering.GeefDistributeurDataLijst().GetAt(1).Reference
 			
 			#dim Lijn as %String = Referentie _ ";"
@@ -60,35 +61,36 @@
 			While BonIterator.HasNext() {
 				#dim Bon as DOM.VKP.Bon = BonIterator.Next()
 				If ..IsKapstokBon(Referentie,Bon.GeefID()) & ..IsLeveringAantalWerkDagenInToekomst(Bon.GeefLeveringsDatum(),DagenInToekomst,RefDatum) {
-					Set Lijn = Lijn _ $ZD(Bon.GeefLeveringsDatum(),4)
-					w !, "               * Bon " _ Bon.GeefID() _ " " _ $zd(RefDatum,4)_ " " _ $ZD(##class(TECH.DateTime).BerekenWerkdag(RefDatum,DagenInToekomst),4)_ "-"_ $ZD(Bon.GeefLeveringsDatum(),4)
-					;Do FileWriter.WriteLine(Lijn)
+					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)
 				} else {
-					w !, "               Bon " _ Bon.GeefID() _ " " _ $zd(RefDatum,4)_ " " _ $ZD(##class(TECH.DateTime).BerekenWerkdag(RefDatum,DagenInToekomst),4) _ "-" _ $ZD(Bon.GeefLeveringsDatum(),4) 
+					w:(Debug) !, "                Bon " _ Bon.GeefID() _ " " _ $zd(RefDatum,4)_ " " _ $ZD(##class(TECH.DateTime).BerekenWerkdag(RefDatum,DagenInToekomst),4)_ "-"_ $ZD(Bon.GeefLeveringsDatum(),4)
 				}
 			}
-			
 		}
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.LogEnMailExceptie(Exception)	
 	}
 	
+	Do ..Logger.Info("Verstuurde lijst",Stream)
+	
 	#Dim Mail as TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
-	Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
-	Do Mail.VoegToeBijlageStream(Stream,"UitgesteldeLeveringen_"_$ZD($h,4) )
+	;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 xml bestand te vinden met de nog verwachte zendingen voor vandaag.")
+	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 later te leveren zendingen")
+	Do Mail.ZetOnderwerp("Lijst zendingen voor uitgestelde levering")
 	Do Mail.ZetVerzender($$$SystemMail("Verzending Van Hoecke"))
 	Do ..MailAPI.VerstuurMail(Mail)
-	
-	;Do FileWriter.Close()
 ]]></Implementation>
 </Method>