Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49687 -r51819
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49687)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 51819)
@@ -30,7 +30,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-// 	Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H).Process()
+// 	Do ##class(AXimpl.Admin.STAT.Invoice.Processor).%New(+$H-20).Process()
 
 ]]></Content>
 </UDLText>
@@ -264,8 +264,17 @@
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
 <Implementation><![CDATA[
-	#dim KostPrijsPerStuk As %Decimal = ..ProductApi.GeefProduct(ProductId).GeefCifPPL()
-	
+	#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>