git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@31 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
parent
6d6073700d
commit
e297060736
@ -51,6 +51,15 @@ contains
|
||||
uIEditorEpigrafe in 'View\uIEditorEpigrafe.pas',
|
||||
uEpigrafesController in 'uEpigrafesController.pas',
|
||||
uBalancesController in 'uBalancesController.pas',
|
||||
uCuentasEspecialesController in 'uCuentasEspecialesController.pas';
|
||||
uCuentasEspecialesController in 'uCuentasEspecialesController.pas',
|
||||
uAsientosController in 'uAsientosController.pas',
|
||||
uCuentasController in 'uCuentasController.pas',
|
||||
uSubCuentasController in 'uSubCuentasController.pas',
|
||||
uIEditorAsiento in 'View\uIEditorAsiento.pas',
|
||||
uIEditorAsientos in 'View\uIEditorAsientos.pas',
|
||||
uIEditorCuenta in 'View\uIEditorCuenta.pas',
|
||||
uIEditorCuentas in 'View\uIEditorCuentas.pas',
|
||||
uIEditorSubCuenta in 'View\uIEditorSubCuenta.pas',
|
||||
uIEditorSubCuentas in 'View\uIEditorSubCuentas.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -48,30 +48,39 @@
|
||||
<DelphiCompile Include="Contabilidad_controller.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Contabilidad_data.dcp" />
|
||||
<DCCReference Include="Contabilidad_model.dcp" />
|
||||
<DCCReference Include="cxLibraryD10.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="dxThemeD10.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="uAsientosController.pas" />
|
||||
<DCCReference Include="uBalancesController.pas" />
|
||||
<DCCReference Include="uCuentasController.pas" />
|
||||
<DCCReference Include="uCuentasEspecialesController.pas" />
|
||||
<DCCReference Include="uEpigrafesController.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
<DCCReference Include="uSubCuentasController.pas" />
|
||||
<DCCReference Include="View\adortl.dcp" />
|
||||
<DCCReference Include="View\ApplicationBase.dcp" />
|
||||
<DCCReference Include="View\Base.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_data.dcp" />
|
||||
<DCCReference Include="View\Contabilidad_model.dcp" />
|
||||
<DCCReference Include="View\cxLibraryD10.dcp" />
|
||||
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="View\dbrtl.dcp" />
|
||||
<DCCReference Include="View\dsnap.dcp" />
|
||||
<DCCReference Include="View\dxThemeD10.dcp" />
|
||||
<DCCReference Include="View\GUIBase.dcp" />
|
||||
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="View\rtl.dcp" />
|
||||
<DCCReference Include="View\uIEditorAsiento.pas" />
|
||||
<DCCReference Include="View\uIEditorAsientos.pas" />
|
||||
<DCCReference Include="View\uIEditorBalance.pas" />
|
||||
<DCCReference Include="View\uIEditorBalances.pas" />
|
||||
<DCCReference Include="View\uIEditorCuenta.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentaEspecial.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentas.pas" />
|
||||
<DCCReference Include="View\uIEditorCuentasEspeciales.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafe.pas" />
|
||||
<DCCReference Include="View\uIEditorEpigrafes.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuenta.pas" />
|
||||
<DCCReference Include="View\uIEditorSubCuentas.pas" />
|
||||
<DCCReference Include="View\vcl.dcp" />
|
||||
<DCCReference Include="View\vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -0,0 +1,26 @@
|
||||
unit uIEditorAsiento;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizAsientos, uAsientosController;
|
||||
|
||||
type
|
||||
IEditorAsiento = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetController : IAsientosController;
|
||||
procedure SetController (const Value : IAsientosController);
|
||||
property Controller : IAsientosController read GetController write SetController;
|
||||
|
||||
function GetAsiento: IBizAsiento;
|
||||
procedure SetAsiento(const Value: IBizAsiento);
|
||||
property Asiento: IBizAsiento read GetAsiento write SetAsiento;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorAsientos;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizAsientos, uAsientosController;
|
||||
|
||||
type
|
||||
IEditorAsientos = interface (IEditorGridBase)
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : IAsientosController;
|
||||
procedure SetController (const Value : IAsientosController);
|
||||
property Controller : IAsientosController read GetController write SetController;
|
||||
|
||||
function GetAsientos: IBizAsiento;
|
||||
procedure SetAsientos(const Value: IBizAsiento);
|
||||
property Asientos: IBizAsiento read GetAsientos write SetAsientos;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorCuenta;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizCuentas, uCuentasController;
|
||||
|
||||
type
|
||||
IEditorCuenta = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetController : ICuentasController;
|
||||
procedure SetController (const Value : ICuentasController);
|
||||
property Controller : ICuentasController read GetController write SetController;
|
||||
|
||||
function GetCuenta: IBizCuenta;
|
||||
procedure SetCuenta(const Value: IBizCuenta);
|
||||
property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorCuentas;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizCuentas, uCuentasController;
|
||||
|
||||
type
|
||||
IEditorCuentas = interface (IEditorGridBase)
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : ICuentasController;
|
||||
procedure SetController (const Value : ICuentasController);
|
||||
property Controller : ICuentasController read GetController write SetController;
|
||||
|
||||
function GetCuentas: IBizCuenta;
|
||||
procedure SetCuentas(const Value: IBizCuenta);
|
||||
property Cuentas: IBizCuenta read GetCuentas write SetCuentas;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,26 @@
|
||||
unit uIEditorSubCuenta;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizSubCuentas, uSubCuentasController;
|
||||
|
||||
type
|
||||
IEditorSubCuenta = interface
|
||||
['{3CDABEA1-F952-4F35-8A31-279FFB7C31E4}']
|
||||
function GetController : ISubCuentasController;
|
||||
procedure SetController (const Value : ISubCuentasController);
|
||||
property Controller : ISubCuentasController read GetController write SetController;
|
||||
|
||||
function GetSubCuenta: IBizSubCuenta;
|
||||
procedure SetSubCuenta(const Value: IBizSubCuenta);
|
||||
property SubCuenta: IBizSubCuenta read GetSubCuenta write SetSubCuenta;
|
||||
|
||||
function ShowModal : Integer;
|
||||
procedure Release;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -0,0 +1,23 @@
|
||||
unit uIEditorSubCuentas;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
uEditorGridBase, uBizSubCuentas, uSubCuentasController;
|
||||
|
||||
type
|
||||
IEditorSubCuentas = interface (IEditorGridBase)
|
||||
['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
|
||||
function GetController : ISubCuentasController;
|
||||
procedure SetController (const Value : ISubCuentasController);
|
||||
property Controller : ISubCuentasController read GetController write SetController;
|
||||
|
||||
function GetSubCuentas: IBizSubCuenta;
|
||||
procedure SetSubCuentas(const Value: IBizSubCuenta);
|
||||
property SubCuentas: IBizSubCuenta read GetSubCuentas write SetSubCuentas;
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
@ -30,6 +30,7 @@ type
|
||||
|
||||
function ValidarEpigrafe(AEpigrafe: IBizEpigrafe): Boolean;
|
||||
procedure AsignarDataModule;
|
||||
procedure FiltrarEjercicio(AEpigrafe: IBizEpigrafe);
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
@ -52,7 +53,7 @@ implementation
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorEpigrafes, uIEditorEpigrafe, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TEpigrafesController }
|
||||
@ -94,6 +95,7 @@ end;
|
||||
function TEpigrafesController.BuscarTodos: IBizEpigrafe;
|
||||
begin
|
||||
Result := FDataModule.GetEpigrafeItems;
|
||||
FiltrarEjercicio(Result);
|
||||
end;
|
||||
|
||||
constructor TEpigrafesController.Create;
|
||||
@ -231,6 +233,26 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.FiltrarEjercicio(AEpigrafe: IBizEpigrafe);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
if AEpigrafe.DataTable.Active then
|
||||
AEpigrafe.DataTable.Active := False;
|
||||
|
||||
// Filtrar los epigrafes actuales por ejercicio activo
|
||||
with AEpigrafe.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_EJERCICIO = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_EpigrafesID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TEpigrafesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
296
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
Normal file
296
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
Normal file
@ -0,0 +1,296 @@
|
||||
unit uSubCuentasController;
|
||||
|
||||
interface
|
||||
|
||||
|
||||
uses
|
||||
Classes, SysUtils, uDADataTable, uControllerBase,
|
||||
uBizSubCuentas, uIDataModuleContabilidad;
|
||||
type
|
||||
ISubCuentasController = interface(IObservador)
|
||||
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
|
||||
function BuscarTodos: IBizSubCuenta;
|
||||
function Buscar(ID: Integer): IBizSubCuenta;
|
||||
procedure VerTodos(ASubCuentas: IBizSubCuenta);
|
||||
procedure Ver(ASubCuenta: IBizSubCuenta);
|
||||
procedure Anadir(ASubCuenta : IBizSubCuenta);
|
||||
function Eliminar(ASubCuenta : IBizSubCuenta): Boolean;
|
||||
function Guardar(ASubCuenta : IBizSubCuenta): Boolean;
|
||||
procedure DescartarCambios(ASubCuenta : IBizSubCuenta);
|
||||
function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
|
||||
function DarListaSubCuentas: TStringList;
|
||||
end;
|
||||
|
||||
TSubCuentasController = class(TObservador, ISubCuentasController)
|
||||
protected
|
||||
FDataModule : IDataModuleContabilidad;
|
||||
|
||||
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
|
||||
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
|
||||
|
||||
function ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
|
||||
procedure AsignarDataModule;
|
||||
procedure FiltrarSubCuenta(ASubCuenta: IBizSubCuenta);
|
||||
|
||||
public
|
||||
constructor Create; override;
|
||||
destructor Destroy; override;
|
||||
|
||||
function Eliminar(ASubCuenta : IBizSubCuenta): Boolean;
|
||||
function Guardar(ASubCuenta : IBizSubCuenta): Boolean; virtual;
|
||||
procedure DescartarCambios(ASubCuenta : IBizSubCuenta); virtual;
|
||||
procedure Anadir(ASubCuenta : IBizSubCuenta);
|
||||
function BuscarTodos: IBizSubCuenta;
|
||||
function Buscar(ID: Integer): IBizSubCuenta;
|
||||
procedure VerTodos(ASubCuentas: IBizSubCuenta);
|
||||
procedure Ver(ASubCuenta: IBizSubCuenta);
|
||||
function Localizar(ASubCuentas: IBizSubCuenta; ADescripcion:String): Boolean;
|
||||
function DarListaSubCuentas: TStringList;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
|
||||
uIEditorSubCuentas, uIEditorSubCuenta, uDataModuleContabilidad,
|
||||
uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
|
||||
uDateUtils, uROTypes, DateUtils, Controls, Windows;
|
||||
|
||||
{ TSubCuentasController }
|
||||
|
||||
procedure TSubCuentasController.Anadir(ASubCuenta: IBizSubCuenta);
|
||||
begin
|
||||
ASubCuenta.Insert;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.AsignarDataModule;
|
||||
begin
|
||||
FDataModule := TDataModuleContabilidad.Create(Nil);
|
||||
end;
|
||||
|
||||
function TSubCuentasController.Buscar(ID: Integer): IBizSubCuenta;
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
Result := BuscarTodos;
|
||||
|
||||
with Result.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID = :ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID), NewConstant(ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.BuscarTodos: IBizSubCuenta;
|
||||
begin
|
||||
Result := FDataModule.GetSubCuentaItems;
|
||||
FiltrarSubCuenta(Result);
|
||||
end;
|
||||
|
||||
constructor TSubCuentasController.Create;
|
||||
begin
|
||||
inherited;
|
||||
AsignarDataModule;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
|
||||
begin
|
||||
Result := Supports(EditorRegistry.CreateEditor(AName), IID, Intf);
|
||||
end;
|
||||
|
||||
function TSubCuentasController.DarListaSubCuentas: TStringList;
|
||||
var
|
||||
ASubCuentas: IBizSubCuenta;
|
||||
begin
|
||||
ASubCuentas := BuscarTodos;
|
||||
ASubCuentas.DataTable.Active := True;
|
||||
Result := TStringList.Create;
|
||||
try
|
||||
with Result do
|
||||
begin
|
||||
ASubCuentas.DataTable.First;
|
||||
while not ASubCuentas.DataTable.EOF do
|
||||
begin
|
||||
Add(ASubCuentas.DESCRIPCION);
|
||||
ASubCuentas.DataTable.Next;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
ASubCuentas := NIL;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.DescartarCambios(ASubCuenta: IBizSubCuenta);
|
||||
begin
|
||||
if not Assigned(ASubCuenta) then
|
||||
raise Exception.Create ('SubCuenta no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ASubCuenta.State in dsEditModes) then
|
||||
ASubCuenta.Cancel;
|
||||
|
||||
ASubCuenta.DataTable.CancelUpdates;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
destructor TSubCuentasController.Destroy;
|
||||
begin
|
||||
FDataModule:= NIL;
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.ValidarSubCuenta(ASubCuenta: IBizSubCuenta): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ASubCuenta) then
|
||||
raise Exception.Create ('SubCuenta no asignado');
|
||||
|
||||
if (ASubCuenta.DataTable.State in dsEditModes) then
|
||||
ASubCuenta.DataTable.Post;
|
||||
|
||||
if Length(ASubCuenta.DESCRIPCION) = 0 then
|
||||
raise Exception.Create('Debe indicar un nombre para este SubCuenta.');
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.Ver(ASubCuenta: IBizSubCuenta);
|
||||
var
|
||||
AEditor : IEditorSubCuenta;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorSubCuenta', IEditorSubCuenta, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
SubCuenta := ASubCuenta;
|
||||
ShowModal;
|
||||
Release;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.VerTodos(ASubCuentas: IBizSubCuenta);
|
||||
var
|
||||
AEditor : IEditorSubCuentas;
|
||||
begin
|
||||
AEditor := NIL;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
CreateEditor('EditorSubCuentas', IEditorSubCuentas, AEditor);
|
||||
if Assigned(AEditor) then
|
||||
with AEditor do
|
||||
begin
|
||||
Controller := Self; //OJO ORDEN MUY IMPORTANTE
|
||||
SubCuentas := ASubCuentas;
|
||||
ShowEmbedded;
|
||||
end;
|
||||
finally
|
||||
AEditor := NIL;
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.Eliminar(ASubCuenta: IBizSubCuenta): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if not Assigned(ASubCuenta) then
|
||||
raise Exception.Create ('SubCuenta no asignado');
|
||||
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if (ASubCuenta.State in dsEditModes) then
|
||||
ASubCuenta.Cancel;
|
||||
|
||||
ASubCuenta.Delete;
|
||||
ASubCuenta.DataTable.ApplyUpdates;
|
||||
HideHourglassCursor;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.FiltrarSubCuenta(ASubCuenta: IBizSubCuenta);
|
||||
var
|
||||
Condicion: TDAWhereExpression;
|
||||
begin
|
||||
if ASubCuenta.DataTable.Active then
|
||||
ASubCuenta.DataTable.Active := False;
|
||||
|
||||
// Filtrar los SubCuentas actuales por SubCuenta activo
|
||||
with ASubCuenta.DataTable.DynamicWhere do
|
||||
begin
|
||||
// (ID_SubCuenta = ID)
|
||||
Condicion := NewBinaryExpression(NewField('', fld_SubCuentasID_Ejercicio), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);
|
||||
|
||||
if IsEmpty then
|
||||
Expression := Condicion
|
||||
else
|
||||
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
|
||||
begin
|
||||
inherited;
|
||||
//
|
||||
end;
|
||||
|
||||
function TSubCuentasController.Guardar(ASubCuenta: IBizSubCuenta): Boolean;
|
||||
begin
|
||||
Result := False;
|
||||
|
||||
if ValidarSubCuenta(ASubCuenta) then
|
||||
begin
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
ASubCuenta.DataTable.ApplyUpdates;
|
||||
Result := True;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TSubCuentasController.Localizar(ASubCuentas: IBizSubCuenta; ADescripcion: String): Boolean;
|
||||
begin
|
||||
Result := True;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
with ASubCuentas.DataTable do
|
||||
begin
|
||||
DisableControls;
|
||||
First;
|
||||
if not Locate(fld_SubCuentasDESCRIPCION, ADescripcion, []) then
|
||||
Result := False;
|
||||
EnableControls;
|
||||
end;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@ -98,14 +98,14 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Balances'
|
||||
IndexDefs = <>
|
||||
Left = 352
|
||||
Left = 408
|
||||
Top = 216
|
||||
end
|
||||
object ds_Balances: TDADataSource
|
||||
DataSet = tbl_Balances.Dataset
|
||||
DataTable = tbl_Balances
|
||||
Left = 352
|
||||
Top = 160
|
||||
Left = 408
|
||||
Top = 152
|
||||
end
|
||||
object tbl_CuentasEspeciales: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
@ -139,14 +139,14 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'CuentasEspeciales'
|
||||
IndexDefs = <>
|
||||
Left = 168
|
||||
Top = 216
|
||||
Left = 408
|
||||
Top = 80
|
||||
end
|
||||
object ds_CuentasEspeciales: TDADataSource
|
||||
DataSet = tbl_CuentasEspeciales.Dataset
|
||||
DataTable = tbl_CuentasEspeciales
|
||||
Left = 168
|
||||
Top = 160
|
||||
Left = 408
|
||||
Top = 16
|
||||
end
|
||||
object tbl_Epigrafes: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
@ -200,4 +200,194 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
|
||||
Left = 296
|
||||
Top = 16
|
||||
end
|
||||
object tbl_Asientos: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_ASIENTOS_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Asientos_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_ASIENTO_COMPENSADO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Asientos_ID_ASIENTO_COMPENSADO'
|
||||
DictionaryEntry = 'Asientos_ID_ASIENTO_COMPENSADO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Asientos_ID_SUBCUENTA'
|
||||
DictionaryEntry = 'Asientos_ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ASIENTO'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'Asientos_FECHA_ASIENTO'
|
||||
DictionaryEntry = 'Asientos_FECHA_ASIENTO'
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Asientos_CONCEPTO'
|
||||
DictionaryEntry = 'Asientos_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'PUNTEADO'
|
||||
DataType = datSmallInt
|
||||
DisplayLabel = 'Asientos_PUNTEADO'
|
||||
DictionaryEntry = 'Asientos_PUNTEADO'
|
||||
end
|
||||
item
|
||||
Name = 'DEBE'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Asientos_DEBE'
|
||||
DictionaryEntry = 'Asientos_DEBE'
|
||||
end
|
||||
item
|
||||
Name = 'HABER'
|
||||
DataType = datCurrency
|
||||
DisplayLabel = 'Asientos_HABER'
|
||||
DictionaryEntry = 'Asientos_HABER'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Asientos'
|
||||
IndexDefs = <>
|
||||
Left = 224
|
||||
Top = 216
|
||||
end
|
||||
object ds_Asientos: TDADataSource
|
||||
DataSet = tbl_Asientos.Dataset
|
||||
DataTable = tbl_Asientos
|
||||
Left = 224
|
||||
Top = 152
|
||||
end
|
||||
object tbl_Cuentas: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Cuentas_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DisplayLabel = 'Cuentas_REF_CUENTA'
|
||||
DictionaryEntry = 'Cuentas_REF_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cuentas_ID_EJERCICIO'
|
||||
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cuentas_ID_EPIGRAFE'
|
||||
DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Cuentas_DESCRIPCION'
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cuentas_ID_BALANCE'
|
||||
DictionaryEntry = 'Cuentas_ID_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Cuentas'
|
||||
IndexDefs = <>
|
||||
Left = 144
|
||||
Top = 216
|
||||
end
|
||||
object ds_Cuentas: TDADataSource
|
||||
DataSet = tbl_Cuentas.Dataset
|
||||
DataTable = tbl_Cuentas
|
||||
Left = 152
|
||||
Top = 152
|
||||
end
|
||||
object tbl_SubCuentas: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'SubCuentas_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DisplayLabel = 'SubCuentas_REF_SUBCUENTA'
|
||||
DictionaryEntry = 'SubCuentas_REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'SubCuentas_DESCRIPCION'
|
||||
DictionaryEntry = 'SubCuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentas_ID_CUENTA'
|
||||
DictionaryEntry = 'SubCuentas_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'SubCuentas_ID_EJERCICIO'
|
||||
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
RemoteDataAdapter = rda_Contabilidad
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'SubCuentas'
|
||||
IndexDefs = <>
|
||||
Left = 312
|
||||
Top = 216
|
||||
end
|
||||
object ds_SubCuentas: TDADataSource
|
||||
DataSet = tbl_SubCuentas.Dataset
|
||||
DataTable = tbl_SubCuentas
|
||||
Left = 312
|
||||
Top = 152
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,8 +7,10 @@ uses
|
||||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||||
uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uControllerBase,
|
||||
uBizBalances, uBizCuentasEspeciales, uBizEpigrafes, uDARemoteDataAdapter,
|
||||
uDADataStreamer, uDAInterfaces, uRODynamicRequest,
|
||||
uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad, uDataModuleBase;
|
||||
uDADataStreamer, uDAInterfaces, uRODynamicRequest, uBizCuentas, uBizSubCuentas,
|
||||
uBizAsientos, uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad,
|
||||
uDataModuleBase;
|
||||
|
||||
type
|
||||
TDataModuleContabilidad = class(TDataModuleBase, IDataModuleContabilidad)
|
||||
RORemoteService: TRORemoteService;
|
||||
@ -20,9 +22,18 @@ type
|
||||
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;
|
||||
@ -43,6 +54,20 @@ begin
|
||||
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;
|
||||
@ -71,6 +96,20 @@ begin
|
||||
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;
|
||||
@ -85,4 +124,18 @@ begin
|
||||
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.
|
||||
|
||||
@ -42,6 +42,9 @@ contains
|
||||
uBizEpigrafes in 'uBizEpigrafes.pas',
|
||||
schContabilidadClient_Intf in 'schContabilidadClient_Intf.pas',
|
||||
uBizBalances in 'uBizBalances.pas',
|
||||
uIDataModuleContabilidad in 'Data\uIDataModuleContabilidad.pas';
|
||||
uIDataModuleContabilidad in 'Data\uIDataModuleContabilidad.pas',
|
||||
uBizCuentas in 'uBizCuentas.pas',
|
||||
uBizSubCuentas in 'uBizSubCuentas.pas',
|
||||
uBizAsientos in 'uBizAsientos.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -47,22 +47,25 @@
|
||||
<DelphiCompile Include="Contabilidad_model.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="Data\adortl.dcp" />
|
||||
<DCCReference Include="Data\ApplicationBase.dcp" />
|
||||
<DCCReference Include="Data\Base.dcp" />
|
||||
<DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\dbrtl.dcp" />
|
||||
<DCCReference Include="Data\dsnap.dcp" />
|
||||
<DCCReference Include="Data\GUIBase.dcp" />
|
||||
<DCCReference Include="Data\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\rtl.dcp" />
|
||||
<DCCReference Include="adortl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleContabilidad.pas" />
|
||||
<DCCReference Include="Data\vcl.dcp" />
|
||||
<DCCReference Include="Data\vcldb.dcp" />
|
||||
<DCCReference Include="dbrtl.dcp" />
|
||||
<DCCReference Include="dsnap.dcp" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schContabilidadClient_Intf.pas" />
|
||||
<DCCReference Include="uBizAsientos.pas" />
|
||||
<DCCReference Include="uBizBalances.pas" />
|
||||
<DCCReference Include="uBizCuentas.pas" />
|
||||
<DCCReference Include="uBizCuentasEspeciales.pas" />
|
||||
<DCCReference Include="uBizEpigrafes.pas" />
|
||||
<DCCReference Include="uBizSubCuentas.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
<DCCReference Include="vcldb.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
|
||||
Binary file not shown.
@ -3,7 +3,8 @@ unit uIDataModuleContabilidad;
|
||||
interface
|
||||
|
||||
uses
|
||||
uBizEpigrafes, uBizCuentasEspeciales, uBizBalances;
|
||||
uBizEpigrafes, uBizCuentasEspeciales, uBizBalances, uBizCuentas, uBizSubCuentas,
|
||||
uBizAsientos;
|
||||
|
||||
type
|
||||
IDataModuleContabilidad = interface(IInterface)
|
||||
@ -11,6 +12,9 @@ type
|
||||
function GetEpigrafeItems: IBizEpigrafe;
|
||||
function GetCuentaEspecialItems: IBizCuentaEspecial;
|
||||
function GetBalanceItems: IBizBalance;
|
||||
function GetCuentaItems: IBizCuenta;
|
||||
function GetSubCuentaItems: IBizSubCuenta;
|
||||
function GetAsientoItems: IBizAsiento;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
Binary file not shown.
@ -3,21 +3,79 @@ unit schContabilidadClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_CuentasEspeciales = '{7010703B-8175-4A1E-8756-C0E20C516FFC}';
|
||||
RID_Epigrafes = '{0EE6E73B-71AE-45FD-B91F-3DEC9485EF9C}';
|
||||
RID_Balances = '{C15D38B4-0D4D-4236-90BE-662998D63281}';
|
||||
RID_Asientos = '{C51C5471-A7F7-4A0B-B124-1FCA17F1EA4D}';
|
||||
RID_SubCuentas = '{BBB2A9E5-DAD7-4E8B-A14D-CC7DEAF2D283}';
|
||||
RID_Cuentas = '{A0EB7B63-501F-4E40-9872-5E70A1EE346A}';
|
||||
RID_CuentasEspeciales = '{8714C12C-03FF-4FB3-98B7-76533DFDD66C}';
|
||||
RID_Epigrafes = '{1E81E57B-5402-4881-A28B-2927146E071C}';
|
||||
RID_Balances = '{39557F67-321F-41E8-8EE0-CAB8216CD882}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Asientos = 'Asientos';
|
||||
nme_SubCuentas = 'SubCuentas';
|
||||
nme_Cuentas = 'Cuentas';
|
||||
nme_CuentasEspeciales = 'CuentasEspeciales';
|
||||
nme_Epigrafes = 'Epigrafes';
|
||||
nme_Balances = 'Balances';
|
||||
|
||||
{ Asientos fields }
|
||||
fld_AsientosID = 'ID';
|
||||
fld_AsientosID_ASIENTO_COMPENSADO = 'ID_ASIENTO_COMPENSADO';
|
||||
fld_AsientosID_SUBCUENTA = 'ID_SUBCUENTA';
|
||||
fld_AsientosFECHA_ASIENTO = 'FECHA_ASIENTO';
|
||||
fld_AsientosCONCEPTO = 'CONCEPTO';
|
||||
fld_AsientosPUNTEADO = 'PUNTEADO';
|
||||
fld_AsientosDEBE = 'DEBE';
|
||||
fld_AsientosHABER = 'HABER';
|
||||
|
||||
{ Asientos field indexes }
|
||||
idx_AsientosID = 0;
|
||||
idx_AsientosID_ASIENTO_COMPENSADO = 1;
|
||||
idx_AsientosID_SUBCUENTA = 2;
|
||||
idx_AsientosFECHA_ASIENTO = 3;
|
||||
idx_AsientosCONCEPTO = 4;
|
||||
idx_AsientosPUNTEADO = 5;
|
||||
idx_AsientosDEBE = 6;
|
||||
idx_AsientosHABER = 7;
|
||||
|
||||
{ SubCuentas fields }
|
||||
fld_SubCuentasID = 'ID';
|
||||
fld_SubCuentasREF_SUBCUENTA = 'REF_SUBCUENTA';
|
||||
fld_SubCuentasDESCRIPCION = 'DESCRIPCION';
|
||||
fld_SubCuentasID_CUENTA = 'ID_CUENTA';
|
||||
fld_SubCuentasID_EJERCICIO = 'ID_EJERCICIO';
|
||||
|
||||
{ SubCuentas field indexes }
|
||||
idx_SubCuentasID = 0;
|
||||
idx_SubCuentasREF_SUBCUENTA = 1;
|
||||
idx_SubCuentasDESCRIPCION = 2;
|
||||
idx_SubCuentasID_CUENTA = 3;
|
||||
idx_SubCuentasID_EJERCICIO = 4;
|
||||
|
||||
{ Cuentas fields }
|
||||
fld_CuentasID = 'ID';
|
||||
fld_CuentasREF_CUENTA = 'REF_CUENTA';
|
||||
fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
|
||||
fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
|
||||
fld_CuentasDESCRIPCION = 'DESCRIPCION';
|
||||
fld_CuentasID_BALANCE = 'ID_BALANCE';
|
||||
fld_CuentasID_CUENTA_ESPECIAL = 'ID_CUENTA_ESPECIAL';
|
||||
|
||||
{ Cuentas field indexes }
|
||||
idx_CuentasID = 0;
|
||||
idx_CuentasREF_CUENTA = 1;
|
||||
idx_CuentasID_EJERCICIO = 2;
|
||||
idx_CuentasID_EPIGRAFE = 3;
|
||||
idx_CuentasDESCRIPCION = 4;
|
||||
idx_CuentasID_BALANCE = 5;
|
||||
idx_CuentasID_CUENTA_ESPECIAL = 6;
|
||||
|
||||
{ CuentasEspeciales fields }
|
||||
fld_CuentasEspecialesID = 'ID';
|
||||
fld_CuentasEspecialesREFERENCIA = 'REFERENCIA';
|
||||
@ -65,9 +123,318 @@ const
|
||||
idx_BalancesDESCRIPCION3 = 8;
|
||||
|
||||
type
|
||||
{ IAsientos }
|
||||
IAsientos = interface(IDAStronglyTypedDataTable)
|
||||
['{5914B799-7DB4-4B85-B63B-BA4CC1827CF3}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetID_ASIENTO_COMPENSADOValue: Integer;
|
||||
procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
|
||||
function GetID_ASIENTO_COMPENSADOIsNull: Boolean;
|
||||
procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
|
||||
function GetID_SUBCUENTAValue: Integer;
|
||||
procedure SetID_SUBCUENTAValue(const aValue: Integer);
|
||||
function GetID_SUBCUENTAIsNull: Boolean;
|
||||
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
function GetFECHA_ASIENTOValue: DateTime;
|
||||
procedure SetFECHA_ASIENTOValue(const aValue: DateTime);
|
||||
function GetFECHA_ASIENTOIsNull: Boolean;
|
||||
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean);
|
||||
function GetCONCEPTOValue: String;
|
||||
procedure SetCONCEPTOValue(const aValue: String);
|
||||
function GetCONCEPTOIsNull: Boolean;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
function GetPUNTEADOValue: SmallInt;
|
||||
procedure SetPUNTEADOValue(const aValue: SmallInt);
|
||||
function GetPUNTEADOIsNull: Boolean;
|
||||
procedure SetPUNTEADOIsNull(const aValue: Boolean);
|
||||
function GetDEBEValue: Currency;
|
||||
procedure SetDEBEValue(const aValue: Currency);
|
||||
function GetDEBEIsNull: Boolean;
|
||||
procedure SetDEBEIsNull(const aValue: Boolean);
|
||||
function GetHABERValue: Currency;
|
||||
procedure SetHABERValue(const aValue: Currency);
|
||||
function GetHABERIsNull: Boolean;
|
||||
procedure SetHABERIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_ASIENTO_COMPENSADO: Integer read GetID_ASIENTO_COMPENSADOValue write SetID_ASIENTO_COMPENSADOValue;
|
||||
property ID_ASIENTO_COMPENSADOIsNull: Boolean read GetID_ASIENTO_COMPENSADOIsNull write SetID_ASIENTO_COMPENSADOIsNull;
|
||||
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
||||
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
||||
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
||||
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
||||
property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull;
|
||||
property HABER: Currency read GetHABERValue write SetHABERValue;
|
||||
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
||||
end;
|
||||
|
||||
{ TAsientosDataTableRules }
|
||||
TAsientosDataTableRules = class(TDADataTableRules, IAsientos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_ASIENTO_COMPENSADOValue: Integer; virtual;
|
||||
procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer); virtual;
|
||||
function GetID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
|
||||
procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_SUBCUENTAValue: Integer; virtual;
|
||||
procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
|
||||
function GetID_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetFECHA_ASIENTOValue: DateTime; virtual;
|
||||
procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_ASIENTOIsNull: Boolean; virtual;
|
||||
procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetCONCEPTOValue: String; virtual;
|
||||
procedure SetCONCEPTOValue(const aValue: String); virtual;
|
||||
function GetCONCEPTOIsNull: Boolean; virtual;
|
||||
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
|
||||
function GetPUNTEADOValue: SmallInt; virtual;
|
||||
procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
|
||||
function GetPUNTEADOIsNull: Boolean; virtual;
|
||||
procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
|
||||
function GetDEBEValue: Currency; virtual;
|
||||
procedure SetDEBEValue(const aValue: Currency); virtual;
|
||||
function GetDEBEIsNull: Boolean; virtual;
|
||||
procedure SetDEBEIsNull(const aValue: Boolean); virtual;
|
||||
function GetHABERValue: Currency; virtual;
|
||||
procedure SetHABERValue(const aValue: Currency); virtual;
|
||||
function GetHABERIsNull: Boolean; virtual;
|
||||
procedure SetHABERIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property ID_ASIENTO_COMPENSADO: Integer read GetID_ASIENTO_COMPENSADOValue write SetID_ASIENTO_COMPENSADOValue;
|
||||
property ID_ASIENTO_COMPENSADOIsNull: Boolean read GetID_ASIENTO_COMPENSADOIsNull write SetID_ASIENTO_COMPENSADOIsNull;
|
||||
property ID_SUBCUENTA: Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
|
||||
property ID_SUBCUENTAIsNull: Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
|
||||
property FECHA_ASIENTO: DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
|
||||
property FECHA_ASIENTOIsNull: Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
|
||||
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
|
||||
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
|
||||
property PUNTEADO: SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
|
||||
property PUNTEADOIsNull: Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
|
||||
property DEBE: Currency read GetDEBEValue write SetDEBEValue;
|
||||
property DEBEIsNull: Boolean read GetDEBEIsNull write SetDEBEIsNull;
|
||||
property HABER: Currency read GetHABERValue write SetHABERValue;
|
||||
property HABERIsNull: Boolean read GetHABERIsNull write SetHABERIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ ISubCuentas }
|
||||
ISubCuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{C519726C-43A5-4168-AD68-A63176180B09}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREF_SUBCUENTAValue: String;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String);
|
||||
function GetREF_SUBCUENTAIsNull: Boolean;
|
||||
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetID_CUENTAValue: Integer;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer);
|
||||
function GetID_CUENTAIsNull: Boolean;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetID_EJERCICIOValue: Integer;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
end;
|
||||
|
||||
{ TSubCuentasDataTableRules }
|
||||
TSubCuentasDataTableRules = class(TDADataTableRules, ISubCuentas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_SUBCUENTAValue: String; virtual;
|
||||
procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_SUBCUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTAValue: Integer; virtual;
|
||||
procedure SetID_CUENTAValue(const aValue: Integer); virtual;
|
||||
function GetID_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_SUBCUENTA: String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
|
||||
property REF_SUBCUENTAIsNull: Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_CUENTA: Integer read GetID_CUENTAValue write SetID_CUENTAValue;
|
||||
property ID_CUENTAIsNull: Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ ICuentas }
|
||||
ICuentas = interface(IDAStronglyTypedDataTable)
|
||||
['{A60C051B-5B76-4B39-8B2B-30EBFCD31798}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetREF_CUENTAValue: String;
|
||||
procedure SetREF_CUENTAValue(const aValue: String);
|
||||
function GetREF_CUENTAIsNull: Boolean;
|
||||
procedure SetREF_CUENTAIsNull(const aValue: Boolean);
|
||||
function GetID_EJERCICIOValue: Integer;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer);
|
||||
function GetID_EJERCICIOIsNull: Boolean;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
function GetID_EPIGRAFEValue: Integer;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer);
|
||||
function GetID_EPIGRAFEIsNull: Boolean;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
function GetID_BALANCEValue: Integer;
|
||||
procedure SetID_BALANCEValue(const aValue: Integer);
|
||||
function GetID_BALANCEIsNull: Boolean;
|
||||
procedure SetID_BALANCEIsNull(const aValue: Boolean);
|
||||
function GetID_CUENTA_ESPECIALValue: Integer;
|
||||
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
||||
function GetID_CUENTA_ESPECIALIsNull: Boolean;
|
||||
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
||||
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
||||
property ID_CUENTA_ESPECIAL: Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
||||
property ID_CUENTA_ESPECIALIsNull: Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
||||
end;
|
||||
|
||||
{ TCuentasDataTableRules }
|
||||
TCuentasDataTableRules = class(TDADataTableRules, ICuentas)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetREF_CUENTAValue: String; virtual;
|
||||
procedure SetREF_CUENTAValue(const aValue: String); virtual;
|
||||
function GetREF_CUENTAIsNull: Boolean; virtual;
|
||||
procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EJERCICIOValue: Integer; virtual;
|
||||
procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
|
||||
function GetID_EJERCICIOIsNull: Boolean; virtual;
|
||||
procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_EPIGRAFEValue: Integer; virtual;
|
||||
procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
|
||||
function GetID_EPIGRAFEIsNull: Boolean; virtual;
|
||||
procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_BALANCEValue: Integer; virtual;
|
||||
procedure SetID_BALANCEValue(const aValue: Integer); virtual;
|
||||
function GetID_BALANCEIsNull: Boolean; virtual;
|
||||
procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_CUENTA_ESPECIALValue: Integer; virtual;
|
||||
procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); virtual;
|
||||
function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
|
||||
procedure SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property REF_CUENTA: String read GetREF_CUENTAValue write SetREF_CUENTAValue;
|
||||
property REF_CUENTAIsNull: Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
|
||||
property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
|
||||
property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
|
||||
property ID_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
|
||||
property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
|
||||
property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
|
||||
property ID_CUENTA_ESPECIAL: Integer read GetID_CUENTA_ESPECIALValue write SetID_CUENTA_ESPECIALValue;
|
||||
property ID_CUENTA_ESPECIALIsNull: Boolean read GetID_CUENTA_ESPECIALIsNull write SetID_CUENTA_ESPECIALIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
destructor Destroy; override;
|
||||
|
||||
end;
|
||||
|
||||
{ ICuentasEspeciales }
|
||||
ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
|
||||
['{B124DFE8-E622-4149-B43F-7E62A28343AF}']
|
||||
['{267A39E7-DD65-4417-B0EF-75BF2C13BB71}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -93,7 +460,7 @@ type
|
||||
end;
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
TCuentasEspecialesDataTableRules = class(TIntfObjectDADataTableRules, ICuentasEspeciales)
|
||||
TCuentasEspecialesDataTableRules = class(TDADataTableRules, ICuentasEspeciales)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -126,7 +493,7 @@ type
|
||||
|
||||
{ IEpigrafes }
|
||||
IEpigrafes = interface(IDAStronglyTypedDataTable)
|
||||
['{AC7DC016-22AE-41E3-BF12-44D7B8EA6CF6}']
|
||||
['{1F851BD7-9C70-4A5E-B0E6-EF6918802C15}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -164,7 +531,7 @@ type
|
||||
end;
|
||||
|
||||
{ TEpigrafesDataTableRules }
|
||||
TEpigrafesDataTableRules = class(TIntfObjectDADataTableRules, IEpigrafes)
|
||||
TEpigrafesDataTableRules = class(TDADataTableRules, IEpigrafes)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -209,7 +576,7 @@ type
|
||||
|
||||
{ IBalances }
|
||||
IBalances = interface(IDAStronglyTypedDataTable)
|
||||
['{F479251D-0CF5-4E81-AA80-E5A09CF25400}']
|
||||
['{A661BDD9-9EAC-4ECA-906D-7361D8ABACA6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -271,7 +638,7 @@ type
|
||||
end;
|
||||
|
||||
{ TBalancesDataTableRules }
|
||||
TBalancesDataTableRules = class(TIntfObjectDADataTableRules, IBalances)
|
||||
TBalancesDataTableRules = class(TDADataTableRules, IBalances)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -342,6 +709,462 @@ implementation
|
||||
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TAsientosDataTableRules }
|
||||
constructor TAsientosDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TAsientosDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetID_ASIENTO_COMPENSADOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetID_ASIENTO_COMPENSADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosID_ASIENTO_COMPENSADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetID_SUBCUENTAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID_SUBCUENTA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetID_SUBCUENTAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosID_SUBCUENTA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetID_SUBCUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosID_SUBCUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosID_SUBCUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetFECHA_ASIENTOValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsDateTime;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetFECHA_ASIENTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosFECHA_ASIENTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosFECHA_ASIENTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetCONCEPTOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosCONCEPTO].AsString;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetCONCEPTOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosCONCEPTO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetCONCEPTOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosCONCEPTO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosCONCEPTO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetPUNTEADOValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosPUNTEADO].AsSmallInt;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetPUNTEADOValue(const aValue: SmallInt);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosPUNTEADO].AsSmallInt := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetPUNTEADOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosPUNTEADO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetPUNTEADOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosPUNTEADO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetDEBEValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosDEBE].AsCurrency;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetDEBEValue(const aValue: Currency);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosDEBE].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetDEBEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosDEBE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetDEBEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosDEBE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetHABERValue: Currency;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosHABER].AsCurrency;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetHABERValue(const aValue: Currency);
|
||||
begin
|
||||
DataTable.Fields[idx_AsientosHABER].AsCurrency := aValue;
|
||||
end;
|
||||
|
||||
function TAsientosDataTableRules.GetHABERIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_AsientosHABER].IsNull;
|
||||
end;
|
||||
|
||||
procedure TAsientosDataTableRules.SetHABERIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_AsientosHABER].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TSubCuentasDataTableRules }
|
||||
constructor TSubCuentasDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TSubCuentasDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetREF_SUBCUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsString;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetREF_SUBCUENTAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetREF_SUBCUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasREF_SUBCUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_CUENTAValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_CUENTA].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_CUENTAValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasID_CUENTA].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_CUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_CUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasID_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TSubCuentasDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_SubCuentasID_EJERCICIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TSubCuentasDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_SubCuentasID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCuentasDataTableRules }
|
||||
constructor TCuentasDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
destructor TCuentasDataTableRules.Destroy;
|
||||
begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetREF_CUENTAValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasREF_CUENTA].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetREF_CUENTAValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasREF_CUENTA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetREF_CUENTAIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasREF_CUENTA].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetREF_CUENTAIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasREF_CUENTA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_EJERCICIOValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_EJERCICIO].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_EJERCICIOValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasID_EJERCICIO].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_EJERCICIOIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_EJERCICIO].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasID_EJERCICIO].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_EPIGRAFEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_EPIGRAFEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_EPIGRAFEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_EPIGRAFE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_EPIGRAFEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasID_EPIGRAFE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_BALANCEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_BALANCE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_BALANCEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasID_BALANCE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_BALANCEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_BALANCE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_BALANCEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasID_BALANCE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_CUENTA_ESPECIALValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TCuentasDataTableRules.GetID_CUENTA_ESPECIALIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].IsNull;
|
||||
end;
|
||||
|
||||
procedure TCuentasDataTableRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TCuentasEspecialesDataTableRules }
|
||||
constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
begin
|
||||
@ -736,6 +1559,9 @@ end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_Asientos, TAsientosDataTableRules);
|
||||
RegisterDataTableRules(RID_SubCuentas, TSubCuentasDataTableRules);
|
||||
RegisterDataTableRules(RID_Cuentas, TCuentasDataTableRules);
|
||||
RegisterDataTableRules(RID_CuentasEspeciales, TCuentasEspecialesDataTableRules);
|
||||
RegisterDataTableRules(RID_Epigrafes, TEpigrafesDataTableRules);
|
||||
RegisterDataTableRules(RID_Balances, TBalancesDataTableRules);
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -36,7 +36,7 @@ end;
|
||||
|
||||
procedure TBizEpigrafe.IniciarValoresEpigrafeNueva;
|
||||
begin
|
||||
ID_EJERCICIO := 5//AppFactuGES.EmpresaActiva.EjercicioActivo.ID;
|
||||
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
|
||||
end;
|
||||
|
||||
procedure TBizEpigrafe.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -70,6 +70,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'Epigrafes_ID'
|
||||
DataType = datAutoInc
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Epigrafes_REF_EPIGRAFE'
|
||||
@ -105,6 +106,103 @@ object srvContabilidad: TsrvContabilidad
|
||||
Name = 'CuentasEspeciales_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_REF_CUENTA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_ID_EPIGRAFE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_ID_BALANCE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentas_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentas_REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentas_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentas_ID_CUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'SubCuentas_ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_ASIENTOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_ID_ASIENTO_COMPENSADO'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_FECHA_ASIENTO'
|
||||
DataType = datDateTime
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_PUNTEADO'
|
||||
DataType = datSmallInt
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_DEBE'
|
||||
DataType = datCurrency
|
||||
end
|
||||
item
|
||||
Name = 'Asientos_HABER'
|
||||
DataType = datCurrency
|
||||
end>
|
||||
Left = 150
|
||||
Top = 24
|
||||
@ -114,6 +212,244 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataDictionary = DataDictionary
|
||||
Diagrams = Diagrams
|
||||
Datasets = <
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_ASIENTOS'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_ASIENTO_COMPENSADO'
|
||||
TableField = 'ID_ASIENTO_COMPENSADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_SUBCUENTA'
|
||||
TableField = 'ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'FECHA_ASIENTO'
|
||||
TableField = 'FECHA_ASIENTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'CONCEPTO'
|
||||
TableField = 'CONCEPTO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'PUNTEADO'
|
||||
TableField = 'PUNTEADO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DEBE'
|
||||
TableField = 'DEBE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'HABER'
|
||||
TableField = 'HABER'
|
||||
end>
|
||||
end>
|
||||
Name = 'Asientos'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_ASIENTOS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Asientos_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'ID_ASIENTO_COMPENSADO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Asientos_ID_ASIENTO_COMPENSADO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_SUBCUENTA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Asientos_ID_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_ASIENTO'
|
||||
DataType = datDateTime
|
||||
DictionaryEntry = 'Asientos_FECHA_ASIENTO'
|
||||
end
|
||||
item
|
||||
Name = 'CONCEPTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Asientos_CONCEPTO'
|
||||
end
|
||||
item
|
||||
Name = 'PUNTEADO'
|
||||
DataType = datSmallInt
|
||||
DictionaryEntry = 'Asientos_PUNTEADO'
|
||||
end
|
||||
item
|
||||
Name = 'DEBE'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'Asientos_DEBE'
|
||||
end
|
||||
item
|
||||
Name = 'HABER'
|
||||
DataType = datCurrency
|
||||
DictionaryEntry = 'Asientos_HABER'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_SUBCUENTAS'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_SUBCUENTA'
|
||||
TableField = 'REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CUENTA'
|
||||
TableField = 'ID_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end>
|
||||
end>
|
||||
Name = 'SubCuentas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
|
||||
DictionaryEntry = 'SubCuentas_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_SUBCUENTA'
|
||||
DataType = datString
|
||||
Size = 15
|
||||
DictionaryEntry = 'SubCuentas_REF_SUBCUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'SubCuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentas_ID_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'SubCuentas_ID_EJERCICIO'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
ConnectionType = 'Interbase'
|
||||
Default = True
|
||||
TargetTable = 'CONT_CUENTAS'
|
||||
Name = 'IBX'
|
||||
StatementType = stAutoSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end
|
||||
item
|
||||
DatasetField = 'REF_CUENTA'
|
||||
TableField = 'REF_CUENTA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EJERCICIO'
|
||||
TableField = 'ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_EPIGRAFE'
|
||||
TableField = 'ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_BALANCE'
|
||||
TableField = 'ID_BALANCE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_CUENTA_ESPECIAL'
|
||||
TableField = 'ID_CUENTA_ESPECIAL'
|
||||
end>
|
||||
end>
|
||||
Name = 'Cuentas'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_CUENTAS_ID'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Cuentas_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'REF_CUENTA'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
DictionaryEntry = 'Cuentas_REF_CUENTA'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EJERCICIO'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_EJERCICIO'
|
||||
end
|
||||
item
|
||||
Name = 'ID_EPIGRAFE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Cuentas_DESCRIPCION'
|
||||
end
|
||||
item
|
||||
Name = 'ID_BALANCE'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_BALANCE'
|
||||
end
|
||||
item
|
||||
Name = 'ID_CUENTA_ESPECIAL'
|
||||
DataType = datInteger
|
||||
DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
|
||||
end>
|
||||
end
|
||||
item
|
||||
Params = <>
|
||||
Statements = <
|
||||
@ -199,6 +535,7 @@ object srvContabilidad: TsrvContabilidad
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
|
||||
Required = True
|
||||
ServerAutoRefresh = True
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
|
||||
Loading…
Reference in New Issue
Block a user