Index: AXimpl/Admin/STAT/Invoice/Processor.cls.xml
===================================================================
diff -u -r49442 -r49445
--- AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49442)
+++ AXimpl/Admin/STAT/Invoice/Processor.cls.xml	(.../Processor.cls.xml)	(revision 49445)
@@ -6,13 +6,13 @@
 <Method name="Process">
 <Implementation><![CDATA[
 	#dim LastProcessedRecord As %Integer = ..GetLastProcessedRecord()
-	set Iterator = ##class(AXimpl.Admin.STAT.Invoice.LineIterator).%New(,LastProcessedRecord)
-	while Iterator.HasNext() {
+	Set Iterator = ##class(AXimpl.Admin.STAT.Invoice.LineIterator).%New(,LastProcessedRecord)
+	While Iterator.HasNext() {
 		#dim Line As AXimpl.Admin.STAT.Invoice.Line = Iterator.Next()
-		do ..ProcessKSTKL(Line)
-		do ..ProcessKSTPR(Line)
-		do ..ProcessKSPW(Line)
-		do ..SetLastProcessedRecord(Line.RecId)
+		Do ..ProcessKSTKL(Line)
+		Do ..ProcessKSTPR(Line)
+		Do ..ProcessKSPW(Line)
+		Do ..SetLastProcessedRecord(Line.RecId)
 	}
 ]]></Implementation>
 </Method>
@@ -25,26 +25,26 @@
 	#dim PeriodeSubscript As %String = $piece(Line.InvoiceDate,"-",1)_"."_$piece(Line.InvoiceDate,"-",2)_" "
 	#dim AdminProductId As %String = ..GetAdminProductId(Line)
 		
-	#dim MaandRec As %String = $get(^KSTKL(KlantNr,0,PeriodeSubscript),"")	
-	set $piece(MaandRec,"\",1)= $piece(MaandRec,"\",1) + Line.InventQty
-	set $piece(MaandRec,"\",2)= $piece(MaandRec,"\",1) + 1
-	set $piece(MaandRec,"\",3)= $piece(MaandRec,"\",1) + (Line.InventQty*Line.LineAmount)
-	set ^KSTKL(KlantNr,0,PeriodeSubscript) = MaandRec
+	#dim MaandRec As %String = $Get(^KSTKL(KlantNr,0,PeriodeSubscript),"")	
+	Set $Piece(MaandRec,"\",1)= $Piece(MaandRec,"\",1) + Line.InventQty
+	Set $Piece(MaandRec,"\",2)= $Piece(MaandRec,"\",1) + 1
+	Set $Piece(MaandRec,"\",3)= $Piece(MaandRec,"\",1) + (Line.InventQty*Line.LineAmount)
+	Set ^KSTKL(KlantNr,0,PeriodeSubscript) = MaandRec
 	
-	#dim ProductLastInfoRec As %String = $get(^KSTKL(KlantNr,AdminProductId,0),"")
-	set $piece(ProductLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
-	set $piece(ProductLastInfoRec,"\",2) = Line.LineAmount
-	set $piece(ProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-	set $piece(ProductLastInfoRec,"\",4) = "EUR"
-	set $piece(ProductLastInfoRec,"\",5) = 1
-	set ^KSTKL(KlantNr,AdminProductId,0) = ProductLastInfoRec
+	#dim ProductLastInfoRec As %String = $Get(^KSTKL(KlantNr,AdminProductId,0),"")
+	Set $Piece(ProductLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
+	Set $Piece(ProductLastInfoRec,"\",2) = Line.LineAmount
+	Set $Piece(ProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
+	Set $Piece(ProductLastInfoRec,"\",4) = "EUR"
+	Set $Piece(ProductLastInfoRec,"\",5) = 1
+	Set ^KSTKL(KlantNr,AdminProductId,0) = ProductLastInfoRec
 	
-	#dim ProductRec As %String = $get(^KSTKL(KlantNr,AdminProductId,PeriodeSubscript),"")
-	set $piece(ProductRec,"\",1) = $piece(ProductRec,"\",1) + Line.InventQty
-	set $piece(ProductRec,"\",2) = $piece(ProductRec,"\",1) + 1
-	set $piece(ProductRec,"\",3) = ..GeefMarge(Line)
-	set $piece(ProductRec,"\",4) = $piece(ProductRec,"\",1) + (Line.InventQty*Line.LineAmount)
-	set ^KSTKL(KlantNr,AdminProductId,PeriodeSubscript) = ProductRec
+	#dim ProductRec As %String = $Get(^KSTKL(KlantNr,AdminProductId,PeriodeSubscript),"")
+	Set $Piece(ProductRec,"\",1) = $Piece(ProductRec,"\",1) + Line.InventQty
+	Set $Piece(ProductRec,"\",2) = $Piece(ProductRec,"\",1) + 1
+	Set $Piece(ProductRec,"\",3) = ..GeefMarge(Line)
+	Set $Piece(ProductRec,"\",4) = $Piece(ProductRec,"\",1) + (Line.InventQty*Line.LineAmount)
+	Set ^KSTKL(KlantNr,AdminProductId,PeriodeSubscript) = ProductRec
 ]]></Implementation>
 </Method>
 
@@ -53,38 +53,38 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KlantNr As %String = +Line.InvoiceAccount
-	#dim PeriodeSubscript As %String = $piece(Line.InvoiceDate,"-",1)_"."_$piece(Line.InvoiceDate,"-",2)_" "
+	#dim PeriodeSubscript As %String = $Piece(Line.InvoiceDate,"-",1)_"."_$Piece(Line.InvoiceDate,"-",2)_" "
 	#dim AdminProductId As %String = ..GetAdminProductId(Line)
 		
-	#dim ProductLastInfoRec As %String = $get(^KSTPR(AdminProductId,0,0),"")
-	set $piece(ProductLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
-	set $piece(ProductLastInfoRec,"\",2) = Line.LineAmount
-	set $piece(ProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-	set $piece(ProductLastInfoRec,"\",4) = "EUR"
-	set $piece(ProductLastInfoRec,"\",5) = 1
-	set ^KSTPR(AdminProductId,0,0) = ProductLastInfoRec
+	#dim ProductLastInfoRec As %String = $Get(^KSTPR(AdminProductId,0,0),"")
+	Set $Piece(ProductLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
+	Set $Piece(ProductLastInfoRec,"\",2) = Line.LineAmount
+	Set $Piece(ProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
+	Set $Piece(ProductLastInfoRec,"\",4) = "EUR"
+	Set $Piece(ProductLastInfoRec,"\",5) = 1
+	Set ^KSTPR(AdminProductId,0,0) = ProductLastInfoRec
 	
-	#dim ProductRec As %String = $get(^KSTPR(AdminProductId,0,PeriodeSubscript),"")
-	set $piece(ProductRec,"\",1) = $piece(ProductRec,"\",1)+Line.InventQty
-	set $piece(ProductRec,"\",2) = $piece(ProductRec,"\",1)+1
-	set $piece(ProductRec,"\",3) = ..GeefMarge(Line)
-	set $piece(ProductRec,"\",4) = $piece(ProductRec,"\",1)+(Line.InventQty*Line.LineAmount)
-	set ^KSTPR(AdminProductId,0,PeriodeSubscript) = ProductRec
+	#dim ProductRec As %String = $Get(^KSTPR(AdminProductId,0,PeriodeSubscript),"")
+	Set $Piece(ProductRec,"\",1) = $Piece(ProductRec,"\",1)+Line.InventQty
+	Set $Piece(ProductRec,"\",2) = $Piece(ProductRec,"\",1)+1
+	Set $Piece(ProductRec,"\",3) = ..GeefMarge(Line)
+	Set $Piece(ProductRec,"\",4) = $Piece(ProductRec,"\",1)+(Line.InventQty*Line.LineAmount)
+	Set ^KSTPR(AdminProductId,0,PeriodeSubscript) = ProductRec
 	
-	#dim ProductKlantLastInfoRec As %String = $get(^KSTPR(AdminProductId,KlantNr,0),"")
-	set $piece(ProductKlantLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
-	set $piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
-	set $piece(ProductKlantLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
-	set $piece(ProductKlantLastInfoRec,"\",4) = "EUR"
-	set $piece(ProductKlantLastInfoRec,"\",5) = 1
-	set ^KSTPR(AdminProductId,KlantNr,0) = ProductKlantLastInfoRec
+	#dim ProductKlantLastInfoRec As %String = $Get(^KSTPR(AdminProductId,KlantNr,0),"")
+	Set $Piece(ProductKlantLastInfoRec,"\",1) = $$EXTDATE^vhLib.DataType(Line.InvoiceDate,"DD.MM.JJ")
+	Set $Piece(ProductKlantLastInfoRec,"\",2) = Line.LineAmount
+	Set $Piece(ProductKlantLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line)
+	Set $Piece(ProductKlantLastInfoRec,"\",4) = "EUR"
+	Set $Piece(ProductKlantLastInfoRec,"\",5) = 1
+	Set ^KSTPR(AdminProductId,KlantNr,0) = ProductKlantLastInfoRec
 	
-	#dim ProductKlantRec As %String = $get(^KSTPR(AdminProductId,KlantNr,PeriodeSubscript),"")
-	set $piece(ProductKlantRec,"\",1) = $piece(ProductKlantRec,"\",1) + Line.InventQty
-	set $piece(ProductKlantRec,"\",2) = $piece(ProductKlantRec,"\",1) + 1
-	set $piece(ProductKlantRec,"\",3) = ..GeefMarge(Line)
-	set $piece(ProductKlantRec,"\",4) = $piece(ProductKlantRec,"\",1) + (Line.InventQty*Line.LineAmount)
-	set ^KSTPR(AdminProductId,KlantNr,PeriodeSubscript) = ProductRec
+	#dim ProductKlantRec As %String = $Get(^KSTPR(AdminProductId,KlantNr,PeriodeSubscript),"")
+	Set $Piece(ProductKlantRec,"\",1) = $Piece(ProductKlantRec,"\",1) + Line.InventQty
+	Set $Piece(ProductKlantRec,"\",2) = $Piece(ProductKlantRec,"\",1) + 1
+	Set $Piece(ProductKlantRec,"\",3) = ..GeefMarge(Line)
+	Set $Piece(ProductKlantRec,"\",4) = $Piece(ProductKlantRec,"\",1) + (Line.InventQty*Line.LineAmount)
+	Set ^KSTPR(AdminProductId,KlantNr,PeriodeSubscript) = ProductRec
 ]]></Implementation>
 </Method>
 
@@ -97,40 +97,40 @@
 	
 	#dim StockNiveaus As APPS.common.dto.StockNiveaus = ##class(APPS.common.StockNiveauService).%New(AdminProductId).GeefAlleStockTypeNiveaus()
 	
-	#dim WeekRec As %String = $get(^KSPW(AdminProductId,WeekSubscript))
+	#dim WeekRec As %String = $Get(^KSPW(AdminProductId,WeekSubscript))
 	
-	set $piece(WeekRec,"\",1) = $piece(WeekRec,"\",1) + Line.InventQty
-	set $piece(WeekRec,"\",2) = $piece(WeekRec,"\",2) + Line.LineAmount
-	set $piece(WeekRec,"\",3) = ..GeefMarge(Line)
-	set $piece(WeekRec,"\",4) = StockNiveaus.Fysisch
-	set $piece(WeekRec,"\",5) = StockNiveaus.Theoretisch
-	set $piece(WeekRec,"\",6) = StockNiveaus.Praktisch
+	Set $Piece(WeekRec,"\",1) = $Piece(WeekRec,"\",1) + Line.InventQty
+	Set $Piece(WeekRec,"\",2) = $Piece(WeekRec,"\",2) + Line.LineAmount
+	Set $Piece(WeekRec,"\",3) = ..GeefMarge(Line)
+	Set $Piece(WeekRec,"\",4) = StockNiveaus.Fysisch
+	Set $Piece(WeekRec,"\",5) = StockNiveaus.Theoretisch
+	Set $Piece(WeekRec,"\",6) = StockNiveaus.Praktisch
 	
-	set ^KSPW(AdminProductId,WeekSubscript )= WeekRec
+	Set ^KSPW(AdminProductId,WeekSubscript )= WeekRec
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerkoopEenheid">
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "E1"
+<Implementation><![CDATA[	Quit "E1"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMarge">
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	quit 100
+<Implementation><![CDATA[	Quit 100
 ]]></Implementation>
 </Method>
 
 <Method name="GetAdminProductId">
 <FormalSpec>Line:AXimpl.Admin.STAT.Invoice.Line</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	quit:$$$HasLength(Line.AdminProductNummer) Line.AdminProductNummer
+	Quit:$$$HasLength(Line.AdminProductNummer) Line.AdminProductNummer
 	
 	#dim AdminProductId As %String = 1000
 ]]></Implementation>
@@ -139,14 +139,14 @@
 <Method name="GetLastProcessedRecord">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $get(^AX.Config("Id","Stat.Invoice.Customer"),1)
+<Implementation><![CDATA[	Quit $Get(^AX.Config("Id","Stat.Invoice.Customer"),1)
 ]]></Implementation>
 </Method>
 
 <Method name="SetLastProcessedRecord">
 <FormalSpec>RecId:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	set ^AX.Config("Id","Stat.Invoice.Customer") = RecId
+<Implementation><![CDATA[	Set ^AX.Config("Id","Stat.Invoice.Customer") = RecId
 ]]></Implementation>
 </Method>
 </Class>