"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

USERS_GETID

Входные параметры

Выходные параметры

Описание

Получения ID пользователя по имени

Определение

CREATE PROCEDURE USERS_GETID(
    USERNAME VARCHAR(38))
RETURNS (
    USERID INTEGER)
AS
declare variable UNAME varchar(31);
begin
  if ((USERNAME = '') or (USERNAME is null)) then
    UNAME = current_user;
  else UNAME = USERNAME;

  select USERS.USERID
    from USERS
    where (upper(USERS.LOGIN) = upper(:UNAME))
  into :USERID;

  suspend;
end