"localhost:/firebird/data/ILICHEVSK2.FDB". ���������

QUALITY_SELECT_VALUES

������� ���������

�������� ���������

��������

����� �������� ��� ��������

�����������

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