Index: APPS/common/KlantKost/impl/KlantKostService.cls.xml
===================================================================
diff -u -r1933 -r2443
--- APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 1933)
+++ APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 2443)
@@ -35,6 +35,7 @@
 	Do ..BerekenBezoekKlantKosten(Jaar,Maand)
 	Do ..BerekenMonsterKlantKosten(Jaar,Maand)
 	Do ..BerekenAfhalingKlantKosten(Jaar,Maand)
+	Do ..BerekenTransportKlantKosten(Jaar,Maand)
 ]]></Implementation>
 </Method>
 
@@ -68,6 +69,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenTransportKlantKosten">
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set Calculator = ##class(APPS.common.KlantKost.impl.TransportKostCalculator).%New()
+	Do Calculator.BerekenKostenPerKlant(Jaar,Maand)
+	
+	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).LosTransport())
+	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).BulkTransport())
+	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).RitTransport())
+]]></Implementation>
+</Method>
+
 <Method name="InitFactoren">
 <Description>
 Maak factoren éénmalig aan in cache databank voor het berekenen van kosten.
@@ -131,6 +144,135 @@
 ]]></Implementation>
 </Method>
 
+<Method name="InitTransportFactoren">
+<Implementation><![CDATA[
+	Set GeldigVanaf = 1
+	
+	/// bulk transporten
+		Set Naam = "BulkTransport"
+		
+		&SQL(delete from  APPS_common_KlantKost_impl_data.EnkelvoudigeFactor where Naam = :Naam)
+		&SQL(delete from APPS_common_KlantKost_impl_data.Factor WHERE Naam = :Naam)
+		
+		Set BulkTransportFactor = ##class(APPS.common.KlantKost.impl.data.EnkelvoudigeFactor).%New()	
+		Set BulkTransportFactor.Naam = Naam
+		Set Status = BulkTransportFactor.%Save()
+		If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)	
+		
+		/// 1.89% van het verkoopcijfer
+		Set Waarde = 0.0189
+		
+		Set Omschrijving = "Aantal procent van het verkoopcijfer"
+		Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(BulkTransportFactor,Naam,Waarde,GeldigVanaf,Omschrijving)
+		Set Status = Factor.%Save()
+		If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)
+		
+	/// Losse transporten
+		Do ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%DeleteId("LosTransport")		
+		
+		Set LosTransportFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New("LosTransport")		
+		Set Status = LosTransportFactor.%Save()
+		If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)
+				
+		Set LocatieAPI = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI()	
+		/// Landen initialiseren
+			Set Belgie = LocatieAPI.GeefBelgie()
+			Set Nederland = LocatieAPI.GeefNederland()
+			Set Luxemburg = LocatieAPI.GeefLuxemburg()
+		
+		/// Transporteur initialiseren
+			Set TTC = ##class(DOM.TRANSP.enu.Transporteur).TTC()
+			Set GLS = ##class(DOM.TRANSP.enu.Transporteur).GLSBelgium()
+		
+		/// VerpakkingEenheid initialiseren
+			Set Colli = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()
+			Set EuroPallet = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).EuroPallet()
+			Set Langgoed = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed()
+		
+		///////////////////
+		////   TTC    /////
+		///////////////////
+		Set TransportCalculator = ##class(APPS.common.KlantKost.impl.TransportKostCalculator).%New()
+		/// Factoren instellen
+		/// BE - TTC - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Belgie,TTC,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,11.96,GeldigVanaf)		
+		/// BE - TTC - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Belgie,TTC,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,28.51,GeldigVanaf)		
+		/// NL - TTC - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Nederland,TTC,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,16.96,GeldigVanaf)		
+		/// NL - TTC - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Nederland,TTC,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,37.34,GeldigVanaf)		
+		/// LUX - TTC - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Luxemburg,TTC,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,16.96,GeldigVanaf)		
+		/// LUX - TTC - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Luxemburg,TTC,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,37.34,GeldigVanaf)
+		/// OPTIMAPACK
+		Set FactorNaam = TransportCalculator.GeefFactorNaamOptimaPackPallet()		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,22.23,GeldigVanaf)
+		
+		///////////////////
+		////   GLS    /////
+		///////////////////
+		
+		/// BE - GLS - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Belgie,GLS,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,5.09,GeldigVanaf)		
+		/// BE - GLS - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Belgie,GLS,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,30.67,GeldigVanaf)		
+		/// NL - GLS - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Nederland,GLS,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,6.97,GeldigVanaf)		
+		/// NL - GLS - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Nederland,GLS,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,41.94,GeldigVanaf)		
+		/// LUX - GLS - Colli
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Luxemburg,GLS,Colli)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,6.97,GeldigVanaf)	
+		/// LUX - GLS - Pallet
+		Set FactorNaam = TransportCalculator.GeefFactorNaamLosTransport(Luxemburg,GLS,EuroPallet)		
+		Do ..ZetFactorMetNaamEnWaarde(LosTransportFactor,FactorNaam,41.94,GeldigVanaf)
+		
+	///////////////////////
+	////Rit Transport /////
+	///////////////////////
+		Do ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%DeleteId("RitTransport")		
+		
+		Set RitTransportFactor = ##class(APPS.common.KlantKost.impl.data.MeervoudigeFactor).%New("RitTransport")		
+		Set Status = RitTransportFactor.%Save()
+		If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)
+		
+		Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+		
+		Set FactorNaam = TransportCalculator.GeefFactorNaamRitTransport(KlantAPI.GeefKlantHaefeleNederland())
+		Set FactorWaarde = 346.54
+		Do ..ZetFactorMetNaamEnWaarde(RitTransportFactor,FactorNaam,FactorWaarde,GeldigVanaf)
+		
+		Set FactorNaam = TransportCalculator.GeefFactorNaamRitTransport(KlantAPI.GeefKlantKeller())
+		Set FactorWaarde = 266.56
+		Do ..ZetFactorMetNaamEnWaarde(RitTransportFactor,FactorNaam,FactorWaarde,GeldigVanaf)
+		
+		Set FactorNaam = TransportCalculator.GeefFactorNaamRitTransport(KlantAPI.GeefKlantNordInox())
+		Set FactorWaarde = 263.93
+		Do ..ZetFactorMetNaamEnWaarde(RitTransportFactor,FactorNaam,FactorWaarde,GeldigVanaf)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFactorMetNaamEnWaarde">
+<FormalSpec>Factor,FactorNaam:%String,FactorWaarde:%String,GeldigVanaf:%Date</FormalSpec>
+<Implementation><![CDATA[
+	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(Factor,FactorNaam,FactorWaarde,GeldigVanaf)
+	Set Status = Factor.%Save()
+	If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)
+]]></Implementation>
+</Method>
+
 <Method name="InitTask">
 <Description>
 Maakt de task aan voor de scheduler van caché