Параметр ОКУ типа "Текст"

CREATE FUNCTION COMMON.TextFromParObj 
   ( 
   @nKodKli INTEGER,
      @nKodParObj INTEGER
   )
   RETURNS MEMO
DESCRIPTION 'Функция возвращает строку как значение текстового параметра (TYP=15)

(c) Dr.Sydorenko, 2017'
BEGIN
DECLARE @Result  Memo;
DECLARE @cursor  cursor;

OPEN @cursor AS  SELECT comment FROM INTRADOC WHERE kodkli=@nKodKli AND kodcall=@nKodParObj AND type=-5;
IF FETCH @cursor THEN
   @Result = @cursor.comment;
ELSE
   @Result = NULL;
ENDIF;
CLOSE @cursor;

RETURN @Result;



END;