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

GO


Create VIEW "DBA"."v_SpaPayTypes" as select DataPay=SpaResMoney.DateMoneyDt,
    PayType=PayTypes.PayTypeName,
    AllSum=SpaResMoney.Sum*DayRates.ExchangeRate,
    AllSumVlt=SpaResMoney.Sum,
    Valuta=Currencies.Symbol,
    DayRates.ExchangeRate,
    PTVidName=PTV.Description,
    DocNomer=SpaResMoney.AccountNumber,
    Smetka=SpaResMoney.InvoiceNo
    from "dba".PayTypes,"dba".SpaResMoney,"dba".DayRates,"DBA".Currencies,"dba".PayTypesVids as PTV
    where SpaResMoney.Payment=PayTypes.PayTypeN
    and SpaResMoney.Currency=DayRates.KodCurrency and SpaResMoney.DateMoneyDt=DayRates.DateDt
    and SpaResMoney.Currency=Currencies.KodCurrency
    and DateMoneyDt>=bvrData1 and DateMoneyDt<=bvrData2
    and SpaResMoney.PTVid=PTV.N
    and SpaResMoney.VaucherInvoiceNo is null
	
	
GO

Delete from Relations where lcase(RelationTable) = lcase('Spa Pay Types')

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_SpaPayTypes','__OPTIONS__','Спа Отчет плащания','__OPTIONS__','Spa Pay Types','__OPTIONS__',1,GetFreeNInRelations('Spa Pay Types', Null, Null, 10),'__OPTIONS__','','',0,0,'','','Printer.Orientation=1','',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_SpaPayTypes','bvrData1','Спа Отчет плащания','От дата',
 'Spa Pay Types','From Date',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'bvrData1','','',1,0,'1','1','','select Date(Now())-1',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_SpaPayTypes','bvrData2','Спа Отчет плащания','До дата','Spa Pay Types','To Date',2,
  GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'bvrData2','','',1,0,'1','1','','select Date(Now())',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_SpaPayTypes','DataPay','Спа Отчет плащания','Дата','Spa Pay Types','Date',2,
  GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'DataPay','','',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_SpaPayTypes','PayType','Спа Отчет плащания','Начин пл.','Spa Pay Types','Type Of Payment',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'PayType','','',0,0,'','','select PayTypeName from PayTypes','',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_SpaPayTypes','DocNomer','Спа Отчет плащания','Номер на документ','Spa Pay Types','Document Number',2,
  GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'DocNomer','','',1,0,'','','','',110,'',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_SpaPayTypes','Smetka','Спа Отчет плащания','Сметка N','Spa Pay Types','Invoice Number',2,
   GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'Smetka','','',1,2,'','','','',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_SpaPayTypes','PTVidName','Спа Отчет плащания','Вид','Spa Pay Types','Вид',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'PTVidName','','',1,0,'','','','',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_SpaPayTypes','Valuta','Спа Отчет плащания','Валута','Spa Pay Types','Currency',2,
  GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'Valuta','','',1,0,'','','SELECT Symbol FROM Currencies','',64,'',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_SpaPayTypes','AllSumVlt','Спа Отчет плащания','Сума влт','Spa Pay Types','Total Currency',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'Sum(AllSumVlt)','','# ### ##0.00',1,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_SpaPayTypes','ExchangeRate','Спа Отчет плащания','Курс','Spa Pay Types','Курс',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'ExchangeRate','','# ##0.0000',1,0,'','','','',64,'',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_SpaPayTypes','AllSum','Спа Отчет плащания','Сума лв','Spa Pay Types','Total LC',2,
 GetFreeNInRelations('Spa Pay Types', Null, Null, 10),
 'Sum(AllSum)','SUM(qrData.Сума лв)','# ### ##0.00',1,0,'','','','',80,'',0,0,1,TODAY())

GO

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