IF (Not EXISTS(select * from sys.syscolumn as C, sys.systable as T
where LCase(T.table_name) = LCase('ServiceCredits') and LCase(C.column_name) = LCase('RealDateTime') and C.table_id=T.table_id)) THEN
  alter table ServiceCredits add RealDateTime DateTime
END IF

GO

IF (Not EXISTS(select * from sys.syscolumn as C, sys.systable as T
where LCase(T.table_name) = LCase('Book') and LCase(C.column_name) = LCase('RealDateTime') and C.table_id=T.table_id)) THEN
  alter table Book add RealDateTime DateTime
END IF

GO

IF (EXISTS(Select * from sys.systrigger where LCase(trigger_name) = LCase('Trig_ServiceCredits_InsRealDateTime')))
THEN Drop trigger Trig_ServiceCredits_InsRealDateTime
END IF

GO

create trigger Trig_ServiceCredits_InsRealDateTime after insert order 5 on
DBA.ServiceCredits
referencing new as ServiceNew
for each row 
begin
   update ServiceCredits set RealDateTime = (select current date + current time) where CreditNo=ServiceNew.CreditNo;
end

GO

IF (EXISTS(Select * from sys.systrigger where LCase(trigger_name) = LCase('Trig_Book_InsRealDateTime')))
THEN Drop trigger Trig_Book_InsRealDateTime
END IF

GO

create trigger Trig_Book_InsRealDateTime after insert order 3 on
DBA.Book
referencing new as NewReg
for each row 
begin
   update Book set RealDateTime = (select current date + current time) where RegNum=NewReg.RegNum;
end

GO

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

GO

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

GO

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

GO

create view DBA.v_RegBaseServicesPeriod( RegDate, RealDateTime,
  GuestName,
  Account,
  RoomNo,
  Service,
  ServicesNum,
  ServiceSngPrice,
  AllSum,
  Dogovor,
  Plateni) 
  as select RegDate=DateRegDt, RealDateTime=RealDateTime,
    GuestName=Guests.Name,
    Account=BK.Guest,
    RoomNo=BK.Room,Service='Нощувка и застраховка',
    ServicesNum=DBA.DateIntersection(bvrData1,bvrData2,DateRegDt,Days(DateRegDt,NumLodgings)),
    ServiceSngPrice=Currencies.ExchangeRate*BK.Price,
    AllSum=ServicesNum*ServiceSngPrice,
    Dogovor=Contracts.ShortName,
    -- Plateni=null
    Plateni=BK.PayedLodgings*BK.Price from
    DBA.Book as BK,dba.Guests,DBA.Currencies,DBA.Contracts where
    Guests.GuestNum = BK.Guest and Guests.Contract = Contracts.ContractNo and
    Contracts.GroupNo = any(select ShowType from dba.GrContracts where GrNo = -1) and
    BK.KodCurrency = Currencies.KodCurrency and
    Guests.Status <> 0 and ServicesNum <> 0
// 04.August.2006 - Yanko - променено Plateni, за да се показва в Регистрирани услуги
// 21.December.2007 - Maria - добавена колоната RealDateTime

GO

