Index: zJCTEST.mac.rou
===================================================================
diff -u -r745 -r783
--- zJCTEST.mac.rou	(.../zJCTEST.mac.rou)	(revision 745)
+++ zJCTEST.mac.rou	(.../zJCTEST.mac.rou)	(revision 783)
@@ -1 +1,21 @@
-TEST6
+#Include %VHMacro
+#Include DOM.HR.Common
+ 
+ 
+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