unit uDataModuleIdiomas;

interface

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

type
  TDataModuleIdiomas = class(TDataModuleBase, IDataModuleIdiomas)
    RORemoteService: TRORemoteService;
    rda_Idiomas: TDARemoteDataAdapter;
    Bin2DataStreamer: TDABin2DataStreamer;
    tbl_Idiomas: TDAMemDataTable;
    ds_Idiomas: TDADataSource;
    procedure DAClientDataModuleCreate(Sender: TObject);
  protected
    procedure AsignarClaseNegocio(AIdioma: TDADataTable);
  public
    function GetItems : IBizIdioma;
  end;

implementation
{$R *.DFM}

uses
  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
  schIdiomasClient_Intf;

{ TdmIdiomas }

procedure TDataModuleIdiomas.AsignarClaseNegocio(AIdioma: TDADataTable);
begin
  AIdioma.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
end;

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

function TDataModuleIdiomas.GetItems: IBizIdioma;
var
  AIdioma : TDAMemDataTable;
begin
  ShowHourglassCursor;
  try
    AIdioma := CloneDataTable(tbl_Idiomas);
    AIdioma.BusinessRulesID := BIZ_CLIENT_IDIOMAS;
    Result := (AIdioma as IBizIdioma);
  finally
    HideHourglassCursor;
  end;
end;

end.