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