Index: ULTOER2.mac.rou
===================================================================
diff -u -r31468 -r59671
--- ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 31468)
+++ ULTOER2.mac.rou	(.../ULTOER2.mac.rou)	(revision 59671)
@@ -146,16 +146,22 @@
 VulAanGLSInfo(ULNr)
 	New RitID, LeveringID,StatusControleur,DistributeurData,DistributeurDataIt,Levering,Dienst,DienstBepaler,CommunicatieService,VerzendWijze
 	#dim RitID As %String = $$GeefRitID^ULTOER(ULNr)
-	
+
 	If $Length(RitID){
 		#dim LeveringID As %String = $$GeefLeveringID^ULTOER(ULNr)
 		If $Length(LeveringID){
-			Set StatusControleur = ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()
-			Set DienstBepaler = ##class(APPS.TRANSP.GLS.impl.DienstBepalerDistributeurDataVisitor).%New()
+			#dim Transporteur as %String = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID).GeefTransporteur()
+			If ((Transporteur = ##class(DOM.TRANSP.enu.Transporteur).VRD()) || (Transporteur = ##class(DOM.TRANSP.enu.Transporteur).DHL()) ){
+				Set StatusControleur = ##class(APPS.TRANSP.Transsmart.impl.StatusControleurDistributeurDataVisitor).%New()
+				Set DienstBepaler = ##class(APPS.TRANSP.Transsmart.impl.DienstBepalerDistributeurDataVisitor).%New()
+			} else {
+				Set StatusControleur = ##class(APPS.TRANSP.GLS.impl.StatusControleurDistributeurDataVisitor).%New()
+				Set DienstBepaler = ##class(APPS.TRANSP.GLS.impl.DienstBepalerDistributeurDataVisitor).%New()
+			}
 			
 			#dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,LeveringID)
 			Set DistributeurDataIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataLijst())
-			While DistributeurDataIt.HasNext(){
+			While DistributeurDataIt.HasNext(){				
 				#dim DistributeurData As DOM.TRANSP.DistributeurData = DistributeurDataIt.Next()
 				Do DistributeurData.Accept(StatusControleur)	
 				Do DistributeurData.Accept(DienstBepaler)