Index: APPS/Stat/TAXAttentie/dto/Data.cls.xml
===================================================================
diff -u -r32351 -r37547
--- APPS/Stat/TAXAttentie/dto/Data.cls.xml	(.../Data.cls.xml)	(revision 32351)
+++ APPS/Stat/TAXAttentie/dto/Data.cls.xml	(.../Data.cls.xml)	(revision 37547)
@@ -11,6 +11,10 @@
 <Type>TECH.Decimal</Type>
 </Property>
 
+<Property name="ProductId">
+<Type>TECH.String</Type>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>OffsetAantal:TECH.Integer="",OffsetOmzet:TECH.Decimal=""</FormalSpec>
 <Private>1</Private>
Index: APPS/Stat/TAXAttentie/impl/DataVerzamelaar.cls.xml
===================================================================
diff -u -r32325 -r37547
--- APPS/Stat/TAXAttentie/impl/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 32325)
+++ APPS/Stat/TAXAttentie/impl/DataVerzamelaar.cls.xml	(.../DataVerzamelaar.cls.xml)	(revision 37547)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Records">
+<Type>TECH.ListOfDataTypesOnDisk</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductAPI:DOM.PM.ProductAPI,ProductTypeAPI:DOM.PM.ProductTypeAPI,VerkoopFactuurAPI:DOM.VKP.FactuurAPI,PeriodeComparator:TECH.PeriodeComparator</FormalSpec>
 <Private>1</Private>
@@ -49,6 +54,7 @@
 	set ..ProductTypeAPI = $$$Implementation(ProductTypeAPI, ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
 	set ..VerkoopFactuurAPI = $$$Implementation(VerkoopFactuurAPI, ##class(DOM.DomeinContext).Instance().GeefVerkoopFactuurAPI())
 	set ..PeriodeComparator = $$$Implementation(PeriodeComparator ,##class(TECH.PeriodeComparator).%New())
+	set ..Records = ##class(TECH.ListOfDataTypesOnDisk).%New()
 	
 	quit $$$OK
 ]]></Implementation>
@@ -73,6 +79,10 @@
 
 				set Data.Aantal = Data.Aantal + FactuurData.Aantal
 				set Data.Omzet = Data.Omzet + FactuurData.Omzet
+				
+				#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(FactuurData.ProductId)
+				
+				do ..Records.Insert($listbuild(Factuur.GeefID(),$$$ExcelDat(Factuur.GeefFactuurDatum()),Factuur.GeefKlant().GeefNaam(),FactuurData.Aantal,FactuurData.Omzet,Product.GeefKorttekst()))
 			}
 		}
 
@@ -83,6 +93,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRecords">
+<ReturnType>TECH.ListOfDataTypesOnDisk</ReturnType>
+<Implementation><![CDATA[
+	do ..GeefData()
+	quit ..Records
+]]></Implementation>
+</Method>
+
 <Method name="GeefFactuurDataIterator">
 <FormalSpec>Factuur:DOM.VKP.Factuur</FormalSpec>
 <Private>1</Private>
@@ -108,6 +126,7 @@
 					
 					set Data.Aantal = BonLijn.GeefAantal() * Telbaar
 					set Data.Omzet = BonLijn.GeefTotaalNettoExclBTW()
+					set Data.ProductId = ProductID
 					
 					do DataLijst.Insert(Data)
 				}
Index: APPS/Stat/TAXAttentie/impl/DataExporter.cls.xml
===================================================================
diff -u
--- APPS/Stat/TAXAttentie/impl/DataExporter.cls.xml	(revision 0)
+++ APPS/Stat/TAXAttentie/impl/DataExporter.cls.xml	(revision 37547)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Stat.TAXAttentie.impl.DataExporter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DataVerzamelaar">
+<Type>APPS.Stat.TAXAttentie.impl.DataVerzamelaar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	set ..DataVerzamelaar = ##class(APPS.Stat.TAXAttentie.impl.DataVerzamelaar).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportRecords">
+<FormalSpec>FullFilename:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ..FileWriter.Open(FullFilename)
+	
+	#dim RecordIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..DataVerzamelaar.GeefRecords())
+	while RecordIterator.HasNext() {
+		do ..FileWriter.WriteLine(##class(TECH.ListUtils).ListbuildToPieces(RecordIterator.Next(),$$$TAB))		
+	}
+	
+	do ..FileWriter.Close()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>