Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r53928 -r54316
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 53928)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 54316)
@@ -75,6 +75,7 @@
 				Do ..ProcessKlantProductMaandRec(Line, KlantNr, ProductId, Maand) // Ook ProductMaandRec EN ProductKlantMaandRec
 				Do ..ProcessProductLastInfoRec(Line, ProductId)
 			}
+			Do ..ProcessKlantMaandRec(Line, KlantNr,Maand) // Afgezonderd van ProcessKlantProductMaandRec => check bestaan product irrelevant & Product kan verwijderd zijn!
 			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