IF NOT (EXISTS(SELECT * FROM SYS.SYSCOLUMN AS SC, SYS.SYSTABLE AS ST WHERE SC.TABLE_ID=ST.TABLE_ID
               AND LCASE(ST.TABLE_NAME)=LCASE('HotelCharge') AND LCASE(SC.COLUMN_NAME)=LCASE('ReservedRooms')))
THEN
  Alter table HotelCharge add ReservedRooms int null;
END IF;

Go

IF NOT (EXISTS(SELECT * FROM SYS.SYSCOLUMN AS SC, SYS.SYSTABLE AS ST WHERE SC.TABLE_ID=ST.TABLE_ID
               AND LCASE(ST.TABLE_NAME)=LCASE('HotelCharge') AND LCASE(SC.COLUMN_NAME)=LCASE('DummyCol')))
THEN
  Alter table HotelCharge add DummyCol int default 0;
END IF;

Go

IF (EXISTS(Select * from sysprocedure where LCase(proc_name) = LCase('FillHotelChargeKontingent')))
  THEN Drop procedure FillHotelChargeKontingent
END IF

Go

Create procedure
  FillHotelChargeKontingent()
begin
  declare @FillDate date;
  declare @FromDate date;
  declare @ToDate date;
  declare @L integer;
  declare @UpdateRowN integer;
  //
  delete from HotelCharge where "Session" = bvrConnectID and N = 3;
  //zapalva s dati i roomtypes HotelCharge
  set @FromDate='1.' || bvrMesec || '.' || bvrYear;
  set @ToDate='28.' || bvrMesec || '.' || bvrYear;
  if bvrMesec in( 1,3,5,7,8,10,12) then
    set @ToDate='31.' || bvrMesec || '.' || bvrYear
  end if;
  if bvrMesec in( 4,6,9,11) then
    set @ToDate='30.' || bvrMesec || '.' || bvrYear
  end if;
  if bvrMesec = 2 then
    if(mod(bvrYear,4) = 0) and(mod(bvrYear,100) <> 0) then
      set @ToDate='29.' || bvrMesec || '.' || bvrYear
    end if
  end if;
  //
  set @FillDate=@FromDate;
  while @FillDate <= @ToDate loop
    set bvrData3=@FillDate;
   //-- message '---->>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Date=',bvrData3;
    
    for f1 as curs1 scroll cursor for
      select
        C.ContractNo as @ContractNo,
        C.ClassNo as @ClassNo,
        Cl.ShortName as @ShortName
      from
        Contingent as C,
        Classes as Cl
      where
        C.ClassNo = Cl.Class
    do
      insert into HotelCharge(N,DateCharge,RoomType,AvailRooms,StayingRooms,ArriveRooms,ReservedRooms,
                              ContractNo,"Session",RoomNo,DummyCol)
                       values(3,@FillDate,@ShortName,0,0,0,0,@ContractNo,bvrConnectID,@ClassNo,0)
    end for;

    for f2 as curs2 scroll cursor for
      select
        RoomClass as @RoomClass,
        ContractNo as @ContractNo,
        count(Room) as @Counter,
        max(ClassID) as @ClassID
      from
        v_BusyBookRoomsForData3
      group by
        RoomClass,
        ContractNo
      order by
        RoomClass asc
    do
      --message '---- ',@RoomClass,'  ',@Counter type info to console;
      insert into HotelCharge(N,DateCharge,RoomType,AvailRooms,StayingRooms,ArriveRooms,ReservedRooms,
                              ContractNo,"Session",RoomNo,DummyCol)
                       values(3,@FillDate,@RoomClass,0,@Counter,0,0,@ContractNo,bvrConnectID,@ClassID,1) ;
      set @L=@L
    end for;
    
    -- резервирани стаи
    for f3 as curs3 scroll cursor for
      select
        RP.RoomClass as @ClassID,
        C.ContractNo as @ContractNo,
        CL.ShortName as @RoomClass,
        count(*) as @Counter2
      from
        Reserve as R,
        ReservePlan as RP,
        Contracts as C,
        Classes as CL
      where
        R.ReserveNo = RP.ReserveNo
        and C.ContractNo = R.ContractNo
        and RP.RoomClass = CL.Class
        and C.GroupNo = 0
        and C.Active = 1
        and RP.Status = 1
        and RP.FromDateDt <= @FillDate
        and @FillDate <= RP.FromDateDt+RP.NumDays
      group by
        C.ContractNo,
        RP.RoomClass,
        CL.ShortName
      order by
        RoomClass asc
    do
      message '>>>>>>>>>>>>>>>>>>>>>>>>>  @FillDate='||@FillDate;
      update HotelCharge set ReservedRooms = @Counter2 where DateCharge=@FillDate and RoomNo=@ClassID
         and ContractNo = @ContractNo and "Session"=bvrConnectID and DummyCol=1;
    end for;
    
    set @FillDate=@FillDate+1
  end loop
