unit uDataModuleControles;

interface

uses {vcl:} SysUtils, Classes, DB, DBClient, 
     {RemObjects:} uDAClientDataModule, uDADataTable, uDAScriptingProvider,
  uDACDSDataTable, uROClient, uROServiceComponent, uRORemoteService,
  uDARemoteDataAdapter, uDAInterfaces, uDADataStreamer, uDABinAdapter,
  uDAMemDataTable;

type
  TdmControles = class(TDAClientDataModule)
    RemoteService: TRORemoteService;
    ds_Controles: TDADataSource;
    DARemoteDataAdapter: TDARemoteDataAdapter;
    DABinDataStreamer1: TDABinDataStreamer;
    tbl_Controles: TDACDSDataTable;
    procedure DAClientDataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    function GetItems (const ACategoria : String): TDACDSDataTable;
  end;

var
  dmControles: TdmControles;

implementation

{$R *.DFM}

uses
  Forms, Controls,
  schControlesClient_Intf,
  uDMBase, uDataTableUtils, DataAbstract3_Intf, cxControls;

procedure TdmControles.DAClientDataModuleCreate(Sender: TObject);
begin
  RemoteService.Channel := dmBase.Channel;
  RemoteService.Message := dmBase.Message;
end;

function TdmControles.GetItems (const ACategoria : String): TDACDSDataTable;
var
  dtControles: TDACDSDataTable;
  //AParams : TDADatasetParamArray;
begin
  ShowHourglassCursor;
  try
    dtControles := TDACDSDataTable.Create(NIL);
    CloneDataTable(tbl_Controles, dtControles);

    // Begin adaptación DA5
    {AParams := TDADatasetParamArray.Create;
    with AParams.Add do begin
      Name := fld_ListaControlesPorCategoriaCATEGORIA;
      Value := ACategoria;
    end;}
    //dtControles.DataRequestCall.ParamByName(par_Params).AsComplexType := AParams;

    dtControles.ParamByName(fld_ListaControlesPorCategoriaCATEGORIA).AsString := ACategoria; // adaptación
    // End adaptación DA5
    Result := dtControles;
  finally
    HideHourglassCursor;
  end;
end;

initialization
  dmControles := TdmControles.Create(nil);

finalization
  FreeAndNil(dmControles);

end.

  