Index: vhUnitTest/APPS/common/KlantKost/TestAfhalingKosten.cls.xml
===================================================================
diff -u -r1933 -r1940
--- vhUnitTest/APPS/common/KlantKost/TestAfhalingKosten.cls.xml	(.../TestAfhalingKosten.cls.xml)	(revision 1933)
+++ vhUnitTest/APPS/common/KlantKost/TestAfhalingKosten.cls.xml	(.../TestAfhalingKosten.cls.xml)	(revision 1940)
@@ -22,7 +22,7 @@
 	Set ^KFAP("F",1,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KFAP("F",1,0,3) = "\\\\\1000\\\\\\\\\\\\\\\##\12.19555\\\\\\\\\"
 	Set ^KFAP("F",1,"U358178",0)="\"
-	Set ^KFAP("F",1,"U358178",1)="\12.10.01\\225398\\1000\OD1 #Door onze diensten 1\\\051-30 35 01\\\0.00##12.19555\\\12.10.01\\EUR\\\00\2\\###\M\\\F\F\\\\\\\61646\\OD1/3243\\\\OD1;61646;175696;58205\51834"
+	Set ^KFAP("F",1,"U358178",1)="\12.10.01\\225398\\1000\AFH #Door onze diensten 1\\\051-30 35 01\\\0.00##12.19555\\\12.10.01\\EUR\\\00\2\\###\M\\\F\F\\\\\\\61646\\OD1/3243\\\\OD1;61646;175696;58205\51834"
 	Set ^KFAP("F",1,"U358178",2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KFAP("F",1,"U358178",3)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
 	Set ^KFAP("F",1,"U358178",4)=7
Index: APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml
===================================================================
diff -u -r1937 -r1940
--- APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1937)
+++ APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1940)
@@ -5,7 +5,7 @@
 <Super>APPS.common.KlantKost.impl.KostCalculator</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="DatumAdresAantal">
+<Property name="DatumAantal">
 <Type>%String</Type>
 <MultiDimensional>1</MultiDimensional>
 <Private>1</Private>
@@ -16,12 +16,12 @@
 <Implementation><![CDATA[
 	Do ..VerwijderKosten(Jaar,Maand)
 	
-	Kill ..DatumAdresAantal
+	Kill ..DatumAantal
 	
-	Set Datum = +$zdh("01/"_Maand_"/"_Jaar,4)	
+	Set Datum = ..GeefDatum(Jaar,Maand)
 	Set StartDatum = ##class(TECH.DateTime).EersteDagVanMaand(Datum)
 	Set EindDatum = ##class(TECH.DateTime).LaatsteDagVanMaand(Datum)
-	Set KostFactor = ..GeefFactor(Datum)
+	Set Kost = ..GeefFactor(Datum)
 	
 	Set KlantAPI=##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 	Set KlantIterator = KlantAPI.GeefKlantenIterator().%New()	
@@ -30,66 +30,58 @@
 		Set Klant = KlantIterator.Next()
 		Set KlantNr = Klant.GeefNummer()
 		
+		/// Proformas
 		Set ProformaIt = Klant.GeefProformasIterator(StartDatum, EindDatum)		
-		Do ..BerekenAdressenPerDatum(ProformaIt)
+		Do ..BerekenPerDatum(ProformaIt)
 		
+		/// Facturen
 		Set FactuurIt = Klant.GeefFacturenIterator(StartDatum, EindDatum)		
-		Do ..BerekenAdressenPerDatum(FactuurIt)		
-		/// Voor deze klant, alle verschillende adressen per dag.
+		Do ..BerekenPerDatum(FactuurIt)	
+			
+		/// Voor deze klant, voor één dag.
 		Set Datum = ""
-		Set Datum = $O(..DatumAdresAantal(Datum))
+		Set Datum = $O(..DatumAantal(Datum))
 		While Datum '= "" 
-		{		
-			Set AantalAdressen = 0	
-			Set AdresKey = ""
-			Set AdresKey = $O(..DatumAdresAantal(Datum, AdresKey))
-			While AdresKey '= ""
-			{
-				Set AantalAdressen = AantalAdressen + 1
-				Set AdresKey = $O(..DatumAdresAantal(Datum, AdresKey))
-			}	
-			
-			Set Kost = AantalAdressen * KostFactor
-			Set KostItem = ##class(APPS.common.KlantKost.impl.data.AfhalingKostItem).%New(Datum,KlantNr,Kost,AantalAdressen)
+		{					
+			Set KostItem = ##class(APPS.common.KlantKost.impl.data.AfhalingKostItem).%New(Datum,KlantNr,Kost,1)
 			Set Status = KostItem.%Save()
 			If ($SYSTEM.Status.IsError(Status)){
 				Set Bericht = "Failed to save "_KostItem.%ClassName(1)_": "	
-				Set Bericht = Bericht_": "_Datum_","_KlantNr_","_AantalAdressen
+				Set Bericht = Bericht_": "_Datum_","_KlantNr
 				Set Bericht = Bericht_$c(13,10)_$$ParseStatus^vhLib(Status)
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),Bericht))
 			}
-			Set Datum = $O(..DatumAdresAantal(Datum))
+			Set Datum = $O(..DatumAantal(Datum))
 		}
