60 lines
1.6 KiB
ObjectPascal
60 lines
1.6 KiB
ObjectPascal
|
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.
|