Index: APPS/TRANSP/impl/TransportService/RapportDataFactory.cls.xml
===================================================================
diff -u -r52402 -r52403
--- APPS/TRANSP/impl/TransportService/RapportDataFactory.cls.xml	(.../RapportDataFactory.cls.xml)	(revision 52402)
+++ APPS/TRANSP/impl/TransportService/RapportDataFactory.cls.xml	(.../RapportDataFactory.cls.xml)	(revision 52403)
@@ -6,7 +6,45 @@
 <Method name="MaakRapportData">
 <FormalSpec>RitDataLijst:APPS.TRANSP.dto.NacalculatieLijst</FormalSpec>
 <ReturnType>APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased</ReturnType>
+<Implementation><![CDATA[
+	#dim RapportData As APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased = ##class(APPS.common.Rapport.dto.BestandRapportDataDataTransferObjectBased).%New()
+	
+	Set RapportData.DataVelden = ..GeefDataVelden()
+	Set RapportData.DataTransferObjecten = RitDataLijst
+	Set RapportData.BestandVolledigeNaam = "c:\tom.csv"
+	
+	Quit RapportData
+]]></Implementation>
 </Method>
+
+<Method name="GeefDataVelden">
+<Private>1</Private>
+<ReturnType>TECH.KeyValue.List</ReturnType>
+<Implementation><![CDATA[
+	#dim KeyValueList As TECH.KeyValue.List = ##class(TECH.KeyValue.List).%New()
+	
+	Do ..VoegToeEigenschap(KeyValueList, "RitNummer")
+	Do ..VoegToeEigenschap(KeyValueList, "OphaalTijdstip")
+	Do ..VoegToeEigenschap(KeyValueList, "AantalEuroPallet")
+	Do ..VoegToeEigenschap(KeyValueList, "AantalHalveEuroPallet")
+	Do ..VoegToeEigenschap(KeyValueList, "LeveradresNaam")
+	Do ..VoegToeEigenschap(KeyValueList, "LeveradresStraat")
+	Do ..VoegToeEigenschap(KeyValueList, "LeveradresPostcode")
+	Do ..VoegToeEigenschap(KeyValueList, "LeveradresGemeente")
+	
+	Quit KeyValueList
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeEigenschap">
+<FormalSpec>KeyValueList:TECH.KeyValue.List,Eigenschap:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DataClassName As %String = ##class(APPS.TRANSP.dto.Nacalculatie).%ClassName(1)
+	
+	Do KeyValueList.InsertKeyValue(DataClassName, Eigenschap)
+]]></Implementation>
+</Method>
 </Class>