Index: TRANSPE.mac.rou
===================================================================
diff -u -r50802 -r57549
--- TRANSPE.mac.rou	(.../TRANSPE.mac.rou)	(revision 50802)
+++ TRANSPE.mac.rou	(.../TRANSPE.mac.rou)	(revision 57549)
@@ -32,6 +32,13 @@
 	Do ExportEnFtp^TRANSPExport2File(VervRef,FtpConfiguratie)
 	Quit
 	
+ ; TTC
+6671Mail(VervRef)
+	Set lbAdressen=$lb("luc@ttctransport.be")
+	Set lbAdressen=$lb("pv@vanhoecke.be")
+	Do ExportEnMail^TRANSPExport2File(VervRef,lbAdressen)
+	Quit
+	
 	 ; GEBRUDER WEISS
 7186(VervRef)
 	Set lbAdressen=$lb("rdl@vanhoecke.be","nra@vanhoecke.be")
Index: CHUI/MN/TRANSPCLOF.cls.xml
===================================================================
diff -u -r50728 -r57549
--- CHUI/MN/TRANSPCLOF.cls.xml	(.../TRANSPCLOF.cls.xml)	(revision 50728)
+++ CHUI/MN/TRANSPCLOF.cls.xml	(.../TRANSPCLOF.cls.xml)	(revision 57549)
@@ -275,6 +275,29 @@
 	quit result
 ]]></Implementation>
 </Method>
+
+<Method name="IsTTC">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Quit:$G(TranspNr)'=6671 0 ; TTC
+	#dim RitID As %String = $P(^HULP(%J,SelClose("SELECT")),"\",21)
+	Quit RitID&&$D(^TRANSP("IO",RitID)) ; openstaand transport
+]]></Implementation>
+</Method>
+
+<Method name="MailTTC">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim RitID As %String = $P(^HULP(%J,SelClose("SELECT")),"\",21)
+	If ..IsTTC()
+	{
+		Set lbAdressen=$lb("luchuybrechts@ttctransport.be")
+		Do ExportEnMail^TRANSPExport2Csv(RitID,lbAdressen)
+	}
+]]></Implementation>
+</Method>
 </Class>