Index: ULTOER.mac.rou
===================================================================
diff -u -r53349 -r55262
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 53349)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 55262)
@@ -682,7 +682,7 @@
  #dim DomeinContext As DOM.DomeinContext = ##class(DOM.DomeinContext).Instance()
  Set TransporteurAlsLeverancierNr = DomeinContext.GeefTransportAPI().GeefRit(Transport).GeefTransporteur()
  Set lbAdressen = $lb( DomeinContext.GeefPartijAPI().GeefPartij( DomeinContext.GeefLegacyPartijAPI().GeefLeverancierPartijID(TransporteurAlsLeverancierNr) ).GeefEmail() )
- Do ExportEnMail^TRANSPExport2File(Transport,lbAdressen)
+ Do ExportEnMail^TRANSPExport2Csv(Transport,lbAdressen)
  Do ##class(vhLib.Logger).%New("Transport").Debug("Mail Transportlijst einde", "Transport='" _ Transport _ "'; gekozen vanop bonnr='" _ BONNr _ "'.")
  Quit
  ;
Index: TRANSPExport2Csv.mac.rou
===================================================================
diff -u
--- TRANSPExport2Csv.mac.rou	(revision 0)
+++ TRANSPExport2Csv.mac.rou	(revision 55262)
@@ -0,0 +1,118 @@
+#include vhLib.Macro
+#include BL.Derde.KlantSpecifiek
+#include BL.Derde.LevSpecifiek
+
+ExportNaarShared(TranspNr)
+	New FileNaam,Pad,PadEnFile
+	Set FileNaam="Transport "_TranspNr_".csv"
+	Set Pad=$$DIRUSER^vhDEV()
+	Set PadEnFile=$$ExportNaarBestand(TranspNr,Pad,FileNaam)
+	Quit
+
+ExportEnFtp(TranspNr,FtpConfiguratie)
+	New FileNaam,Pad,PadEnFile,Subject,Body
+	Set FileNaam="Transport "_TranspNr_".csv"
+	Set Pad=##class(TECH.File).GetTempDir()
+	Set:($$$Server = "CACHE01") Pad="C:\SCRATCH"
+	Set PadEnFile=$$ExportNaarBestand(TranspNr,Pad,FileNaam)
+	Quit:PadEnFile=""
+	Set FtpService=##class(TECH.Ftp.impl.FtpAPI).%New()
+	if $$$Server = "CACHE01" {
+		Do FtpService.Connecteer(FtpConfiguratie)
+		Do FtpService.VerzendBestand(PadEnFile,FileNaam)
+		Do FtpService.VerbreekVerbinding()
+	}
+	Do DELFILE^vhDEV(PadEnFile)
+	Do ##class(vhLib.Logger).%New("Transport").Info("FTP Transportlijst", "Ftp van transport "_TranspNr_" naar "_FtpConfiguratie.Adres)
+	Quit
+	
+ExportEnMail(TranspNr,lbAdressen)
+	New FileNaam,Pad,PadEnFile,Subject,Body
+	Set FileNaam="Transport "_TranspNr_".csv"
+	
+	Set Pad=##class(TECH.File).GetTempDir()
+	Set:($$$Server = "CACHE01") Pad="C:\SCRATCH"
+	Set PadEnFile=$$ExportNaarBestand(TranspNr,Pad,FileNaam)
+	Quit:PadEnFile=""
+	Set lbAttachments=$LB($LB(PadEnFile))
+
+	Set IsTussentijdseExport = $Data(^TRANSP("IO",TranspNr))
+	
+	Set Subject="Transportlijst "_TranspNr
+	Set:IsTussentijdseExport Subject = "Tussentijdse vooraanmelding " _ Subject
+	
+	Set ActieOmschrijving=$Select(IsTussentijdseExport:"Tussentijdse vooraanmelding", 1:"Afsluiting")
+	Set Body=ActieOmschrijving _ " van transport "_TranspNr_", details zie bijlage."_$$$CRLF
+	
+	Set Mail=$$SendMiniMail^vhLib.Mail("RDL@VANHOECKE.BE",lbAdressen,Subject,Body,,,,,lbAttachments)
+	
+	Do DELFILE^vhDEV(PadEnFile)
+	Do ##class(vhLib.Logger).%New("Transport").Info("Mail Transportlijst", "Mail van transport "_TranspNr_" naar "_lbAdressen)
+	Quit
+
+ExportNaarBestand(TranspNr,Pad,FileNaam)
+	New %J,Dev,D
+	Set D="\"
+	Quit:'$G(TranspNr) ""
+	Do Init
+	Quit:'$D(^HULP(%J)) ""
+	Set Dev=$$OPEN^vhDEV(Pad,FileNaam,"W","M")
+	Use Dev
+	Do WriteHeader
+	Do ExportCache
+	Do CLOSE^vhDEV(Dev)
+	Quit $$FULLPAD^vhDEV(Pad,FileNaam)
+	
+Init
+	Set %J=$$%J^vhRtn1()
+	Kill ^HULP(%J)
+	Do SortBody^DCTRANSP(%J,TranspNr)
+	Quit
+	
+ExportCache	
+	New SortKey,GroepNr
+	Set SortKey=""
+	For  Set SortKey=$O(^HULP(%J,SortKey)) Quit:SortKey=""  Do
+	. Set GroepNr=^HULP(%J,SortKey)
+	. Do WriteAdres(TranspNr,GroepNr)
+	Quit
+
+WriteHeader
+	Write $TR("TranspNr,GroepNr,Type,ContactNr,Naam,Toenaam,StraatEnNr,PostNr,Woonplaats,Land,Taal,Rembours,Munt,Gewicht,EuroPallet,Colli,Langgoed,HalvePallet,GrootPallet",",",$c(59))
+	Write !
+	Quit
+
+WriteAdres(TranspNr,GroepNr)
+	New TranspRec,TranspType,ContractRef,ContactType,Rembours,Gewicht,LevAdr,Naam,ToeNaam,Adres,PostNr,Woonpl,Land,KLTaal,Munt,EPallet,Collo,LangGoed,KPallet,BPAllet
+	Set TranspRec=^TRANSP("D",TranspNr,"D",GroepNr)
+	Set ContactRef=$P(TranspRec,"\")
+	Set ContactType=$P(TranspRec,"\",6)
+    Set:ContactType="" ContactType="K"
+	Set Rembours=$P(TranspRec,"\",2)
+    Set Gewicht=$P(TranspRec,"\",3)
+ 	Set TranspType=$P(^TRANSP("D",TranspNr),"\",5)
+	Set LevAdr=$$LEVADR^TRANSPL(TranspNr,GroepNr)
+ 	Set Naam=$P(LevAdr,"\",2)
+ 	Set ToeNaam=$P(LevAdr,"\",3)
+ 	Set Adres=$P(LevAdr,"\",5)
+ 	Set PostNr=$P(LevAdr,"\",6)
+ 	Set:PostNr?1.2A1"-".E PostNr=$P(PostNr,"-",2,99) ; land prefix moet eraf voor TTC
+ 	Set Woonpl=$P(LevAdr,"\",7)
+ 	Set Land=$$LAND^vhRtn1($P(LevAdr,"\",8))
+ 	Set KlTaal=$P(LevAdr,"\",9) Set:KlTaal="" KlTaal="N"
+	Set Munt=$$MUNT^TRANSPZ(ContactType,ContactRef)
+ 	Set EPallet=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","E"))
+ 	Set Collo=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","C"))
+ 	Set LangGoed=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","L"))
+	Set KPallet=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","P"))
+	Set BPallet=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","B"))
+	Write TranspNr,*59,GroepNr,*59,TranspType
+	Write *59,ContactRef,*59,Naam,*59,ToeNaam,*59,Adres,*59,PostNr,*59,Woonpl,*59,Land,*59,KlTaal
+	Write *59,$$$ExcelNum(Rembours),*59,Munt,*59,$$$ExcelNum(Gewicht)
+	Write *59,$$FmtAantal(EPallet),*59,$$FmtAantal(Collo),*59,$$FmtAantal(LangGoed),*59,$$FmtAantal(KPallet),*59,$$FmtAantal(BPallet)
+	Write !
+	
+FmtAantal(VerpakRecord)
+	Set Aantal=+VerpakRecord
+	Set:Aantal=0 Aantal=""
+	Quit Aantal