Index: APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(revision 0)
+++ APPS/TRANSP/VRD/UitgesteldeZendingLijst.cls.xml	(revision 66675)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.VRD.UitgesteldeZendingLijst">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="TransportAPI">
+<Type>DOM.TRANSP.TransportAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MailAPI">
+<Type>TECH.Mail.MailAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>TransportAPI:DOM.TRANSP.TransportAPI="",MailAPI:TECH.Mail.impl.MailAPI=""</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())
+	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>
+<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()
+	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)
+	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()
+			#dim Referentie as %String = Levering.GeefDistributeurDataLijst().GetAt(1).Reference
+			
+			#dim Lijn as %String = Referentie _ ";"
+
+			#dim BonIterator as TECH.Iterator = Levering.GeefBonIterator()
+			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)
+					Do Stream.WriteLine(Lijn)
+				} else {
+					w !, "               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()
+	}
+	
+	#Dim Mail as TECH.Mail.Mail = ..MailAPI.MaakNieuwMail()
+	Do Mail.VoegToeOntvangerBCC("jwi@vanhoecke.be")
+	Do Mail.VoegToeBijlageStream(Stream,"UitgesteldeLeveringen_"_$ZD($h,4) )
+	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("")
+	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.ZetVerzender($$$SystemMail("Verzending Van Hoecke"))
+	Do ..MailAPI.VerstuurMail(Mail)
+	
+	;Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="IsKapstokBon">
+<FormalSpec>Referentie:%String,BonID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit "3" _$Extract(Referentie,6,10) = BonID
+]]></Implementation>
+</Method>
+
+<Method name="IsLeveringAantalWerkDagenInToekomst">
+<FormalSpec>LeveringsDatum:%Date,AantalWerkdagen:%Integer,RefDatum:%Date=$H</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit LeveringsDatum > ##class(TECH.DateTime).BerekenWerkdag(RefDatum,AantalWerkdagen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>