"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