Index: AX/Uitgaand/VKP/Potentieel/impl/Export2File.cls.xml
===================================================================
diff -u -r46900 -r69772
--- AX/Uitgaand/VKP/Potentieel/impl/Export2File.cls.xml	(.../Export2File.cls.xml)	(revision 46900)
+++ AX/Uitgaand/VKP/Potentieel/impl/Export2File.cls.xml	(.../Export2File.cls.xml)	(revision 69772)
@@ -22,7 +22,7 @@
 
 <Method name="%OnNew">
 <Description>
-D ##class(AX.Uitgaand.VKP.Potentieel.impl.Export2File).%New(8180).ExportAlleKlanten()</Description>
+D ##class(AX.Uitgaand.VKP.Potentieel.impl.Export2File).%New(4810).ExportAlleKlanten()</Description>
 <FormalSpec>BeperktTotKlant</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -39,7 +39,7 @@
 <Implementation><![CDATA[
 	Set Dev=$$OPEN^vhDEV(,"ExportPotentieel "_$zd($H,8)_".txt","W","T")
 	Use Dev
-	Write "GeneratieID	KlantId	Codex	ProdGrp	Aantal	Omzet",!
+	Write "GeneratieID	KlantId	Codex	ProdGrp	Aantal	Omzet	LaatsteDatum",!
 	Set GenerationID=$zdt($H,-2)
 	Set KLNr=0
 	For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do:$S(..BeperktTotKlant:KLNr=..BeperktTotKlant,1:1)
@@ -101,7 +101,7 @@
 	. Else  Do
 	. . Write *9, GrpProd
 	.
-	. Write *9, $$$ExcelNum($P(GrpRec,"\",1)), *9, $$$ExcelNum($P(GrpRec,"\",2)+$P(GrpRec,"\",3))
+	. Write *9, $$$ExcelNum($P(GrpRec,"\",1)), *9, $$$ExcelNum($P(GrpRec,"\",2)+$P(GrpRec,"\",3)),*9, $$$ExcelDat($P(GrpRec,"\",5))
 	. If ..MetDetail Do
 	. . Write *9, PRNr
 	. . Write *9, $$$PRGet($$$KortTekst)
@@ -116,6 +116,7 @@
 <Implementation><![CDATA[
 	Set (Verd,Fabr,Kov)="",GR=0
 	Set Rec=$$KLANT^STAT(KLNr,PRNr,..BeginMaand,..EindMaand,"1,3")
+	Set LaatsteDatum=$$INTDATE^vhLib.DataTypes($P($G(^KSTKL(KLNr,PRNr,0)),"\",1))
 	Set Aantal=$P(Rec,"\",1)
 	Set Omzet=$P(Rec,"\",3)
 	Quit:(+Omzet=0)&&(+Aantal=0)
@@ -131,16 +132,19 @@
 		Set Aantal=Aantal*Telbaar
 		Set:Telbaar $P(GrpRecs(GrpProd),"\",1)=$P($G(GrpRecs(GrpProd)),"\",1)+Aantal
 		Set $P(GrpRecs(GrpProd),"\",4)=Telbaar
+		Set $P(GrpRecs(GrpProd),"\",4)=Telbaar
 		If $L(GrpProd2)
 		{
 			Set $P(GrpRecs(GrpProd2),"\",1)=$P($G(GrpRecs(GrpProd2)),"\",1)+Aantal
 		}
 
 	}
+	Set:$P(GrpRecs(GrpProd),"\",5)<LaatsteDatum $P(GrpRecs(GrpProd),"\",5)=LaatsteDatum
 	Set:Telbaar $P(GrpRecs(GrpProd),"\",2)=$P($G(GrpRecs(GrpProd)),"\",2)+Omzet
 	Set:'Telbaar $P(GrpRecs(GrpProd),"\",3)=$P($G(GrpRecs(GrpProd)),"\",3)+Omzet
 	If $L(GrpProd2)
 	{
+		Set:$P(GrpRecs(GrpProd2),"\",5)<LaatsteDatum $P(GrpRecs(GrpProd2),"\",5)=LaatsteDatum
 		Set $P(GrpRecs(GrpProd2),"\",2)=$P($G(GrpRecs(GrpProd2)),"\",2)+Omzet
 		Set $P(GrpRecs(GrpProd2),"\",4)="Dubbel"
 	}
@@ -155,12 +159,14 @@
 	Quit:'$D(GrpRecs(ProductGroep2))
 	If (+$P(GrpRecs(ProductGroep1),"\")=0)&&(+$P(GrpRecs(ProductGroep2),"\")'=0)
 	{
-		Set $P(GrpRecs(ProductGroep2),"\",3)=$P(GrpRecs(ProductGroep1),"\",3)
+		Set $P(GrpRecs(ProductGroep2),"\",3)=$P(GrpRecs(ProductGroep1),"\",3) ; Verdeelbare omzet
+		Set:$P(GrpRecs(ProductGroep2),"\",5)<$P(GrpRecs(ProductGroep1),"\",5) $P(GrpRecs(ProductGroep2),"\",5)=$P(GrpRecs(ProductGroep1),"\",5) ; Laatste datum
 		Kill GrpRecs(ProductGroep1)
 	}
 	ElseIf (+$P(GrpRecs(ProductGroep1),"\")'=0)&&(+$P(GrpRecs(ProductGroep2),"\")=0)
 	{
-		Set $P(GrpRecs(ProductGroep1),"\",3)=$P(GrpRecs(ProductGroep2),"\",3)
+		Set $P(GrpRecs(ProductGroep1),"\",3)=$P(GrpRecs(ProductGroep2),"\",3) ; Verdeelbare omzet
+		Set:$P(GrpRecs(ProductGroep1),"\",5)<$P(GrpRecs(ProductGroep2),"\",5) $P(GrpRecs(ProductGroep1),"\",5)=$P(GrpRecs(ProductGroep2),"\",5) ; Laatste datum
 		Kill GrpRecs(ProductGroep2)
 	}
 ]]></Implementation>