#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