Index: Stat/OmzetKlantProductMaand.cls.xml
===================================================================
diff -u -r1933 -r2254
--- Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 1933)
+++ Stat/OmzetKlantProductMaand.cls.xml	(.../OmzetKlantProductMaand.cls.xml)	(revision 2254)
@@ -415,7 +415,7 @@
 		Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten	
 		For i=1:1:ProductenLijst.Count()
 		{
-			Set Korttekst = ProductenLijst.GetAt(i).Korttekst
+			Set Korttekst = ProductenLijst.GetAt(i).Code
 			Set Jaar = $Extract(Korttekst,7,8)
 			Set KorttekstIndex = $Translate(KorttekstPrefix_Jaar,".","")
 			Do %CatalogusLijst.SetAt(1,KorttekstIndex)
Index: Stat/Klant/Verkoop.cls.xml
===================================================================
diff -u
--- Stat/Klant/Verkoop.cls.xml	(revision 0)
+++ Stat/Klant/Verkoop.cls.xml	(revision 2254)
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Stat.Klant.Verkoop">
+<ClassType>persistent</ClassType>
+<StorageStrategy>DataM</StorageStrategy>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KlantID">
+<Description>
+^KSTKL(KLNr,PRNr,0)</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="LaatstGekocht">
+<Type>%String</Type>
+</Property>
+
+<Property name="ReedsGekocht">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=0 Set:($L({LaatstGekocht})) {*}=1 </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Index name="IndexOpKlantProduct">
+<IdKey>1</IdKey>
+<Properties>KlantID,ProductID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Index name="IndexOpProductKlant">
+<Properties>ProductID,KlantID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="DataM">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^Prod.ProductZoekOpKlantS</StreamLocation>
+<SQLMap name="Map">
+<Type>data</Type>
+<Global>^KSTKL</Global>
+<Subscript name="1">
+<Expression>{KlantID}</Expression>
+</Subscript>
+<Subscript name="2">
+<Expression>{ProductID}</Expression>
+</Subscript>
+<Data name="LaatstGekocht">
+<Delimiter>"\"</Delimiter>
+<Node>0</Node>
+<Piece>1</Piece>
+</Data>
+</SQLMap>
+</Storage>
+</Class>
+</Export>