Index: AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml
===================================================================
diff -u -r49549 -r49655
--- AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml	(.../LineIterator.cls.xml)	(revision 49549)
+++ AXimpl/Admin/STAT/Invoice/LineIterator.cls.xml	(.../LineIterator.cls.xml)	(revision 49655)
@@ -57,7 +57,8 @@
 	#dim SqlStatement As %String = ""
 	Set SqlStatement = 
 		"SELECT CustInvoiceJour.InvoiceAccount,CustInvoiceJour.OrderAccount,CustInvoiceJour.InvoiceId,CustInvoiceTrans.ItemId,com.AdminProductNummer,"
-		_" CustInvoiceTrans.InventQty,CustInvoiceTrans.LineAmount,CustInvoiceTrans.TaxAmount, CustInvoiceJour.InvoiceDate, CustInvoiceJour.RecId, CustInvoiceTrans.CurrencyCode, CustInvoiceTrans.PriceUnit"
+		_" CustInvoiceTrans.InventQty,CustInvoiceTrans.LineAmount,CustInvoiceTrans.TaxAmount, CustInvoiceJour.InvoiceDate, CustInvoiceJour.RecId,"
+		_" CustInvoiceTrans.CurrencyCode, CustInvoiceTrans.PriceUnit,CustInvoiceTrans.SalesPrice"
 		_" FROM CustInvoiceTrans"
 		_" JOIN InventDim ON InventDim.InventDimId = CustInvoiceTrans.InventDimId AND InventDim.DataAreaId = CustInvoiceTrans.DataAreaId"
 		_" JOIN CustInvoiceJour ON CustInvoiceJour.InvoiceId = CustInvoiceTrans.InvoiceId AND CustInvoiceJour.InvoiceDate = CustInvoiceTrans.InvoiceDate"
@@ -93,6 +94,7 @@
 	Set InvoiceLine.RecId = ResultSet.GetDataByName("RecId")
 	Set InvoiceLine.Currency = ResultSet.GetDataByName("CurrencyCode")
 	Set InvoiceLine.PriceUnit = ResultSet.GetDataByName("PriceUnit")
+	Set InvoiceLine.SalesPrice = ResultSet.GetDataByName("SalesPrice")
 	Quit InvoiceLine
 ]]></Implementation>
 </Method>
Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49549 -r49655
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49549)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49655)
@@ -189,7 +189,7 @@
 	#dim KlantProductLastInfoRec As %String = $Get(^KSTKL(KlantNr,ProductId,0),"")
 	If $$$Not(BestaatKlantProductLastInfoRec) {
 		Set $Piece(KlantProductLastInfoRec,"\",1) = ConvertedInvoiceDateLine
-		Set $Piece(KlantProductLastInfoRec,"\",2) = Line.LineAmount
+		Set $Piece(KlantProductLastInfoRec,"\",2) = Line.SalesPrice
 		Set $Piece(KlantProductLastInfoRec,"\",3) = VerkoopEenheid
 		Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
 		Set $Piece(KlantProductLastInfoRec,"\",5) = 1
@@ -201,7 +201,7 @@
 			Do ..KillSubscript("KlantProductLastInfoRec", KlantNr, ProductId)
 			Set KlantProductLastInfoRec = $Get(^KSTKL(KlantNr,ProductId,0),"")
 			Set $Piece(KlantProductLastInfoRec,"\",1) = ConvertedInvoiceDateLine
-			Set $Piece(KlantProductLastInfoRec,"\",2) = Line.LineAmount
+			Set $Piece(KlantProductLastInfoRec,"\",2) = Line.SalesPrice
 			Set $Piece(KlantProductLastInfoRec,"\",3) = VerkoopEenheid
 			Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
 			Set $Piece(KlantProductLastInfoRec,"\",5) = 1
@@ -213,7 +213,7 @@
 	#dim ProductKlantLastInfoRec As %String = $Get(^KSTPR(ProductId,KlantNr,0),"")
 	If $$$Not(BestaatProductKlantLastInfoRec) {
 		Set $Piece(ProductKlantLastInfoRec,"\",1) = ConvertedInvoiceDateLine
-		Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
+		Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.SalesPrice
 		Set $Piece(ProductKlantLastInfoRec,"\",3) = VerkoopEenheid
 		Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
 		Set $Piece(ProductKlantLastInfoRec,"\",5) = 1
@@ -225,7 +225,7 @@
 			Do ..KillSubscript("ProductKlantLastInfoRec", KlantNr, ProductId)
 			Set ProductKlantLastInfoRec = $Get(^KSTPR(ProductId,KlantNr,0),"")
 			Set $Piece(ProductKlantLastInfoRec,"\",1) = ConvertedInvoiceDateLine
-			Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
+			Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.SalesPrice
 			Set $Piece(ProductKlantLastInfoRec,"\",3) = VerkoopEenheid
 			Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
 			Set $Piece(ProductKlantLastInfoRec,"\",5) = 1