' $System.Access Read Schedule $Office.Name - Schedule Daily View ' Init $GID = $Groups.Head
' $System.Month.Day = $Schedule.Sunday
Group $Date.Day $Date.MONTH, $Date.Year ($Date.wday) Previous Week Previous Day Today Next Day Next Week
' $BackPage = $Page ' $BackDate = $Date ' If $Login ' $ID = $Login.ID ' $Contains = $Groups.$GID.Users.Contains $ID ' If ! $GID or $Contains ' $BgColor = #ffffff ' Set $User = $Users.$ID ' EndIf ' EndIf ' If $GID ' Set $g = $Groups.$GID.Users ' If $Schedule.Group ' $ID = 0 ' $BgColor = #ffffcc ' Set $User = $Groups.$GID ' EndIf ' Else ' Set $g = $Users ' EndIf ' ' $Sep = 0 ' For Each $User in $g ' If $Sep = 5 ' $Sep = 0 ' EndIf ' If $User.ID != $Login.ID ' $ID = $User.ID ' $BgColor = #ffffff ' Inc $Sep ' EndIf ' Next

' Init $BDate = $Date
[Weekly View] [Top Page] [Help]