60 lines
1.5 KiB
ObjectPascal
60 lines
1.5 KiB
ObjectPascal
|
unit uDataModuleTarifas;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Classes, DB, uIDataModuleTarifas, uBizTarifas, uDAInterfaces, uDADataTable,
|
||
|
|
uDAScriptingProvider, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
|
||
|
|
uDARemoteDataAdapter, uROClient, uRORemoteService, uDataModuleBase;
|
||
|
|
|
||
|
|
type
|
||
|
|
TDataModuleTarifas = class(TDataModuleBase, IDataModuleTarifas)
|
||
|
|
RORemoteService: TRORemoteService;
|
||
|
|
rda_Tarifas: TDARemoteDataAdapter;
|
||
|
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||
|
|
tbl_Tarifas: TDAMemDataTable;
|
||
|
|
ds_Tarifas: TDADataSource;
|
||
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
||
|
|
protected
|
||
|
|
procedure AsignarClaseNegocio(ATarifa: TDADataTable);
|
||
|
|
public
|
||
|
|
function GetItems : IBizTarifa;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
{$R *.DFM}
|
||
|
|
|
||
|
|
uses
|
||
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
||
|
|
schTarifasClient_Intf;
|
||
|
|
|
||
|
|
{ TdmTarifas }
|
||
|
|
|
||
|
|
procedure TDataModuleTarifas.AsignarClaseNegocio(ATarifa: TDADataTable);
|
||
|
|
begin
|
||
|
|
ATarifa.BusinessRulesID := BIZ_CLIENT_TARIFA;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDataModuleTarifas.DAClientDataModuleCreate(Sender: TObject);
|
||
|
|
begin
|
||
|
|
RORemoteService.Channel := dmConexion.Channel;
|
||
|
|
RORemoteService.Message := dmConexion.Message;
|
||
|
|
end;
|
||
|
|
|
||
|
|
function TDataModuleTarifas.GetItems: IBizTarifa;
|
||
|
|
var
|
||
|
|
ATarifa : TDAMemDataTable;
|
||
|
|
begin
|
||
|
|
ShowHourglassCursor;
|
||
|
|
try
|
||
|
|
ATarifa := CloneDataTable(tbl_Tarifas);
|
||
|
|
AsignarClaseNegocio(ATarifa);
|
||
|
|
Result := (ATarifa as IBizTarifa);
|
||
|
|
finally
|
||
|
|
HideHourglassCursor;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
end.
|