end
--[v.1 18.Aug.2001]
--[v.2 11.Sep.2001] - Niki - dobaven e Kontingenta - ot tabl. Contingent
--[v.3 22.Mar.2007] - Yanko - dobaven broi rezervirani stai po turoperator

Go

IF (EXISTS(Select * from systable where LCase(table_name) = LCase('v_HotelChargeKontingentReserv')))
  THEN Drop View v_HotelChargeKontingentReserv
END IF

Go

Create View
  v_HotelChargeKontingentReserv
As Select
  RoomType,
  ContractName=MAX(Contracts.FullName),
  Broj=max(if Contingent.Qty is null then 0 else Contingent.Qty endif),
  __1=SUM(if Day(DateCharge) = 1 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _1=string(__1,'/',(if __1-Broj > 0 then '+' else '' endif),__1-Broj),
  __2=SUM(if Day(DateCharge) = 2 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _2=string(__2,'/',(if __2-Broj > 0 then '+' else '' endif),__2-Broj),
  __3=SUM(if Day(DateCharge) = 3 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _3=string(__3,'/',(if __3-Broj > 0 then '+' else '' endif),__3-Broj),
  __4=SUM(if Day(DateCharge) = 4 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _4=string(__4,'/',(if __4-Broj > 0 then '+' else '' endif),__4-Broj),
  __5=SUM(if Day(DateCharge) = 5 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _5=string(__5,'/',(if __5-Broj > 0 then '+' else '' endif),__5-Broj),
  __6=SUM(if Day(DateCharge) = 6 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _6=string(__6,'/',(if __6-Broj > 0 then '+' else '' endif),__6-Broj),
  __7=SUM(if Day(DateCharge) = 7 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _7=string(__7,'/',(if __7-Broj > 0 then '+' else '' endif),__7-Broj),
  __8=SUM(if Day(DateCharge) = 8 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _8=string(__8,'/',(if __8-Broj > 0 then '+' else '' endif),__8-Broj),
  __9=SUM(if Day(DateCharge) = 9 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _9=string(__9,'/',(if __9-Broj > 0 then '+' else '' endif),__9-Broj),
  __10=SUM(if Day(DateCharge) = 10 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _10=string(__10,'/',(if __10-Broj > 0 then '+' else '' endif),__10-Broj),
  __11=SUM(if Day(DateCharge) = 11 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _11=string(__11,'/',(if __11-Broj > 0 then '+' else '' endif),__11-Broj),
  __12=SUM(if Day(DateCharge) = 12 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _12=string(__12,'/',(if __12-Broj > 0 then '+' else '' endif),__12-Broj),
  __13=SUM(if Day(DateCharge) = 13 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _13=string(__13,'/',(if __13-Broj > 0 then '+' else '' endif),__13-Broj),
  __14=SUM(if Day(DateCharge) = 14 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _14=string(__14,'/',(if __14-Broj > 0 then '+' else '' endif),__14-Broj),
  __15=SUM(if Day(DateCharge) = 15 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _15=string(__15,'/',(if __15-Broj > 0 then '+' else '' endif),__15-Broj),
  __16=SUM(if Day(DateCharge) = 16 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _16=string(__16,'/',(if __16-Broj > 0 then '+' else '' endif),__16-Broj),
  __17=SUM(if Day(DateCharge) = 17 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _17=string(__17,'/',(if __17-Broj > 0 then '+' else '' endif),__17-Broj),
  __18=SUM(if Day(DateCharge) = 18 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _18=string(__18,'/',(if __18-Broj > 0 then '+' else '' endif),__18-Broj),
  __19=SUM(if Day(DateCharge) = 19 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _19=string(__19,'/',(if __19-Broj > 0 then '+' else '' endif),__19-Broj),
  __20=SUM(if Day(DateCharge) = 20 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _20=string(__20,'/',(if __20-Broj > 0 then '+' else '' endif),__20-Broj),
  __21=SUM(if Day(DateCharge) = 21 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _21=string(__21,'/',(if __21-Broj > 0 then '+' else '' endif),__21-Broj),
  __22=SUM(if Day(DateCharge) = 22 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _22=string(__22,'/',(if __22-Broj > 0 then '+' else '' endif),__22-Broj),
  __23=SUM(if Day(DateCharge) = 23 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _23=string(__23,'/',(if __23-Broj > 0 then '+' else '' endif),__23-Broj),
  __24=SUM(if Day(DateCharge) = 24 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _24=string(__24,'/',(if __24-Broj > 0 then '+' else '' endif),__24-Broj),
  __25=SUM(if Day(DateCharge) = 25 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _25=string(__25,'/',(if __25-Broj > 0 then '+' else '' endif),__25-Broj),
  __26=SUM(if Day(DateCharge) = 26 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _26=string(__26,'/',(if __26-Broj > 0 then '+' else '' endif),__26-Broj),
  __27=SUM(if Day(DateCharge) = 27 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _27=string(__27,'/',(if __27-Broj > 0 then '+' else '' endif),__27-Broj),
  __28=SUM(if Day(DateCharge) = 28 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _28=string(__28,'/',(if __28-Broj > 0 then '+' else '' endif),__28-Broj),
  __29=SUM(if Day(DateCharge) = 29 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _29=string(__29,'/',(if __29-Broj > 0 then '+' else '' endif),__29-Broj),
  __30=SUM(if Day(DateCharge) = 30 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _30=string(__30,'/',(if __30-Broj > 0 then '+' else '' endif),__30-Broj),
  __31=SUM(if Day(DateCharge) = 31 then(StayingRooms+ArriveRooms+ReservedRooms) else 0 endif),
  _31=string(__31,'/',(if __31-Broj > 0 then '+' else '' endif),__31-Broj) 
from
  HotelCharge,
  Contracts,
  Contingent
where
  "Session" = bvrConnectID
  and N = 3
  and HotelCharge.ContractNo = Contracts.ContractNo
  and HotelCharge.ContractNo *= Contingent.ContractNo
  and RoomNo *= Contingent.ClassNo
  and Contracts.GroupNo = any(select ShowType from dba.GrContracts where GrNo = -1)
group by 
  RoomType,
  HotelCharge.ContractNo
--[v.1 22.Mar.07] - Yanko, prerabotena ot v_HotelChargeKontingent

Go

Delete from Relations where lcase(TableName) = lcase('v_HotelChargeKontingentReserv')

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_HotelChargeKontingentReserv','__Options__','Контингент по туроператори с резервации','__Options__','Контингент по туроператори с резервации','__Options__',1,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'__Options__','','',0,0,'','','Printer.Orientation=1','call FillHotelChargeKontingent',80,'',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_HotelChargeKontingentReserv','bvrMesec','Контингент по туроператори с резервации','Месец','Контингент по туроператори с резервации','Месец',2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'bvrMesec','','',0,0,1,1,'','select bvrMesec',60,'',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_HotelChargeKontingentReserv','bvrYear','Контингент по туроператори с резервации','Година','Контингент по туроператори с резервации','Година',2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'bvrYear','','',0,0,1,1,'','select bvrYear',60,'',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_HotelChargeKontingentReserv','RoomType','Контингент по туроператори с резервации','Тип стая','Контингент по туроператори с резервации','Тип стая',2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'RoomType','','',0,0,'','','select ShortName from Classes','',40,'',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_HotelChargeKontingentReserv','ContractName','Контингент по туроператори с резервации','Договор','Контингент по туроператори с резервации','Договор',2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'ContractName','','',0,1,'','','select FullName from Contracts','',120,'',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_HotelChargeKontingentReserv','_1','Контингент по туроператори с резервации',1,'Контингент по туроператори с резервации',1,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_1)','Sum(qrData.1)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_2','Контингент по туроператори с резервации',2,'Контингент по туроператори с резервации',2,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_2)','Sum(qrData.2)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_3','Контингент по туроператори с резервации',3,'Контингент по туроператори с резервации',3,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_3)','Sum(qrData.3)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_4','Контингент по туроператори с резервации',4,'Контингент по туроператори с резервации',4,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_4)','Sum(qrData.4)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_5','Контингент по туроператори с резервации',5,'Контингент по туроператори с резервации',5,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_5)','Sum(qrData.5)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_6','Контингент по туроператори с резервации',6,'Контингент по туроператори с резервации',6,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_6)','Sum(qrData.6)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_7','Контингент по туроператори с резервации',7,'Контингент по туроператори с резервации',7,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_7)','Sum(qrData.7)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_8','Контингент по туроператори с резервации',8,'Контингент по туроператори с резервации',8,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_8)','Sum(qrData.8)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_9','Контингент по туроператори с резервации',9,'Контингент по туроператори с резервации',9,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_9)','Sum(qrData.9)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_10','Контингент по туроператори с резервации',10,'Контингент по туроператори с резервации',10,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_10)','Sum(qrData.10)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_11','Контингент по туроператори с резервации',11,'Контингент по туроператори с резервации',11,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_11)','Sum(qrData.11)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_12','Контингент по туроператори с резервации',12,'Контингент по туроператори с резервации',12,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_12)','Sum(qrData.12)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_13','Контингент по туроператори с резервации',13,'Контингент по туроператори с резервации',13,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_13)','Sum(qrData.13)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_14','Контингент по туроператори с резервации',14,'Контингент по туроператори с резервации',14,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_14)','Sum(qrData.14)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_15','Контингент по туроператори с резервации',15,'Контингент по туроператори с резервации',15,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_15)','Sum(qrData.15)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_16','Контингент по туроператори с резервации',16,'Контингент по туроператори с резервации',16,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_16)','Sum(qrData.16)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_17','Контингент по туроператори с резервации',17,'Контингент по туроператори с резервации',17,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_17)','Sum(qrData.17)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_18','Контингент по туроператори с резервации',18,'Контингент по туроператори с резервации',18,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_18)','Sum(qrData.18)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_19','Контингент по туроператори с резервации',19,'Контингент по туроператори с резервации',19,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_19)','Sum(qrData.19)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_20','Контингент по туроператори с резервации',20,'Контингент по туроператори с резервации',20,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_20)','Sum(qrData.20)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_21','Контингент по туроператори с резервации',21,'Контингент по туроператори с резервации',21,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_21)','Sum(qrData.21)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_22','Контингент по туроператори с резервации',22,'Контингент по туроператори с резервации',22,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_22)','Sum(qrData.22)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_23','Контингент по туроператори с резервации',23,'Контингент по туроператори с резервации',23,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_23)','Sum(qrData.23)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_24','Контингент по туроператори с резервации',24,'Контингент по туроператори с резервации',24,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_24)','Sum(qrData.24)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_25','Контингент по туроператори с резервации',25,'Контингент по туроператори с резервации',25,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_25)','Sum(qrData.25)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_26','Контингент по туроператори с резервации',26,'Контингент по туроператори с резервации',26,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_26)','Sum(qrData.26)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_27','Контингент по туроператори с резервации',27,'Контингент по туроператори с резервации',27,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_27)','Sum(qrData.27)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_28','Контингент по туроператори с резервации',28,'Контингент по туроператори с резервации',28,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_28)','Sum(qrData.28)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_29','Контингент по туроператори с резервации',29,'Контингент по туроператори с резервации',29,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_29)','Sum(qrData.29)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_30','Контингент по туроператори с резервации',30,'Контингент по туроператори с резервации',30,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_30)','Sum(qrData.30)','',1,0,'','','','',32,'',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_HotelChargeKontingentReserv','_31','Контингент по туроператори с резервации',31,'Контингент по туроператори с резервации',31,2,GetFreeNInRelations('Контингент по туроператори с резервации', Null, Null, 10),'Sum(_31)','Sum(qrData.31)','',1,0,'','','','',32,'',0,0,1,today())

Go

delete from InformPermission where RelationN=(
select N from Relations where TableName='v_HotelChargeKontingentReserv'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_HotelChargeKontingentReserv'and ColName='__OPTIONS__'  ),GrNo,1);
  end if;
end for;