Index: APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml
===================================================================
diff -u -r50565 -r50568
--- APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml	(.../TransportKostCalculator.cls.xml)	(revision 50565)
+++ APPS/common/KlantKost/impl/TransportKostCalculator.cls.xml	(.../TransportKostCalculator.cls.xml)	(revision 50568)
@@ -24,6 +24,10 @@
 <Type>%ArrayOfDataTypes</Type>
 </Property>
 
+<Property name="TransportApi">
+<Type>DOM.TRANSP.TransportAPI</Type>
+</Property>
+
 <Parameter name="LimietAantalDagenIngevuldeGLSKost">
 <Type>%Integer</Type>
 <Default>100</Default>
@@ -40,6 +44,7 @@
 	Set ..AantalPerTransporteurPerTypePerDag = ##class(%ArrayOfObjects).%New()
 	Set ..TotaalVerkoopViaBulkVerzendDag = ##class(%ArrayOfDataTypes).%New()		
 	Set ..ArrayMetVervoerRefPerRit = ##class(%ArrayOfDataTypes).%New()	
+	Set ..TransportApi = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
 	
 	Set ..UniekTransportenVoorKlant = ##class(%ArrayOfDataTypes).%New()
 	Quit $$$OK
@@ -55,7 +60,6 @@
 	#dim StartDatum As %Date = ##class(TECH.DateTime).EersteDagVanMaand(DatumQuery)
 	#dim EindDatum As %Date = ##class(TECH.DateTime).LaatsteDagVanMaand(DatumQuery)
 	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	#dim TransportAPI AS DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
 	
 	#dim KlantIt As TECH.ListIterator = VerkoopAPI.GeefKlantIterator()
 	While (KlantIt.HasNext()){
@@ -91,10 +95,10 @@
 								}
 							}
 							
-							If (TransportAPI.IsBulkTransport(Verzendwijze))
+							If (..TransportApi.IsBulkTransport(Verzendwijze))
 							{
 								Do ..VulOpBulkTransporten(Klant.GeefID(),Factuur,Bon)
-							} ElseIf (TransportAPI.IsLosTransport(Verzendwijze)){
+							} ElseIf (..TransportApi.IsLosTransport(Verzendwijze)){
 								#dim Transport As DOM.TRANSP.Levering = Bon.GeefLevering()
 							
 								Try{
@@ -109,7 +113,7 @@
 										Do ##class(TECH.ExceptionHandler).Rethrow(Exception)	
 									}
 								}				
-							}ElseIf (TransportAPI.IsPostTransport(Verzendwijze)){							
+							}ElseIf (..TransportApi.IsPostTransport(Verzendwijze)){							
 								Do ..MaakPostKostItem(Klant.GeefID(),Datum,Verzendwijze,Bon)							 
 							}
 						}
@@ -140,8 +144,8 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim GLSItem As APPS.common.KlantKost.impl.data.GLSTransportKostItem = ""
-	#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(Transport.GeefRitID())
-	If Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight() {
+	#dim Rit As DOM.TRANSP.Rit = ..TransportApi.GeefRit(Transport.GeefRitID())
+	If ..TransportApi.IsGLS(Rit.GeefTransporteur()) {
 		Set GLSItem = ..GeefEenGLSTransportKostItem(Klant.GeefID(),Bon.GeefID(),Bon.GeefLeveringsDatum())
 		#dim LimietDatumIngevuldeGLSKost As %Date = ..GeefLimietDatumIngevuldeGLSKost()
 		If '$IsObject(GLSItem) && (Bon.GeefLeveringsDatum() < LimietDatumIngevuldeGLSKost) {
@@ -185,16 +189,14 @@
 <FormalSpec>PartijID:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim TransportAPI As DOM.TRANSP.TransportAPI = ##class(DOM.DomeinContext).Instance().GeefTransportAPI()
-	
 	#dim Ref As %String = ..UniekTransportenVoorKlant.Next("")
 	While (Ref '= ""){
 		Set VervoerRef = $Piece(Ref,"\",1)
 		Set GroepRef = $Piece(Ref,"\",2)
 		#dim Verzendwijze As DOM.VKP.enu.VerzendWijze = ..UniekTransportenVoorKlant.GetAt(Ref)
 		
-		#dim Transport As DOM.TRANSP.Levering = TransportAPI.GeefLevering(VervoerRef,GroepRef)
-		#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(VervoerRef)
+		#dim Transport As DOM.TRANSP.Levering = ..TransportApi.GeefLevering(VervoerRef,GroepRef)
+		#dim Rit As DOM.TRANSP.Rit = ..TransportApi.GeefRit(VervoerRef)
 		
 		#dim Datum As %Date = ##class(TECH.DateTime).TimestampToDate(Rit.GeefOphaalTimeStamp())