' $System.Access Read Schedule $Office.Name - Schedule Monthly View ' Init $GID = $Groups.Head ' Init $ID = 0 ' If $ID ' Set $User = $Users.$ID ' Else ' Set $User = $Groups.$GID ' EndIf
$User.Name $_User.Mail.MailTo $Date.MONTH, $Date.Year Previous Month This Month Next Month
' If ! $Schedule.Sunday ' EndIf ' If $Schedule.Sunday ' $System.Month.Day = 1 ' EndIf ' Set $Calendar = $User.Schedule.Calendar ' Set $Calendar.Share = $Schedule.Calendar ' $Calendar.UID = $User.ID ' Set $Banner = $User.Schedule.Banner ' $System.Holiday = $Schedule.Holiday ' For Each $MDate in $System.Month ' $Banner.SetDate = $MDate ' $System.Week.Date = $MDate ' For Each $WDate in $System.Week ' $RowSpan = "" ' If ! $Banner.$WDate ' $RowSpan = "rowspan=2" ' EndIf ' If $WDate.IsToday ' Next ' For Each $WDate in $System.Week ' Set $b = $Banner.$WDate ' If $b.Span ' EndIf ' Next ' Next
SunMon Tue Wed Thu Fri SatSun
$WDate.Day
' Elif $WDate.Month != $Date.Month 		$WDate.Day
' Elif $Schedule.Holiday and $Holidays.$WDate 		$WDate.Day $Holidays.$WDate.Name
' Else 		$WDate.Day
' EndIf ' Set $s = $Calendar.$WDate ' $s.EndTime = $Schedule.EndTime ' For Each $e in $s ' If ! $e.Private or ($ID = $Login.ID) $_e.Time12$ $e.Title$$e.Regular$$e.Shared
' EndIf ' Next
$b.Title
' $System.Year.Top = 1 ' For Each $YDate in $System.Year ' If $YDate.Month = $Date.Month ' EndIf ' Next
$YDate.month ' Else $YDate.monthPrevious Year $Date.Year Next Year

[Weekly View from $Date.Day $Date.month] [Top Page] [Help]