roberto
57508cf6bd
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@4 f4e31baf-9722-1c47-927c-6f952f962d4b
55 lines
1.7 KiB
ObjectPascal
55 lines
1.7 KiB
ObjectPascal
unit uDataModuleCuentasEspeciales;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
|
uRORemoteService, uROClient, uROBinMessage,
|
|
uDADesigntimeCall, uControllerBase,
|
|
uBizCuentasEspeciales, uDARemoteDataAdapter, uDADataStreamer, uDAInterfaces, uRODynamicRequest,
|
|
uDABin2DataStreamer, uDAMemDataTable, uIDataModuleCuentasEspeciales, uDataModuleBase;
|
|
type
|
|
TDataModuleCuentasEspeciales = class(TDataModuleBase, IDataModuleCuentasEspeciales)
|
|
RORemoteService: TRORemoteService;
|
|
Bin2DataStreamer: TDABin2DataStreamer;
|
|
rda_CuentasEspeciales: TDARemoteDataAdapter;
|
|
tbl_CuentasEspeciales: TDAMemDataTable;
|
|
ds_CuentasEspeciales: TDADataSource;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
public
|
|
function GetItems: IBizCuentaEspecial;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
|
schCuentasEspecialesClient_Intf;
|
|
|
|
{ TdmCuentasEspeciales }
|
|
|
|
procedure TDataModuleCuentasEspeciales.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmConexion.Channel;
|
|
RORemoteService.Message := dmConexion.Message;
|
|
end;
|
|
|
|
function TDataModuleCuentasEspeciales.GetItems: IBizCuentaEspecial;
|
|
var
|
|
AContabilidadCuentaEspecial : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadCuentaEspecial := CloneDataTable(tbl_CuentasEspeciales);
|
|
AContabilidadCuentaEspecial.BusinessRulesID := BIZ_CLIENT_CuentaEspecial;
|
|
Result := (AContabilidadCuentaEspecial as IBizCuentaEspecial);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
end.
|