-		Kill ..DatumAdresAantal
+		Kill ..DatumAantal
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="BerekenAdressenPerDatum">
+<Method name="BerekenPerDatum">
 <Description>
 Proformas of facturen overlopen en gegevens invullen.
-Per unieke combinatie van datum en adres, het aantal bijhouden.</Description>
+Per unieke combinatie van datum en verzendwijze (Afhaling of AfhalingConsument)</Description>
 <FormalSpec>Iterator:TECH.Iterator</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
 	/// 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()			
 		/// alle bonnen overlopen van een proforma
 		Set BonIt = Proforma.GeefBonIterator()
 		While (BonIt.HasNext()) {
-			Set Bon = BonIt.Next()			
-			
-			Set Datum = Bon.GeefLeveringsDatum()
-			Set Adres=Bon.GeefLeveringsAdres()
-			Set AdresKey=Adres.GeefAdresKey()			
-			
-			If $Data(..DatumAdresAantal(Datum,AdresKey)) {
-				Set ..DatumAdresAantal(Datum,AdresKey) = ..DatumAdresAantal(Datum,AdresKey) + 1	
-			}Else {
-				Set ..DatumAdresAantal(Datum,AdresKey) = 1	
-			}				
+			Set Bon = BonIt.Next()	
+			Set VerzendWijze = Bon.GeefVerzendwijze()
+			If ( (VerzendWijze = ##class(DOM.OV.enu.VerzendWijze).Afhaling()) || (VerzendWijze = ##class(DOM.OV.enu.VerzendWijze).AfhalingConsument())){			
+				
+				/// Afhaal datum gebruiken indien die is ingevuld, anders de leverdatum gebruiken.
+				Set Datum = Bon.GeefAfhaalDatum()
+				Set:(Datum=0) Datum = Bon.GeefLeveringsDatum()
+				Set ..DatumAantal(Datum) = 1
+			}
 		}
 	}
 ]]></Implementation>
