Index: DCABXVD.mac.rou
===================================================================
diff -u -r40892 -r66336
--- DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 40892)
+++ DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 66336)
@@ -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,19 +111,24 @@
 	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,"\")
  
 GeefAantalVerpakkingen(RitID, LeveringID)
  New Levering,Aantal
 #dim Levering As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(RitID,LeveringID)
-#dim Aantal As %String = (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalColli() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalBuitenmaatsPalletten())
+#dim Aantal As %String = (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalWegwerpPalletten() + Levering.GeefAantalColli() + Levering.GeefAantalHalveEuroPalletten() + Levering.GeefAantalLanggoed() + Levering.GeefAantalBuitenmaatsPalletten())
  Quit Aantal
  ;
 BONNRS 
@@ -180,7 +185,7 @@
  Set Type=$G(Type)
  Do CACHE("")
  Set R=L("F","F")
- Set:HeeftKenAnk R=$$LINE^vhRtn1("S",90,"1;11;39;47$$C^vhRtn1(5);56$$C^vhRtn1(5);90")
+ Set:$get(HeeftKenAnk) R=$$LINE^vhRtn1("S",90,"1;11;39;47$$C^vhRtn1(5);56$$C^vhRtn1(5);90")
  Do PASTE(PCount,LCount,R,1,"","C")
  Do CACHE("")
  Set R=L("F","B"),T=$$TXT("Page")
@@ -205,6 +210,7 @@
  .Do PASTE(PCount,LCount,L("F","B"),1,"","C")
  .DO VoegToeColli
  .DO VoegToeEuroPalletten
+ .DO VoegToeWWPalletten
  .Do VoegToeMiniPalletten
  .Do VoegToeBuitenmaatsePalletten
  .Do VoegToeLanggoed
@@ -240,6 +246,14 @@
  Set:(Rit.GeefAantalExtraPalleten()>0) Aantal = Aantal_"+"_Rit.GeefAantalExtraPalleten()
  Do VoegToeItem("Palet",Aantal)
  Quit
+
+VoegToeWWPalletten
+ New Aantal,Rit
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %String = Rit.GeefAantalWegwerpPalletten()
+ Do VoegToeItem("WWPalet",Aantal)
+ Quit
+
  
 VoegToeBuitenmaatsePalletten
  New Aantal,Rit
@@ -312,19 +326,20 @@
  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
 TPalet ;Palletten\Palletten\Palletten\Palletten
+TWWPalet ;WWPalletten\WWPalletten\WWPalletten\WWPalletten
 TLangG ;Langgoed\Langgoed\Langgoed\Langgoed
 THandT ;Handtekening chauffeur\Handtekening chauffeur\Handtekening chauffeur\Handtekening chauffeur
 TBuitenmaatsPallet ;Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten