IF (EXISTS(Select * from sys.systable where LCase(table_name) = LCase('v_ArrivingForDate')))
THEN Drop view v_ArrivingForDate
END IF

GO

create view
 v_ArrivingForDate
as select GuestNum=Guests.GuestNum,
    GuestName=Guests.Name,
    --Maria
    --RoomNum=Bk1.Room,
    RoomNum=R.RoomName,
    --Maria
    ArriveDate=BK2.ArriveDate,
    LeaveDate=BK2.LeaveDate,
    Country=Countries.Description,
    Admin=a.FullName,
    Agent=c.ShortName,
    InvNo=null,
    VaucherNo=Guests.VaulcherNo from
    DBA.Book as BK1,dba.v_ArriveStayLeaveGuestBook as BK2,DBA.Guests,dba.DayRates,
    --Maria
    dba.Rooms as R,
    --Maria
    dba.Currencies,dba.Countries,dba.Admin as a,dba.Contracts as c where
    --Maria
    BK1.Room = R.RoomNum and
    --Maria
    BK1.Guest = Guests.GuestNum and
    BK2.GuestNum = Guests.GuestNum and
    BK1.KodCurrency = Currencies.KodCurrency and
    BK1.Staying = 1 and bvrData1 >= BK1.DateRegDt and bvrData1 < Days(BK1.DateRegDt,BK1.NumLodgings) and
    DayRates.DateDt = bvrData1 and
    DayRates.KodCurrency = BK1.KodCurrency and
    Guests.NativeCountry = Countries.CountryKod and
    BK1.KodAdmin = a.AdminNo and
    BK2.ArriveDate = bvrData1 and
    Guests.Contract = c.ContractNo

      -- v [30.10.2009] Milko premahnati 2 koloni za MON i edin Union

    go
    
    
    Delete from Relations where lcase(RelationTable) = lcase('Arrive guests per date')

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','__OPTIONS__','Настанени студенти за дата','__OPTIONS__','Arrive guests per date','__OPTIONS__',1,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'__OPTIONS__','','',0,0,'','','','',1,'',0,0,1,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','bvrdata1','Настанени студенти за дата','Дата прист','Arrive guests per date','Date',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'bvrdata1','','',1,0,1,1,'','select date(now())',80,'',0,0,0,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','LeaveDate','Настанени студенти за дата','Дата напуск','Arrive guests per date','LeaveDate',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'LeaveDate','','',1,0,'','','','',80,'',0,0,0,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','GuestName','Настанени студенти за дата','Гост','Arrive guests per date','Guest',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'GuestName','','',0,0,'','','select "Name" from Guests','',150,'',0,0,0,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','Country','Настанени студенти за дата','Държава','Arrive guests per date','Country',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'Country','','',1,0,'','','','',100,'',0,0,0,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','RoomNum','Настанени студенти за дата','Стая No','Arrive guests per date','Room #',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'RoomNum','','',1,1,'','','select RoomName from Rooms where Status <> 1 and Status <> 3','',80,'',0,0,0,today())

Go

INSERT INTO Relations(TableName,ColName,BGTableName,BGColName,RelationTable,RelationCol,SelectCol,N,Function,Suma,Mask,Align,Sortirane,Zadaljitelna,Promenliva,FilterList,DftFilter,Shirina,Opisanie,DftLike,AutoStretch,Spravka,PoslData)
VALUES('v_ArrivingForDate','Admin','Настанени студенти за дата','Админ','Arrive guests per date','Admin',2,GetFreeNInRelations('Arrive guests per date', Null, Null, 10),'Admin','','',1,0,'','','','',150,'',0,0,0,today())

Go

delete from InformPermission where RelationN=(
select N from Relations where TableName='v_ArrivingForDate'and ColName='__OPTIONS__')

Go

f1: for f1 as curs scroll cursor for select grNo=N from AdminGroups do
  if grNo <> 0 then
    insert into InformPermission(N,RelationN,AdminGroupNo,Stoinost)
    values((select MAX(N+1) from InformPermission),(select N from Relations where TableName='v_ArrivingForDate'and ColName='__OPTIONS__'  ),GrNo,1);
  end if;
end for;