Index: HistPRStockChangeBld.mac.rou
===================================================================
diff -u -r2415 -r17620
--- HistPRStockChangeBld.mac.rou	(.../HistPRStockChangeBld.mac.rou)	(revision 2415)
+++ HistPRStockChangeBld.mac.rou	(.../HistPRStockChangeBld.mac.rou)	(revision 17620)
@@ -45,16 +45,14 @@
  Do file.Rewind()
  Set D=$C(9)
  For  Set Lengte=1000,Rec=file.Read(.Lengte) Quit:Rec=""  Do
- .Quit:$P(Rec,D,1)'?4.6N
+ .Quit:$P(Rec,D,1)'?4.7N
  .New PRObj,ABC,GemWvk,GemSt,Ok
- .;Set PRObj=##class(Stat.PR.StockABCKwotering).%New()
  .Set PRObj=##class(SQLStat.PRStockABCKwotering).%New()
  .Set PRObj.Product=$P(Rec,D,1)
  .Set PRObj.Datum=Maand
  .Set PRObj.CiffPPL=+$TR($P(Rec,D,9),",",".")
  .Set PRObj.ABCWaarde=$P(Rec,D,11)
  .Set PRObj.Kwotering=$P(Rec,D,12) 
- .;Set PRObj.Kwotering=$$ABCKWOT^PRODUKT2(PRNr,1)
  .Set PRObj.GemGewogenWVK=$P(Rec,D,14)*PRObj.CiffPPL
  .Set PRObj.GemWVK=+$P(Rec,D,13)*PRObj.CiffPPL
  .Set PRObj.Rotatie=+$P(Rec,D,15)