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

OBJECTS_GET_FOLDERS

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

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

Описание

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

Определение

CREATE PROCEDURE OBJECTS_GET_FOLDERS(
    PARENTID INTEGER)
RETURNS (
    OBJID INTEGER,
    OBJPARENTID INTEGER,
    OBJNAME VARCHAR(31),
    CAPTION VARCHAR(51),
    OBJCLASSID INTEGER,
    OBJPARAMS VARCHAR(255))
AS
begin
  for
    select objid, objclassid, objname, caption, objparams
    from objects
    where objclassid = 2
    into :objid, :objclassid, :objname, :caption, :objparams
  do begin
    objparentid = :parentid;
    suspend;
    objparentid = :objid;
    for
      select objid, objclassid, objname, caption, objparams
      from objects_get_child(:objid)
      into :objid, :objclassid, :objname, :caption, :objparams
    do if (not (:objid is null)) then suspend;
  end
END