Index: PRFUSIE3.mac.rou
===================================================================
diff -u -r65694 -r66229
--- PRFUSIE3.mac.rou	(.../PRFUSIE3.mac.rou)	(revision 65694)
+++ PRFUSIE3.mac.rou	(.../PRFUSIE3.mac.rou)	(revision 66229)
@@ -3,10 +3,10 @@
  Kill
  Set Q="K"
  Do ^cA604
- Set Max=5000
+ Set Max=500
  Set %J=$$%J^vhRtn1()
  Kill ^HULP(%J)
- Set EndPRNr=$O(^KPR(""),-1)-500000
+ Set EndPRNr=$O(^KPR(""),-1)-50000
  For  Do  Quit:'OneDone
  . Set OneDone=0
  . Set Cnt=0
@@ -73,7 +73,8 @@
  
 CheckDelAfgeleid(PRNr,MaandenOmzet,DagenCreatieZndOmzet)
  Set Del=""
- Set GeldigDatum=$$CALCDATE^vhLib.DataTypes($H,"M",-$G(MaandenOmzet,25),"FD")
+ ;Set GeldigDatum=$$CALCDATE^vhLib.DataTypes($H,"M",-$G(MaandenOmzet,25),"FD")
+ Set GeldigDatum=$$INTDATE^vhLib.DataTypes("01/01/2018") ; Opstart AX
  ;Set:$$INTDATE^vhLib.DataTypes($P($G(^KSTPR(PRNr,0,0)),D))>GeldigDatum Del="O" ; Omzet recenter dan X maand
  Set HistKey=$O(^PRHIST(PRNr,""),-1)
  Set:(Del="")&&HistKey&&(+$P(^PRHIST(PRNr,HistKey),"\",1)>GeldigDatum) Del="H" ; Historiek recenter dan X maand