IF (Exists(select Table_name from SysTable where LCase(Table_name)=LCase('v_OwnersRoomsSelected'))) THEN
  Drop view v_OwnersRoomsSelected
END IF
Go

CREATE VIEW v_OwnersRoomsSelected(ContractNo, OwnerNo, Owner_Name, GroupNo, RoomNo, st_Active)
AS SELECT
   c.ContractNo as ContractNo,
   o.OwnerN as OwnerNo,
   c.FullName as Owner_Name,
   c.GroupNo as GroupNo,
   o.Room as RoomNo,
   o."Active" as st_Active
from "dba".Contracts as c,"dba".OwnersRooms as o
where c.GroupNo=2
      and o.OwnerN=(select OwnerN from Owners where Owners.ContractN=c.ContractNo)
      
Go

Create variable Tag_ID integer;
Go

// nomer na Tag za MenuItem
Set Tag_ID = 5120;
Go

Delete from "DBA".PermissionTypes Where N=Tag_ID
Go

Insert Into "DBA".PermissionTypes Values(Tag_ID,'Въвежда стаи на собственици',1);
Go

Delete from "DBA".PermissionTags Where TagNo=Tag_ID
Go

Insert Into "DBA".PermissionTags Values(Tag_ID,Tag_ID,'Въвежда стаи на собственици');
Go

Delete from "DBA".Permissions Where PermissionNo=Tag_ID
Go

f1: for f1 as curs scroll cursor for
  Select N from AdminGroups
do
  if N > 0 then //bez VTD i POS
    if N=1 then Insert Into "DBA".Permissions Values(N,Tag_ID,0) //Admin
      else Insert Into "DBA".Permissions Values(N,Tag_ID,1) //ostanalite niamat prava
    end if;
  end if;
end for;
Go

Drop variable Tag_ID
//[07.August.2006] - Yanko