function ActionDate(
    aContractId in integer,
    aDate in date,
    aTypeDate in integer default 1
  ) return date
  is
    vResult date;
  begin
    if aTypeDate = 2 then
    (select OperDate into vResult from
    (select a.OperDate
      from BrsActions a
      where a.ContractID = aContractId
        and a.StornDate is Null
        and a.Operdate<aDate
      order by OperDate desc)
      where RowNum = 1; --???
    return vResult;) --???

    else aTypeDate = 1 then
    (select BalanceDate into vResult from
    (select o.BalanceDate
      from BrsOpers o
      inner join BrsActions a on (a.actionid = o.actionid)
      where a.ContractID = aContractId
        and a.StornDate is Null
        and o.BalanceDate<aDate
      order by BalanceDate desc)
      where RowNum = 1; --???
    return vResult;) --???
    end; 
  exception
    when NO_DATA_FOUND then
      return null;
  end;