create view
  DBA.v_RegServicesPeriod
  as select RegDate=DateCreditDt,
  /*Maria +, 1728*/
     RealDateTime=ServiceCredits.RealDateTime,
  /*Maria -*/
    GuestName=Guests.Name,
    Account=Guests.GuestNum,
    RoomNo=v_ArriveStayLeaveGuestBook.LastRoom,
    Service=Services.ServiceName,
    ServiceNo=Services.ServiceNo,
    ServicesNum=ServiceCredits.NumberServices,
    /*ServiceSngPrice=if ServiceCredits.KodCurrency=2 then DayRates.ExchangeRate*ServiceCredits.SumCredit
    else ServiceCredits.SumCredit endif, */
    ServiceSngPrice=(if(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1) then(select SpaCurrencies.ExchangeRate from DBA.SpaCurrencies where ServiceCredits.KodCurrency = SpaCurrencies.KodCurrency) else Currencies.ExchangeRate endif)*ServiceCredits.SumCredit,
    AllSum=ServiceCredits.NumberServices*ServiceSngPrice,
    Plateni=ServiceCredits.PayedServices*ServiceSngPrice,
    Dogovor=Contracts.ShortName,
    Admin=Admin.ShortName from
    DBA.ServiceCredits left outer join DBA.Admin on ServiceCredits.KodAdmin = Admin.AdminNo,
    DBA.Services,
    DBA.Guests,
    DBA.Currencies,
    DBA.v_ArriveStayLeaveGuestBook,
    DBA.Contracts where
    ServiceCredits.Service = Services.ServiceNo and
    ServiceCredits.KodCurrency = Currencies.KodCurrency and
    ServiceCredits.DateCreditDt >= bvrData1 and ServiceCredits.DateCreditDt <= bvrData2 and
    ServiceCredits.NumberServices <> 0 and Guests.Contract = Contracts.ContractNo and
    Contracts.GroupNo = any(select ShowType from dba.GrContracts where GrNo = -1) and
    ServiceCredits.GuestNo = Guests.GuestNum and
    v_ArriveStayLeaveGuestBook.GuestNum = Guests.GuestNum and
    ((ServiceCredits.SPaReservationFk = -1) or(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1))

GO

create view
  /*SQL-1003-0002689930*/
  DBA.v_Services
  as select Account=g.GuestNum,
    ServiceDate=DATEFORMAT(sc.DateCreditDt,'DD.MM.YYYY'),
  /*Maria +, 1728*/
    ServiceDateTime=sc.RealDateTime,
  /*Maria -*/
    Service=s.ServiceName,
    GuestName=g.Name,
    Country=Countries.Description,
    Agent=Contracts.ShortName,
    PayedSum=sc.PayedServices*sc.SumCredit,
    Balance=(sc.PayedServices-sc.NumberServices)*sc.SumCredit,
    AdminName=Admin.ShortName,
    Room=ASL.LastRoom,
    Currency=(if(sc.SPaReservationFk <> -1 and sc.SpaTransferFlag = 1) then(select Spacur.Symbol from DBA.SpaCurrencies as Spacur where sc.KodCurrency = Spacur.KodCurrency) else cur.Symbol endif),
    ExplanationColumn=if(sc.PBXLogN is not null or sc.KodAdmin = 1002) then 'PBX'
    else
      if(select count(A.AdminNo) from
        dba.Admin as A where
        A.AdminGroup = 0 and A.AdminNo = sc.KodAdmin) > 0 then 'POS'
      else
        if(sc.SPaReservationFk <> -1 and sc.SpaTransferFlag = 1) then 'СПА'
        else
          null
        endif
      endif
    endif from
    dba.ServiceCredits as sc,
    DBA.Services as s,
    DBA.Contracts left outer join DBA.Guests as g on Contracts.ContractNo = g.Contract,
    DBA.Countries,
    DBA.Admin,
    DBA.Currencies as cur,
    DBA.v_ArriveStayLeaveGuestBook as ASL where
    sc.Service = s.ServiceNo and
    sc.GuestNo = g.GuestNum and
    Contracts.GroupNo = any(select distinct(showtype) from dba.GrContracts where GrNo = -1) and
    g.CountryArrive = Countries.CountryKod and
    sc.KodAdmin = Admin.AdminNo and
    ASL.GuestNum = g.GuestNum and
    sc.KodCurrency = cur.KodCurrency and
    ((sc.SPaReservationFk = -1) or(sc.SPaReservationFk <> -1 and sc.SpaTransferFlag = 1))
/*Opravia filtriraneto na data na spravkata*/
//[17.03.2005] Safa, optimizatsia
//[21.12.2007] Maria, dobavena kolonata ServiceDateTime, realnata data i chas

