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

GO

CREATE VIEW "DBA"."v_ServForContract"  as select distinct
    c.FullName as Contract,
    va.VaucherNum,
    va.VaucherSeason,
    va.VaucherBoard,
    va.VaucherRoomType,
    va.VaucherBedType,
    "at".Description as AdultType,
    va.Nights,
    va.TotalNights,
    va.GuestName,
    va.SinglePrice,
    GrandTotal=(va.GrandTotal*1.07),
    GrandTotalLV=((va.GrandTotal*1.07)*cu.ExchangeRate),
    va.ArticleName,
    va.nights as NumberServices,
    vi.InvoiceDateDt as DateCreditDt,
    va.Discount,
    cu.Symbol,
    va.InvoiceNo,
    VtdVauchers.DateArrive
    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


GO


if (Select count(*) from Relations where TableName='v_ServForContract' and ColName='GrandTotalLV' and RelationTable='Издадени Invoices')=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','GrandTotalLV','Издадени Invoices','Сума лв.',
 'Издадени Invoices','GrandTotalLV',2,
 GetFreeNInRelations('Издадени Invoices', Null, Null, 10),
 'SUM(GrandTotalLV)','SUM(qrData.Сума лв.)','# ### ##0.00',1,0,'0','0','','',60,'',0,0,1,TODAY())

end if;