## Projects and time tracking: clients, projects, tasks and timesheets
<enumset name="TaskStatus">
<enum value="todo">To do</enum>
<enum value="doing">Doing</enum>
<enum value="done">Done</enum>
</enumset>

Client @Clients order="name"
   name d r
   contactName
   email
   <embeddedlisting name="projects" entity="Project" subset="forClient" subsetparams="." defaultset="newForClient" defaultsetparams="." />

Project @Projects order="name"
   <subset name="forClient" order="name">
   <param name="client" entity="Client" />
   <condition field="client" value="client" />
   </subset>
   <subset name="active" order="name">
   <condition field="active" value="true" />
   </subset>
   <defaultset name="newForClient">
   <param name="client" entity="Client" />
   <default name="client" value="client" />
   </defaultset>
   name d r
   client Client ds r
   hourlyRate double r
   budgetHours integer
   active boolean default="true"
   hoursLogged double ds formula="(SELECT COALESCE(SUM(t.hours), 0) FROM time_entry t WHERE t.project = id)"
   <embeddedlisting name="tasks" entity="Task" subset="forProject" subsetparams="." defaultset="newForProject" defaultsetparams="." />

Task @Projects order="dueDate"
   <subset name="forProject" order="dueDate">
   <param name="project" entity="Project" />
   <condition field="project" value="project" />
   </subset>
   <subset name="forProjectOpen" order="title">
   <param name="project" entity="Project" />
   <condition field="project" value="project" />
   <restriction expr="me.status != 'done'" />
   </subset>
   <defaultset name="newForProject">
   <param name="project" entity="Project" />
   <default name="project" value="project" />
   </defaultset>
   title d r
   project Project ds r
   assignee User ds
   dueDate date ds
   status enum enumset="TaskStatus" ds default="todo"

Timesheet @Time order="weekStart desc"
   <subset name="mine" order="weekStart desc">
   <condition field="person" value="User:find(userId)" />
   </subset>
   person User d fixed default="User:find(userId)"
   weekStart date d r
   entries TimeEntry set ei x childproperty="timesheet"
   totalHours double ds calculated="sum(entries[*].hours)"
   totalAmount double calculated="sum(entries[*].amount)"

TimeEntry @
   timesheet Timesheet
   date r
   project Project r subset="active"
   task Task subset="forProjectOpen" subsetparams="project"
   hours double r
   rate double disabled \
   <dynamicvalue expr="project.hourlyRate">
   <param name="project" entity="Project" value="project" />
   </dynamicvalue>
   amount double calculated="hours * rate"
   notes

User @Administration order="username"
   username d r
   fullName ds r
   email r
   active boolean default="true"