david
19aed4c9ee
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@108 1c943782-d109-9647-9548-93b3ac332352
77 lines
2.0 KiB
ObjectPascal
77 lines
2.0 KiB
ObjectPascal
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.
|
||
|
||
|