go

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

GO

create view DBA.v_RegAllServicesPeriod as
  (select
    v_RegBaseServicesPeriod.RegDate,
    /*Maria +, 1728*/
    v_RegBaseServicesPeriod.RealDateTime,
    /*Maria -*/
    v_RegBaseServicesPeriod.GuestName,
    v_RegBaseServicesPeriod.Account,
    v_RegBaseServicesPeriod.RoomNo,
    v_RegBaseServicesPeriod.Service,
    v_RegBaseServicesPeriod.ServicesNum,
    ServiceSngPrice,
    v_RegBaseServicesPeriod.AllSum,
    v_RegBaseServicesPeriod.Plateni,
    Dogovor,Admin=' ' from
    DBA.v_RegBaseServicesPeriod) union all
  (select
    v_RegServicesPeriod.RegDate,
    /*Maria +, 1728*/
    v_RegServicesPeriod.RealDateTime,
    /*Maria -*/
    v_RegServicesPeriod.GuestName,
    v_RegServicesPeriod.Account,
    v_RegServicesPeriod.RoomNo,
    v_RegServicesPeriod.Service,
    v_RegServicesPeriod.ServicesNum,
    ServiceSngPrice,
    v_RegServicesPeriod.AllSum,
    v_RegServicesPeriod.Plateni,
    Dogovor,
    v_RegServicesPeriod.Admin from
    DBA.v_RegServicesPeriod)
//[v 00.07.12]
//[v1 21.12.2007, Maria] - dobavena kolona, vzimat se realnata data i chas

GO

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

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_RegAllServicesPeriod','__OPTIONS__','Регистрирани услуги','__OPTIONS__','Registered Services','__OPTIONS__',1,GetFreeNInRelations('Registered Services', 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_RegAllServicesPeriod','bvrData1','Регистрирани услуги','От дата','Registered Services','From Date',0,GetFreeNInRelations('Registered Services', Null, Null, 10),'bvrData1','','',0,0,1,1,'','select bvrData1',72,'',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_RegAllServicesPeriod','bvrData2','Регистрирани услуги','До дата','Registered Services','To Date',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'bvrData2','','',0,0,1,1,'','select bvrData2',72,'',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_RegAllServicesPeriod','RegDate','Регистрирани услуги','Дата','Registered Services','Date',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'RegDate','','',0,1,'','','','',72,'',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_RegAllServicesPeriod','RealDateTime','Регистрирани услуги','Реални дата и час','Registered Services','RealDateTime',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'RealDateTime','','',0,1,'','','','',72,'',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_RegAllServicesPeriod','Dogovor','Регистрирани услуги','Договор','Registered Services','Contract',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Dogovor','','',0,0,'','','SELECT ShortName FROM Contracts','',104,'',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_RegAllServicesPeriod','Account','Регистрирани услуги','Кл.номер','Registered Services','Client Number',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Account','','',0,1,'','','','',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_RegAllServicesPeriod','GuestName','Регистрирани услуги','Име гост','Registered Services','Guest Name',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'GuestName','','',0,0,'','','SELECT "Name" FROM Guests GROUP BY "Name"','',150,'',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_RegAllServicesPeriod','RoomNo','Регистрирани услуги','Стая No','Registered Services','Room #',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'RoomNo','','',0,0,'','','select RoomNum from Rooms','',48,'',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_RegAllServicesPeriod','Service','Регистрирани услуги','Услуга','Registered Services','Service',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Service','','',0,0,'','','select ServiceName from Services union (select ''Нощувка и застраховка'')','',168,'',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_RegAllServicesPeriod','ServicesNum','Регистрирани услуги','Кол.','Registered Services','Quant.',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'SUM(ServicesNum)','Sum(qrData.Кол.)','# ### ##0.####',1,0,'','','','',56,'',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_RegAllServicesPeriod','ServiceSngPrice','Регистрирани услуги','Ед.цена','Registered Services','Sng. Price',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'ServiceSngPrice','','# ### ##0.00',1,0,'','','','',72,'',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_RegAllServicesPeriod','AllSum','Регистрирани услуги','Сума','Registered Services','Total',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Sum(AllSum)','Sum(qrData.Сума)','# ### ##0.00',1,0,'','','','',72,'',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_RegAllServicesPeriod','Plateni','Регистрирани услуги','Платени','Registered Services','Paid',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Sum(Plateni)','Sum(qrData.Платени)','# ### ##0.00',1,0,'','','','',72,'',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_RegAllServicesPeriod','Admin','Регистрирани услуги','Админ','Registered Services','Admin',2,GetFreeNInRelations('Registered Services', Null, Null, 10),'Admin','','',1,0,'','','SELECT ShortName FROM Admin','',80,'',0,0,1,today())

