unit ULTEType;
interface
uses
  UlanType, ULRecTyp;{ULREC.LST}

const
  ULTEID = ord('U') + 256*ord('L') + 256*256*ord('T') + 256*256*256*ord('E');
{ulttype}
type
  TULTERec = packed record {<Caption="ToDo Event" Enabled=1 Visible=1
    SortExp=Priority SortedByNumber=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    Priority: integer;
    OriginName: string;
      {who created the event}
    Title: string;
      {short description of the event}
    Desc: string;
      {long description of the event}
    ExpectedToComplete: TDateTime;
      {want to be done at this date/time}
    Completed: TDateTime;
      {when the event was done}
  end;
  PULTERec = ^TULTERec;

implementation

end.
