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

SILAGEPACKS_QUALITYCONTENT

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

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

Описание

--- Получение полного названия культуры в SilagePack или
соответствующего направления на мельзывод при помоле
по его QualityID

Определение

CREATE PROCEDURE SILAGEPACKS_QUALITYCONTENT(
    QUALITYID INTEGER,
    RECIPEID INTEGER)
RETURNS (
    CONTENT VARCHAR(100))
AS
declare variable CROPFULLNAME varchar(31);
declare variable RECIPEN varchar(31);
declare variable STORAGENAME varchar(31);
declare variable CLASSID integer;
begin
  if (RECIPEID is null) then
    execute procedure QUALITY_CROPFULLNAME_BYID :QUALITYID, 1 returning_values :CONTENT, :CLASSID;
  else begin
    select STORAGE.STORAGENAME, RECIPES.RECIPEN
      from RECIPES
        left join STORAGE on (STORAGE.STORAGEID = RECIPES.STORAGEID)
      where (RECIPES.RECIPEID = :RECIPEID)
    into :STORAGENAME, :RECIPEN;

    if (RECIPEN is not null) then
      CONTENT = 'п/п ' || RECIPEN;

    if (STORAGENAME is not null) then
      CONTENT = CONTENT || ' на:' || STORAGENAME;
  end

  suspend;
end