BEGIN
IF (:ABusProjectWithChildren IN ('1', 'A')) THEN BEGIN
/* vcetne podrizenych */
SELECT COUNT(*)
FROM BusProjects Bx
WHERE ((Bx.ID = :ABusProject_ID) OR ((:ABusProjectWithNull IN ('1', 'A')) and (:ABusProject_ID is null))) AND (Bx.Hidden = 'N') AND
( (Bx.ID in (select OBJ_ID from SELDAT where SEL_ID = :ABusProjectSel_ID)) OR
(Bx.ID in (select ID from SYS$BusProjects2 where Superior_ID in (select OBJ_ID from SELDAT where SEL_ID = :ABusProjectSel_ID))) )
INTO :ABoolResult;
END
ELSE BEGIN
/* pouze za ty vybrane bez podrizenych */
SELECT COUNT(*)
FROM BusProjects Bx
WHERE ((Bx.ID = :ABusProject_ID) OR ((:ABusProjectWithNull IN ('1', 'A')) and (:ABusProject_ID is null))) AND (Bx.Hidden = 'N') AND (Bx.ID in (select OBJ_ID from SELDAT where SEL_ID = :ABusProjectSel_ID))
INTO :ABoolResult;
END
END;