Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r54330 -r54528
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 54330)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 54528)
@@ -75,6 +75,7 @@
 				Do ..ProcessKlantProductMaandRec(Line, KlantNr, ProductId, Maand) // Ook ProductMaandRec EN ProductKlantMaandRec
 				Do ..ProcessProductLastInfoRec(Line, ProductId)
 			}
+			Do ..ProcessKlantMaandRec(Line, KlantNr, Maand) // Ook ProductMaandRec EN ProductKlantMaandRec
 			Do ..SetLastProcessedRecord(Line.RecId)
 		}
 		If $$$Not(Line.Currency = "EUR") {
@@ -247,7 +248,14 @@
 	Set $Piece(ProductMaandRec,"\",3) = $Piece(ProductMaandRec,"\",3) + Line.LineAmount
 	Set $Piece(ProductMaandRec,"\",4) = $Piece(ProductMaandRec,"\",4)+Marge
 	Set ^KSTPR(ProductId,0,Maand) = ProductMaandRec
-	
+]]></Implementation>
+</Method>
+
+<Method name="ProcessKlantMaandRec">
+<FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,Maand:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Marge as %Decimal = Line.LineAmount - Line.LineCost
 	#dim KlantMaandRec As %String = $Get(^KSTKL(KlantNr,0,Maand),"")
 	Set $Piece(KlantMaandRec,"\",1) = $Piece(KlantMaandRec,"\",1) + Line.InventQty
 	Set $Piece(KlantMaandRec,"\",2) = $Piece(KlantMaandRec,"\",2) + 1
@@ -345,13 +353,17 @@
 	{
 		try 
 		{
+			Set ^PVLog(+$H,Line.InvoiceAccount,Line.ItemId)=""
 			If Line.AdminProductNummer?4.10N
 			{
 				Set PRNr=Line.AdminProductNummer
 			}
 			Else
 			{
+				Set ^PVLog(+$H,Line.InvoiceAccount,Line.ItemId)="try"
+				Set PRNrBasis=..Translator.GeefPRNrForAdmin(Line.ItemId)
 				Set PRNr=..Translator.GeefPRNrForAdminInclSOPR(Line.ItemId,Line.InvoiceAccount)
+				If PRNrBasis'=PRNr Set ^PVLog(+$H,Line.InvoiceAccount,Line.ItemId)=PRNrBasis_"\"_PRNr
 			}
 			
 			If $$$PRGet($$$GenProduct)'?.N ; Generisch moeder product -> kost=omzet
@@ -360,8 +372,8 @@
 			}
 			Else
 			{
-			Set CifPPL=$$$PRGet($$$CifPPLEUR)
-			Set Line.LineCost=+$J(CifPPL*Line.InventQty,0,4)
+				Set CifPPL=$$$PRGet($$$CifPPLEUR)
+				Set Line.LineCost=+$J(CifPPL*Line.InventQty,0,4)
 			}
 		}
 		catch