QUALITY_SELECT

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

QUALITY_SELECT_VALUES

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

Параметр	Тип	Описание
QUALITYTYPEID	INTEGER
QUALITYVALUE	INTEGER
USEFULLNAME	INTEGER

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

Параметр	Тип	Описание
SELECTVALUE	VARCHAR(255)

Описание

Выбор значений для качества

Определение

CREATE PROCEDURE QUALITY_SELECT_VALUES(
    QUALITYTYPEID INTEGER,
    QUALITYVALUE INTEGER,
    USEFULLNAME INTEGER)
RETURNS (
    SELECTVALUE VARCHAR(255))
AS
declare variable SHORTVALUE varchar(100);
begin
  select QUALITYTYPEVALUES.QUALITYNAME, QUALITYTYPEVALUES.QUALITYSHORTNAME
    from QUALITYTYPEVALUES
    where (QUALITYTYPEVALUES.QUALITYTYPEID = :QUALITYTYPEID)
      and (QUALITYTYPEVALUES.QUALITYVALUE = :QUALITYVALUE)
  into :SELECTVALUE, :SHORTVALUE;

  if (:USEFULLNAME <> 1) then
    SELECTVALUE = :SHORTVALUE;

  suspend;
end