if (select count(*) from syscolumn where column_name='Kamerierka' and
    table_id=(select table_id from systable where table_name='Rooms')) =0 then

alter table Rooms
add Kamerierka integer default 0;

end if;

go

if(not exists(select * from AdminGroups where Name='Kamerierki')) then
insert into DBA.AdminGroups values((select max(N) from AdminGroups)+1,'Kamerierki',1) end if

GO

if(not exists(select * from PermissionTags where TagNo=501))then
insert into DBA.PermissionTags values(501,500,'меню Камериерки')  end if

GO

alter view
  DBA.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 = 1) and
    (Guests.Status = 1) then 1 else 0 endif),
    RegDate=DBA.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
      dba.Registers as r where
      r.RegisterName = 'CleanPerDays')) <> 0 then '' else 'СБ' endif),
    ToDo=Clean+LeaveStat,
    LeaveDate=DBA.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 dba.Admin where AdminNo=Rooms.Kamerierka),
    LeaveStat=if LeaveDate = bvrData1 then 'З' else ' ' endif,
    IsReserve=Max(if RP.ReserveNo <> 0 then
      if(select Lr.Status from DBA.Reserve as Lr where Lr.ReserveNo = RP.ReserveNo) = 2 then null
      else 'Резервирана' endif else null endif),Note1='',Note2='' from dba.Book left outer join dba.Guests on Book.Guest = Guests.GuestNum,
    dba.Rooms left outer join dba.ReservePlan as RP on RP.FromDateDt = bvrData1 and Rooms.RoomNum = RP.RoomNo,
    dba.Rooms left outer join dba.Book on Rooms.RoomNum = Book.Room and
    Book.DateRegDt < bvrData1 and
    Days(Book.DateRegDt,Book.NumLodgings) >= bvrData1 and
    Book.NumLodgings > 0,
    dba.Guests left outer join dba.VIP on Guests.TipVip = VIP.N,
    dba.Guests,dba.Classes,dba.RoomStatus,dba.VIP,dba.Registers where
    Rooms.RoomCat = Classes.Class and
    Rooms.Status = RoomStatus.RoomStatusNo and
    Registers.RegisterName = 'Kamerierki'
    group by RoomNum,KamerierkaName
    
GO

if(not exists(select * from Relations where N=1920)) then
insert into DBA.Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Align,Sortirane,Shirina,DftLike,Autostretch,spravka)
values('v_Kamerierki','KamerierkaName','Камериерки','Камериерка','Chambermaids','KamerierkaName',2,1920,'KamerierkaName',0,0,150,0,0,1) end if


GO

if (select count(*) from Registers where RegisterName='ByReserveName')=0 then
 insert into DBA.Registers
 values('ByReserveName',
        0 ,
        'Ako e 1 pokazva na 4ie ime e rezerwaciqta v "planirane na rezervacii po nomera stai" i pokazva imenata na dnite ot sedmicata, ako e 0 pokazva nomera na rezervaciqta ')
        
        end if