unit uDataModuleSubFamilias;

interface

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

type
  TDataModuleSubFamilias = class(TDataModuleBase, IDataModuleSubFamilias)
    RORemoteService: TRORemoteService;
    rda_SubFamilias: TDARemoteDataAdapter;
    Bin2DataStreamer: TDABin2DataStreamer;
    tbl_SubFamilias: TDAMemDataTable;
    ds_SubFamilias: TDADataSource;
    procedure DAClientDataModuleCreate(Sender: TObject);
  protected
    procedure AsignarClaseNegocio(ASubFamilia: TDADataTable);
  public
    function GetItems : IBizSubFamilia;
  end;

implementation
{$R *.DFM}

uses
  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
  schSubFamiliasClient_Intf;

{ TdmSubFamilias }

procedure TDataModuleSubFamilias.AsignarClaseNegocio(ASubFamilia: TDADataTable);
begin
  ASubFamilia.BusinessRulesID := BIZ_CLIENT_SUBFAMILIA;
end;

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

function TDataModuleSubFamilias.GetItems: IBizSubFamilia;
var
  ASubFamilia : TDAMemDataTable;
begin
  ShowHourglassCursor;
  try
    ASubFamilia := CloneDataTable(tbl_SubFamilias);
    AsignarClaseNegocio(ASubFamilia);
    Result := (ASubFamilia as IBizSubFamilia);
  finally
    HideHourglassCursor;
  end;
end;


end.