unit uDataModuleTarifas;

interface

uses
  SysUtils, Classes, DB, uIDataModuleTarifas, uBizTarifas, uDAInterfaces, uDADataTable,
  uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
  uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase;

type
  TDataModuleTarifas = class(TDataModuleBase, IDataModuleTarifas)
    RORemoteService: TRORemoteService;
    rda_Tarifas: TDARemoteDataAdapter;
    Bin2DataStreamer: TDABin2DataStreamer;
    tbl_Tarifas: TDAMemDataTable;
    ds_Tarifas: TDADataSource;
    procedure DAClientDataModuleCreate(Sender: TObject);
  protected
    procedure AsignarClaseNegocio(ATarifa: TDADataTable);
  public
    function GetItems : IBizTarifa;
  end;

implementation
{$R *.DFM}

uses
  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
  schTarifasClient_Intf;

{ TdmTarifas }

procedure TDataModuleTarifas.AsignarClaseNegocio(ATarifa: TDADataTable);
begin
  ATarifa.BusinessRulesID := BIZ_CLIENT_TARIFA;
end;

procedure TDataModuleTarifas.DAClientDataModuleCreate(Sender: TObject);
begin
  RORemoteService.Channel := dmConexion.Channel;
  RORemoteService.Message := dmConexion.Message;
end;

function TDataModuleTarifas.GetItems: IBizTarifa;
var
  ATarifa : TDAMemDataTable;
begin
  ShowHourglassCursor;
  try
    ATarifa := CloneDataTable(tbl_Tarifas);
    AsignarClaseNegocio(ATarifa);
    Result := (ATarifa as IBizTarifa);
  finally
    HideHourglassCursor;
  end;
end;


end.