if (select count(*) from PermissionTypes where N=5300)=0 then
insert into  PermissionTypes(N,Name,"Default")
             values(5300,'Права за разпределение на камериерки',1)
end if;

GO

if (select count(*) from PermissionTags where TagNo=5300)=0 then
insert into PermissionTags(TagNo,Type,Note)
            values(5300,5300,'')
end if;

GO

f1: for f1 as curs scroll cursor for
  Select N as @N from AdminGroups
do
  if @N > 0 then //bez VTD i POS
    if @N=1 then
        if (select count(*) from Permissions a where a.GroupNo=@N and a.PermissionNo=5300)=0 then
            Insert Into "DBA".Permissions Values(@N,5300,0); //Admin
        end if
      else
        if (select count(*) from Permissions a where a.GroupNo=@N and a.PermissionNo=5300)=0  then
          Insert Into "DBA".Permissions Values(@N,5300,1); //ostanalite niamat prava
        end if;
    end if;
  end if;
end for;


GO

IF (EXISTS (select Table_name from SysTable where LCase(Table_name)=LCase('v_Kamerierki'))) THEN
Drop View v_Kamerierki
END IF

GO

create view
  v_Kamerierki
  as select RoomType=Max(Classes.ShortName),
    RoomNum=Rooms.RoomNum,
    GuestNo=Min(Book.Guest),
    RoomStatus=Max(RoomStatus.Description),
    Elderly=Sum(if(Book.DateRegDt <= bvrData1) and
    (Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1) and
    (Guests.AdultType = 0) and
    (Guests.Status = 1) then 1 else 0 endif),
    Children=Sum(if(Book.DateRegDt <= bvrData1) and
    (Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1) and
    (Guests.AdultType > 0) and
    (Guests.Status = 1) then 1 else 0 endif),
    RegDate=GetLeaveArriveDate(1,GuestNo),
    DaysClean=max(Registers.IntStojnost),
    Clean=(if Mod("date"(bvrData1)-RegDate,DaysClean) <> 0 then ' ' else 'П,' endif),
    ChangeSheets=(if Mod("date"(bvrData1)-RegDate,(select Max(r.IntStojnost) from
      Registers as r where
      r.RegisterName = 'CleanPerDays')) <> 0 then '' else 'СБ' endif),
    ToDo=Clean+LeaveStat,
    LeaveDate=GetLeaveArriveDate(2,GuestNo),
    GuestName=Max(if(Book.DateRegDt <= bvrData1) and
    (Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1) then
      Guests.Name
    else null
    endif),VIP=Max(if(Book.DateRegDt <= bvrData1) and
    (Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1) then
      VIP.VipName else null endif),
    KamerierkaName=(select FullName from Admin where AdminNo=Rooms.Kamerierka),
    LeaveStat=if LeaveDate = bvrData1 then 'З' else ' ' endif,
    IsReserve=Max(if RP.ReserveNo <> 0 then
      if(select Lr.Status from Reserve as Lr where Lr.ReserveNo = RP.ReserveNo) = 2 then null
      else 'Резервирана' endif else null endif),Note1='',Note2='' from Book left outer join Guests on Book.Guest = Guests.GuestNum,
    Rooms left outer join ReservePlan as RP on RP.FromDateDt = bvrData1 and Rooms.RoomNum = RP.RoomNo,
    Rooms left outer join Book on Rooms.RoomNum = Book.Room and
    Book.DateRegDt < bvrData1 and
    Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1 and
    Book.NumLodgings > 0,
    Guests left outer join VIP on Guests.TipVip = VIP.N,
    Guests,Classes,RoomStatus,VIP,Registers where
    Rooms.RoomCat = Classes.Class and
    Rooms.Status = RoomStatus.RoomStatusNo and
    Registers.RegisterName = 'Kamerierki'
    group by RoomNum,KamerierkaName