unit UPSTType;{v0.22}
interface
uses
  UlanType, ULRecTyp;{ULanRECs.LST}

const
  UPSTID = ord('U') + 256*ord('P') + 256*256*ord('S') + 256*256*256*ord('T');

type
  TUPSTRec = packed record {<Caption="Program Step" Enabled=1 Visible=1
    ChildRecIDs=UPAVID,UPACID,UPEXID
    Uses=UPAVType,UPACType,UPEXType,UPAPType,UPEPType
    HasRecName=1>}
    Head: TULRecHead;
    Info: TULRecInfo;
    StepName: TULPrgStepName;{<Enabled=1 Caption="Step Name">}
    Time: TULPrgTime;{<Enabled=1 Caption="Time [min]">}
      { at what prgtime the step should take place,
        if 0 (and not the first step), then as soon as the
        previous step finished }
    Duration: TULPrgTime;{<Enabled=1 Caption="Duration [min]">}
      { how long the step should be the active one (if  0
        set, then until next step's time becomes <= channel time}
    ActionsName: TULPrgActionsName;{<Enabled=1 Caption="Actions Name"
      Type=ULEnum ValuesSourceRecID=UPAPID>}
      {ulndtype }
      { if empty, check if has some child action recs, if none, does nothing,
        if non empty, scans the whole Program for the actions set of this name
        and calls it }
    CondsName: TULPrgExpsName;{<Enabled=1 Caption="Conditions Name"
      Type=ULEnum ValuesSourceRecID=UPEPID>}
      { under which conditions should the action be called, if none then
        checks if have some childs condition recs, if none then always  }
  end;
  PUPSTRec = ^TUPSTRec;

implementation

end.
