IF (EXISTS (select proc_name from sysprocedure where proc_name='EmptyTheBase')) THEN
  DROP procedure EmptyTheBase
END IF

GO

create procedure "DBA"."EmptyTheBase"()
begin
  delete from Reserve;
  delete from Articles;
  delete from Invoices;
  delete from Proform;
  delete from Book;
  update Guests set
    OfficialNum=0
    where GuestNum<>0;
  delete from Guests where GuestNum<>0;
  delete from Groups;
  delete from HotelCharge;
  delete from Otcheti;
  delete from ResMoney;
  update Rooms set
    Buzy=0,
    NumPeople=0;
  update Rooms set Status=0;
  delete from ServiceCredits;
  delete from ProVaucherArticles;
  delete from VaucherArticles;
  delete from VaucherInvoices;
  delete from VaucherGuests;
  delete from VaucherAgeGroup;
  delete from VtdVauchers;
  delete from PBXCallsLog;
  update Counters set
    BookCounter=0,
    InvoiceCounter=0,
    GuestCounter=0,
    ReserveCounter=1,
    Groupcounter=0,
    DepositCounter=0,
    CreditCounter=0,
    OtchetCounter=0,
    LastinvoiceOtchet=0,
    LastDepositOtchet=0,
    TrueProfNo=0,
    ContractNo=isnull((select max(contractno) from contracts),0),
    VaucherInvoiceCounter=0,
    TrueVaucherInvoiceNo=0,
    SpaResCounter=1;
  update SpaCounters set
    InvoiceCounter=0,
    LastInvoiceOtchet=0,
    LastDepositOtchet=0,
    TrueInvoiceNo=0,
    DepositCounter=0,
    OtchetCounter=0;
  delete from Packages;
  delete SpaReservations;
  delete SpaArticles;
  delete SpaGuests;
  delete SpaInvoices;
  delete SpaOtcheti;
  delete SpaResMoney;
end