"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