git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@31 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk

@@ -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.

Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj

@@ -48,30 +48,39 @@
     <DelphiCompile Include="Contabilidad_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="uAsientosController.pas" />
-    <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="uBalancesController.pas" />
+    <DCCReference Include="uCuentasController.pas" />
     <DCCReference Include="uCuentasEspecialesController.pas" />
     <DCCReference Include="uEpigrafesController.pas" />
-    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="uSubCuentasController.pas" />
-    <DCCReference Include="vcldb.dcp" />
+    <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

Source/Modulos/Contabilidad/Controller/View/uIEditorAsiento.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/View/uIEditorCuenta.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/View/uIEditorCuentas.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuenta.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuentas.pas

@@ -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.

Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas

@@ -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;

Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas

@@ -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.

Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm

@@ -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
+    Left = 408
-    Top = 160
+    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
+    Left = 408
-    Top = 216
+    Top = 80
   end
   object ds_CuentasEspeciales: TDADataSource
     DataSet = tbl_CuentasEspeciales.Dataset
     DataTable = tbl_CuentasEspeciales
-    Left = 168
+    Left = 408
-    Top = 160
+    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

Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas

@@ -7,8 +7,10 @@ uses
   uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
   uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uControllerBase,
   uBizBalances, uBizCuentasEspeciales, uBizEpigrafes,  uDARemoteDataAdapter,
-  uDADataStreamer, uDAInterfaces, uRODynamicRequest,
+  uDADataStreamer, uDAInterfaces, uRODynamicRequest, uBizCuentas, uBizSubCuentas,
-  uDABin2DataStreamer, uDAMemDataTable, uIDataModuleContabilidad, uDataModuleBase;
+  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.

Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk

@@ -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.

Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj

@@ -47,22 +47,25 @@
     <DelphiCompile Include="Contabilidad_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="Data\adortl.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="Data\ApplicationBase.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Data\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="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="Data\uIDataModuleContabilidad.pas" />
-    <DCCReference Include="Data\vcl.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="Data\vcldb.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

Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas

@@ -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

Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas

@@ -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_Asientos = '{C51C5471-A7F7-4A0B-B124-1FCA17F1EA4D}';
-  RID_Epigrafes = '{0EE6E73B-71AE-45FD-B91F-3DEC9485EF9C}';
+  RID_SubCuentas = '{BBB2A9E5-DAD7-4E8B-A14D-CC7DEAF2D283}';
-  RID_Balances = '{C15D38B4-0D4D-4236-90BE-662998D63281}';
+  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);

Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas

@@ -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);

Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm

@@ -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