Index: STATWEEK.mac.rou
===================================================================
diff -u -r41768 -r56983
--- STATWEEK.mac.rou	(.../STATWEEK.mac.rou)	(revision 41768)
+++ STATWEEK.mac.rou	(.../STATWEEK.mac.rou)	(revision 56983)
@@ -283,6 +283,7 @@
  . For  Set LevWk2=$O(^HULP(%J,ORDNr,LevWk2)) Quit:LevWk2=""  Quit:$S(LevWk<LevWk2:LevWk2-LevWk,1:LevWk-LevWk2)<100 ; als een order binnen 100 dagen terug komt
  . Set:LevWk2="" NewOrd=1 ; niet gevonden
  . Set ^HULP(%J,ORDNr,LevWk)=""
+ Quit:KLNr=4682
  Do CUMUL(Grp,Node,NewOrd,Omzet,Marge,0,Qty)
  Do CUMUL(Grp,Node,NewOrd,Omzet,Marge,KLNr,Qty)
  Do DTL(Grp,Node,KLNr,PRNr,FAKNr,ULNr,ORDNr,NewOrd,Datum,Qty,Omzet,Marge)
@@ -456,4 +457,3 @@
  ....Write Type,$C(9),$$$ExcelDat(Datum),$C(9),$$$ExcelDat($$CALCDATE^vhLib.DataTypes(Datum,"M","FD")),$C(9),"'"_$$EXTDATE^vhLib.DataTypes(Datum,"DW"),$C(9),KLNr,$C(9),KLNm,$C(9),FAKNr,$C(9),PRNr,$C(9),KortT,$C(9),Qty,*9,$$$ExcelNum(Omzet),*9,$$$ExcelNum(Marge),*9,DocumentDatum,!
  Do CLOSE^vhDEV(Dev)
  Quit
-