diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk
index b1e527ca..a1369698 100644
--- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj
index d576d17a..638d329b 100644
--- a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj
+++ b/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="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
diff --git a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res and b/Source/Modulos/Contabilidad/Controller/Contabilidad_controller.res differ
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorAsiento.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorAsiento.pas
new file mode 100644
index 00000000..739fa495
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorAsientos.pas
new file mode 100644
index 00000000..fafb8d29
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorCuenta.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorCuenta.pas
new file mode 100644
index 00000000..c9ed5dba
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorCuentas.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorCuentas.pas
new file mode 100644
index 00000000..f8928ff5
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuenta.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuenta.pas
new file mode 100644
index 00000000..4a6efca8
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuentas.pas b/Source/Modulos/Contabilidad/Controller/View/uIEditorSubCuentas.pas
new file mode 100644
index 00000000..0cad4be2
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas b/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
index 4e060f39..7b4e5e6e 100644
--- a/Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas
+++ b/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;
diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
new file mode 100644
index 00000000..04cc7bc0
--- /dev/null
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
index f8a159c3..be4b1565 100644
--- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm
+++ b/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
-    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
diff --git a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas
index 2eded94e..6c3ff041 100644
--- a/Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.pas
+++ b/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,
-  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.
diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk
index 21466f6f..273db36a 100644
--- a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dpk
+++ b/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.
diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj b/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj
index 18c45b02..a80dd1b2 100644
--- a/Source/Modulos/Contabilidad/Model/Contabilidad_model.dproj
+++ b/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="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
diff --git a/Source/Modulos/Contabilidad/Model/Contabilidad_model.res b/Source/Modulos/Contabilidad/Model/Contabilidad_model.res
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Contabilidad/Model/Contabilidad_model.res and b/Source/Modulos/Contabilidad/Model/Contabilidad_model.res differ
diff --git a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas b/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas
index db5d3b50..b5be46cc 100644
--- a/Source/Modulos/Contabilidad/Model/Data/uIDataModuleContabilidad.pas
+++ b/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
diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu
index c2f0bae0..c736d674 100644
Binary files a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu and b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.dcu differ
diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
index cce81a86..9ecd6659 100644
--- a/Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas
+++ b/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_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);
diff --git a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
index bb3ade4c..3165f1b5 100644
--- a/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
+++ b/Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas
@@ -9,14 +9,323 @@ const
   { Delta 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_CuentasEspecialesDelta = '{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}';
-  RID_EpigrafesDelta = '{5515CCA6-9D22-4C9C-BE52-492B6143F817}';
-  RID_BalancesDelta = '{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}';
+  RID_AsientosDelta = '{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}';
+  RID_SubCuentasDelta = '{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}';
+  RID_CuentasDelta = '{FB48551E-0531-4FC3-8494-51ABBA80938C}';
+  RID_CuentasEspecialesDelta = '{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}';
+  RID_EpigrafesDelta = '{691EBC10-A868-46C5-9EDF-8E55A27221D0}';
+  RID_BalancesDelta = '{C6255FDC-F284-4F1F-9559-685B3FEE30A9}';
 
 type
+  { IAsientosDelta }
+  IAsientosDelta = interface(IAsientos)
+  ['{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldID_ASIENTO_COMPENSADOValue : Integer;
+    function GetOldID_SUBCUENTAValue : Integer;
+    function GetOldFECHA_ASIENTOValue : DateTime;
+    function GetOldCONCEPTOValue : String;
+    function GetOldPUNTEADOValue : SmallInt;
+    function GetOldDEBEValue : Currency;
+    function GetOldHABERValue : Currency;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
+    property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+    property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
+    property OldCONCEPTO : String read GetOldCONCEPTOValue;
+    property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
+    property OldDEBE : Currency read GetOldDEBEValue;
+    property OldHABER : Currency read GetOldHABERValue;
+  end;
+
+  { TAsientosBusinessProcessorRules }
+  TAsientosBusinessProcessorRules = class(TDABusinessProcessorRules, IAsientos, IAsientosDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetID_ASIENTO_COMPENSADOValue: Integer; virtual;
+    function GetID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
+    function GetOldID_ASIENTO_COMPENSADOValue: Integer; virtual;
+    function GetOldID_ASIENTO_COMPENSADOIsNull: Boolean; virtual;
+    procedure SetID_ASIENTO_COMPENSADOValue(const aValue: Integer); virtual;
+    procedure SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean); virtual;
+    function GetID_SUBCUENTAValue: Integer; virtual;
+    function GetID_SUBCUENTAIsNull: Boolean; virtual;
+    function GetOldID_SUBCUENTAValue: Integer; virtual;
+    function GetOldID_SUBCUENTAIsNull: Boolean; virtual;
+    procedure SetID_SUBCUENTAValue(const aValue: Integer); virtual;
+    procedure SetID_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+    function GetFECHA_ASIENTOValue: DateTime; virtual;
+    function GetFECHA_ASIENTOIsNull: Boolean; virtual;
+    function GetOldFECHA_ASIENTOValue: DateTime; virtual;
+    function GetOldFECHA_ASIENTOIsNull: Boolean; virtual;
+    procedure SetFECHA_ASIENTOValue(const aValue: DateTime); virtual;
+    procedure SetFECHA_ASIENTOIsNull(const aValue: Boolean); virtual;
+    function GetCONCEPTOValue: String; virtual;
+    function GetCONCEPTOIsNull: Boolean; virtual;
+    function GetOldCONCEPTOValue: String; virtual;
+    function GetOldCONCEPTOIsNull: Boolean; virtual;
+    procedure SetCONCEPTOValue(const aValue: String); virtual;
+    procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
+    function GetPUNTEADOValue: SmallInt; virtual;
+    function GetPUNTEADOIsNull: Boolean; virtual;
+    function GetOldPUNTEADOValue: SmallInt; virtual;
+    function GetOldPUNTEADOIsNull: Boolean; virtual;
+    procedure SetPUNTEADOValue(const aValue: SmallInt); virtual;
+    procedure SetPUNTEADOIsNull(const aValue: Boolean); virtual;
+    function GetDEBEValue: Currency; virtual;
+    function GetDEBEIsNull: Boolean; virtual;
+    function GetOldDEBEValue: Currency; virtual;
+    function GetOldDEBEIsNull: Boolean; virtual;
+    procedure SetDEBEValue(const aValue: Currency); virtual;
+    procedure SetDEBEIsNull(const aValue: Boolean); virtual;
+    function GetHABERValue: Currency; virtual;
+    function GetHABERIsNull: Boolean; virtual;
+    function GetOldHABERValue: Currency; virtual;
+    function GetOldHABERIsNull: Boolean; virtual;
+    procedure SetHABERValue(const aValue: Currency); virtual;
+    procedure SetHABERIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    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 OldID_ASIENTO_COMPENSADO : Integer read GetOldID_ASIENTO_COMPENSADOValue;
+    property OldID_ASIENTO_COMPENSADOIsNull : Boolean read GetOldID_ASIENTO_COMPENSADOIsNull;
+    property ID_SUBCUENTA : Integer read GetID_SUBCUENTAValue write SetID_SUBCUENTAValue;
+    property ID_SUBCUENTAIsNull : Boolean read GetID_SUBCUENTAIsNull write SetID_SUBCUENTAIsNull;
+    property OldID_SUBCUENTA : Integer read GetOldID_SUBCUENTAValue;
+    property OldID_SUBCUENTAIsNull : Boolean read GetOldID_SUBCUENTAIsNull;
+    property FECHA_ASIENTO : DateTime read GetFECHA_ASIENTOValue write SetFECHA_ASIENTOValue;
+    property FECHA_ASIENTOIsNull : Boolean read GetFECHA_ASIENTOIsNull write SetFECHA_ASIENTOIsNull;
+    property OldFECHA_ASIENTO : DateTime read GetOldFECHA_ASIENTOValue;
+    property OldFECHA_ASIENTOIsNull : Boolean read GetOldFECHA_ASIENTOIsNull;
+    property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
+    property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
+    property OldCONCEPTO : String read GetOldCONCEPTOValue;
+    property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
+    property PUNTEADO : SmallInt read GetPUNTEADOValue write SetPUNTEADOValue;
+    property PUNTEADOIsNull : Boolean read GetPUNTEADOIsNull write SetPUNTEADOIsNull;
+    property OldPUNTEADO : SmallInt read GetOldPUNTEADOValue;
+    property OldPUNTEADOIsNull : Boolean read GetOldPUNTEADOIsNull;
+    property DEBE : Currency read GetDEBEValue write SetDEBEValue;
+    property DEBEIsNull : Boolean read GetDEBEIsNull write SetDEBEIsNull;
+    property OldDEBE : Currency read GetOldDEBEValue;
+    property OldDEBEIsNull : Boolean read GetOldDEBEIsNull;
+    property HABER : Currency read GetHABERValue write SetHABERValue;
+    property HABERIsNull : Boolean read GetHABERIsNull write SetHABERIsNull;
+    property OldHABER : Currency read GetOldHABERValue;
+    property OldHABERIsNull : Boolean read GetOldHABERIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { ISubCuentasDelta }
+  ISubCuentasDelta = interface(ISubCuentas)
+  ['{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldREF_SUBCUENTAValue : String;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldID_CUENTAValue : Integer;
+    function GetOldID_EJERCICIOValue : Integer;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
+    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
+  end;
+
+  { TSubCuentasBusinessProcessorRules }
+  TSubCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ISubCuentas, ISubCuentasDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetREF_SUBCUENTAValue: String; virtual;
+    function GetREF_SUBCUENTAIsNull: Boolean; virtual;
+    function GetOldREF_SUBCUENTAValue: String; virtual;
+    function GetOldREF_SUBCUENTAIsNull: Boolean; virtual;
+    procedure SetREF_SUBCUENTAValue(const aValue: String); virtual;
+    procedure SetREF_SUBCUENTAIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetID_CUENTAValue: Integer; virtual;
+    function GetID_CUENTAIsNull: Boolean; virtual;
+    function GetOldID_CUENTAValue: Integer; virtual;
+    function GetOldID_CUENTAIsNull: Boolean; virtual;
+    procedure SetID_CUENTAValue(const aValue: Integer); virtual;
+    procedure SetID_CUENTAIsNull(const aValue: Boolean); virtual;
+    function GetID_EJERCICIOValue: Integer; virtual;
+    function GetID_EJERCICIOIsNull: Boolean; virtual;
+    function GetOldID_EJERCICIOValue: Integer; virtual;
+    function GetOldID_EJERCICIOIsNull: Boolean; virtual;
+    procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
+    procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ID : Integer read GetIDValue write SetIDValue;
+    property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
+    property OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property REF_SUBCUENTA : String read GetREF_SUBCUENTAValue write SetREF_SUBCUENTAValue;
+    property REF_SUBCUENTAIsNull : Boolean read GetREF_SUBCUENTAIsNull write SetREF_SUBCUENTAIsNull;
+    property OldREF_SUBCUENTA : String read GetOldREF_SUBCUENTAValue;
+    property OldREF_SUBCUENTAIsNull : Boolean read GetOldREF_SUBCUENTAIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property ID_CUENTA : Integer read GetID_CUENTAValue write SetID_CUENTAValue;
+    property ID_CUENTAIsNull : Boolean read GetID_CUENTAIsNull write SetID_CUENTAIsNull;
+    property OldID_CUENTA : Integer read GetOldID_CUENTAValue;
+    property OldID_CUENTAIsNull : Boolean read GetOldID_CUENTAIsNull;
+    property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
+    property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
+    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
+    property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
+  { ICuentasDelta }
+  ICuentasDelta = interface(ICuentas)
+  ['{FB48551E-0531-4FC3-8494-51ABBA80938C}']
+    { Property getters and setters }
+    function GetOldIDValue : Integer;
+    function GetOldREF_CUENTAValue : String;
+    function GetOldID_EJERCICIOValue : Integer;
+    function GetOldID_EPIGRAFEValue : Integer;
+    function GetOldDESCRIPCIONValue : String;
+    function GetOldID_BALANCEValue : Integer;
+    function GetOldID_CUENTA_ESPECIALValue : Integer;
+
+    { Properties }
+    property OldID : Integer read GetOldIDValue;
+    property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
+    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
+    property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
+    property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
+  end;
+
+  { TCuentasBusinessProcessorRules }
+  TCuentasBusinessProcessorRules = class(TDABusinessProcessorRules, ICuentas, ICuentasDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetIDValue: Integer; virtual;
+    function GetIDIsNull: Boolean; virtual;
+    function GetOldIDValue: Integer; virtual;
+    function GetOldIDIsNull: Boolean; virtual;
+    procedure SetIDValue(const aValue: Integer); virtual;
+    procedure SetIDIsNull(const aValue: Boolean); virtual;
+    function GetREF_CUENTAValue: String; virtual;
+    function GetREF_CUENTAIsNull: Boolean; virtual;
+    function GetOldREF_CUENTAValue: String; virtual;
+    function GetOldREF_CUENTAIsNull: Boolean; virtual;
+    procedure SetREF_CUENTAValue(const aValue: String); virtual;
+    procedure SetREF_CUENTAIsNull(const aValue: Boolean); virtual;
+    function GetID_EJERCICIOValue: Integer; virtual;
+    function GetID_EJERCICIOIsNull: Boolean; virtual;
+    function GetOldID_EJERCICIOValue: Integer; virtual;
+    function GetOldID_EJERCICIOIsNull: Boolean; virtual;
+    procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
+    procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
+    function GetID_EPIGRAFEValue: Integer; virtual;
+    function GetID_EPIGRAFEIsNull: Boolean; virtual;
+    function GetOldID_EPIGRAFEValue: Integer; virtual;
+    function GetOldID_EPIGRAFEIsNull: Boolean; virtual;
+    procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
+    procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
+    function GetDESCRIPCIONValue: String; virtual;
+    function GetDESCRIPCIONIsNull: Boolean; virtual;
+    function GetOldDESCRIPCIONValue: String; virtual;
+    function GetOldDESCRIPCIONIsNull: Boolean; virtual;
+    procedure SetDESCRIPCIONValue(const aValue: String); virtual;
+    procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
+    function GetID_BALANCEValue: Integer; virtual;
+    function GetID_BALANCEIsNull: Boolean; virtual;
+    function GetOldID_BALANCEValue: Integer; virtual;
+    function GetOldID_BALANCEIsNull: Boolean; virtual;
+    procedure SetID_BALANCEValue(const aValue: Integer); virtual;
+    procedure SetID_BALANCEIsNull(const aValue: Boolean); virtual;
+    function GetID_CUENTA_ESPECIALValue: Integer; virtual;
+    function GetID_CUENTA_ESPECIALIsNull: Boolean; virtual;
+    function GetOldID_CUENTA_ESPECIALValue: Integer; virtual;
+    function GetOldID_CUENTA_ESPECIALIsNull: Boolean; virtual;
+    procedure SetID_CUENTA_ESPECIALValue(const aValue: Integer); 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 OldID : Integer read GetOldIDValue;
+    property OldIDIsNull : Boolean read GetOldIDIsNull;
+    property REF_CUENTA : String read GetREF_CUENTAValue write SetREF_CUENTAValue;
+    property REF_CUENTAIsNull : Boolean read GetREF_CUENTAIsNull write SetREF_CUENTAIsNull;
+    property OldREF_CUENTA : String read GetOldREF_CUENTAValue;
+    property OldREF_CUENTAIsNull : Boolean read GetOldREF_CUENTAIsNull;
+    property ID_EJERCICIO : Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
+    property ID_EJERCICIOIsNull : Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
+    property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
+    property OldID_EJERCICIOIsNull : Boolean read GetOldID_EJERCICIOIsNull;
+    property ID_EPIGRAFE : Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
+    property ID_EPIGRAFEIsNull : Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
+    property OldID_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
+    property OldID_EPIGRAFEIsNull : Boolean read GetOldID_EPIGRAFEIsNull;
+    property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
+    property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
+    property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
+    property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
+    property ID_BALANCE : Integer read GetID_BALANCEValue write SetID_BALANCEValue;
+    property ID_BALANCEIsNull : Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
+    property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
+    property OldID_BALANCEIsNull : Boolean read GetOldID_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;
+    property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
+    property OldID_CUENTA_ESPECIALIsNull : Boolean read GetOldID_CUENTA_ESPECIALIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { ICuentasEspecialesDelta }
   ICuentasEspecialesDelta = interface(ICuentasEspeciales)
-  ['{4D4FE910-3F37-4077-8FBA-E2CFC412CF13}']
+  ['{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -74,7 +383,7 @@ type
 
   { IEpigrafesDelta }
   IEpigrafesDelta = interface(IEpigrafes)
-  ['{5515CCA6-9D22-4C9C-BE52-492B6143F817}']
+  ['{691EBC10-A868-46C5-9EDF-8E55A27221D0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_EPIGRAFEValue : String;
@@ -156,7 +465,7 @@ type
 
   { IBalancesDelta }
   IBalancesDelta = interface(IBalances)
-  ['{37149E5B-96DE-4CA9-AFBB-F410CBC4BEE7}']
+  ['{C6255FDC-F284-4F1F-9559-685B3FEE30A9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_BALANCEValue : String;
@@ -289,6 +598,662 @@ implementation
 uses
   Variants, uROBinaryHelpers, uDAInterfaces;
 
+{ TAsientosBusinessProcessorRules }
+constructor TAsientosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TAsientosBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TAsientosBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID];
+end;
+
+function TAsientosBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetID_ASIENTO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
+end;
+
+function TAsientosBusinessProcessorRules.GetID_ASIENTO_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldID_ASIENTO_COMPENSADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_ASIENTO_COMPENSADO]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetID_ASIENTO_COMPENSADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_ASIENTO_COMPENSADO] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetID_SUBCUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA];
+end;
+
+function TAsientosBusinessProcessorRules.GetID_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldID_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosID_SUBCUENTA]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetID_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosID_SUBCUENTA] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO];
+end;
+
+function TAsientosBusinessProcessorRules.GetFECHA_ASIENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOValue: DateTime;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldFECHA_ASIENTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosFECHA_ASIENTO]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOValue(const aValue: DateTime);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetFECHA_ASIENTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosFECHA_ASIENTO] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetCONCEPTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO];
+end;
+
+function TAsientosBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldCONCEPTOValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosCONCEPTO]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosCONCEPTO] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetPUNTEADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO];
+end;
+
+function TAsientosBusinessProcessorRules.GetPUNTEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldPUNTEADOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldPUNTEADOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosPUNTEADO]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetPUNTEADOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetPUNTEADOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosPUNTEADO] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetDEBEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE];
+end;
+
+function TAsientosBusinessProcessorRules.GetDEBEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldDEBEValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldDEBEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosDEBE]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetDEBEValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetDEBEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosDEBE] := Null;
+end;
+
+function TAsientosBusinessProcessorRules.GetHABERValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER];
+end;
+
+function TAsientosBusinessProcessorRules.GetHABERIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER]);
+end;
+
+function TAsientosBusinessProcessorRules.GetOldHABERValue: Currency;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER];
+end;
+
+function TAsientosBusinessProcessorRules.GetOldHABERIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AsientosHABER]);
+end;
+
+procedure TAsientosBusinessProcessorRules.SetHABERValue(const aValue: Currency);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := aValue;
+end;
+
+procedure TAsientosBusinessProcessorRules.SetHABERIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_AsientosHABER] := Null;
+end;
+
+
+{ TSubCuentasBusinessProcessorRules }
+constructor TSubCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TSubCuentasBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TSubCuentasBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID]);
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID]);
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := aValue;
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID] := Null;
+end;
+
+function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetREF_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA]);
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldREF_SUBCUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasREF_SUBCUENTA]);
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := aValue;
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetREF_SUBCUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasREF_SUBCUENTA] := Null;
+end;
+
+function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION]);
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasDESCRIPCION]);
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := aValue;
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasDESCRIPCION] := Null;
+end;
+
+function TSubCuentasBusinessProcessorRules.GetID_CUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetID_CUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA]);
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldID_CUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_CUENTA]);
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := aValue;
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetID_CUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_CUENTA] := Null;
+end;
+
+function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO]);
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO];
+end;
+
+function TSubCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_SubCuentasID_EJERCICIO]);
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := aValue;
+end;
+
+procedure TSubCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_SubCuentasID_EJERCICIO] := Null;
+end;
+
+
+{ TCuentasBusinessProcessorRules }
+constructor TCuentasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TCuentasBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TCuentasBusinessProcessorRules.GetIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID];
+end;
+
+function TCuentasBusinessProcessorRules.GetIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldIDValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldIDIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetIDValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetREF_CUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA];
+end;
+
+function TCuentasBusinessProcessorRules.GetREF_CUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldREF_CUENTAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldREF_CUENTAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasREF_CUENTA]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetREF_CUENTAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetREF_CUENTAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasREF_CUENTA] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetID_EJERCICIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO];
+end;
+
+function TCuentasBusinessProcessorRules.GetID_EJERCICIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_EJERCICIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EJERCICIO]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_EJERCICIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetID_EPIGRAFEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE];
+end;
+
+function TCuentasBusinessProcessorRules.GetID_EPIGRAFEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_EPIGRAFEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_EPIGRAFE]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_EPIGRAFEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
+end;
+
+function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE];
+end;
+
+function TCuentasBusinessProcessorRules.GetID_BALANCEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_BALANCEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_BALANCEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_BALANCE]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_BALANCEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_BALANCEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null;
+end;
+
+function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL];
+end;
+
+function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldID_CUENTA_ESPECIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasID_CUENTA_ESPECIAL]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetID_CUENTA_ESPECIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null;
+end;
+
+
 { TCuentasEspecialesBusinessProcessorRules }
 constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 begin
@@ -853,6 +1818,9 @@ end;
 
 
 initialization
+  RegisterBusinessProcessorRules(RID_AsientosDelta, TAsientosBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_SubCuentasDelta, TSubCuentasBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_CuentasDelta, TCuentasBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_CuentasEspecialesDelta, TCuentasEspecialesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_EpigrafesDelta, TEpigrafesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_BalancesDelta, TBalancesBusinessProcessorRules);
diff --git a/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas b/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
index d50a1717..67756ae2 100644
--- a/Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas
+++ b/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);
diff --git a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm b/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
index cbe7e859..8fcc13d7 100644
--- a/Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
+++ b/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