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

GO

create view DBA.v_RegServicesPeriod
  as select RegDate=if Services.ServiceNo = (select Registers.IntStojnost from DBA.Registers where Registers.RegisterName = 'ForfeitService') then DBA.GetDateLihva(ServiceCredits.CreditNo) else ServiceCredits.DateCreditDt
    endif, /*Maria +, 1728*/
    RealDateTime=ServiceCredits.RealDateTime,
    /*Maria -*/
    GuestName=Guests.Name,
    Account=Guests.GuestNum,
    --Maria
    --RoomNo=v_ArriveStayLeaveGuestBook.LastRoom,
    RoomNo=v_ArriveStayLeaveGuestBook.LastRoomName,
    --Maria
    AltName=(select SvoServiceCreditsStn.Stoinost from DBA.SvoServiceCreditsStn where SvoServiceCreditsStn.Glava = ServiceCredits.CreditNo and SvoServiceCreditsStn.Svoistvo = 1),
    Service=(if AltName is null then Services.ServiceName || ' в стая ' || B.Room || ' за месец ' || DBA.ImeMesec(MONTH(RegDate)) else AltName --Dobrin 2195 - Promqna na imeto na uslugata
    endif),ServiceNo=Services.ServiceNo,
    ServicesNum=ServiceCredits.NumberServices,
    /*ServiceSngPrice=if ServiceCredits.KodCurrency=2 then DayRates.ExchangeRate*ServiceCredits.SumCredit
else ServiceCredits.SumCredit endif, */
    ServiceSngPrice=(if(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1) then(select SpaCurrencies.ExchangeRate from DBA.SpaCurrencies where ServiceCredits.KodCurrency = SpaCurrencies.KodCurrency) else Currencies.ExchangeRate
    endif)*ServiceCredits.SumCredit,
    AllSum=ServiceCredits.NumberServices*ServiceSngPrice,
    Plateni=ServiceCredits.PayedServices*ServiceSngPrice,
    Dogovor=Contracts.ShortName,
    Admin=Admin.ShortName,
    ShowService=DBA.ShouldShowService(ServiceCredits.CreditNo,Services.IsMonthlyBill,AllSum-Plateni,RegDate), --Dobrin 2195 - ako e komunalna i e platena da ne se pokazva
    PayTypeStr = PT.PayTypeName
	from DBA.ServiceCredits left outer join DBA.Admin on ServiceCredits.KodAdmin = Admin.AdminNo
	left outer join Articles as A on A.CreditNo = ServiceCredits.CreditNo
	left outer join Invoices as Inv on A.InvoiceNo = Inv.InvoiceNo
	left outer join PayTypes as PT on Inv.PayHow = PT.PayTypeN
    ,DBA.Guests
    ,DBA.Book as B
    ,DBA.Services
    ,DBA.Currencies
    ,DBA.v_ArriveStayLeaveGuestBook
    ,DBA.Contracts
    --Dobrin 2195
    where ShowService = 1 --Dobrin 2195
    and ServiceCredits.Service = Services.ServiceNo
    and B.RegNum = (select max(B1.RegNum) from DBA.Book as B1 where B1.Guest = Guests.GuestNum)
    and ServiceCredits.KodCurrency = Currencies.KodCurrency
    and ServiceCredits.NumberServices <> 0 and Guests.Contract = Contracts.ContractNo
    and Contracts.GroupNo = any(select GrContracts.ShowType from dba.GrContracts where GrContracts.GrNo = -1)
    and ServiceCredits.GuestNo = Guests.GuestNum
    and v_ArriveStayLeaveGuestBook.GuestNum = Guests.GuestNum and(
    (ServiceCredits.SPaReservationFk = -1) or(ServiceCredits.SPaReservationFk <> -1 and ServiceCredits.SpaTransferFlag = 1))
    and ServiceCredits.DateCreditDt <= bvrData2 and ServiceCredits.DateCreditDt >= bvrData1
-- [v. 20.07.2009] - Yoan - Saobrazqva se s bvrData1 i bvrData2