Index: APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml
===================================================================
diff -u -r1933 -r1937
--- APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1933)
+++ APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1937)
@@ -29,12 +29,12 @@
 	{
 		Set Klant = KlantIterator.Next()
 		Set KlantNr = Klant.GeefNummer()
+		
 		Set ProformaIt = Klant.GeefProformasIterator(StartDatum, EindDatum)		
 		Do ..BerekenAdressenPerDatum(ProformaIt)
 		
 		Set FactuurIt = Klant.GeefFacturenIterator(StartDatum, EindDatum)		
 		Do ..BerekenAdressenPerDatum(FactuurIt)		
-		
 		/// Voor deze klant, alle verschillende adressen per dag.
 		Set Datum = ""
 		Set Datum = $O(..DatumAdresAantal(Datum))
@@ -75,8 +75,7 @@
 	/// in code kan Proforma door Factuur vervangen worden als term, kunnen beide iterators binnenkomen.
 	While (Iterator.HasNext()) {
 		Set Proforma = Iterator.Next()
-		Set ProformaNr = Proforma.GeefNr()
-							
+		Set ProformaNr = Proforma.GeefNr()			
 		/// alle bonnen overlopen van een proforma
 		Set BonIt = Proforma.GeefBonIterator()
 		While (BonIt.HasNext()) {
Index: vhDeploy/JBL/Deploy20110830x1447.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110830x1447.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110830x1447.cls.xml	(revision 1937)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110830x1447">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Instellen Afhalingskost factor</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set AfhalingFactor = ##class(APPS.common.KlantKost.impl.data.EnkelvoudigeFactor).%New()	
+	Set AfhalingFactor.Naam = "Afhaling"
+	Set Status = AfhalingFactor.%Save()
+	If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)	
+	
+	Set Waarde = 4.85
+	Set GeldigVanaf = 1
+	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(AfhalingFactor,"Afhaling",Waarde,GeldigVanaf)
+	Set Status = Factor.%Save()
+	If ($$$ISERR(Status)) w $$ParseStatus^vhLib(Status)		
+	
+	If ($zu(5) = "ADMIN1"){
+					
+		Write "Afhaling kosten berekening van laatste paar jaar wordt uitgevoerd :"
+		Set KlantKostService = ##class(APPS.common.KlantKost.impl.KlantKostService).%New()
+		For Jaar = 2010 : 1 : 2011 {
+			w $c(9),"-",Jaar,!
+			For Maand = 1 : 1 : 12 {
+				//w $c(9),"-",Jaar,"   ->   ",Maand,!	
+				If ((Jaar < 2011) || ((Jaar = 2011) && (Maand <= 8))) {
+					Do KlantKostService.BerekenAfhalingKlantKosten(Jaar,Maand)
+				}
+			}
+		}	
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: JBL KPI Klant Product Anlayse Kosten.prj.xml
===================================================================
diff -u -r1933 -r1937
--- JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1933)
+++ JBL KPI Klant Product Anlayse Kosten.prj.xml	(.../JBL KPI Klant Product Anlayse Kosten.prj.xml)	(revision 1937)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-08-30 17:09:17">
+<Project name="JBL KPI Klant Product Anlayse Kosten" LastModified="2011-08-31 16:32:23">
   <Items>
     <ProjectItem name="APPS.common.KlantKost.KlantKostService" type="CLS"/>
     <ProjectItem name="APPS.common.KlantKost.enu.KostType" type="CLS"/>
@@ -41,9 +41,11 @@
     <ProjectItem name="vhDeploy.Deploy201106081058" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110704x1341" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110830x1447" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestAfhalingKosten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestBezoekKosten" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestFactor" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.common.KlantKost.TestMonsterKosten" type="CLS"/>
+    <ProjectItem name="zJBLKPI.mac" type="MAC"/>
   </Items>
 </Project>
 </Export>
Index: APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml
===================================================================
diff -u -r1384 -r1937
--- APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml	(.../MaandKostAggregator.cls.xml)	(revision 1384)
+++ APPS/common/KlantKost/impl/MaandKostAggregator.cls.xml	(.../MaandKostAggregator.cls.xml)	(revision 1937)
@@ -11,7 +11,6 @@
 <FormalSpec>Jaar:%Integer,Maand:%Integer,KostType:APPS.common.KlantKost.enu.KostType</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwijderKosten(Jaar,Maand,KostType)
-
 	Set rset = ##class(%ResultSet).%New("APPS.common.KlantKost.impl.MaandKostAggregator:qGeaggregeerdeKosten")
 	Set sc = rset.Execute(Jaar, Maand, KostType)
 	While (rset.Next(.sc)){
FishEye: Tag 1937 refers to a dead (removed) revision in file `APPS/common/KlantKost/impl/data/IndividueelKostItem/BezoekKostItem.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?