Код: Выделить всё
SET TERM ^ ;
CREATE PROCEDURE GET_NAME_PERIOD (
ID_PERIOD INTEGER)
RETURNS (
RESULT VARCHAR(16))
AS
BEGIN
SELECT
CASE CAST(SUBSTRING(:ID_PERIOD FROM 5 FOR 6) AS INTEGER)
WHEN 1 THEN 'Январь'
WHEN 2 THEN 'Февраль'
WHEN 3 THEN 'Март'
WHEN 4 THEN 'Апрель'
WHEN 5 THEN 'Май'
WHEN 6 THEN 'Июнь'
WHEN 7 THEN 'Июль'
WHEN 8 THEN 'Август'
WHEN 9 THEN 'Сентябрь'
WHEN 10 THEN 'Октябрь'
WHEN 11 THEN 'Ноябрь'
WHEN 12 THEN 'Декабрь'
ELSE 'Unknown'
END
|| '_' || SUBSTRING(:ID_PERIOD FROM 1 FOR 4) || ' г.'
FROM
RDB$DATABASE
INTO
:RESULT;
SUSPEND;
END^
SET TERM ; ^