objRoomTypeRoomCount.pas

unit objRoomTypeRoomCount;

interface


uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Contnrs,
  Dialogs,
  NativeXML,
  ADODB
  , System.Generics.Collections
  , uUtils
  , cmpRoomerDataSet
  , cmpRoomerConnection
  ;

TYPE

  TRoomTypeItem = class

    FRoomTypeCount       : integer   ;
    FRoomType            : string    ;
    FDescription         : string    ;
    FGuestCount          : integer   ;
    FRoomTypeGroup       : string    ;

    function getRoomTypeCount       : integer   ;
    function getRoomType            : string    ;
    function getDescription         : string    ;
    function getGuestCount          : integer   ;
    function getRoomTypeGroup       : string    ;

    procedure SetRoomTypeCount(Value : integer);
    procedure SetRoomType(Value : string);
    procedure SetDescription(Value : string);
    procedure SetGuestCount(Value : integer);
    procedure SetRoomTypeGroup(Value: string);

  private
    // **
  public
    constructor Create;
    destructor Destroy; override;

    property RoomTypeCount      : integer   read  getRoomTypeCount         write setRoomTypeCount ;
    property RoomType           : string    read  getRoomType              write setRoomType      ;
    property Description        : string    read  getDescription           write setDescription   ;
    property GuestCount         : integer   read  getGuestCount            write setGuestCount    ;
    property RoomTypeGroup      : string    read  getRoomTypeGroup         write setRoomTypeGroup ;
  end;


//////////////////////////////////////////////////////////////////////////////
//  TRoomItem
//
//
//////////////////////////////////////////////////////////////////////////////



  TRoomTypeList = TObjectList<TRoomTypeItem>;

  //////////////////////////////////////////////////////////////////////////////////////
  ///
  ///
  ///
  /////////////////////////////////////////////////////////////////////////////////////

  TRoomTypeRoomCount = class
  private
    FXmlFileName : string;

    FRoomCount : integer;
    FRoomTypeList : TRoomTypeList;

    FHotelcode    : string ;

    function getRoomTypeCount : integer;
    procedure FillList;
    procedure ClearList;
    function GetNumberOfRoomsPerType(RoomType: String): Integer;

  public
    constructor Create(HotelCode : string);
    destructor Destroy; override;

    property XmlFileName : string read FXmlFileName write FXmlFileName;

    property Hotelcode      : string    read FHotelcode      write FHotelcode;

    function FindRoomTypeCount(RoomType : string; StartAt : integer; caseSensitive : Boolean = false) : integer;

    property RoomTypeList : TRoomTypeList read FRoomTypeList write FRoomTypeList;
    property RoomTypeCount : integer read getRoomTypeCount;
  end;




implementation

uses //uDSp
  ug
  ,_glob
  ,hdata
  ,uD
  ,uSqlDefinitions
  , uMain
  , uAppGlobal
  ;



//////////////////////////////////////////////////////////////////////////////
//  TRoomTypeItem
//
//
//////////////////////////////////////////////////////////////////////////////

constructor  TRoomTypeItem.Create;
begin
  //**
end;

destructor TRoomTypeItem.Destroy;
begin
  inherited;
end;

function TRoomTypeItem.getRoomTypeCount          : integer   ;
begin
  result := FRoomTypeCount
end;


function TRoomTypeItem.getRoomType            : string    ;
begin
  result := FRoomType
end;

function TRoomTypeItem.getDescription         : string    ;
begin
  result := FDescription
end;

function TRoomTypeItem.getGuestCount          : integer   ;
begin
  result := FGuestCount
end;

function TRoomTypeItem.getRoomTypeGroup       : string    ;
begin
  result := FRoomTypeGroup
end;


procedure TRoomTypeItem.SetRoomTypeCount(Value : integer);
begin
  FRoomTypeCount := value
end;

procedure TRoomTypeItem.SetRoomType(Value: string);
begin
  FRoomType := value
end;

procedure TRoomTypeItem.SetDescription(Value : string);
begin
  FDescription := value
end;

procedure TRoomTypeItem.SetGuestCount(Value : integer);
begin
  FGuestCount := value
end;

procedure TRoomTypeItem.SetRoomTypeGroup(Value: string);
begin
  FRoomTypeGroup := value
end;



//////////////////////////////////////////////////////////////////////
//
//
//////////////////////////////////////////////////////////////////////
constructor TRoomTypeRoomCount.Create(HotelCode : string);
begin
  inherited Create;

  try
    FRoomTypeList := TRoomTypeList.Create(True);
  Except
    //TODO Loga
  end;

  FHotelCode := HotelCode;

  FRoomCount := 0;

  try
    FillList;
  Except
    // logga
  end;

end;

destructor TRoomTypeRoomCount.Destroy;
begin
  ClearList;
  freeandnil(FRoomTypeList);
  inherited;
end;

procedure TRoomTypeRoomCount.ClearList;
begin
  FRoomTypeList.Clear;
end;

function TRoomTypeRoomCount.GetNumberOfRoomsPerType(RoomType : String) : Integer;
var Rset : TRoomerDataSet;
begin
  result := 0;
  Rset := glb.RoomsSet;
  Rset.First;
  while NOT Rset.Eof do
  begin
    if Rset['Active'] AND (Rset['RoomType'] = RoomType) then
      inc(result);

    Rset.Next;
  end;
end;

procedure TRoomTypeRoomCount.FillList;
var
  RoomTypeItem : TRoomTypeItem;
  rSet : TRoomerDataSet;

  TypeCount : Integer;
  RoomType : string;
  Description : string;
  NumberGuests : integer;
  RoomTypeGroup : string;

begin
  ClearList;
  if frmMain.OfflineMode then
    exit;

  Rset := glb.RoomTypesSet;
  Rset.First;
  While not rSet.Eof do
  begin
    if Rset['Active'] then
    begin
      TypeCount            := GetNumberOfRoomsPerType(Rset.fieldbyname('RoomType').asString); // Rset.fieldbyname('TypeCount').asInteger;
      RoomType             := Rset.fieldbyname('RoomType').asString;
      Description          := Rset.fieldbyname('Description').asString;
      NumberGuests         := Rset.fieldbyname('NumberGuests').asInteger;
      RoomTypeGroup        := Rset.fieldbyname('RoomTypeGroup').asString;

      RoomTypeItem := TRoomTypeItem.Create;
      try
        RoomTypeItem.SetRoomTypeCount(TypeCount);
        RoomTypeItem.SetRoomType(RoomType);
        RoomTypeItem.SetDescription(Description);
        RoomTypeItem.SetGuestCount(NumberGuests);
        RoomTypeItem.SetRoomTypeGroup(RoomTypeGroup);
        FRoomTypeList.Add(RoomTypeItem);
      except
         // logga
      end;
    end;
    rSet.Next;
  end;
end;


function TRoomTypeRoomCount.FindRoomTypeCount(RoomType : string; StartAt : integer; caseSensitive : Boolean = false) : integer;
var
  i : integer;
  aType : string;
begin
  result := 0;

  RoomType := ansiUppercase(RoomType);

  for i := 0 to FRoomTypeList.Count -1 do
  begin
    aType := FRoomTypeList[i].FRoomType;
    aType := ansiUpperCase(aType);

    if RoomType = aType then
    begin
      result := FRoomTypeList[i].RoomTypeCount;
      Break;
    end;
  end;
end;



function TRoomTypeRoomCount.getRoomTypeCount: integer;
begin
  result := FRoomTypeList.Count;
end;

end.