-- Скрипт 0582
-- Съдържание:
-- [1] - Права за СПА център
-- [2] - Добавяне на ScreenPrinter
-- [3] - За справката "Издадени инвойси" добавена колона "Анулиран или кредитно изв."

-- [1] --------------------------------------------------------------------------------------
delete from PermissionTypes where N=4700

GO

insert into PermissionTypes(N,Name,"Default") values(4700,'Спа Център',1)

GO

delete from Permissiontags where TagNo=3000;

GO

insert into Permissiontags(TagNo,"Type",Note) values (3000,4700,'Дава права за SPA Центъра');

GO

if (Select count(*) from Permissions where PermissionNo=4700)=0
then
  for f as curs scroll cursor for
    select N as @N from AdminGroups do
      insert into Permissions(GroupNo,PermissionNo,Stoinost) values(@N,4700,0)
  end for;
end if;
  
Go

-- [2] --------------------------------------------------------------------------------------
if (select Count(*) from Printers where Name='<Screen>')=0 then
  insert into Printers(Name, Driver, Port, Aktiv, TextWidth, ReCoder)
  values('<Screen>', 'Screen', 1, 1, 40, 1);
end if;

Go

-- [3] --------------------------------------------------------------------------------------
IF (EXISTS(Select * from systable where LCase(table_name) = LCase('v_ServForContract')))
  THEN Drop View v_ServForContract
END IF

GO

create view v_ServForContract as 
  select distinct
    Contract=c.FullName,
    va.VaucherNum,
    va.VaucherSeason,
    va.VaucherBoard,
    va.VaucherRoomType,
    va.VaucherBedType,
    AdultType=at.Description,
    va.Nights,
    va.TotalNights,
    va.GuestName,
    va.SinglePrice,
    GrandTotal=(if(vi.VAT = 0 and vi.WithoutVAT <> 0) then va.GrandTotal else(va.GrandTotal*1.07) endif),
    GrandTotalLV=(if(vi.VAT = 0 and vi.WithoutVAT <> 0) then(va.GrandTotal*cu.ExchangeRate) else((va.GrandTotal*1.07)*cu.ExchangeRate) endif),
    va.ArticleName,
    NumberServices=va.nights,
    DateCreditDt=vi.InvoiceDateDt,
    va.Discount,
    cu.Symbol,
    va.InvoiceNo,
    VtdVauchers.DateArrive,
    Cancelled = (if vi.CancelInvoiceNo = 0 then 'НЕ' else 'ДА' endif)
  from
    dba.VaucherInvoices as vi
    join dba.VaucherArticles as va on va.InvoiceNo = vi.VaucherInvoiceNo
    left outer join dba.VtdVauchers on VtdVauchers.VaucherN = va.VaucherN
    join dba.Contracts as c on vi.ContractNo = c.ContractNo
    left outer join dba.AdultTypes as at on at.AdultNo = va.AdultType
    join dba.Currencies as cu on va.Currency = cu.KodCurrency
  where
    vi.InvoiceDateDt >= bvrData1
    and vi.InvoiceDateDt <= bvrData2
//[21 may 2003] - peter - modified
//[09.Jul.2007] - Yanko - added Cancelled

GO

IF (SELECT COUNT(*) FROM RELATIONS WHERE BGTableName='Издадени Invoices' AND ColName='Cancelled') = 0
THEN
  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_ServForContract','Cancelled','Издадени Invoices','Анулиран или кредитно изв.','Издадени Invoices','Cancelled',2,(select Max(N)+2 from Relations where RelationTable='Издадени Invoices'),'Cancelled','','',0,0,0,0,'Select Ans=''ДА'' from Dummy union all Select Ans=''НЕ'' from Dummy','',60,'',0,0,1,today());
END IF;