Index: TRANSPC.mac.rou
===================================================================
diff -u -r59933 -r60202
--- TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 59933)
+++ TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 60202)
@@ -355,7 +355,7 @@
  ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport einde","VervRef='"_VervRef_"'; Closed : '"_Closed_"'; Modifiers : '"_Modify_"'; .")
  ..Do:Closed
  ...Kill ^TRANSP("IO",VervRef)
- ..If TranspNr=$$$LevGLS Do  ; Enkel voor ABX // N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
+ ..If TranspNr=$$$LevVRD Do  ; Enkel voor ABX // N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
  ...Do:Modify="O" PRINT^DCABXVD(VervRef) // = afdrukken van een vervoerdocument
  ..Else  Do
  ...Do:Modify="O" EXTERN^DCPRINT("E",VervRef,,,1)
Index: BL/Derde/LevSpecifiek.inc.rou
===================================================================
diff -u -r32938 -r60202
--- BL/Derde/LevSpecifiek.inc.rou	(.../LevSpecifiek.inc.rou)	(revision 32938)
+++ BL/Derde/LevSpecifiek.inc.rou	(.../LevSpecifiek.inc.rou)	(revision 60202)
@@ -3,6 +3,7 @@
  #define LevHalux 6332
  #define LevAdditek 6502
  #define LevGLS 5036
+ #define LevVRD 5803
  #define LevVanHoecke 6051
  #define LevMeyvaert 7112
  #define LevBaliko 5938
Index: DCABXVD.mac.rou
===================================================================
diff -u -r44728 -r60202
--- DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 44728)
+++ DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 60202)
@@ -1,4 +1,4 @@
-DCABXVD ;AFDRUKKEN VERVOERDOKUMENT GLS [ 12/15/2003  10:26 AM ]
+DCABXVD ;AFDRUKKEN VERVOERDOKUMENT GLS/VRD [ 12/15/2003  10:26 AM ]
  ;
  ; Het afdrukken van een vervoerdokument kan met volgende oproep --> Do PRINT^DCABXVD(VervRef)
  ;
@@ -111,11 +111,16 @@
 	Set TrackAndTraceIDs = ##class(%ListOfDataTypes).%New()
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	While DistributeurDataIDIt.HasNext(){
-		#dim DistributeurData As APPS.TRANSP.GLS.GLSv1.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataIDIt.Next())
-		If $L(DistributeurData.TrackAndTraceID){
-			Do TrackAndTraceIDs.Insert(DistributeurData.TrackAndTraceID)
-		}Else{
-			Do TrackAndTraceIDs.Insert(DistributeurData.UnitID)
+		#dim TransportAPI as DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
+		#dim DistributeurData As DOM.TRANSP.data.DistributeurData = TransportAPI.GeefDistributeurData(DistributeurDataIDIt.Next())
+		if DistributeurData.%ClassName(1) = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).ClassName(1){
+			If $L(DistributeurData.TrackAndTraceID){
+				Do TrackAndTraceIDs.Insert(DistributeurData.TrackAndTraceID)
+			}Else{
+				Do TrackAndTraceIDs.Insert(DistributeurData.UnitID)
+			}
+		} else { // Transsmart
+			Do TrackAndTraceIDs.Insert(DistributeurData.Reference)
 		}
 	}
 	Quit ##class(TECH.ListUtils).ListToPieces(TrackAndTraceIDs,"\")
@@ -312,15 +317,15 @@
  If '$D(Piece) Set Piece=2
  Quit $P($P($T(@("T"_Ref)),U,Piece),D,$F("NFDE",Taal)-1)
  ;
-TAfhABX ;AFHALINGSLIJST GLS\AFHALINGSLIJST GLS\AFHALINGSLIJST GLS\AFHALINGSLIJST GLS
+TAfhABX ;AFHALINGSLIJST VRD\AFHALINGSLIJST VRD\AFHALINGSLIJST VRD\AFHALINGSLIJST VRD
 TDate ;Datum\Datum\Datum\Datum
 TAfzend ;Afzender\Afzender\Afzender\Afzender
 TBullNr ;Bull.nr\Bull.nr\Bull.nr\Bull.nr
 TBestem ;Naam/adres bestemmeling\Naam/adres bestemmeling\Naam/adres bestemmeling\Naam/adres bestemmeling
 TColli ;Colli\Colli\Colli\Colli
 TGew ;gew.\gew.\gew.\gew.
 TRemb ;Rembours\Rembours\Rembours\Rembours
-TBarCod ;Barcode\Barcode\Barcode\Barcode
+TBarCod ;Referentie\Referentie\Referentie\Referentie
 TOpmerk ;opmerk.\opmerk.\opmerk.\opmerk.
 TPage ;Blz\Blz\Blz\Blz
 TTotCol ;Totaal verpakkingen\Totaal verpakkingen\Totaal verpakkingen\Totaal verpakkingen