Index: DW/StockWaarde.cls.xml
===================================================================
diff -u -r41584 -r42270
--- DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 41584)
+++ DW/StockWaarde.cls.xml	(.../StockWaarde.cls.xml)	(revision 42270)
@@ -318,7 +318,7 @@
 <FormalSpec><![CDATA[PRNr,&arHist]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
- New Key,I,Rec
+ New Key,I,Rec,IdxDate
  ;Set Begin=$G(Begin)
  ;Set Einde=$G(Einde,999999)
  ;Set Magazijn=$LB("M","W")
@@ -356,6 +356,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>arHist</FormalSpec>
 <Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
 	Set IdxDate=$O(arHist(""))
 	Set IdxDatePrev=""
@@ -389,8 +390,9 @@
 <FormalSpec>Datum:%Date</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-		Set WeekNr=$$EXTDATE^vhLib.DataTypes(Datum,"W")
-		Quit ";29;30;31;32;52;1;"[(";"_WeekNr_";")
+	New WeekNr
+	Set WeekNr=$$EXTDATE^vhLib.DataTypes(Datum,"W")
+	Quit ";29;30;31;32;52;1;"[(";"_WeekNr_";")
 ]]></Implementation>
 </Method>