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

GO

create view
  DBA.v_DaylyListForPeriod
  as select BK.GuestNum,
    Name=BK.GuestName,
    BK.ArriveDate,
    BK.LeaveDate,
    BK.LastRoom,
    BK.NumNights,
    Price=BK.RegPrice,
    G.Balance,
    -- Yanko + fix_18_August_2006
    /*
    xxxxx=isnull((select sum((SC.PayedServices*sc.SumCredit)*dr.ExchangeRate)
    from "dba".ServiceCredits as sc,"dba".DayRates as dr,"dba".Resmoney as rs
    where sc.payedservices>0
    and sc.kodcurrency=dr.kodcurrency
    and sc.datecreditdt=dr.datedt and sc.GuestNo=BK.GuestNum
    and BK.GuestNum=rs.Guestno
    and rs.datemoneydt between bvrdata1 and bvrdata2),0),
    */
    xxxxx=isnull((select SUM(R.SUM*C.ExchangeRate) from
      DBA.ResMoney as R,DBA.Currencies as C,DBA.Admin as A where
      R.GuestNo = BK.GuestNum and
      R.Currency = C.KodCurrency and
      R.KodAdmin = A.AdminNo and
      R.DateMoney <> 0),
    --  AND R.DateMoneyDt between bvrdata1 and bvrdata2
    0),
    -- Suma=(BK.PayNightPrice+xxxxx+GetPayedDepositsByGuest(BK.GuestNum)),
    Suma=xxxxx,
    -- Yanko -
    Passport=String(G.PassportSeria,G.PassportNumber,' ',G.PassportDateDt), --Krum
    G.EGN,
    Country=C.Description,
    AddressData=G.Address,
    ContractName=Ctr.FullName,BK.Admin from
    dba.v_NewArriveStayLeaveGuestBook as BK,
    dba.Guests as G,
    dba.Countries as C,
    dba.Contracts as Ctr where
/* /Krum/  BK.ArriveDate <> BK.LeaveDate and */
    G.GuestNum = BK.GuestNum and
    C.CountryKod = G.NativeCountry and
    G.Contract = Ctr.ContractNo and
 /* /Krum/  (DBA.DateIntersection(bvrData1,bvrData2,BK.ArriveDate,BK.LeaveDate) > 0) */
    ((BK.ArriveDate>=bvrData1 and BK.ArriveDate<=bvrData2) or(BK.LeaveDate>=bvrData1 and BK.LeaveDate<=bvrData2)
     or (BK.ArriveDate<bvrData1 and BK.LeaveDate>bvrData2))
//[v 18.04.2005] Jorko
//[v 21.06.2005] Jorko
//[v 27.06.2005] Safa
//[v 22.08.2006] Yanko