Index: vhDeploy/JBL/Deploy20110830x1447.cls.xml
===================================================================
diff -u -r1937 -r1940
--- vhDeploy/JBL/Deploy20110830x1447.cls.xml	(.../Deploy20110830x1447.cls.xml)	(revision 1937)
+++ vhDeploy/JBL/Deploy20110830x1447.cls.xml	(.../Deploy20110830x1447.cls.xml)	(revision 1940)
@@ -25,12 +25,10 @@
 	
 	If ($zu(5) = "ADMIN1"){
 					
-		Write "Afhaling kosten berekening van laatste paar jaar wordt uitgevoerd :"
+		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,!	
+			For Maand = 1 : 1 : 12 {	
 				If ((Jaar < 2011) || ((Jaar = 2011) && (Maand <= 8))) {
 					Do KlantKostService.BerekenAfhalingKlantKosten(Jaar,Maand)
 				}
Index: APPS/common/KlantKost/impl/KostCalculator.cls.xml
===================================================================
diff -u -r1426 -r1940
--- APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1426)
+++ APPS/common/KlantKost/impl/KostCalculator.cls.xml	(.../KostCalculator.cls.xml)	(revision 1940)
@@ -27,5 +27,13 @@
 <Abstract>1</Abstract>
 <FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
 </Method>
+
+<Method name="GeefDatum">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit +$zdh("01/"_Maand_"/"_Jaar,4)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/OV/enu/VerzendWijze.cls.xml
===================================================================
diff -u
--- DOM/OV/enu/VerzendWijze.cls.xml	(revision 0)
+++ DOM/OV/enu/VerzendWijze.cls.xml	(revision 1940)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.OV.enu.VerzendWijze">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,AFH ,AFC </Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Afhaling;Afhaling Consument</Default>
+</Parameter>
+
+<Method name="Afhaling">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["AFH "
+]]></Implementation>
+</Method>
+
+<Method name="AfhalingConsument">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["AFC "
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml
===================================================================
diff -u -r1618 -r1940
--- APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1618)
+++ APPS/common/KlantKost/impl/MonsterKostCalculator.cls.xml	(.../MonsterKostCalculator.cls.xml)	(revision 1940)
@@ -16,8 +16,7 @@
 	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
 	Set AankoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefAankoopPrijsAPI()
 	
-	Set Datum = +$zdh("01/"_Maand_"/"_Jaar,4)
-	
+	Set Datum = ..GeefDatum(Jaar,Maand)	
 	Set StartDatum = ##class(TECH.DateTime).EersteDagVanMaand(Datum)
 	Set EindDatum = ##class(TECH.DateTime).LaatsteDagVanMaand(Datum)
 	
Index: DOM/OV/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r1784 -r1940
--- DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 1784)
+++ DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 1940)
@@ -40,6 +40,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAfhaalDatum">
+<Description>
+AfhaalDatum, ingevuld door het afpunten bij afhaling. Opgelet : er wordt niet altijd afgepunt !!!</Description>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	Set Datum = ""
+	Set VerzendWijze = ..GeefVerzendwijze()
+	If ((VerzendWijze = ##class(DOM.OV.enu.VerzendWijze).Afhaling()) || (VerzendWijze = ##class(DOM.OV.enu.VerzendWijze).AfhalingConsument())){
+		Set Datum = +$P($P(..NodeHoofding,"\",34),"#",2)
+	}
+	Quit Datum
+]]></Implementation>
+</Method>
+
 <Method name="GeefBonNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..BonNummer
@@ -53,7 +67,7 @@
 </Method>
 
 <Method name="GeefVerzendwijze">
-<ReturnType>%Date</ReturnType>
+<ReturnType>DOM.OV.enu.VerzendWijze</ReturnType>
 <Implementation><![CDATA[	Quit $P($P(..NodeHoofding,"\",7),"#")
 ]]></Implementation>
 </Method>
Index: APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml
===================================================================
diff -u -r1933 -r1940
--- APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml	(.../AfhalingKostItem.cls.xml)	(revision 1933)
+++ APPS/common/KlantKost/impl/data/AfhalingKostItem.cls.xml	(.../AfhalingKostItem.cls.xml)	(revision 1940)
@@ -6,12 +6,12 @@
 <Super>APPS.common.KlantKost.impl.data.IndividueelKostItem</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="AantalAdressen">
+<Property name="AantalAfhalingen">
 <Type>%String</Type>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Datum:%Date,KlantNr:%Integer,Kost:%Integer,AantalAdressen:%String</FormalSpec>
+<FormalSpec>Datum:%Date,KlantNr:%Integer,Kost:%Integer,AantalAfhalingen:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -20,7 +20,7 @@
 	Set ..KlantNr = KlantNr
 	Set ..KostType = ##class(APPS.common.KlantKost.enu.KostType).Afhaling()
 	Set ..Kost = Kost
-	Set ..AantalAdressen = AantalAdressen
+	Set ..AantalAfhalingen = AantalAfhalingen
 	Quit ##super()
 ]]></Implementation>
 </Method>
@@ -43,6 +43,9 @@
 <Value name="4">
 <Value>AantalAdressen</Value>
 </Value>
+<Value name="5">
+<Value>AantalAfhalingen</Value>
+</Value>
 </Data>
 </Storage>
 </Class>