TRANSPE ;Verwerking expediteur (EDI) [ 10/23/2000  2:05 PM ]
 ; Voorziening om transporteur-specifieke code uit te voeren na sluiten van een transport.
 ;
VERWERK(VervRef) 
 New R,TranspNr
 Set R=^TRANSP("D",VervRef),TranspNr=$P(R,D)
 Set R=$T(@TranspNr) Set:R="" R="DEFAULT(VervRef)"
 Do @R
 Quit
 
 ; VRD
5803(VervRef)
 Do ##class(DOM.TRANSP.event.EventRaiser).RitGeslotenEvent(VervRef)
 Quit

 ; DHL
8315(VervRef)
 Do ##class(DOM.TRANSP.event.EventRaiser).RitGeslotenEvent(VervRef)
 Quit

 ;
 ; 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
	
 ; 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")
	Do ExportEnMail^TRANSPExportPalleten(VervRef,lbAdressen)
	Quit
	
 ;DB Schenker
5719(VervRef)
	Do ##class(DOM.TRANSP.event.EventRaiser).RitGeslotenEvent(VervRef)
	Quit
	
 ; DACHSER	
6370(VervRef)
	Set lbAdressen=$lb("collections.willebroek@dachser.com")
	Set lbCCAdressen=$lb("Jurgen.VanDriessche@vanhoecke.be","export.log@vanhoecke.be")

	;Set lbAdressen=$lb("pv@vanhoecke.be")
	;Set lbCCAdressen=$lb("pv@vanhoecke.Be")
	Do ExportEnMail^TRANSPExport2File(VervRef,lbAdressen,,,lbCCAdressen)
	
 ; 
 ; Default verwerking
DEFAULT(VervRef) 
 Quit
 ;