Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49545 -r49546
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49545)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49546)
@@ -268,9 +268,7 @@
 	/*
 	#dim WeekSubscript As %String = $$EXTDATE^vhLib.DataTypes(Line,"J4")_"."_$$EXTDATE^vhLib.DataTypes(Line,"W")_" "
 	#dim AdminProductId As %String = ..GetAdminProductId(Line)
-	
 	#dim StockNiveaus As APPS.common.dto.StockNiveaus = ##class(APPS.common.StockNiveauService).%New(AdminProductId).GeefAlleStockTypeNiveaus()
-	
 	#dim WeekRec As %String = $Get(^KSPW(AdminProductId,WeekSubscript))
 	
 	Set $Piece(WeekRec,"\",1) = $Piece(WeekRec,"\",1) + Line.InventQty
@@ -289,7 +287,9 @@
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "E1"
+<Implementation><![CDATA[
+	Quit:Line.PriceUnit="100" "H1"
+	Quit "E1"
 ]]></Implementation>
 </Method>