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))
    
GO

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

GO

create view
  DBA.v_CrossServices
  as select FromGuestName=FromGuest.Name,
    FromAccount=FromGuest.GuestNum,
    Service=Services.ServiceName,
    ServiceNum=ServiceCredits.NumberServices,
    /*    ServiceSngPrice=DayRates.ExchangeRate*ServiceCredits.SumCredit,*/
    ServiceSngPrice=ServiceCredits.SumCredit,
    AllSum=ServiceCredits.NumberServices*ServiceSngPrice,
    Currency=Currencies.Symbol,
    RegDate=ServiceCredits.DateCreditDt,
    ToGuestName=ToGuest.Name,
    ToAccount=ToGuest.GuestNum,
    AdminName=Admin.ShortName from
    dba.ServiceCredits,dba.Services,dba.Guests as FromGuest,dba.Guests as ToGuest,DBA.admin,DBA.DayRates,DBA.Currencies where
    DayRates.DateDt = ServiceCredits.DateCreditDt and
    DayRates.KodCurrency = ServiceCredits.KodCurrency and
    ServiceCredits.Service = Services.ServiceNo and
    ServiceCredits.DateCreditDt >= bvrData1 and ServiceCredits.DateCreditDt <= bvrData2 and
    ServiceCredits.GuestNo = FromGuest.GuestNum and
    ServiceCredits.GuestNo <> ServiceCredits.WhoPays and
    ServiceCredits.WhoPays <> 0 and
    ServiceCredits.KodCurrency = Currencies.KodCurrency and
    ServiceCredits.WhoPays = ToGuest.GuestNum and
    ServiceCredits.KodAdmin = Admin.AdminNo and
    ServiceCredits.SPaReservationFk = -1
    
-- Maria, fix za 4.1.4 - i v dvete view-ta e dobavena kolona RegDate, zashtoto q ima v Relations