142 lines
4.2 KiB
ObjectPascal
142 lines
4.2 KiB
ObjectPascal
unit uDataModuleContabilidad;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
|
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
|
uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uControllerBase,
|
|
uBizBalances, uBizCuentasEspeciales, uBizEpigrafes, uDARemoteDataAdapter,
|
|
uDADataStreamer, uDAInterfaces, uRODynamicRequest, uBizCuentas, uBizSubCuentas,
|
|
uBizAsientos, uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad,
|
|
uDataModuleBase;
|
|
|
|
type
|
|
TDataModuleContabilidad = class(TDataModuleBase, IDataModuleContabilidad)
|
|
RORemoteService: TRORemoteService;
|
|
Bin2DataStreamer: TDABin2DataStreamer;
|
|
rda_Contabilidad: TDARemoteDataAdapter;
|
|
tbl_Balances: TDAMemDataTable;
|
|
ds_Balances: TDADataSource;
|
|
tbl_CuentasEspeciales: TDAMemDataTable;
|
|
ds_CuentasEspeciales: TDADataSource;
|
|
tbl_Epigrafes: TDAMemDataTable;
|
|
ds_Epigrafes: TDADataSource;
|
|
tbl_Asientos: TDAMemDataTable;
|
|
ds_Asientos: TDADataSource;
|
|
tbl_Cuentas: TDAMemDataTable;
|
|
ds_Cuentas: TDADataSource;
|
|
tbl_SubCuentas: TDAMemDataTable;
|
|
ds_SubCuentas: TDADataSource;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
public
|
|
function GetEpigrafeItems: IBizEpigrafe;
|
|
function GetCuentaItems: IBizCuenta;
|
|
function GetSubCuentaItems: IBizSubCuenta;
|
|
function GetAsientoItems: IBizAsiento;
|
|
function GetCuentaEspecialItems: IBizCuentaEspecial;
|
|
function GetBalanceItems: IBizBalance;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
|
schContabilidadClient_Intf;
|
|
|
|
{ TdmAlmacens }
|
|
|
|
procedure TDataModuleContabilidad.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmConexion.Channel;
|
|
RORemoteService.Message := dmConexion.Message;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetAsientoItems: IBizAsiento;
|
|
var
|
|
AContabilidadAsiento : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadAsiento := CloneDataTable(tbl_Asientos);
|
|
AContabilidadAsiento.BusinessRulesID := BIZ_CLIENT_ASIENTO;
|
|
Result := (AContabilidadAsiento as IBizAsiento);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetBalanceItems: IBizBalance;
|
|
var
|
|
AContabilidadBalance : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadBalance := CloneDataTable(tbl_Balances);
|
|
AContabilidadBalance.BusinessRulesID := BIZ_CLIENT_Balance;
|
|
Result := (AContabilidadBalance as IBizBalance);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetCuentaEspecialItems: IBizCuentaEspecial;
|
|
var
|
|
AContabilidadCuentaEspecial : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadCuentaEspecial := CloneDataTable(tbl_CuentasEspeciales);
|
|
AContabilidadCuentaEspecial.BusinessRulesID := BIZ_CLIENT_CuentaEspecial;
|
|
Result := (AContabilidadCuentaEspecial as IBizCuentaEspecial);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetCuentaItems: IBizCuenta;
|
|
var
|
|
AContabilidadCuenta : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadCuenta := CloneDataTable(tbl_Cuentas);
|
|
AContabilidadCuenta.BusinessRulesID := BIZ_CLIENT_CUENTA;
|
|
Result := (AContabilidadCuenta as IBizCuenta);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetEpigrafeItems: IBizEpigrafe;
|
|
var
|
|
AContabilidadEpigrafe : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadEpigrafe := CloneDataTable(tbl_Epigrafes);
|
|
AContabilidadEpigrafe.BusinessRulesID := BIZ_CLIENT_Epigrafe;
|
|
Result := (AContabilidadEpigrafe as IBizEpigrafe);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleContabilidad.GetSubCuentaItems: IBizSubCuenta;
|
|
var
|
|
AContabilidadSubCuenta : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AContabilidadSubCuenta := CloneDataTable(tbl_SubCuentas);
|
|
AContabilidadSubCuenta.BusinessRulesID := BIZ_CLIENT_SUBCUENTA;
|
|
Result := (AContabilidadSubCuenta as IBizSubCuenta);
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
end.
|