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

GO

create view
  DBA.v_CrossServicesContracts
  as select FromGuestName=FromGuest.Name,
    FromAccount=FromGuest.GuestNum,
    Service=Services.ServiceName,
    ServiceNum=ServiceCredits.NumberServices,
    ServiceSngPrice=ServiceCredits.SumCredit,
    /*    ServiceSngPrice=DayRates.ExchangeRate*ServiceCredits.SumCredit,*/
    AllSum=ServiceCredits.NumberServices*ServiceSngPrice,
    Currency=(if(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1) then(select SpaCurrencies.Symbol from DBA.SpaCurrencies where ServiceCredits.KodCurrency = SpaCurrencies.KodCurrency) else Currencies.Symbol endif),
    RegDate=ServiceCredits.DateCreditDt,
    ToContract=Contracts.ShortName,
    AdminName=Admin.ShortName from
    dba.ServiceCredits,dba.Services,dba.Guests as FromGuest,
    DBA.admin/*,DBA.DayRates*/,DBA.Contracts,DBA.Currencies where
    ServiceCredits.Service = Services.ServiceNo and
    ServiceCredits.DateCreditDt >= bvrData1 and ServiceCredits.DateCreditDt <= bvrData2 and
    ServiceCredits.GuestNo = FromGuest.GuestNum and
    ServiceCredits.ContractPays <> 0 and
    Contracts.GroupNo = any(select ShowType from dba.GrContracts where GrNo = -1) and
    ServiceCredits.KodCurrency = Currencies.KodCurrency and
    ServiceCredits.ContractPays = Contracts.ContractNo and
    ServiceCredits.KodAdmin = Admin.AdminNo and
    ((ServiceCredits.SPaReservationFk = -1) or(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1))

// [04.08.2008] - Maria - fix, spravkata da ne dava edna i sushta usluga po mnogo puti; mahnato e DayRates, zashtoto ne se izpolzva