' $System.Access Read Schedule $Office.Name - Schedule Weekly View ' $Anchor = 0 ' Sub WeekHeader $FPage $FImage Previous Week Today Next Week ' For Each $WDate in $System.Week $_WDate.BSet$$WDate.Day ($WDate.wday)$_WDate.BEnd ' Next
' Inc $Anchor ' EndSub ' If ($GID != 0) and ! $Groups.$GID ' If $Login.Group ' $GID = $Login.Group.ID ' Elif $Login.Groups.Count ' $GID = $Login.Groups.Head ' Else ' $GID = $Groups.Head ' EndIf ' EndIf ' $System.Holiday = $Schedule.Holiday ' $System.Month.Day = $Schedule.Sunday
Group Previous Month $Date.MONTH, $Date.Year Next Month Previous Week Previous Day Today Next Day Next Week
' $BackPage = $Page ' $BackDate = $Date ' $SetDate = $Date ' If $Login ' $ID = $Login.ID ' $Contains = $Groups.$GID.Users.Contains $ID ' If ! $GID or $Contains ' $WeekHeader ScheduleDay dayview.gif ' $BgColor = #ffffff ' Set $User = $Users.$ID ' $LoginUser = 1 ' EndIf ' EndIf ' $WeekHeader ScheduleZoom zoom.gif ' 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 ' $WeekHeader ScheduleZoom zoom.gif ' $Sep = 0 ' EndIf ' If $User.ID != $Login.ID ' $ID = $User.ID ' $BgColor = #ffffff ' Inc $Sep ' EndIf ' Next
' If $LoginUser ' EndIf
...Personal Daily View...Group Daily View ...Group/Personal Monthly View

[Top Page] [Top Page] [Settings] [Help]