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

USERS_SHORTNAME

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

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

Описание

Доделать - Краткое имя пользователя

Определение

CREATE PROCEDURE USERS_SHORTNAME(
    USERID INTEGER)
RETURNS (
    USERSHORTNAME VARCHAR(50))
AS
DECLARE VARIABLE USERNAME VARCHAR(30) CHARACTER SET WIN1251;
DECLARE VARIABLE USERMIDDLENAME VARCHAR(30);
DECLARE VARIABLE USERLASTNAME VARCHAR(30);
begin
  UserShortName = '';
  select Users.UserName,  Users.UserMiddleName, Users.UserLastName from users
  where UserID = :UserID
  into :UserName,  :UserMiddleName, :UserLastName;
  UserShortName = Coalesce(:UserLastName || ' ', '')
                  || Coalesce(Substring(:UserName from 1 for 1) || '.', '')
                  || Coalesce(Substring(:UserMiddleName from 1 for 1) || '.', '');
  suspend;
end