Index: DCABXVD.mac.rou
===================================================================
diff -u -r29059 -r40892
--- DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 29059)
+++ DCABXVD.mac.rou	(.../DCABXVD.mac.rou)	(revision 40892)
@@ -111,7 +111,7 @@
 	Set TrackAndTraceIDs = ##class(%ListOfDataTypes).%New()
 	Set DistributeurDataIDIt = ##class(TECH.ListIterator).%New(Levering.GeefDistributeurDataIDs())
 	While DistributeurDataIDIt.HasNext(){
-		#dim DistributeurData As APPS.TRANSP.GLS.data.VerzendData = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefDistributeurData(DistributeurDataIDIt.Next())
+		#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{
@@ -122,8 +122,8 @@
  
 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 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())
  Quit Aantal
  ;
 BONNRS 
@@ -221,37 +221,37 @@
 
 VoegToeColli
  New Aantal,Rit
- #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
- #dim Aantal As %String = Rit.GeefAantalColli()
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %String = Rit.GeefAantalColli()
  Do VoegToeItem("Colli",Aantal)
  Quit 
  
 VoegToeLanggoed
  New Aantal,Rit
- #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
- #dim Aantal As %String = Rit.GeefAantalLanggoed()
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %String = Rit.GeefAantalLanggoed()
  Do VoegToeItem("Langgoed",Aantal)
  Quit 
 
 VoegToeEuroPalletten
  New Aantal,Rit
- #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
- #dim Aantal As %String = Rit.GeefAantalEuroPalletten()
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %String = Rit.GeefAantalEuroPalletten()
  Set:(Rit.GeefAantalExtraPalleten()>0) Aantal = Aantal_"+"_Rit.GeefAantalExtraPalleten()
  Do VoegToeItem("Palet",Aantal)
  Quit
  
 VoegToeBuitenmaatsePalletten
  New Aantal,Rit
- #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
- #dim Aantal As %Integer = Rit.GeefAantalBuitenmaatsePalletten()
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %Integer = Rit.GeefAantalBuitenmaatsePalletten()
  Do VoegToeItem("BuitenmaatsPallet",Aantal)
  Quit
 
 VoegToeMiniPalletten
  New Aantal,Rit
- #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
- #dim Aantal As %Integer = Rit.GeefAantalHalveEuroPalletten()
+#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervRef)
+#dim Aantal As %Integer = Rit.GeefAantalHalveEuroPalletten()
  Do VoegToeItem("MiniPallet",Aantal)
  Quit
  
@@ -333,3 +333,4 @@
 TVerpakking ;Verpak.\Verpak.\Verpak.\Verpak.
  ;
 
+