Index: APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml
===================================================================
diff -u -r1974 -r1975
--- APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1974)
+++ APPS/common/KlantKost/impl/AfhalingKostCalculator.cls.xml	(.../AfhalingKostCalculator.cls.xml)	(revision 1975)
@@ -6,7 +6,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="DatumAantal">
-<Type>%ArrayOfDataTypes</Type>
+<Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
@@ -27,7 +27,7 @@
 		Set Klant = KlantIterator.Next()
 		Set KlantNr = Klant.GeefNummer()
 		
-		Set ..DatumAantal = ##class(%ArrayOfDataTypes).%New()
+		Set ..DatumAantal = ##class(%ListOfDataTypes).%New()
 		
 		/// Proformas
 		Set ProformaIt = Klant.GeefProformasIterator(StartDatum, EindDatum)		
@@ -76,7 +76,7 @@
 				/// Afhaal datum gebruiken indien die is ingevuld, anders de leverdatum gebruiken.
 				Set Datum = Bon.GeefAfhaalDatum()
 				Set:(Datum="") Datum = Bon.GeefLeveringsDatum()
-				Do ..DatumAantal.SetAt(Datum,1)
+				Do ..DatumAantal.Insert(Datum)
 			}
 		}
 	}