Go

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

GO

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

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_Services','__OPTIONS__','Услуги','__OPTIONS__','Services','__OPTIONS__',1,GetFreeNInRelations('Services', 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_Services','ServiceDate','Услуги','Дата','Services','Date',2,GetFreeNInRelations('Services', Null, Null, 10),'ServiceDate','','',0,1,'','','','',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_Services','ServiceDateTime','Услуги','Реални дата и час','Services','ServiceDateTime',2,GetFreeNInRelations('Services', Null, Null, 10),'ServiceDateTime','','',0,1,'','','','',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_Services','Room','Услуги','Стая No','Services','Room #',2,GetFreeNInRelations('Services', Null, Null, 10),'Room','','',0,1,'','','','',48,'',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_Services','Account','Услуги','Кл.номер','Services','Client Number',2,GetFreeNInRelations('Services', Null, Null, 10),'Account','','',0,0,'','','','',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_Services','GuestName','Услуги','Име гост','Services','Guest Name',2,GetFreeNInRelations('Services', Null, Null, 10),'GuestName','','',0,0,'','','"SELECT ""Name"" FROM Guests GROUP BY ""Name"""','',150,'',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_Services','Country','Услуги','Държава','Services','Country',2,GetFreeNInRelations('Services', Null, Null, 10),'Country','','',0,0,'','','select Description from Countries','',100,'',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_Services','Agent','Услуги','Агент','Services','Agent',2,GetFreeNInRelations('Services', Null, Null, 10),'Agent','','',0,0,'','','select ShortName from Contracts order by ContractNo','',100,'',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_Services','Service','Услуги','Услуга','Services','Service',2,GetFreeNInRelations('Services', Null, Null, 10),'Service','','',0,0,'','','select ServiceName from Services','',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_Services','ExplanationColumn','Услуги','Услуги от','Services','ExplanationColumn',2,GetFreeNInRelations('Services', Null, Null, 10),'ExplanationColumn','','',1,0,'','','select ''POS'' union select ''PBX'' union select ''''','',100,'',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_Services','PayedSum','Услуги','Платени','Services','Paid',2,GetFreeNInRelations('Services', Null, Null, 10),'Sum(PayedSum)','Sum(qrData.Платени)','# ##0.00',1,0,'','','','',100,'',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_Services','Balance','Услуги','Баланс','Services','Balance',2,GetFreeNInRelations('Services', Null, Null, 10),'Balance','Sum(qrData.Баланс)','# ##0.00',1,0,'','','','',100,'',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_Services','Currency','Услуги','Код валута','Services','Currency',2,GetFreeNInRelations('Services', Null, Null, 10),'Currency','','',1,0,'','','','',100,'',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_Services','AdminName','Услуги','Админ','Services','Admin',2,GetFreeNInRelations('Services', Null, Null, 10),'AdminName','','',1,0,'','','','',100,'',0,0,1,today())

Go

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

GO