Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r51819 -r53686
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 51819)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 53686)
@@ -218,7 +218,7 @@
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,ProductId:%Integer,Maand:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Marge as %Decimal = ..GeefMargeVoorProduct(Line,ProductId,Line.InventQty,Line.LineAmount)
+	#dim Marge as %Decimal = Line.LineAmount - Line.LineCost
 	#dim KlantProductMaandRec As %String = $Get(^KSTKL(KlantNr,ProductId,Maand),"")
 	Set $Piece(KlantProductMaandRec,"\",1) = $Piece(KlantProductMaandRec,"\",1) + Line.InventQty
 	Set $Piece(KlantProductMaandRec,"\",2) = $Piece(KlantProductMaandRec,"\",2) + 1
@@ -259,26 +259,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMargeVoorProduct">
-<FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line,ProductId:%Integer,AantalStuks:%Integer,Omzet:%Decimal</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[
-	#dim KostPrijsPerStuk As %Decimal
-	#dim Product as DOM.PM.Product =..ProductApi.GeefProduct(ProductId)
-	If (Product.GeefGenerischProductID()="") || (Product.GeefGenerischProductID()?4.10N) {
-		Set KostPrijsPerStuk = Product.GeefCifPPL()
-	} Else {
-		If AantalStuks'=0 {
-			Set KostPrijsPerStuk=Omzet*.7/AantalStuks ; best guess als er een generisch product wordt doorgekreven van AX ipv een afgeleid product
-		} Else {
-			Set KostPrijsPerStuk=0
-		}
-	}
-	Quit (Omzet-(KostPrijsPerStuk*AantalStuks))
-]]></Implementation>
-</Method>
-
 <Method name="GetAdminProductId">
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line</FormalSpec>
 <Private>1</Private>