Index: TRANSPExport2File.mac.rou =================================================================== diff -u -r57094 -r72047 --- TRANSPExport2File.mac.rou (.../TRANSPExport2File.mac.rou) (revision 57094) +++ TRANSPExport2File.mac.rou (.../TRANSPExport2File.mac.rou) (revision 72047) @@ -26,7 +26,7 @@ Do ##class(vhLib.Logger).%New("Transport").Info("FTP Transportlijst", "Ftp van transport "_TranspNr_" naar "_FtpConfiguratie.Adres) Quit -ExportEnMail(TranspNr,lbAdressen, Extensie = ".txt", Separator = "") +ExportEnMail(TranspNr,lbAdressen, Extensie = ".txt", Separator = "",lbCCAdressen) New FileNaam,Pad,PadEnFile,Subject,Body Set FileNaam="Transport "_TranspNr_Extensie @@ -104,14 +104,15 @@ 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 WWPallet=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","W")) 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,Separator,GroepNr,Separator,TranspType Write Separator,ContactRef,Separator,Naam,Separator,ToeNaam,Separator,Adres,Separator,PostNr,Separator,Woonpl,Separator,Land,Separator,KlTaal Write Separator,$$$ExcelNum(Rembours),Separator,Munt,Separator,$$$ExcelNum(Gewicht) - Write Separator,$$FmtAantal(EPallet),Separator,$$FmtAantal(Collo),Separator,$$FmtAantal(LangGoed),Separator,$$FmtAantal(KPallet),Separator,$$FmtAantal(BPallet) + Write Separator,$$FmtAantal(EPallet+WWPallet),Separator,$$FmtAantal(Collo),Separator,$$FmtAantal(LangGoed),Separator,$$FmtAantal(KPallet),Separator,$$FmtAantal(BPallet) Write ! FmtAantal(VerpakRecord)