Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49541 -r49542
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49541)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49542)
@@ -77,14 +77,13 @@
 			}
 			// SETTERS
 			Do ..ProcessKlantLastInfoRec(Line, KlantNr)
-			Do ..ProcessProductLastInfoRec(Line, ProductId)
 			Do ..ProcessKlantMaandRec(Line, KlantNr, Maand)
 			If $$$Not(ProductBestaatNiet) {
 				Do ..ProcessKlantProductLastInfoRec(Line, KlantNr, ProductId)
 				Do ..ProcessKlantProductMaandRec(Line, KlantNr, ProductId, Maand) // Ook ProductMaandRec EN ProductKlantMaandRec
+				Do ..ProcessProductLastInfoRec(Line, ProductId)
 			}
-			;Do ..SetLastProcessedRecord(Line.RecId)
-			
+			Do ..SetLastProcessedRecord(Line.RecId)
 			Set VorigeKlantNr = KlantNr
 			Set VorigProductId = ProductId
 		}
@@ -219,19 +218,19 @@
 	Set $Piece(KlantProductMaandRec,"\",4) = ..GeefMargeVoorProduct(Line,ProductId,$Piece(KlantProductMaandRec,"\",1),$Piece(KlantProductMaandRec,"\",3))
 	Set ^KSTKL(KlantNr,ProductId,Maand) = KlantProductMaandRec
 	
-	#dim ProductMaandRec As %String = $Get(^KSTPR(ProductId,0,Maand),"")
-	Set $Piece(ProductMaandRec,"\",1) = $Piece(ProductMaandRec,"\",1) + Line.InventQty
-	Set $Piece(ProductMaandRec,"\",2) = $Piece(ProductMaandRec,"\",2) + 1
-	Set $Piece(ProductMaandRec,"\",3) = $Piece(ProductMaandRec,"\",3) + Line.LineAmount
-	;Set $Piece(ProductMaandRec,"\",4) = ..GeefMarge() // Als laatste via $Order te verkrijgen
-	Set ^KSTPR(ProductId,0,Maand) = ProductMaandRec
-	
 	#dim ProductKlantMaandRec As %String = $Get(^KSTPR(ProductId,KlantNr,Maand),"")
 	Set $Piece(ProductKlantMaandRec,"\",1) = $Piece(ProductKlantMaandRec,"\",1) + Line.InventQty
 	Set $Piece(ProductKlantMaandRec,"\",2) = $Piece(ProductKlantMaandRec,"\",2) + 1
 	Set $Piece(ProductKlantMaandRec,"\",3) = $Piece(ProductKlantMaandRec,"\",3) + Line.LineAmount
 	Set $Piece(ProductKlantMaandRec,"\",4) = ..GeefMargeVoorProduct(Line,ProductId,$Piece(ProductKlantMaandRec,"\",1),$Piece(ProductKlantMaandRec,"\",3))
 	Set ^KSTPR(ProductId,KlantNr,Maand) = ProductKlantMaandRec
+	
+	#dim ProductMaandRec As %String = $Get(^KSTPR(ProductId,0,Maand),"")
+	Set $Piece(ProductMaandRec,"\",1) = $Piece(ProductMaandRec,"\",1) + Line.InventQty
+	Set $Piece(ProductMaandRec,"\",2) = $Piece(ProductMaandRec,"\",2) + 1
+	Set $Piece(ProductMaandRec,"\",3) = $Piece(ProductMaandRec,"\",3) + Line.LineAmount
+	;Set $Piece(ProductMaandRec,"\",4) = ..GeefMarge() // Als laatste via $Order te verkrijgen
+	Set ^KSTPR(ProductId,0,Maand) = ProductMaandRec
 ]]></Implementation>
 </Method>