Index: zJCTEST.mac.rou
===================================================================
diff -u -r741 -r742
--- zJCTEST.mac.rou	(.../zJCTEST.mac.rou)	(revision 741)
+++ zJCTEST.mac.rou	(.../zJCTEST.mac.rou)	(revision 742)
@@ -1,22 +1,5 @@
-#Include %VHMacro
-#Include DOM.HR.Common
-
 TEST5
  
-TEST
  
  
-	S Werknemer = 49
-	Set Periode = "2009.10"
-	S Code = "O_" D
-	. Set ListRegistraties = $$ListIDsExecDynQuery^vhQUERYLIB("SELECT ID FROM DOM_HR.UurRegistratiePost WHERE Code %STARTSWITH ?",$LB(Code))
-	. For cntRegistraties = 1 : 1 : $LL(ListRegistraties) Do
-	. . Set Registratie = $LG(ListRegistraties,cntRegistraties)
-	. . Set Totaal = ##class(DOM.HR.UurRegistratie).AantalUren(Werknemer,Periode,Registratie)
-	. . If Totaal>0 Do
-	. . . Set $LI(%Cache(cntWerknemer,Rij),Kolom) = $$$ExcelNum(Totaal)
-	. . . Set oPost = ##class(DOM.HR.UurRegistratiePost).%OpenId(Registratie)
-	. . . If $IsObject(oPost) Set $LI(%Cache(cntWerknemer,Rij),Kolom+1) = "uren "_oPost.LoonOpgave.Omschrijving
-	. . . Set oPost=""
-	. . . Set Rij=Rij+1
  
\ No newline at end of file