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

OBJECTS_GET_PARENTS

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

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

Описание

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

Определение

CREATE PROCEDURE OBJECTS_GET_PARENTS(
    CHILDOBJID INTEGER)
RETURNS (
    OBJID INTEGER,
    OBJPARENTID INTEGER,
    OBJNAME VARCHAR(31),
    CAPTION VARCHAR(51),
    OBJCLASSID INTEGER,
    OBJPARAMS VARCHAR(255))
AS
begin
  for
    SELECT objects.objid, objects.objclassid, objects.objname, objects.caption, objects.objparams
    from objrelations
      left join objects on (objects.objid = objrelations.parentobjid)
    where objrelations.objid = :childobjid
    order by objrelations.objrelationid
    into :objid, :objclassid, :objname, :caption, :objparams
  do begin
    ObjParentID = :childobjid;
    suspend;
    if (:objclassid = 2) then begin
      ObjParentID = :objid;
      for
        select objid, objclassid, objname, caption, objparams
        from objects_get_parents(:objid)
        into :objid, :objclassid, :objname, :caption, :objparams
      do if (not(:objid is null)) then suspend;
    end
  end
end