Index: TRANSPE.mac.rou
===================================================================
diff -u -r44292 -r50802
--- TRANSPE.mac.rou	(.../TRANSPE.mac.rou)	(revision 44292)
+++ TRANSPE.mac.rou	(.../TRANSPE.mac.rou)	(revision 50802)
@@ -8,11 +8,29 @@
  Do @R
  Quit
  ;
- ; GLS
+ ; GLS Freight
 5036(VervRef) 
  Do ##class(DOM.TRANSP.event.EventRaiser).RitGeslotenEvent(VervRef)
  Do VERWERK^TRANSPEA(VervRef)
  Quit
+ 
+  ; GLS Parcel	
+6612(VervRef) 
+ Do ##class(DOM.TRANSP.event.EventRaiser).RitGeslotenEvent(VervRef)
+ Do VERWERK^TRANSPEA(VervRef)
+ Quit
+
+ ; TTC
+6671(VervRef)
+	;Set lbAdressen=$lb("jefbauwens@ttctransport.be")
+	;Do ExportEnMail^TRANSPExport2File(VervRef,lbAdressen)
+	Set FtpConfiguratie=##class(TECH.Ftp.FtpConfiguratie).%New()
+	Set FtpConfiguratie.Adres="mail.ttctransport.be"
+	Set FtpConfiguratie.Gebruiker="VANHOECKE"
+	Set FtpConfiguratie.Paswoord="-7|:%:*89yN"
+	Set FtpConfiguratie.ServerBestandsLocatie="EDI in"
+	Do ExportEnFtp^TRANSPExport2File(VervRef,FtpConfiguratie)
+	Quit
 	
 	 ; GEBRUDER WEISS
 7186(VervRef)
@@ -25,3 +43,4 @@
  Quit
  ;
 
+