Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49546 -r49547
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49546)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49547)
@@ -183,14 +183,15 @@
 <Implementation><![CDATA[
 	#dim ConvertedInvoiceDateLine As %String = ..DateTimeApi.GeefDatumInPuntNotatie(..DateTimeApi.TextToDate($Piece(Line.InvoiceDate," ",1)))
 	#dim DatumLine As %Date = ##class(TECH.DateTime).TextToDate(ConvertedInvoiceDateLine)
+	#dim VerkoopEenheid As %String = ..GeefVerkoopEenheid(Line)
 	
 	#dim BestaatKlantProductLastInfoRec As %Boolean = $Data(^KSTKL(KlantNr,ProductId,0))
 	#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,"\",3) = ..GeefVerkoopEenheid(Line)
-		;Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
+		Set $Piece(KlantProductLastInfoRec,"\",3) = VerkoopEenheid
+		Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
 		;Set $Piece(KlantProductLastInfoRec,"\",5) = 1
 		Set ^KSTKL(KlantNr,ProductId,0) = KlantProductLastInfoRec
 	} Else {
@@ -201,8 +202,8 @@
 			Set KlantProductLastInfoRec = $Get(^KSTKL(KlantNr,ProductId,0),"")
 			Set $Piece(KlantProductLastInfoRec,"\",1) = ConvertedInvoiceDateLine
 			Set $Piece(KlantProductLastInfoRec,"\",2) = Line.LineAmount
-			;Set $Piece(KlantProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-			;Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
+			Set $Piece(KlantProductLastInfoRec,"\",3) = VerkoopEenheid
+			Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR"
 			;Set $Piece(KlantProductLastInfoRec,"\",5) = 1
 			Set ^KSTKL(KlantNr,ProductId,0) = KlantProductLastInfoRec
 		}
@@ -213,8 +214,8 @@
 	If $$$Not(BestaatProductKlantLastInfoRec) {
 		Set $Piece(ProductKlantLastInfoRec,"\",1) = ConvertedInvoiceDateLine
 		Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
-		;Set $Piece(ProductKlantLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-		;Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
+		Set $Piece(ProductKlantLastInfoRec,"\",3) = VerkoopEenheid
+		Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
 		;Set $Piece(ProductKlantLastInfoRec,"\",5) = 1
 		Set ^KSTPR(ProductId,KlantNr,0) = ProductKlantLastInfoRec
 	} Else {
@@ -225,8 +226,8 @@
 			Set ProductKlantLastInfoRec = $Get(^KSTPR(ProductId,KlantNr,0),"")
 			Set $Piece(ProductKlantLastInfoRec,"\",1) = ConvertedInvoiceDateLine
 			Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
-			;Set $Piece(ProductKlantLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-			;Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
+			Set $Piece(ProductKlantLastInfoRec,"\",3) = VerkoopEenheid
+			Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
 			;Set $Piece(ProductKlantLastInfoRec,"\",5) = 1
 			Set ^KSTPR(ProductId,KlantNr,0) = ProductKlantLastInfoRec
 		}