' $System.Access Login ' If $System.IsPost ' $Command.ToDo.Finish ' Init $BPage = ToDoIndex ' $System.Redirect $Server?page=$BPage&sort=$Sort ' Exit ' EndIf $Office.Name - ToDo List ' Init $Sort = name ' $UID = $Login.ID
$Login.Name $_Login.Mail.MailTo [Register a ToDo Item] [Completed ToDo Records]
' $Login.ToDo.Items.Sort = $Sort
' Elif $Sort = priority ' Else ' EndIf ' $BPage = ToDoIndex ' For Each $Item in $Login.ToDo.Items ' If ! $Item.Finish or ($Item.EndDate = $Date) ' If ($Sort = name) and $Item.Category and ($Category != $Item.Category) ' $Category = $Item.Category ' EndIf ' $Color = #0000ff ' If ($Item.LimitDate = $Date) or ($Item.LimitDate = $Date.NextDay) or $Item.Late ' $Color = #ff0000 ' EndIf ' If $Item.Share ' Else ' EndIf ' If $Sort != name ' EndIf ' EndIf ' Next
Completion ' If $Sort = limit ToDo NameM.M.A. Status Category Deadline Priority ToDo NameM.M.A. Status Category Deadline PriorityToDo NameM.M.A. Status Deadline Priority
Category: $Item.Category
$_Item.SSet$$Item.Name$$_Item.SEnd $Item.Group (Group-Shared)$Item.Group $Item.Category$_Item.SSet$$_Item.BSet$ $Item.LimitDate.Day $Item.LimitDate.month, $Item.LimitDate.Year $_Item.BEnd$$_Item.SEnd \\ ' For $i = 1 to $Item.Priority *\\ ' Next
' If $Login.ToDo.Items.Count the checked ToDo item(s). ' EndIf

Note: M.M.A. indicates Multiple-Member Assignment.

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