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