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

FILTER_DESK_JOURNAL

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

(Нет входных параметров)

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

Описание

(Нет описания для процедуры FILTER_DESK_JOURNAL)

Определение

CREATE PROCEDURE FILTER_DESK_JOURNAL
RETURNS (
    ID INTEGER,
    NAME VARCHAR(60))
AS
declare variable I integer;
begin
  I = 1;

  for
    select STORAGEID, STORAGESHORTNAME
      from (select STORAGE.STORAGEID, STORAGE.STORAGESHORTNAME
              from STORAGE
              where (not (STORAGE.STORAGETYPEID in (10)))
            union
              select CLIENTS.STORAGEID, CLIENTS.CLIENTNAME
                from CLIENTS
              where (CLIENTS.STORAGEID is not null)
            )
  into :ID, :NAME

  do begin
    ID = I;
    I = I + 1;
    suspend;
  end
end