Subida de contabilidad (aun queda bastante)

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

Database/scripts/SCRIPT_CONTABILIDAD.SQL

@@ -81,3 +81,40 @@ CREATE TABLE CONT_ASIENTOS (
 
 ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS PRIMARY KEY (ID);
 
+
+
+CREATE VIEW V_CONT_EPIGRAFES(
+    ID,
+    REF_EPIGRAFE,
+    DESCRIPCION,
+    ID_EJERCICIO,
+    ID_PADRE,
+    EPIGRAFE_PADRE)
+AS
+select CONT_EPI1.ID, CONT_EPI1.REF_EPIGRAFE, CONT_EPI1.DESCRIPCION, CONT_EPI1.ID_EJERCICIO,
+CONT_EPI1.ID_PADRE, CONT_EPI2.DESCRIPCION as EPIGRAFE_PADRE
+from CONT_EPIGRAFES CONT_EPI1
+left join CONT_EPIGRAFES CONT_EPI2 on (CONT_EPI2.ID = CONT_EPI1.ID_PADRE)
+;
+
+CREATE VIEW V_CONT_CUENTAS(
+    ID,
+    REF_CUENTA,
+    ID_EJERCICIO,
+    DESCRIPCION,
+    ID_EPIGRAFE,
+    EPIGRAFE,
+    ID_BALANCE,
+    BALANCE,
+    ID_CUENTA_ESPECIAL,
+    CUENTA_ESPECIAL)
+AS
+select CONT_CUENTAS.ID, CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.ID_EJERCICIO, CONT_CUENTAS.DESCRIPCION,
+CONT_CUENTAS.ID_EPIGRAFE, CONT_EPIGRAFES.DESCRIPCION as EPIGRAFE,
+CONT_CUENTAS.ID_BALANCE, CONT_BALANCES.REF_BALANCE as BALANCE,
+CONT_CUENTAS.ID_CUENTA_ESPECIAL, CONT_CUENTAS_ESPECIALES.DESCRIPCION as CUENTA_ESPECIAL
+from CONT_CUENTAS
+left join CONT_EPIGRAFES on (CONT_EPIGRAFES.ID = CONT_CUENTAS.ID_EPIGRAFE)
+left join CONT_BALANCES on (CONT_BALANCES.ID = CONT_CUENTAS.ID_BALANCE)
+left join CONT_CUENTAS_ESPECIALES on (CONT_CUENTAS_ESPECIALES.ID = CONT_CUENTAS.ID_CUENTA_ESPECIAL)
+;

Source/Modulos/Contabilidad/Contabilidad_Group.groupproj

@@ -9,6 +9,9 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
+    <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
     <Projects Include="Controller\Contabilidad_controller.dproj" />
     <Projects Include="Data\Contabilidad_data.dproj" />
     <Projects Include="Model\Contabilidad_model.dproj" />
@@ -48,6 +51,15 @@
   <Target Name="ApplicationBase:Make">
     <MSBuild Projects="..\..\ApplicationBase\ApplicationBase.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contactos_view">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_view:Clean">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_view:Make">
+    <MSBuild Projects="..\Contactos\Views\Contactos_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Contabilidad_model">
     <MSBuild Projects="Model\Contabilidad_model.dproj" Targets="" />
   </Target>
@@ -93,15 +105,6 @@
   <Target Name="Contabilidad_plugin:Make">
     <MSBuild Projects="Plugin\Contabilidad_plugin.dproj" Targets="Make" />
   </Target>
-  <Target Name="FactuGES">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
-  </Target>
-  <Target Name="FactuGES:Clean">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="FactuGES:Make">
-    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
-  </Target>
   <Target Name="FactuGES_Server">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
   </Target>
@@ -111,14 +114,41 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="..\..\Cliente\FactuGES.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PedidosProveedor_view">
+    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="PedidosProveedor_view:Clean">
+    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedidosProveedor_view:Make">
+    <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Contactos_controller">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Contactos_controller:Clean">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contactos_controller:Make">
+    <MSBuild Projects="..\Contactos\Controller\Contactos_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contabilidad_view;Contabilidad_plugin;FactuGES_Server;FactuGES;PedidosProveedor_view;Contactos_controller" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contabilidad_view:Clean;Contabilidad_plugin:Clean;FactuGES_Server:Clean;FactuGES:Clean;PedidosProveedor_view:Clean;Contactos_controller:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contabilidad_view:Make;Contabilidad_plugin:Make;FactuGES_Server:Make;FactuGES:Make;PedidosProveedor_view:Make;Contactos_controller:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dpk

@@ -68,6 +68,8 @@ contains
   uIEditorCuentas in 'View\uIEditorCuentas.pas',
   uIEditorSubCuenta in 'View\uIEditorSubCuenta.pas',
   uIEditorSubCuentas in 'View\uIEditorSubCuentas.pas',
-  uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas';
+  uIEditorElegirEpigrafes in 'View\uIEditorElegirEpigrafes.pas',
+  uIEditorElegirBalances in 'View\uIEditorElegirBalances.pas',
+  uIEditorElegirCuentasEspeciales in 'View\uIEditorElegirCuentasEspeciales.pas';
 
 end.

Source/Modulos/Contabilidad/Controller/Contabilidad_controller.dproj

@@ -79,6 +79,8 @@
     <DCCReference Include="View\uIEditorCuentaEspecial.pas" />
     <DCCReference Include="View\uIEditorCuentas.pas" />
     <DCCReference Include="View\uIEditorCuentasEspeciales.pas" />
+    <DCCReference Include="View\uIEditorElegirBalances.pas" />
+    <DCCReference Include="View\uIEditorElegirCuentasEspeciales.pas" />
     <DCCReference Include="View\uIEditorElegirEpigrafes.pas" />
     <DCCReference Include="View\uIEditorEpigrafe.pas" />
     <DCCReference Include="View\uIEditorEpigrafes.pas" />

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

@@ -3,7 +3,7 @@ unit uIEditorBalance;
 interface
 
 uses
-  uBizBalances;
+  uBizBalances, uBalancesController;
 
 type
   IEditorBalance = interface

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

@@ -3,14 +3,19 @@ unit uIEditorBalances;
 interface
 
 uses
-  uBizBalances;
+  uBizBalances, uBalancesController;
 
 type
   IEditorBalances = interface
   ['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
+    function GetController : IBalancesController;
+    procedure SetController (const Value : IBalancesController);
+    property Controller : IBalancesController read GetController write SetController;
+
     function GetBalances: IBizBalance;
     procedure SetBalances(const Value: IBizBalance);
     property Balances: IBizBalance read GetBalances write SetBalances;
+
     function ShowModal : Integer;
     procedure Release;
   end;

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

@@ -3,14 +3,19 @@ unit uIEditorCuentasEspeciales;
 interface
 
 uses
-  uBizCuentasEspeciales;
+  uBizCuentasEspeciales, uCuentasEspecialesController;
 
 type
   IEditorCuentasEspeciales = interface
   ['{47A77BA9-3845-469B-A790-81F3C6E0F134}']
+    function GetController : ICuentasEspecialesController;
+    procedure SetController (const Value : ICuentasEspecialesController);
+    property Controller : ICuentasEspecialesController read GetController write SetController;
+
     function GetCuentasEspeciales: IBizCuentaEspecial;
     procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
     property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
+
     function ShowModal : Integer;
     procedure Release;
   end;

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

@@ -0,0 +1,26 @@
+unit uIEditorElegirBalances;
+
+interface
+
+uses
+  uIEditorBalances, uBizBalances, uGUIBase;
+
+type
+  IEditorElegirBalances = interface(IEditorBalances)
+  ['{12716994-A11A-4C05-973B-652468B859D9}']
+    function GetBalancesSeleccionados: IBizBalance;
+    property BalancesSeleccionados: IBizBalance read GetBalancesSeleccionados;
+
+    procedure SetMultiSelect (AValue : Boolean);
+    function GetMultiSelect : Boolean;
+    property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+    property Mensaje : String read GetMensaje write SetMensaje;
+  end;
+
+
+implementation
+
+end.

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

@@ -0,0 +1,26 @@
+unit uIEditorElegirCuentasEspeciales;
+
+interface
+
+uses
+  uIEditorCuentasEspeciales, uBizCuentasEspeciales, uGUIBase;
+
+type
+  IEditorElegirCuentasEspeciales = interface(IEditorCuentasEspeciales)
+  ['{12716994-A11A-4C05-973B-652468B859D9}']
+    function GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
+    property CuentasEspecialesSeleccionados: IBizCuentaEspecial read GetCuentasEspecialesSeleccionados;
+
+    procedure SetMultiSelect (AValue : Boolean);
+    function GetMultiSelect : Boolean;
+    property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+    property Mensaje : String read GetMensaje write SetMensaje;
+  end;
+
+
+implementation
+
+end.

Source/Modulos/Contabilidad/Controller/uBalancesController.pas

@@ -19,6 +19,9 @@ type
     procedure DescartarCambios(ABalance : IBizBalance);
     function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
     function DarListaBalances: TStringList;
+
+    function ExtraerSeleccionados(ABalances: IBizBalance) : IBizBalance;
+    function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
   end;
 
   TBalancesController = class(TObservador, IBalancesController)
@@ -45,13 +48,16 @@ type
     procedure Ver(ABalance: IBizBalance);
     function Localizar(ABalances: IBizBalance; ADescripcion:String): Boolean;
     function DarListaBalances: TStringList;
+
+    function ExtraerSeleccionados(ABalances: IBizBalance) : IBizBalance;
+    function ElegirBalance(ABalances : IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
   end;
 
 implementation
 
 uses
   cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
-  uIEditorBalances, uIEditorBalance, uDataModuleContabilidad,
+  uIEditorBalances, uIEditorBalance, uIEditorElegirBalances, uDataModuleContabilidad,
   uDAInterfaces, uDataTableUtils, uDialogUtils,
   uDateUtils, uROTypes, DateUtils, Controls, Windows;
 
@@ -199,6 +205,7 @@ begin
     if Assigned(AEditor) then
        with AEditor do
        begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE       
          Balances := ABalances;
          ShowModal;
          Release;
@@ -209,6 +216,28 @@ begin
   end;
 end;
 
+function TBalancesController.ElegirBalance(ABalances: IBizBalance; AMensaje: String; AMultiSelect: Boolean): IBizBalance;
+var
+  AEditor : IEditorElegirBalances;
+begin
+  Result := NIL;
+
+  CreateEditor('EditorElegirBalances', IEditorElegirBalances, AEditor);
+  try
+    with AEditor do
+    begin
+      Balances := ABalances;
+      Controller := Self;
+      Mensaje := AMensaje;
+      if IsPositiveResult(ShowModal) then
+        Result := BalancesSeleccionados;
+	  Release;
+    end;
+  finally
+    AEditor := NIL;
+  end;
+end;
+
 function TBalancesController.Eliminar(ABalance: IBizBalance): Boolean;
 begin
   Result := False;
@@ -230,6 +259,15 @@ begin
   end;
 end;
 
+function TBalancesController.ExtraerSeleccionados(ABalances: IBizBalance): IBizBalance;
+var
+  ASeleccionados : IBizBalance;
+begin
+  ASeleccionados := Self.Buscar(ID_NULO);
+  CopyDataTableDA3(ABalances.DataTable, ASeleccionados.DataTable, True);
+  Result := ASeleccionados;
+end;
+
 procedure TBalancesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
 begin
   inherited;

Source/Modulos/Contabilidad/Controller/uCuentasController.pas

@@ -19,6 +19,10 @@ type
     procedure DescartarCambios(ACuenta : IBizCuenta);
     function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
     function DarListaCuentas: TStringList;
+
+    procedure ElegirEpigrafe(ACuenta: IBizCuenta);
+    procedure ElegirBalance(ACuenta: IBizCuenta);
+    procedure ElegirCuentaEspecial(ACuenta: IBizCuenta);
   end;
 
   TCuentasController = class(TObservador, ICuentasController)
@@ -46,6 +50,10 @@ type
     procedure Ver(ACuenta: IBizCuenta);
     function Localizar(ACuentas: IBizCuenta; ADescripcion:String): Boolean;
     function DarListaCuentas: TStringList;
+
+    procedure ElegirEpigrafe(ACuenta: IBizCuenta);
+    procedure ElegirBalance(ACuenta: IBizCuenta);
+    procedure ElegirCuentaEspecial(ACuenta: IBizCuenta);
   end;
 
 implementation
@@ -54,7 +62,10 @@ uses
   cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
   uIEditorCuentas, uIEditorCuenta, uDataModuleContabilidad,
   uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
-  uDateUtils, uROTypes, DateUtils, Controls, Windows;
+  uDateUtils, uROTypes, DateUtils, Controls, Windows,
+  uBizEpigrafes, uEpigrafesController,
+  uBizBalances, uBalancesController,
+  uBizCuentasEspeciales, uCuentasEspecialesController;
 
 { TCuentasController }
 
@@ -212,6 +223,90 @@ begin
   end;
 end;
 
+procedure TCuentasController.ElegirBalance(ACuenta: IBizCuenta);
+var
+  ABalance : IBizBalance;
+  AController : IBalancesController;
+begin
+  inherited;
+  try
+    AController := TBalancesController.Create;
+    ABalance := (AController.ElegirBalance(AController.BuscarTodos, 'ddddddd', False) as IBizBalance);
+
+    if Assigned(ABalance) then
+    begin
+      if Assigned(ACuenta) then
+      begin
+        if not ACuenta.DataTable.Editing then
+           ACuenta.DataTable.Edit;
+
+        ACuenta.ID_BALANCE := ABalance.ID;
+        ACuenta.BALANCE := ABalance.REF_BALANCE;
+        ACuenta.Post;
+      end;
+    end;
+  finally
+    AController := Nil;
+    ABalance := Nil;
+  end;
+end;
+
+procedure TCuentasController.ElegirCuentaEspecial(ACuenta: IBizCuenta);
+var
+  ACuentaEspecial : IBizCuentaEspecial;
+  AController : ICuentasEspecialesController;
+begin
+  inherited;
+  try
+    AController := TCuentasEspecialesController.Create;
+    ACuentaEspecial := (AController.ElegirCuentaEspecial(AController.BuscarTodos, 'ddddddd', False) as IBizCuentaEspecial);
+
+    if Assigned(ACuentaEspecial) then
+    begin
+      if Assigned(ACuenta) then
+      begin
+        if not ACuenta.DataTable.Editing then
+           ACuenta.DataTable.Edit;
+
+        ACuenta.ID_CUENTA_ESPECIAL := ACuentaEspecial.ID;
+        ACuenta.CUENTA_ESPECIAL := ACuentaEspecial.REFERENCIA;
+        ACuenta.Post;
+      end;
+    end;
+  finally
+    AController := Nil;
+    ACuentaEspecial := Nil;
+  end;
+end;
+
+procedure TCuentasController.ElegirEpigrafe(ACuenta: IBizCuenta);
+var
+  AEpigrafe : IBizEpigrafe;
+  AController : IEpigrafesController;
+begin
+  inherited;
+  try
+    AController := TEpigrafesController.Create;
+    AEpigrafe := (AController.ElegirEpigrafe(AController.BuscarTodos, 'ddddddd', False) as IBizEpigrafe);
+
+    if Assigned(AEpigrafe) then
+    begin
+      if Assigned(ACuenta) then
+      begin
+        if not ACuenta.DataTable.Editing then
+           ACuenta.DataTable.Edit;
+
+        ACuenta.ID_EPIGRAFE := AEpigrafe.ID;
+        ACuenta.EPIGRAFE := AEpigrafe.DESCRIPCION;
+        ACuenta.Post;
+      end;
+    end;
+  finally
+    AController := Nil;
+    AEpigrafe := Nil;
+  end;
+end;
+
 function TCuentasController.Eliminar(ACuenta: IBizCuenta): Boolean;
 begin
   Result := False;

Source/Modulos/Contabilidad/Controller/uCuentasEspecialesController.pas

@@ -19,6 +19,9 @@ type
     procedure DescartarCambios(ACuentaEspecial : IBizCuentaEspecial);
     function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
     function DarListaCuentasEspeciales: TStringList;
+
+    function ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial) : IBizCuentaEspecial;
+    function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial;
   end;
 
   TCuentasEspecialesController = class(TObservador, ICuentasEspecialesController)
@@ -45,13 +48,17 @@ type
     procedure Ver(ACuentaEspecial: IBizCuentaEspecial);
     function Localizar(ACuentasEspeciales: IBizCuentaEspecial; ADescripcion:String): Boolean;
     function DarListaCuentasEspeciales: TStringList;
+
+    function ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial) : IBizCuentaEspecial;
+    function ElegirCuentaEspecial(ACuentasEspeciales : IBizCuentaEspecial; AMensaje: String; AMultiSelect: Boolean): IBizCuentaEspecial;
   end;
 
 implementation
 
 uses
   cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
-  uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uDataModuleContabilidad,
+  uIEditorCuentasEspeciales, uIEditorCuentaEspecial, uIEditorElegirCuentasEspeciales,
+  uDataModuleContabilidad,
   uDAInterfaces, uDataTableUtils, uDialogUtils,
   uDateUtils, uROTypes, DateUtils, Controls, Windows;
 
@@ -199,6 +206,7 @@ begin
     if Assigned(AEditor) then
        with AEditor do
        begin
+         Controller := Self; //OJO ORDEN MUY IMPORTANTE
          CuentasEspeciales := ACuentasEspeciales;
          ShowModal;
          Release;
@@ -209,6 +217,29 @@ begin
   end;
 end;
 
+function TCuentasEspecialesController.ElegirCuentaEspecial(ACuentasEspeciales: IBizCuentaEspecial; AMensaje: String;
+  AMultiSelect: Boolean): IBizCuentaEspecial;
+var
+  AEditor : IEditorElegirCuentasEspeciales;
+begin
+  Result := NIL;
+
+  CreateEditor('EditorElegirBalances', IEditorElegirCuentasEspeciales, AEditor);
+  try
+    with AEditor do
+    begin
+      CuentasEspeciales := ACuentasEspeciales;
+      Controller := Self;
+      Mensaje := AMensaje;
+      if IsPositiveResult(ShowModal) then
+        Result := CuentasEspecialesSeleccionados;
+	  Release;
+    end;
+  finally
+    AEditor := NIL;
+  end;
+end;
+
 function TCuentasEspecialesController.Eliminar(ACuentaEspecial: IBizCuentaEspecial): Boolean;
 begin
   Result := False;
@@ -230,6 +261,15 @@ begin
   end;
 end;
 
+function TCuentasEspecialesController.ExtraerSeleccionados(ACuentasEspeciales: IBizCuentaEspecial): IBizCuentaEspecial;
+var
+  ASeleccionados : IBizCuentaEspecial;
+begin
+  ASeleccionados := Self.Buscar(ID_NULO);
+  CopyDataTableDA3(ACuentasEspeciales.DataTable, ASeleccionados.DataTable, True);
+  Result := ASeleccionados;
+end;
+
 procedure TCuentasEspecialesController.RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable);
 begin
   inherited;

Source/Modulos/Contabilidad/Controller/uEpigrafesController.pas

@@ -19,6 +19,11 @@ type
     procedure DescartarCambios(AEpigrafe : IBizEpigrafe);
     function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
     function DarListaEpigrafes: TStringList;
+
+    function AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe) : IBizEpigrafe;
+    function ExtraerSeleccionados(AEpigrafes: IBizEpigrafe) : IBizEpigrafe;
+    function ElegirEpigrafe(AEpigrafes : IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
+
   end;
 
   TEpigrafesController = class(TObservador, IEpigrafesController)
@@ -46,13 +51,17 @@ type
     procedure Ver(AEpigrafe: IBizEpigrafe);
     function Localizar(AEpigrafes: IBizEpigrafe; ADescripcion:String): Boolean;
     function DarListaEpigrafes: TStringList;
+
+    function AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe) : IBizEpigrafe;    
+    function ExtraerSeleccionados(AEpigrafes: IBizEpigrafe) : IBizEpigrafe;
+    function ElegirEpigrafe(AEpigrafes : IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
   end;
 
 implementation
 
 uses
   cxControls, DB, uEditorRegistryUtils, schContabilidadClient_Intf,
-  uIEditorEpigrafes, uIEditorEpigrafe, uDataModuleContabilidad,
+  uIEditorEpigrafes, uIEditorEpigrafe, uIEditorElegirEpigrafes, uDataModuleContabilidad,
   uDAInterfaces, uDataTableUtils, uDialogUtils, uFactuGES_App,
   uDateUtils, uROTypes, DateUtils, Controls, Windows;
 
@@ -68,6 +77,22 @@ begin
   FDataModule := TDataModuleContabilidad.Create(Nil);
 end;
 
+function TEpigrafesController.AsignarPadre(AEpigrafe, AEpigrafePadre: IBizEpigrafe): IBizEpigrafe;
+begin
+  if Assigned(AEpigrafePadre) then
+  begin
+    if Assigned(AEpigrafe) then
+    begin
+      if not AEpigrafe.DataTable.Editing then
+         AEpigrafe.DataTable.Edit;
+
+      AEpigrafe.ID_PADRE := AEpigrafePadre.ID;
+      AEpigrafe.EPIGRAFE_PADRE := AEpigrafePadre.DESCRIPCION;
+      AEpigrafe.Post;
+    end;
+  end;
+end;
+
 function TEpigrafesController.Buscar(ID: Integer): IBizEpigrafe;
 var
   Condicion: TDAWhereExpression;
@@ -212,6 +237,28 @@ begin
   end;
 end;
 
+function TEpigrafesController.ElegirEpigrafe(AEpigrafes: IBizEpigrafe; AMensaje: String; AMultiSelect: Boolean): IBizEpigrafe;
+var
+  AEditor : IEditorElegirEpigrafes;
+begin
+  Result := NIL;
+
+  CreateEditor('EditorElegirEpigrafes', IEditorElegirEpigrafes, AEditor);
+  try
+    with AEditor do
+    begin
+      Epigrafes := AEpigrafes;
+      Controller := Self;
+      Mensaje := AMensaje;
+      if IsPositiveResult(ShowModal) then
+        Result := EpigrafesSeleccionados;
+	  Release;
+    end;
+  finally
+    AEditor := NIL;
+  end;
+end;
+
 function TEpigrafesController.Eliminar(AEpigrafe: IBizEpigrafe): Boolean;
 begin
   Result := False;
@@ -233,6 +280,15 @@ begin
   end;
 end;
 
+function TEpigrafesController.ExtraerSeleccionados(AEpigrafes: IBizEpigrafe): IBizEpigrafe;
+var
+  ASeleccionados : IBizEpigrafe;
+begin
+  ASeleccionados := Self.Buscar(ID_NULO);
+  CopyDataTableDA3(AEpigrafes.DataTable, ASeleccionados.DataTable, True);
+  Result := ASeleccionados;
+end;
+
 procedure TEpigrafesController.FiltrarEjercicio(AEpigrafe: IBizEpigrafe);
 var
   Condicion: TDAWhereExpression;

Source/Modulos/Contabilidad/Data/uDataModuleContabilidad.dfm

@@ -156,6 +156,9 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DataType = datAutoInc
         GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
         Required = True
+        DisplayLabel = 'Epigrafes_ID'
+        ServerAutoRefresh = True
+        DictionaryEntry = 'Epigrafes_ID'
         InPrimaryKey = True
       end
       item
@@ -165,12 +168,6 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DisplayLabel = 'Epigrafes_REF_EPIGRAFE'
         DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
       end
-      item
-        Name = 'ID_PADRE'
-        DataType = datInteger
-        DisplayLabel = 'Epigrafes_ID_PADRE'
-        DictionaryEntry = 'Epigrafes_ID_PADRE'
-      end
       item
         Name = 'DESCRIPCION'
         DataType = datString
@@ -183,6 +180,19 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DataType = datInteger
         DisplayLabel = 'Epigrafes_ID_EJERCICIO'
         DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
+      end
+      item
+        Name = 'ID_PADRE'
+        DataType = datInteger
+        DisplayLabel = 'Epigrafes_ID_PADRE'
+        DictionaryEntry = 'Epigrafes_ID_PADRE'
+      end
+      item
+        Name = 'EPIGRAFE_PADRE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Epigrafes_EPIGRAFE_PADRE'
+        DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -296,6 +306,13 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DisplayLabel = 'Cuentas_ID_EJERCICIO'
         DictionaryEntry = 'Cuentas_ID_EJERCICIO'
       end
+      item
+        Name = 'DESCRIPCION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Cuentas_DESCRIPCION'
+        DictionaryEntry = 'Cuentas_DESCRIPCION'
+      end
       item
         Name = 'ID_EPIGRAFE'
         DataType = datInteger
@@ -303,11 +320,11 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
       end
       item
-        Name = 'DESCRIPCION'
+        Name = 'EPIGRAFE'
         DataType = datString
         Size = 255
-        DisplayLabel = 'Cuentas_DESCRIPCION'
+        DisplayLabel = 'Cuentas_EPIGRAFE'
-        DictionaryEntry = 'Cuentas_DESCRIPCION'
+        DictionaryEntry = 'Cuentas_EPIGRAFE'
       end
       item
         Name = 'ID_BALANCE'
@@ -315,11 +332,25 @@ inherited DataModuleContabilidad: TDataModuleContabilidad
         DisplayLabel = 'Cuentas_ID_BALANCE'
         DictionaryEntry = 'Cuentas_ID_BALANCE'
       end
+      item
+        Name = 'BALANCE'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Cuentas_BALANCE'
+        DictionaryEntry = 'Cuentas_BALANCE'
+      end
       item
         Name = 'ID_CUENTA_ESPECIAL'
         DataType = datInteger
         DisplayLabel = 'Cuentas_ID_CUENTA_ESPECIAL'
         DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
+      end
+      item
+        Name = 'CUENTA_ESPECIAL'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Cuentas_CUENTA_ESPECIAL'
+        DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Contabilidad/Model/schContabilidadClient_Intf.pas

@@ -9,12 +9,12 @@ 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_Asientos = '{C51C5471-A7F7-4A0B-B124-1FCA17F1EA4D}';
+  RID_Asientos = '{E57138E2-062A-47CC-85D5-D5EDB287F9D9}';
-  RID_SubCuentas = '{BBB2A9E5-DAD7-4E8B-A14D-CC7DEAF2D283}';
+  RID_SubCuentas = '{8CDBD04B-6906-4BD7-9F4B-7F5FE1C3571E}';
-  RID_Cuentas = '{A0EB7B63-501F-4E40-9872-5E70A1EE346A}';
+  RID_Cuentas = '{613B2477-A125-4854-8C3D-DC612F408E4C}';
-  RID_CuentasEspeciales = '{8714C12C-03FF-4FB3-98B7-76533DFDD66C}';
+  RID_CuentasEspeciales = '{34044D68-7AC8-47CA-8DB3-61B5FB731D5A}';
-  RID_Epigrafes = '{1E81E57B-5402-4881-A28B-2927146E071C}';
+  RID_Epigrafes = '{94BAE66D-898F-4AA8-B9FF-7A0CD1E5CEF9}';
-  RID_Balances = '{39557F67-321F-41E8-8EE0-CAB8216CD882}';
+  RID_Balances = '{ED6CE025-E600-48AA-A8B0-5F3FE58E4B57}';
 
   { Data table names }
   nme_Asientos = 'Asientos';
@@ -62,19 +62,25 @@ const
   fld_CuentasID = 'ID';
   fld_CuentasREF_CUENTA = 'REF_CUENTA';
   fld_CuentasID_EJERCICIO = 'ID_EJERCICIO';
-  fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
   fld_CuentasDESCRIPCION = 'DESCRIPCION';
+  fld_CuentasID_EPIGRAFE = 'ID_EPIGRAFE';
+  fld_CuentasEPIGRAFE = 'EPIGRAFE';
   fld_CuentasID_BALANCE = 'ID_BALANCE';
+  fld_CuentasBALANCE = 'BALANCE';
   fld_CuentasID_CUENTA_ESPECIAL = 'ID_CUENTA_ESPECIAL';
+  fld_CuentasCUENTA_ESPECIAL = 'CUENTA_ESPECIAL';
 
   { Cuentas field indexes }
   idx_CuentasID = 0;
   idx_CuentasREF_CUENTA = 1;
   idx_CuentasID_EJERCICIO = 2;
-  idx_CuentasID_EPIGRAFE = 3;
+  idx_CuentasDESCRIPCION = 3;
-  idx_CuentasDESCRIPCION = 4;
+  idx_CuentasID_EPIGRAFE = 4;
-  idx_CuentasID_BALANCE = 5;
+  idx_CuentasEPIGRAFE = 5;
-  idx_CuentasID_CUENTA_ESPECIAL = 6;
+  idx_CuentasID_BALANCE = 6;
+  idx_CuentasBALANCE = 7;
+  idx_CuentasID_CUENTA_ESPECIAL = 8;
+  idx_CuentasCUENTA_ESPECIAL = 9;
 
   { CuentasEspeciales fields }
   fld_CuentasEspecialesID = 'ID';
@@ -89,16 +95,18 @@ const
   { Epigrafes fields }
   fld_EpigrafesID = 'ID';
   fld_EpigrafesREF_EPIGRAFE = 'REF_EPIGRAFE';
-  fld_EpigrafesID_PADRE = 'ID_PADRE';
   fld_EpigrafesDESCRIPCION = 'DESCRIPCION';
   fld_EpigrafesID_EJERCICIO = 'ID_EJERCICIO';
+  fld_EpigrafesID_PADRE = 'ID_PADRE';
+  fld_EpigrafesEPIGRAFE_PADRE = 'EPIGRAFE_PADRE';
 
   { Epigrafes field indexes }
   idx_EpigrafesID = 0;
   idx_EpigrafesREF_EPIGRAFE = 1;
-  idx_EpigrafesID_PADRE = 2;
+  idx_EpigrafesDESCRIPCION = 2;
-  idx_EpigrafesDESCRIPCION = 3;
+  idx_EpigrafesID_EJERCICIO = 3;
-  idx_EpigrafesID_EJERCICIO = 4;
+  idx_EpigrafesID_PADRE = 4;
+  idx_EpigrafesEPIGRAFE_PADRE = 5;
 
   { Balances fields }
   fld_BalancesID = 'ID';
@@ -125,7 +133,7 @@ const
 type
   { IAsientos }
   IAsientos = interface(IDAStronglyTypedDataTable)
-  ['{5914B799-7DB4-4B85-B63B-BA4CC1827CF3}']
+  ['{A91B6648-0B5A-4379-BA46-E7502C4BE3AC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -244,7 +252,7 @@ type
 
   { ISubCuentas }
   ISubCuentas = interface(IDAStronglyTypedDataTable)
-  ['{C519726C-43A5-4168-AD68-A63176180B09}']
+  ['{3EA34CD0-F51B-46B6-BCB6-D0FF0BF60134}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -327,7 +335,7 @@ type
 
   { ICuentas }
   ICuentas = interface(IDAStronglyTypedDataTable)
-  ['{A60C051B-5B76-4B39-8B2B-30EBFCD31798}']
+  ['{3266B522-8AD3-4882-86C7-23E7154C83AB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -341,22 +349,34 @@ type
     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_EPIGRAFEValue: Integer;
+    procedure SetID_EPIGRAFEValue(const aValue: Integer);
+    function GetID_EPIGRAFEIsNull: Boolean;
+    procedure SetID_EPIGRAFEIsNull(const aValue: Boolean);
+    function GetEPIGRAFEValue: String;
+    procedure SetEPIGRAFEValue(const aValue: String);
+    function GetEPIGRAFEIsNull: Boolean;
+    procedure SetEPIGRAFEIsNull(const aValue: Boolean);
     function GetID_BALANCEValue: Integer;
     procedure SetID_BALANCEValue(const aValue: Integer);
     function GetID_BALANCEIsNull: Boolean;
     procedure SetID_BALANCEIsNull(const aValue: Boolean);
+    function GetBALANCEValue: String;
+    procedure SetBALANCEValue(const aValue: String);
+    function GetBALANCEIsNull: Boolean;
+    procedure SetBALANCEIsNull(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);
+    function GetCUENTA_ESPECIALValue: String;
+    procedure SetCUENTA_ESPECIALValue(const aValue: String);
+    function GetCUENTA_ESPECIALIsNull: Boolean;
+    procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -366,14 +386,20 @@ type
     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_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
+    property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
+    property EPIGRAFE: String read GetEPIGRAFEValue write SetEPIGRAFEValue;
+    property EPIGRAFEIsNull: Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
     property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
     property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
+    property BALANCE: String read GetBALANCEValue write SetBALANCEValue;
+    property BALANCEIsNull: Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
     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 CUENTA_ESPECIAL: String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
+    property CUENTA_ESPECIALIsNull: Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
   end;
 
   { TCuentasDataTableRules }
@@ -393,22 +419,34 @@ type
     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_EPIGRAFEValue: Integer; virtual;
+    procedure SetID_EPIGRAFEValue(const aValue: Integer); virtual;
+    function GetID_EPIGRAFEIsNull: Boolean; virtual;
+    procedure SetID_EPIGRAFEIsNull(const aValue: Boolean); virtual;
+    function GetEPIGRAFEValue: String; virtual;
+    procedure SetEPIGRAFEValue(const aValue: String); virtual;
+    function GetEPIGRAFEIsNull: Boolean; virtual;
+    procedure SetEPIGRAFEIsNull(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 GetBALANCEValue: String; virtual;
+    procedure SetBALANCEValue(const aValue: String); virtual;
+    function GetBALANCEIsNull: Boolean; virtual;
+    procedure SetBALANCEIsNull(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;
+    function GetCUENTA_ESPECIALValue: String; virtual;
+    procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual;
+    function GetCUENTA_ESPECIALIsNull: Boolean; virtual;
+    procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -417,14 +455,20 @@ type
     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_EPIGRAFE: Integer read GetID_EPIGRAFEValue write SetID_EPIGRAFEValue;
+    property ID_EPIGRAFEIsNull: Boolean read GetID_EPIGRAFEIsNull write SetID_EPIGRAFEIsNull;
+    property EPIGRAFE: String read GetEPIGRAFEValue write SetEPIGRAFEValue;
+    property EPIGRAFEIsNull: Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
     property ID_BALANCE: Integer read GetID_BALANCEValue write SetID_BALANCEValue;
     property ID_BALANCEIsNull: Boolean read GetID_BALANCEIsNull write SetID_BALANCEIsNull;
+    property BALANCE: String read GetBALANCEValue write SetBALANCEValue;
+    property BALANCEIsNull: Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
     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 CUENTA_ESPECIAL: String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
+    property CUENTA_ESPECIALIsNull: Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -434,7 +478,7 @@ type
 
   { ICuentasEspeciales }
   ICuentasEspeciales = interface(IDAStronglyTypedDataTable)
-  ['{267A39E7-DD65-4417-B0EF-75BF2C13BB71}']
+  ['{BD79A3DF-F270-4E7B-976E-2D213C63187C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -493,7 +537,7 @@ type
 
   { IEpigrafes }
   IEpigrafes = interface(IDAStronglyTypedDataTable)
-  ['{1F851BD7-9C70-4A5E-B0E6-EF6918802C15}']
+  ['{492FACBF-1168-496F-AE21-46479708E154}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -503,10 +547,6 @@ type
     procedure SetREF_EPIGRAFEValue(const aValue: String);
     function GetREF_EPIGRAFEIsNull: Boolean;
     procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean);
-    function GetID_PADREValue: Integer;
-    procedure SetID_PADREValue(const aValue: Integer);
-    function GetID_PADREIsNull: Boolean;
-    procedure SetID_PADREIsNull(const aValue: Boolean);
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
     function GetDESCRIPCIONIsNull: Boolean;
@@ -515,6 +555,14 @@ type
     procedure SetID_EJERCICIOValue(const aValue: Integer);
     function GetID_EJERCICIOIsNull: Boolean;
     procedure SetID_EJERCICIOIsNull(const aValue: Boolean);
+    function GetID_PADREValue: Integer;
+    procedure SetID_PADREValue(const aValue: Integer);
+    function GetID_PADREIsNull: Boolean;
+    procedure SetID_PADREIsNull(const aValue: Boolean);
+    function GetEPIGRAFE_PADREValue: String;
+    procedure SetEPIGRAFE_PADREValue(const aValue: String);
+    function GetEPIGRAFE_PADREIsNull: Boolean;
+    procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -522,12 +570,14 @@ type
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
     property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
-    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
-    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
     property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
+    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
+    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
+    property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
+    property EPIGRAFE_PADREIsNull: Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
   end;
 
   { TEpigrafesDataTableRules }
@@ -543,10 +593,6 @@ type
     procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
     function GetREF_EPIGRAFEIsNull: Boolean; virtual;
     procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
-    function GetID_PADREValue: Integer; virtual;
-    procedure SetID_PADREValue(const aValue: Integer); virtual;
-    function GetID_PADREIsNull: Boolean; virtual;
-    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     procedure SetDESCRIPCIONValue(const aValue: String); virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
@@ -555,18 +601,28 @@ type
     procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
     function GetID_EJERCICIOIsNull: Boolean; virtual;
     procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
+    function GetID_PADREValue: Integer; virtual;
+    procedure SetID_PADREValue(const aValue: Integer); virtual;
+    function GetID_PADREIsNull: Boolean; virtual;
+    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
+    function GetEPIGRAFE_PADREValue: String; virtual;
+    procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual;
+    function GetEPIGRAFE_PADREIsNull: Boolean; virtual;
+    procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
     property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
     property REF_EPIGRAFE: String read GetREF_EPIGRAFEValue write SetREF_EPIGRAFEValue;
     property REF_EPIGRAFEIsNull: Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
-    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
-    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
     property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property ID_EJERCICIO: Integer read GetID_EJERCICIOValue write SetID_EJERCICIOValue;
     property ID_EJERCICIOIsNull: Boolean read GetID_EJERCICIOIsNull write SetID_EJERCICIOIsNull;
+    property ID_PADRE: Integer read GetID_PADREValue write SetID_PADREValue;
+    property ID_PADREIsNull: Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
+    property EPIGRAFE_PADRE: String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
+    property EPIGRAFE_PADREIsNull: Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -576,7 +632,7 @@ type
 
   { IBalances }
   IBalances = interface(IDAStronglyTypedDataTable)
-  ['{A661BDD9-9EAC-4ECA-906D-7361D8ABACA6}']
+  ['{6C69EE1A-E481-42DA-81A1-573A98D95BF5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1080,6 +1136,27 @@ begin
     DataTable.Fields[idx_CuentasID_EJERCICIO].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_EPIGRAFEValue: Integer;
 begin
   result := DataTable.Fields[idx_CuentasID_EPIGRAFE].AsInteger;
@@ -1101,25 +1178,25 @@ begin
     DataTable.Fields[idx_CuentasID_EPIGRAFE].AsVariant := Null;
 end;
 
-function TCuentasDataTableRules.GetDESCRIPCIONValue: String;
+function TCuentasDataTableRules.GetEPIGRAFEValue: String;
 begin
-  result := DataTable.Fields[idx_CuentasDESCRIPCION].AsString;
+  result := DataTable.Fields[idx_CuentasEPIGRAFE].AsString;
 end;
 
-procedure TCuentasDataTableRules.SetDESCRIPCIONValue(const aValue: String);
+procedure TCuentasDataTableRules.SetEPIGRAFEValue(const aValue: String);
 begin
-  DataTable.Fields[idx_CuentasDESCRIPCION].AsString := aValue;
+  DataTable.Fields[idx_CuentasEPIGRAFE].AsString := aValue;
 end;
 
-function TCuentasDataTableRules.GetDESCRIPCIONIsNull: boolean;
+function TCuentasDataTableRules.GetEPIGRAFEIsNull: boolean;
 begin
-  result := DataTable.Fields[idx_CuentasDESCRIPCION].IsNull;
+  result := DataTable.Fields[idx_CuentasEPIGRAFE].IsNull;
 end;
 
-procedure TCuentasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+procedure TCuentasDataTableRules.SetEPIGRAFEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    DataTable.Fields[idx_CuentasDESCRIPCION].AsVariant := Null;
+    DataTable.Fields[idx_CuentasEPIGRAFE].AsVariant := Null;
 end;
 
 function TCuentasDataTableRules.GetID_BALANCEValue: Integer;
@@ -1143,6 +1220,27 @@ begin
     DataTable.Fields[idx_CuentasID_BALANCE].AsVariant := Null;
 end;
 
+function TCuentasDataTableRules.GetBALANCEValue: String;
+begin
+  result := DataTable.Fields[idx_CuentasBALANCE].AsString;
+end;
+
+procedure TCuentasDataTableRules.SetBALANCEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CuentasBALANCE].AsString := aValue;
+end;
+
+function TCuentasDataTableRules.GetBALANCEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CuentasBALANCE].IsNull;
+end;
+
+procedure TCuentasDataTableRules.SetBALANCEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CuentasBALANCE].AsVariant := Null;
+end;
+
 function TCuentasDataTableRules.GetID_CUENTA_ESPECIALValue: Integer;
 begin
   result := DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsInteger;
@@ -1164,6 +1262,27 @@ begin
     DataTable.Fields[idx_CuentasID_CUENTA_ESPECIAL].AsVariant := Null;
 end;
 
+function TCuentasDataTableRules.GetCUENTA_ESPECIALValue: String;
+begin
+  result := DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsString;
+end;
+
+procedure TCuentasDataTableRules.SetCUENTA_ESPECIALValue(const aValue: String);
+begin
+  DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsString := aValue;
+end;
+
+function TCuentasDataTableRules.GetCUENTA_ESPECIALIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].IsNull;
+end;
+
+procedure TCuentasDataTableRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_CuentasCUENTA_ESPECIAL].AsVariant := Null;
+end;
+
 
 { TCuentasEspecialesDataTableRules }
 constructor TCuentasEspecialesDataTableRules.Create(aDataTable: TDADataTable);
@@ -1293,27 +1412,6 @@ begin
     DataTable.Fields[idx_EpigrafesREF_EPIGRAFE].AsVariant := Null;
 end;
 
-function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
-begin
-  result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
-end;
-
-procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
-end;
-
-function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
-end;
-
-procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
-end;
-
 function TEpigrafesDataTableRules.GetDESCRIPCIONValue: String;
 begin
   result := DataTable.Fields[idx_EpigrafesDESCRIPCION].AsString;
@@ -1356,6 +1454,48 @@ begin
     DataTable.Fields[idx_EpigrafesID_EJERCICIO].AsVariant := Null;
 end;
 
+function TEpigrafesDataTableRules.GetID_PADREValue: Integer;
+begin
+  result := DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger;
+end;
+
+procedure TEpigrafesDataTableRules.SetID_PADREValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_EpigrafesID_PADRE].AsInteger := aValue;
+end;
+
+function TEpigrafesDataTableRules.GetID_PADREIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_EpigrafesID_PADRE].IsNull;
+end;
+
+procedure TEpigrafesDataTableRules.SetID_PADREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_EpigrafesID_PADRE].AsVariant := Null;
+end;
+
+function TEpigrafesDataTableRules.GetEPIGRAFE_PADREValue: String;
+begin
+  result := DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsString;
+end;
+
+procedure TEpigrafesDataTableRules.SetEPIGRAFE_PADREValue(const aValue: String);
+begin
+  DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsString := aValue;
+end;
+
+function TEpigrafesDataTableRules.GetEPIGRAFE_PADREIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].IsNull;
+end;
+
+procedure TEpigrafesDataTableRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_EpigrafesEPIGRAFE_PADRE].AsVariant := Null;
+end;
+
 
 { TBalancesDataTableRules }
 constructor TBalancesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Contabilidad/Model/schContabilidadServer_Intf.pas

@@ -9,17 +9,17 @@ 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_AsientosDelta = '{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}';
+  RID_AsientosDelta = '{3CD8F764-C1CA-4895-BA19-D5BF1CB0BA2F}';
-  RID_SubCuentasDelta = '{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}';
+  RID_SubCuentasDelta = '{7150FC51-2186-49FF-9063-EC834D78B46A}';
-  RID_CuentasDelta = '{FB48551E-0531-4FC3-8494-51ABBA80938C}';
+  RID_CuentasDelta = '{11E761CB-D9B2-4C75-B43D-8239557C676B}';
-  RID_CuentasEspecialesDelta = '{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}';
+  RID_CuentasEspecialesDelta = '{7C11832B-A8CD-4327-8BF6-6CD33196255E}';
-  RID_EpigrafesDelta = '{691EBC10-A868-46C5-9EDF-8E55A27221D0}';
+  RID_EpigrafesDelta = '{E94C2735-B84B-4303-B214-1D5015499502}';
-  RID_BalancesDelta = '{C6255FDC-F284-4F1F-9559-685B3FEE30A9}';
+  RID_BalancesDelta = '{602255E6-AB54-4FA3-8924-48B151B7B756}';
 
 type
   { IAsientosDelta }
   IAsientosDelta = interface(IAsientos)
-  ['{E5444D5F-9D7A-4EF7-A3EC-54E04047ABB8}']
+  ['{3CD8F764-C1CA-4895-BA19-D5BF1CB0BA2F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_ASIENTO_COMPENSADOValue : Integer;
@@ -137,7 +137,7 @@ type
 
   { ISubCuentasDelta }
   ISubCuentasDelta = interface(ISubCuentas)
-  ['{06655A2F-ECFC-4984-B5EF-275E3B2F84E3}']
+  ['{7150FC51-2186-49FF-9063-EC834D78B46A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -219,24 +219,30 @@ type
 
   { ICuentasDelta }
   ICuentasDelta = interface(ICuentas)
-  ['{FB48551E-0531-4FC3-8494-51ABBA80938C}']
+  ['{11E761CB-D9B2-4C75-B43D-8239557C676B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_CUENTAValue : String;
     function GetOldID_EJERCICIOValue : Integer;
-    function GetOldID_EPIGRAFEValue : Integer;
     function GetOldDESCRIPCIONValue : String;
+    function GetOldID_EPIGRAFEValue : Integer;
+    function GetOldEPIGRAFEValue : String;
     function GetOldID_BALANCEValue : Integer;
+    function GetOldBALANCEValue : String;
     function GetOldID_CUENTA_ESPECIALValue : Integer;
+    function GetOldCUENTA_ESPECIALValue : String;
 
     { 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_EPIGRAFE : Integer read GetOldID_EPIGRAFEValue;
+    property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
     property OldID_BALANCE : Integer read GetOldID_BALANCEValue;
+    property OldBALANCE : String read GetOldBALANCEValue;
     property OldID_CUENTA_ESPECIAL : Integer read GetOldID_CUENTA_ESPECIALValue;
+    property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
   end;
 
   { TCuentasBusinessProcessorRules }
@@ -262,30 +268,48 @@ type
     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_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 GetEPIGRAFEValue: String; virtual;
+    function GetEPIGRAFEIsNull: Boolean; virtual;
+    function GetOldEPIGRAFEValue: String; virtual;
+    function GetOldEPIGRAFEIsNull: Boolean; virtual;
+    procedure SetEPIGRAFEValue(const aValue: String); virtual;
+    procedure SetEPIGRAFEIsNull(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 GetBALANCEValue: String; virtual;
+    function GetBALANCEIsNull: Boolean; virtual;
+    function GetOldBALANCEValue: String; virtual;
+    function GetOldBALANCEIsNull: Boolean; virtual;
+    procedure SetBALANCEValue(const aValue: String); virtual;
+    procedure SetBALANCEIsNull(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;
+    function GetCUENTA_ESPECIALValue: String; virtual;
+    function GetCUENTA_ESPECIALIsNull: Boolean; virtual;
+    function GetOldCUENTA_ESPECIALValue: String; virtual;
+    function GetOldCUENTA_ESPECIALIsNull: Boolean; virtual;
+    procedure SetCUENTA_ESPECIALValue(const aValue: String); virtual;
+    procedure SetCUENTA_ESPECIALIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -300,22 +324,34 @@ type
     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_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 EPIGRAFE : String read GetEPIGRAFEValue write SetEPIGRAFEValue;
+    property EPIGRAFEIsNull : Boolean read GetEPIGRAFEIsNull write SetEPIGRAFEIsNull;
+    property OldEPIGRAFE : String read GetOldEPIGRAFEValue;
+    property OldEPIGRAFEIsNull : Boolean read GetOldEPIGRAFEIsNull;
     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 BALANCE : String read GetBALANCEValue write SetBALANCEValue;
+    property BALANCEIsNull : Boolean read GetBALANCEIsNull write SetBALANCEIsNull;
+    property OldBALANCE : String read GetOldBALANCEValue;
+    property OldBALANCEIsNull : Boolean read GetOldBALANCEIsNull;
     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;
+    property CUENTA_ESPECIAL : String read GetCUENTA_ESPECIALValue write SetCUENTA_ESPECIALValue;
+    property CUENTA_ESPECIALIsNull : Boolean read GetCUENTA_ESPECIALIsNull write SetCUENTA_ESPECIALIsNull;
+    property OldCUENTA_ESPECIAL : String read GetOldCUENTA_ESPECIALValue;
+    property OldCUENTA_ESPECIALIsNull : Boolean read GetOldCUENTA_ESPECIALIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -325,7 +361,7 @@ type
 
   { ICuentasEspecialesDelta }
   ICuentasEspecialesDelta = interface(ICuentasEspeciales)
-  ['{4A7CF142-4CE5-41BE-863B-A4983EB6D7DC}']
+  ['{7C11832B-A8CD-4327-8BF6-6CD33196255E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -383,20 +419,22 @@ type
 
   { IEpigrafesDelta }
   IEpigrafesDelta = interface(IEpigrafes)
-  ['{691EBC10-A868-46C5-9EDF-8E55A27221D0}']
+  ['{E94C2735-B84B-4303-B214-1D5015499502}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_EPIGRAFEValue : String;
-    function GetOldID_PADREValue : Integer;
     function GetOldDESCRIPCIONValue : String;
     function GetOldID_EJERCICIOValue : Integer;
+    function GetOldID_PADREValue : Integer;
+    function GetOldEPIGRAFE_PADREValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
     property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
-    property OldID_PADRE : Integer read GetOldID_PADREValue;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
     property OldID_EJERCICIO : Integer read GetOldID_EJERCICIOValue;
+    property OldID_PADRE : Integer read GetOldID_PADREValue;
+    property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
   end;
 
   { TEpigrafesBusinessProcessorRules }
@@ -416,12 +454,6 @@ type
     function GetOldREF_EPIGRAFEIsNull: Boolean; virtual;
     procedure SetREF_EPIGRAFEValue(const aValue: String); virtual;
     procedure SetREF_EPIGRAFEIsNull(const aValue: Boolean); virtual;
-    function GetID_PADREValue: Integer; virtual;
-    function GetID_PADREIsNull: Boolean; virtual;
-    function GetOldID_PADREValue: Integer; virtual;
-    function GetOldID_PADREIsNull: Boolean; virtual;
-    procedure SetID_PADREValue(const aValue: Integer); virtual;
-    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
     function GetDESCRIPCIONValue: String; virtual;
     function GetDESCRIPCIONIsNull: Boolean; virtual;
     function GetOldDESCRIPCIONValue: String; virtual;
@@ -434,6 +466,18 @@ type
     function GetOldID_EJERCICIOIsNull: Boolean; virtual;
     procedure SetID_EJERCICIOValue(const aValue: Integer); virtual;
     procedure SetID_EJERCICIOIsNull(const aValue: Boolean); virtual;
+    function GetID_PADREValue: Integer; virtual;
+    function GetID_PADREIsNull: Boolean; virtual;
+    function GetOldID_PADREValue: Integer; virtual;
+    function GetOldID_PADREIsNull: Boolean; virtual;
+    procedure SetID_PADREValue(const aValue: Integer); virtual;
+    procedure SetID_PADREIsNull(const aValue: Boolean); virtual;
+    function GetEPIGRAFE_PADREValue: String; virtual;
+    function GetEPIGRAFE_PADREIsNull: Boolean; virtual;
+    function GetOldEPIGRAFE_PADREValue: String; virtual;
+    function GetOldEPIGRAFE_PADREIsNull: Boolean; virtual;
+    procedure SetEPIGRAFE_PADREValue(const aValue: String); virtual;
+    procedure SetEPIGRAFE_PADREIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -444,10 +488,6 @@ type
     property REF_EPIGRAFEIsNull : Boolean read GetREF_EPIGRAFEIsNull write SetREF_EPIGRAFEIsNull;
     property OldREF_EPIGRAFE : String read GetOldREF_EPIGRAFEValue;
     property OldREF_EPIGRAFEIsNull : Boolean read GetOldREF_EPIGRAFEIsNull;
-    property ID_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
-    property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
-    property OldID_PADRE : Integer read GetOldID_PADREValue;
-    property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
     property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
     property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
     property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
@@ -456,6 +496,14 @@ type
     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_PADRE : Integer read GetID_PADREValue write SetID_PADREValue;
+    property ID_PADREIsNull : Boolean read GetID_PADREIsNull write SetID_PADREIsNull;
+    property OldID_PADRE : Integer read GetOldID_PADREValue;
+    property OldID_PADREIsNull : Boolean read GetOldID_PADREIsNull;
+    property EPIGRAFE_PADRE : String read GetEPIGRAFE_PADREValue write SetEPIGRAFE_PADREValue;
+    property EPIGRAFE_PADREIsNull : Boolean read GetEPIGRAFE_PADREIsNull write SetEPIGRAFE_PADREIsNull;
+    property OldEPIGRAFE_PADRE : String read GetOldEPIGRAFE_PADREValue;
+    property OldEPIGRAFE_PADREIsNull : Boolean read GetOldEPIGRAFE_PADREIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -465,7 +513,7 @@ type
 
   { IBalancesDelta }
   IBalancesDelta = interface(IBalances)
-  ['{C6255FDC-F284-4F1F-9559-685B3FEE30A9}']
+  ['{602255E6-AB54-4FA3-8924-48B151B7B756}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_BALANCEValue : String;
@@ -1129,6 +1177,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EJERCICIO] := 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_EPIGRAFEValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE];
@@ -1160,35 +1239,35 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_EPIGRAFE] := Null;
 end;
 
-function TCuentasBusinessProcessorRules.GetDESCRIPCIONValue: String;
+function TCuentasBusinessProcessorRules.GetEPIGRAFEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION];
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE];
 end;
 
-function TCuentasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
+function TCuentasBusinessProcessorRules.GetEPIGRAFEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE]);
 end;
 
-function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
+function TCuentasBusinessProcessorRules.GetOldEPIGRAFEValue: String;
 begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION];
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE];
 end;
 
-function TCuentasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
+function TCuentasBusinessProcessorRules.GetOldEPIGRAFEIsNull: Boolean;
 begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasDESCRIPCION]);
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasEPIGRAFE]);
 end;
 
-procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
+procedure TCuentasBusinessProcessorRules.SetEPIGRAFEValue(const aValue: String);
 begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := aValue;
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := aValue;
 end;
 
-procedure TCuentasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
+procedure TCuentasBusinessProcessorRules.SetEPIGRAFEIsNull(const aValue: Boolean);
 begin
   if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasDESCRIPCION] := Null;
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasEPIGRAFE] := Null;
 end;
 
 function TCuentasBusinessProcessorRules.GetID_BALANCEValue: Integer;
@@ -1222,6 +1301,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_BALANCE] := Null;
 end;
 
+function TCuentasBusinessProcessorRules.GetBALANCEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE];
+end;
+
+function TCuentasBusinessProcessorRules.GetBALANCEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldBALANCEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldBALANCEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasBALANCE]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetBALANCEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetBALANCEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasBALANCE] := Null;
+end;
+
 function TCuentasBusinessProcessorRules.GetID_CUENTA_ESPECIALValue: Integer;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL];
@@ -1253,6 +1363,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasID_CUENTA_ESPECIAL] := Null;
 end;
 
+function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL];
+end;
+
+function TCuentasBusinessProcessorRules.GetCUENTA_ESPECIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL]);
+end;
+
+function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL];
+end;
+
+function TCuentasBusinessProcessorRules.GetOldCUENTA_ESPECIALIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_CuentasCUENTA_ESPECIAL]);
+end;
+
+procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := aValue;
+end;
+
+procedure TCuentasBusinessProcessorRules.SetCUENTA_ESPECIALIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_CuentasCUENTA_ESPECIAL] := Null;
+end;
+
 
 { TCuentasEspecialesBusinessProcessorRules }
 constructor TCuentasEspecialesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -1432,37 +1573,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesREF_EPIGRAFE] := Null;
 end;
 
-function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
-end;
-
-function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
-end;
-
-function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
-end;
-
-function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
-end;
-
-procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
-end;
-
-procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
-end;
-
 function TEpigrafesBusinessProcessorRules.GetDESCRIPCIONValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesDESCRIPCION];
@@ -1525,6 +1635,68 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_EJERCICIO] := Null;
 end;
 
+function TEpigrafesBusinessProcessorRules.GetID_PADREValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE];
+end;
+
+function TEpigrafesBusinessProcessorRules.GetID_PADREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE]);
+end;
+
+function TEpigrafesBusinessProcessorRules.GetOldID_PADREValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE];
+end;
+
+function TEpigrafesBusinessProcessorRules.GetOldID_PADREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesID_PADRE]);
+end;
+
+procedure TEpigrafesBusinessProcessorRules.SetID_PADREValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := aValue;
+end;
+
+procedure TEpigrafesBusinessProcessorRules.SetID_PADREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesID_PADRE] := Null;
+end;
+
+function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE];
+end;
+
+function TEpigrafesBusinessProcessorRules.GetEPIGRAFE_PADREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
+end;
+
+function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE];
+end;
+
+function TEpigrafesBusinessProcessorRules.GetOldEPIGRAFE_PADREIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EpigrafesEPIGRAFE_PADRE]);
+end;
+
+procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := aValue;
+end;
+
+procedure TEpigrafesBusinessProcessorRules.SetEPIGRAFE_PADREIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_EpigrafesEPIGRAFE_PADRE] := Null;
+end;
+
 
 { TBalancesBusinessProcessorRules }
 constructor TBalancesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Contabilidad/Model/uBizBalances.pas

@@ -3,7 +3,7 @@ unit uBizBalances;
 interface
 
 uses
-  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
 
 const
   BIZ_CLIENT_Balance = 'Client.Balance';
@@ -14,10 +14,17 @@ type
     function EsNuevo : Boolean;
   end;
 
-  TBizBalance = class(TBalancesDataTableRules, IBizBalance)
+  TBizBalance = class(TBalancesDataTableRules, IBizBalance, ISeleccionable)
   protected
+    FSeleccionableInterface : ISeleccionable;
     procedure OnNewRecord(Sender: TDADataTable); override;
   public
+    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+        write FSeleccionableInterface implements ISeleccionable;
+
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
     procedure IniciarValoresBalanceNueva;
     function EsNuevo : Boolean;
   end;
@@ -29,6 +36,18 @@ implementation
 uses
   SysUtils, uDataTableUtils;
 
+constructor TBizBalance.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizBalance.Destroy;
+begin
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
 function TBizBalance.EsNuevo: Boolean;
 begin
   Result := (ID < 0);

Source/Modulos/Contabilidad/Model/uBizCuentas.pas

@@ -3,7 +3,7 @@ unit uBizCuentas;
 interface
 
 uses
-  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
 
 const
   BIZ_CLIENT_Cuenta = 'Client.Cuenta';
@@ -14,10 +14,17 @@ type
     function EsNuevo : Boolean;
   end;
 
-  TBizCuenta = class(TCuentasDataTableRules, IBizCuenta)
+  TBizCuenta = class(TCuentasDataTableRules, IBizCuenta, ISeleccionable)
   protected
+    FSeleccionableInterface: ISeleccionable;
     procedure OnNewRecord(Sender: TDADataTable); override;
   public
+    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+        write FSeleccionableInterface implements ISeleccionable;
+
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
     procedure IniciarValoresCuentaNueva;
     function EsNuevo : Boolean;
   end;
@@ -29,6 +36,18 @@ implementation
 uses
   SysUtils, uDataTableUtils, uFactuGES_App;
 
+constructor TBizCuenta.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizCuenta.Destroy;
+begin
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
 function TBizCuenta.EsNuevo: Boolean;
 begin
   Result := (ID < 0);

Source/Modulos/Contabilidad/Model/uBizCuentasEspeciales.pas

@@ -3,7 +3,7 @@ unit uBizCuentasEspeciales;
 interface
 
 uses
-  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
 
 const
   BIZ_CLIENT_CuentaEspecial = 'Client.CuentaEspecial';
@@ -14,10 +14,17 @@ type
     function EsNuevo : Boolean;
   end;
 
-  TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial)
+  TBizCuentaEspecial = class(TCuentasEspecialesDataTableRules, IBizCuentaEspecial, ISeleccionable)
   protected
+    FSeleccionableInterface : ISeleccionable;
     procedure OnNewRecord(Sender: TDADataTable); override;
   public
+    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+        write FSeleccionableInterface implements ISeleccionable;
+
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
     procedure IniciarValoresCuentaEspecialNueva;
     function EsNuevo : Boolean;
   end;
@@ -29,6 +36,18 @@ implementation
 uses
   SysUtils, uDataTableUtils;
 
+constructor TBizCuentaEspecial.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizCuentaEspecial.Destroy;
+begin
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
 function TBizCuentaEspecial.EsNuevo: Boolean;
 begin
   Result := (ID < 0);

Source/Modulos/Contabilidad/Model/uBizEpigrafes.pas

@@ -3,7 +3,7 @@ unit uBizEpigrafes;
 interface
 
 uses
-  uDAInterfaces, uDADataTable, schContabilidadClient_Intf;
+  uDAInterfaces, uDADataTable, uDBSelectionListUtils, schContabilidadClient_Intf;
 
 const
   BIZ_CLIENT_Epigrafe = 'Client.Epigrafe';
@@ -14,10 +14,17 @@ type
     function EsNuevo : Boolean;
   end;
 
-  TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe)
+  TBizEpigrafe = class(TEpigrafesDataTableRules, IBizEpigrafe, ISeleccionable)
   protected
+    FSeleccionableInterface : ISeleccionable;
     procedure OnNewRecord(Sender: TDADataTable); override;
   public
+    property SeleccionableInterface : ISeleccionable read FSeleccionableInterface
+        write FSeleccionableInterface implements ISeleccionable;
+
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
     procedure IniciarValoresEpigrafeNueva;
     function EsNuevo : Boolean;
   end;
@@ -29,6 +36,18 @@ implementation
 uses
   SysUtils, uDataTableUtils, uFactuGES_App;
 
+constructor TBizEpigrafe.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+  FSeleccionableInterface := TSeleccionable.Create(aDataTable);
+end;
+
+destructor TBizEpigrafe.Destroy;
+begin
+  FSeleccionableInterface := NIL;
+  inherited;
+end;
+
 function TBizEpigrafe.EsNuevo: Boolean;
 begin
   Result := (ID < 0);

Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm

@@ -7,7 +7,7 @@ object srvContabilidad: TsrvContabilidad
   ExportedDataTables = <>
   BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
   Height = 181
-  Width = 282
+  Width = 331
   object Diagrams: TDADiagrams
     Left = 150
     Top = 90
@@ -21,7 +21,7 @@ object srvContabilidad: TsrvContabilidad
       item
         Name = 'Ejercicios_ID'
         DataType = datAutoInc
-        GeneratorName = 'GEN_CONT_BALANCES_ID'
+        GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
         Required = True
         DisplayLabel = 'ID'
         ServerAutoRefresh = True
@@ -69,6 +69,7 @@ object srvContabilidad: TsrvContabilidad
       item
         Name = 'Epigrafes_ID'
         DataType = datAutoInc
+        GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
         Required = True
         ServerAutoRefresh = True
       end
@@ -203,6 +204,26 @@ object srvContabilidad: TsrvContabilidad
       item
         Name = 'Asientos_HABER'
         DataType = datCurrency
+      end
+      item
+        Name = 'Epigrafes_EPIGRAFE_PADRE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Cuentas_EPIGRAFE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Cuentas_BALANCE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Cuentas_CUENTA_ESPECIAL'
+        DataType = datString
+        Size = 255
       end>
     Left = 150
     Top = 24
@@ -374,7 +395,7 @@ object srvContabilidad: TsrvContabilidad
             Connection = 'IBX'
             ConnectionType = 'Interbase'
             Default = True
-            TargetTable = 'CONT_CUENTAS'
+            TargetTable = 'V_CONT_CUENTAS'
             Name = 'IBX'
             StatementType = stAutoSQL
             ColumnMappings = <
@@ -390,21 +411,33 @@ object srvContabilidad: TsrvContabilidad
                 DatasetField = 'ID_EJERCICIO'
                 TableField = 'ID_EJERCICIO'
               end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end
               item
                 DatasetField = 'ID_EPIGRAFE'
                 TableField = 'ID_EPIGRAFE'
               end
               item
-                DatasetField = 'DESCRIPCION'
+                DatasetField = 'EPIGRAFE'
-                TableField = 'DESCRIPCION'
+                TableField = 'EPIGRAFE'
               end
               item
                 DatasetField = 'ID_BALANCE'
                 TableField = 'ID_BALANCE'
               end
+              item
+                DatasetField = 'BALANCE'
+                TableField = 'BALANCE'
+              end
               item
                 DatasetField = 'ID_CUENTA_ESPECIAL'
                 TableField = 'ID_CUENTA_ESPECIAL'
+              end
+              item
+                DatasetField = 'CUENTA_ESPECIAL'
+                TableField = 'CUENTA_ESPECIAL'
               end>
           end>
         Name = 'Cuentas'
@@ -428,26 +461,44 @@ object srvContabilidad: TsrvContabilidad
             DataType = datInteger
             DictionaryEntry = 'Cuentas_ID_EJERCICIO'
           end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Cuentas_DESCRIPCION'
+          end
           item
             Name = 'ID_EPIGRAFE'
             DataType = datInteger
             DictionaryEntry = 'Cuentas_ID_EPIGRAFE'
           end
           item
-            Name = 'DESCRIPCION'
+            Name = 'EPIGRAFE'
             DataType = datString
             Size = 255
-            DictionaryEntry = 'Cuentas_DESCRIPCION'
+            DictionaryEntry = 'Cuentas_EPIGRAFE'
           end
           item
             Name = 'ID_BALANCE'
             DataType = datInteger
             DictionaryEntry = 'Cuentas_ID_BALANCE'
           end
+          item
+            Name = 'BALANCE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Cuentas_BALANCE'
+          end
           item
             Name = 'ID_CUENTA_ESPECIAL'
             DataType = datInteger
             DictionaryEntry = 'Cuentas_ID_CUENTA_ESPECIAL'
+          end
+          item
+            Name = 'CUENTA_ESPECIAL'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Cuentas_CUENTA_ESPECIAL'
           end>
       end
       item
@@ -503,7 +554,7 @@ object srvContabilidad: TsrvContabilidad
             Connection = 'IBX'
             ConnectionType = 'Interbase'
             Default = True
-            TargetTable = 'CONT_EPIGRAFES'
+            TargetTable = 'V_CONT_EPIGRAFES'
             Name = 'IBX'
             StatementType = stAutoSQL
             ColumnMappings = <
@@ -515,10 +566,6 @@ object srvContabilidad: TsrvContabilidad
                 DatasetField = 'REF_EPIGRAFE'
                 TableField = 'REF_EPIGRAFE'
               end
-              item
-                DatasetField = 'ID_PADRE'
-                TableField = 'ID_PADRE'
-              end
               item
                 DatasetField = 'DESCRIPCION'
                 TableField = 'DESCRIPCION'
@@ -526,6 +573,14 @@ object srvContabilidad: TsrvContabilidad
               item
                 DatasetField = 'ID_EJERCICIO'
                 TableField = 'ID_EJERCICIO'
+              end
+              item
+                DatasetField = 'ID_PADRE'
+                TableField = 'ID_PADRE'
+              end
+              item
+                DatasetField = 'EPIGRAFE_PADRE'
+                TableField = 'EPIGRAFE_PADRE'
               end>
           end>
         Name = 'Epigrafes'
@@ -534,8 +589,8 @@ object srvContabilidad: TsrvContabilidad
             Name = 'ID'
             DataType = datAutoInc
             GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
-            Required = True
             ServerAutoRefresh = True
+            DictionaryEntry = 'Epigrafes_ID'
             InPrimaryKey = True
           end
           item
@@ -544,11 +599,6 @@ object srvContabilidad: TsrvContabilidad
             Size = 6
             DictionaryEntry = 'Epigrafes_REF_EPIGRAFE'
           end
-          item
-            Name = 'ID_PADRE'
-            DataType = datInteger
-            DictionaryEntry = 'Epigrafes_ID_PADRE'
-          end
           item
             Name = 'DESCRIPCION'
             DataType = datString
@@ -559,6 +609,17 @@ object srvContabilidad: TsrvContabilidad
             Name = 'ID_EJERCICIO'
             DataType = datInteger
             DictionaryEntry = 'Epigrafes_ID_EJERCICIO'
+          end
+          item
+            Name = 'ID_PADRE'
+            DataType = datInteger
+            DictionaryEntry = 'Epigrafes_ID_PADRE'
+          end
+          item
+            Name = 'EPIGRAFE_PADRE'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Epigrafes_EPIGRAFE_PADRE'
           end>
       end
       item
@@ -611,7 +672,7 @@ object srvContabilidad: TsrvContabilidad
           item
             Name = 'ID'
             DataType = datAutoInc
-            GeneratorName = 'GEN_CONT_BALANCES_ID'
+            GeneratorName = 'GEN_CONT_EJERCICIOS_ID'
             ServerAutoRefresh = True
             DictionaryEntry = 'Ejercicios_ID'
             InPrimaryKey = True
@@ -667,7 +728,223 @@ object srvContabilidad: TsrvContabilidad
       end>
     JoinDataTables = <>
     UnionDataTables = <>
-    Commands = <>
+    Commands = <
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_CONT_EPIGRAFES_ID'
+            Value = ''
+          end
+          item
+            Name = 'REF_EPIGRAFE'
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            Value = ''
+          end
+          item
+            Name = 'ID_EJERCICIO'
+            Value = ''
+          end
+          item
+            Name = 'ID_PADRE'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_EPIGRAFES'
+            SQL = 
+              'INSERT'#10'  INTO CONT_EPIGRAFES'#10'    (ID, REF_EPIGRAFE, DESCRIPCION,' +
+              ' ID_EJERCICIO, ID_PADRE)'#10'  VALUES'#10'    (:ID, :REF_EPIGRAFE, :DESC' +
+              'RIPCION, :ID_EJERCICIO, :ID_PADRE)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Epigrafes'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_EPIGRAFES'
+            SQL = 'DELETE '#10'  FROM'#10'    CONT_EPIGRAFES'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Epigrafes'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            Value = ''
+          end
+          item
+            Name = 'REF_EPIGRAFE'
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            Value = ''
+          end
+          item
+            Name = 'ID_EJERCICIO'
+            Value = ''
+          end
+          item
+            Name = 'ID_PADRE'
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_EPIGRAFES'
+            SQL = 
+              'UPDATE CONT_EPIGRAFES'#10'  SET '#10'    ID = :ID,'#10'    REF_EPIGRAFE = :R' +
+              'EF_EPIGRAFE, '#10'    DESCRIPCION = :DESCRIPCION, '#10'    ID_EJERCICIO ' +
+              '= :ID_EJERCICIO, '#10'    ID_PADRE = :ID_PADRE'#10'  WHERE'#10'    (ID = :OL' +
+              'D_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Epigrafes'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_CONT_CUENTAS_ID'
+            Value = ''
+          end
+          item
+            Name = 'REF_CUENTA'
+            Value = ''
+          end
+          item
+            Name = 'ID_EJERCICIO'
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            Value = ''
+          end
+          item
+            Name = 'ID_EPIGRAFE'
+            Value = ''
+          end
+          item
+            Name = 'ID_BALANCE'
+            Value = ''
+          end
+          item
+            Name = 'ID_CUENTA_ESPECIAL'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_CUENTAS'
+            SQL = 
+              'INSERT'#10'  INTO CONT_CUENTAS'#10'    (ID, REF_CUENTA, ID_EJERCICIO, DE' +
+              'SCRIPCION, ID_EPIGRAFE,'#10'     ID_BALANCE, ID_CUENTA_ESPECIAL)'#10'  V' +
+              'ALUES'#10'    (:ID, :REF_CUENTA, :ID_EJERCICIO, :DESCRIPCION, :ID_EP' +
+              'IGRAFE,'#10'     :ID_BALANCE, :ID_CUENTA_ESPECIAL)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Insert_Cuentas'
+      end
+      item
+        Params = <
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_CUENTAS'
+            SQL = 'DELETE '#10'  FROM'#10'    CONT_CUENTAS'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Delete_Cuentas'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID'
+            Value = ''
+          end
+          item
+            Name = 'REF_CUENTA'
+            Value = ''
+          end
+          item
+            Name = 'ID_EJERCICIO'
+            Value = ''
+          end
+          item
+            Name = 'DESCRIPCION'
+            Value = ''
+          end
+          item
+            Name = 'ID_EPIGRAFE'
+            Value = ''
+          end
+          item
+            Name = 'ID_BALANCE'
+            Value = ''
+          end
+          item
+            Name = 'ID_CUENTA_ESPECIAL'
+            Value = ''
+          end
+          item
+            Name = 'OLD_ID'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'CONT_CUENTAS'
+            SQL = 
+              'UPDATE CONT_CUENTAS'#10'  SET '#10'    ID = :ID,'#10'    REF_CUENTA = :REF_C' +
+              'UENTA, '#10'    ID_EJERCICIO = :ID_EJERCICIO, '#10'    DESCRIPCION = :DE' +
+              'SCRIPCION, '#10'    ID_EPIGRAFE = :ID_EPIGRAFE, '#10'    ID_BALANCE = :I' +
+              'D_BALANCE,'#10'    ID_CUENTA_ESPECIAL = :ID_CUENTA_ESPECIAL'#10'  WHERE'#10 +
+              '    (ID = :OLD_ID)'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'Update_Cuentas'
+      end>
     RelationShips = <>
     UpdateRules = <>
     Version = 0
@@ -678,4 +955,26 @@ object srvContabilidad: TsrvContabilidad
     Left = 48
     Top = 88
   end
+  object bpEpigrafes: TDABusinessProcessor
+    Schema = schContabilidad
+    InsertCommandName = 'Insert_Epigrafes'
+    DeleteCommandName = 'Delete_Epigrafes'
+    UpdateCommandName = 'Update_Epigrafes'
+    ReferencedDataset = 'Epigrafes'
+    ProcessorOptions = [poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 248
+    Top = 24
+  end
+  object bpCuentas: TDABusinessProcessor
+    Schema = schContabilidad
+    InsertCommandName = 'Insert_Cuentas'
+    DeleteCommandName = 'Delete_Cuentas'
+    UpdateCommandName = 'Update_Cuentas'
+    ReferencedDataset = 'Cuentas'
+    ProcessorOptions = [poPrepareCommands]
+    UpdateMode = updWhereKeyOnly
+    Left = 248
+    Top = 80
+  end
 end

Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas

@@ -23,6 +23,8 @@ type
   TsrvContabilidad = class(TDataAbstractService, IsrvContabilidad)
     Diagrams: TDADiagrams;
     Bin2DataStreamer: TDABin2DataStreamer;
+    bpEpigrafes: TDABusinessProcessor;
+    bpCuentas: TDABusinessProcessor;
     schContabilidad: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DARemoteServiceCreate(Sender: TObject);

Source/Modulos/Contabilidad/Views/Contabilidad_view.dpk

@@ -98,6 +98,10 @@ contains
   uViewSubCuentas in 'uViewSubCuentas.pas' {frViewSubCuentas: TFrame},
   uEditorSubCuentas in 'uEditorSubCuentas.pas' {fEditorSubCuentas: TfEditorEjercicios},
   uEditorSubCuenta in 'uEditorSubCuenta.pas' {fEditorSubCuenta: TfEditorEjercicios},
-  uEditorElegirEpigrafes in 'uEditorElegirEpigrafes.pas' {fEditorElegirEpigrafes: TfEditorElegirEpigrafes};
+  uEditorElegirEpigrafes in 'uEditorElegirEpigrafes.pas' {fEditorElegirEpigrafes: TfEditorEjercicios},
+  uViewBalances in 'uViewBalances.pas' {frViewBalances: TFrame},
+  uEditorElegirBalances in 'uEditorElegirBalances.pas' {fEditorElegirBalances: TfEditorEjercicios},
+  uViewCuentasEspeciales in 'uViewCuentasEspeciales.pas' {frViewCuentasEspeciales: TFrame},
+  uEditorElegirCuentasEspeciales in 'uEditorElegirCuentasEspeciales.pas' {fEditorElegirCuentasEspeciales: TfEditorElegirCuentasEspeciales};
 
 end.

Source/Modulos/Contabilidad/Views/Contabilidad_view.dproj

@@ -122,6 +122,14 @@
       <Form>fEditorCuentasEspeciales</Form>
       <DesignClass>TfEditorEjercicios</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirBalances.pas">
+      <Form>fEditorElegirBalances</Form>
+      <DesignClass>TfEditorEjercicios</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorElegirCuentasEspeciales.pas">
+      <Form>fEditorElegirCuentasEspeciales</Form>
+      <DesignClass>TfEditorEjercicios</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorElegirEpigrafes.pas">
       <Form>fEditorElegirEpigrafes</Form>
       <DesignClass>TfEditorEjercicios</DesignClass>
@@ -142,6 +150,10 @@
       <Form>fEditorSubCuentas</Form>
       <DesignClass>TfEditorEjercicios</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewBalances.pas">
+      <Form>frViewBalances</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewCuenta.pas">
       <Form>frViewCuenta</Form>
       <DesignClass>TFrame</DesignClass>
@@ -150,6 +162,10 @@
       <Form>frViewCuentas</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewCuentasEspeciales.pas">
+      <Form>frViewCuentasEspeciales</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewEpigrafe.pas">
       <Form>frViewEpigrafe</Form>
       <DesignClass>TFrame</DesignClass>

Source/Modulos/Contabilidad/Views/uContabilidadViewRegister.pas

@@ -8,7 +8,8 @@ procedure UnregisterViews;
 implementation
 
 uses
-  uEditorRegistryUtils, uEditorBalance, uEditorBalances, uEditorCuentaEspecial, uEditorCuentasEspeciales,
+  uEditorRegistryUtils, uEditorBalance, uEditorBalances, uEditorElegirBalances,
+  uEditorCuentaEspecial, uEditorCuentasEspeciales, uEditorElegirCuentasEspeciales,
   uEditorEpigrafe, uEditorElegirEpigrafes, uEditorEpigrafes,
   uEditorCuenta, uEditorCuentas,
   uEditorSubCuenta, uEditorSubCuentas;
@@ -17,8 +18,10 @@ procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorBalances, 'EditorBalances');
   EditorRegistry.RegisterClass(TfEditorBalance, 'EditorBalance');
+  EditorRegistry.RegisterClass(TfEditorElegirBalances, 'EditorElegirBalances');
   EditorRegistry.RegisterClass(TfEditorCuentasEspeciales, 'EditorCuentasEspeciales');
   EditorRegistry.RegisterClass(TfEditorCuentaEspecial, 'EditorCuentaEspecial');
+  EditorRegistry.RegisterClass(TfEditorElegirCuentasEspeciales, 'EditorElegirCuentasEspeciales');
   EditorRegistry.RegisterClass(TfEditorEpigrafes, 'EditorEpigrafes');
   EditorRegistry.RegisterClass(TfEditorEpigrafe, 'EditorEpigrafe');
   EditorRegistry.RegisterClass(TfEditorElegirEpigrafes, 'EditorElegirEpigrafes');
@@ -32,8 +35,10 @@ procedure UnregisterViews;
 begin
   EditorRegistry.UnRegisterClass(TfEditorBalances);
   EditorRegistry.UnRegisterClass(TfEditorBalance);
+  EditorRegistry.UnRegisterClass(TfEditorElegirBalances);
   EditorRegistry.UnRegisterClass(TfEditorCuentasEspeciales);
   EditorRegistry.UnRegisterClass(TfEditorCuentaEspecial);
+  EditorRegistry.UnRegisterClass(TfEditorElegirCuentasEspeciales);  
   EditorRegistry.UnRegisterClass(TfEditorEpigrafes);
   EditorRegistry.UnRegisterClass(TfEditorEpigrafe);
   EditorRegistry.UnRegisterClass(TfEditorElegirEpigrafes);  

Source/Modulos/Contabilidad/Views/uEditorCuenta.pas

@@ -122,6 +122,8 @@ end;
 procedure TfEditorCuenta.SetController(const Value: ICuentasController);
 begin
   FController := Value;
+  if Assigned(ViewCuenta) then
+     ViewCuenta.Controller := FController;
 end;
 
 procedure TfEditorCuenta.SetViewCuenta(const Value: IViewCuenta);

Source/Modulos/Contabilidad/Views/uEditorElegirBalances.dfm

@@ -0,0 +1,257 @@
+inherited fEditorElegirBalances: TfEditorElegirBalances
+  Caption = 'Seleccionar pedido de cliente'
+  ClientWidth = 656
+  ExplicitWidth = 664
+  ExplicitHeight = 240
+  PixelsPerInch = 96
+  TextHeight = 13
+  object JvgWizardHeader1: TJvgWizardHeader [0]
+    Left = 0
+    Top = 27
+    Width = 656
+    Height = 60
+    CaptionFont.Charset = DEFAULT_CHARSET
+    CaptionFont.Color = clWindowText
+    CaptionFont.Height = -11
+    CaptionFont.Name = 'Tahoma'
+    CaptionFont.Style = [fsBold]
+    CommentFont.Charset = DEFAULT_CHARSET
+    CommentFont.Color = clWindowText
+    CommentFont.Height = -11
+    CommentFont.Name = 'Tahoma'
+    CommentFont.Style = []
+    SymbolFont.Charset = DEFAULT_CHARSET
+    SymbolFont.Color = clHighlightText
+    SymbolFont.Height = -35
+    SymbolFont.Name = 'Wingdings'
+    SymbolFont.Style = [fsBold]
+    Captions.Strings = (
+      'Seleccione el pedido de proveedor')
+    Comments.Strings = (
+      ' ')
+    Gradient.FromColor = clHighlight
+    Gradient.ToColor = clWindow
+    Gradient.Active = False
+    Gradient.Orientation = fgdVertical
+    BufferedDraw = False
+    ExplicitTop = 16
+  end
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 656
+    Caption = 'Lista de pedidos de proveedor'
+    Visible = False
+    ExplicitWidth = 656
+    inherited Image1: TImage
+      Left = 629
+      ExplicitLeft = 629
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Top = 87
+    Width = 656
+    ExplicitTop = 87
+    ExplicitWidth = 656
+    inherited tbxMain: TTBXToolbar
+      Align = alRight
+      ExplicitWidth = 126
+      inherited TBXItem2: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem5: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem4: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem6: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem36: TTBXItem
+        Action = actAnchoAuto2
+      end
+    end
+    inherited tbxFiltro: TTBXToolbar
+      Left = 126
+      Top = 23
+      DockPos = 115
+      DockRow = 1
+      ExplicitLeft = 126
+      ExplicitTop = 23
+      inherited TBXItem34: TTBXItem
+        Action = actQuitarFiltro2
+      end
+    end
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 656
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Width = 656
+    Visible = False
+    ExplicitWidth = 656
+  end
+  inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+    Left = 0
+    Top = 376
+    Width = 656
+    Height = 49
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    ReadOnly = False
+    ExplicitTop = 376
+    ExplicitWidth = 656
+    inherited JvFooter1: TJvFooter
+      Width = 656
+      ExplicitWidth = 656
+      inherited bSeleccionar: TJvFooterBtn
+        Left = 444
+        ExplicitLeft = 444
+      end
+      inherited bCancelar: TJvFooterBtn
+        Left = 548
+        ExplicitLeft = 548
+      end
+    end
+    inherited BarraSeleccionActionList: TActionList
+      inherited actSeleccionar: TAction
+        OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+        OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
+      end
+      inherited actCancelar: TAction
+        OnExecute = frViewBarraSeleccion1actCancelarExecute
+      end
+    end
+  end
+  inherited frViewBalances1: TfrViewBalances [5]
+    Top = 162
+    Width = 656
+    Height = 214
+    ExplicitTop = 162
+    ExplicitWidth = 656
+    ExplicitHeight = 214
+    inherited cxGrid: TcxGrid
+      Width = 656
+      Height = 86
+      ExplicitWidth = 656
+      ExplicitHeight = 86
+      inherited cxGridView: TcxGridDBTableView
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Format = '0 pedidos'
+            Kind = skCount
+          end>
+        inherited cxGridViewID: TcxGridDBColumn
+          IsCaptionAssigned = True
+        end
+      end
+    end
+    inherited frViewFiltroBase1: TfrViewFiltroBase
+      Width = 656
+      ExplicitWidth = 656
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        ExplicitWidth = 656
+        inherited dxLayoutControl1: TdxLayoutControl
+          Width = 656
+          ExplicitWidth = 656
+          inherited edtFechaFinFiltro: TcxDateEdit
+            Left = 290
+            ExplicitLeft = 290
+            ExplicitWidth = 421
+            Width = 421
+          end
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 656
+          ExplicitWidth = 656
+          inherited tbxBotones: TTBXToolbar
+            Width = 646
+            ExplicitWidth = 646
+          end
+        end
+      end
+    end
+    inherited pnlAgrupaciones: TTBXDockablePanel
+      Top = 188
+      ExplicitTop = 188
+      ExplicitWidth = 656
+      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+        Width = 656
+        ExplicitWidth = 656
+        inherited TBXToolbar1: TTBXToolbar
+          Width = 646
+          ExplicitWidth = 646
+        end
+      end
+    end
+    inherited dxComponentPrinter: TdxComponentPrinter
+      inherited dxComponentPrinterLink: TdxGridReportLink
+        BuiltInReportLink = True
+      end
+    end
+    inherited cxViewGridPopupMenu: TcxGridPopupMenu
+      PopupMenus = <
+        item
+          GridView = frViewBalances1.cxGridView
+          HitTypes = [gvhtCell]
+          Index = 0
+        end>
+    end
+    inherited dxPrintStyleManager1: TdxPrintStyleManager
+      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+        BuiltInStyle = True
+      end
+    end
+  end
+  inherited EditorActionList: TActionList [8]
+    Left = 112
+    Top = 192
+    inherited actDuplicar: TAction
+      Visible = False
+    end
+  end
+  inherited dsDataTable: TDADataSource
+    Left = 8
+    Top = 192
+  end
+  inherited JvFormStorage: TJvFormStorage [12]
+  end
+  inherited GridPopupMenu: TPopupMenu
+    Left = 80
+    Top = 192
+  end
+  object EditorSeleccionActionList: TActionList
+    Images = SmallImages
+    Left = 152
+    Top = 192
+    object actBuscar2: TAction
+      Category = 'Buscar'
+      Caption = 'Buscar'
+      ImageIndex = 10
+      ShortCut = 114
+    end
+    object actQuitarFiltro2: TAction
+      Category = 'Buscar'
+      Caption = 'Quitar filtro y ver todo'
+      ImageIndex = 19
+      OnExecute = actQuitarFiltro2Execute
+    end
+    object actAnchoAuto2: TAction
+      Category = 'Ver'
+      Caption = 'Ancho autom'#225'tico'
+      ImageIndex = 21
+      OnExecute = actAnchoAuto2Execute
+    end
+  end
+end

Source/Modulos/Contabilidad/Views/uEditorElegirBalances.pas

@@ -0,0 +1,126 @@
+unit uEditorElegirBalances;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+  JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+  ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+  ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
+  pngimage, ExtCtrls, JvExControls, JvComponent,
+  JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+  uBizBalances, uIEditorElegirBalances,
+  JvExComCtrls, JvStatusBar, uEditorBalances, uViewBalances,
+  JSDialog, uDAInterfaces;
+
+type
+  TfEditorElegirBalances = class(TfEditorBalances, IEditorElegirBalances)
+    frViewBarraSeleccion1: TfrViewBarraSeleccion;
+    JvgWizardHeader1: TJvgWizardHeader;
+    EditorSeleccionActionList: TActionList;
+    actBuscar2: TAction;
+    actQuitarFiltro2: TAction;
+    actAnchoAuto2: TAction;
+    procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+    procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+    procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure actAnchoAuto2Execute(Sender: TObject);
+    procedure actQuitarFiltro2Execute(Sender: TObject);
+  protected
+    procedure SetMultiSelect (AValue : Boolean);
+    function GetMultiSelect : Boolean;
+    function GetBalancesSeleccionados: IBizBalance;
+    procedure SetViewGrid(const Value: IViewGridBase); override;
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+  public
+    property Mensaje : String read GetMensaje write SetMensaje;
+    property BalancesSeleccionados: IBizBalance read GetBalancesSeleccionados;
+    property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+  end;
+
+implementation
+
+uses
+  uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+  uGridUtils, uEditorBase, uBalancesController;
+
+{$R *.dfm}
+
+{ TfEditorElegirBalances }
+
+procedure TfEditorElegirBalances.actAnchoAuto2Execute(Sender: TObject);
+begin
+  inherited;
+  actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirBalances.actQuitarFiltro2Execute(Sender: TObject);
+begin
+  inherited;
+  actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirBalances.FormShow(Sender: TObject);
+begin
+  inherited;
+  EditorActionList.State := asSuspended;
+end;
+
+procedure TfEditorElegirBalances.frViewBarraSeleccion1actCancelarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  Close;
+end;
+
+procedure TfEditorElegirBalances.frViewBarraSeleccion1actSeleccionarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirBalances.frViewBarraSeleccion1actSeleccionarUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirBalances.GetBalancesSeleccionados: IBizBalance;
+begin
+  SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Balances as ISeleccionable).SelectedRecords);
+  // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+  Result := (Controller as IBalancesController).ExtraerSeleccionados(Balances) as IBizBalance;
+end;
+
+function TfEditorElegirBalances.GetMensaje: String;
+begin
+  Result := JvgWizardHeader1.Comments.Text;
+end;
+
+function TfEditorElegirBalances.GetMultiSelect: Boolean;
+begin
+  Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirBalances.SetMensaje(const AValue: String);
+begin
+  JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+procedure TfEditorElegirBalances.SetMultiSelect(AValue: Boolean);
+begin
+  ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirBalances.SetViewGrid(const Value: IViewGridBase);
+begin
+  inherited;
+  ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+end.

Source/Modulos/Contabilidad/Views/uEditorElegirCuentasEspeciales.dfm

@@ -0,0 +1,257 @@
+inherited fEditorElegirCuentasEspeciales: TfEditorElegirCuentasEspeciales
+  Caption = 'Seleccionar pedido de cliente'
+  ClientWidth = 656
+  ExplicitWidth = 664
+  ExplicitHeight = 240
+  PixelsPerInch = 96
+  TextHeight = 13
+  object JvgWizardHeader1: TJvgWizardHeader [0]
+    Left = 0
+    Top = 27
+    Width = 656
+    Height = 60
+    CaptionFont.Charset = DEFAULT_CHARSET
+    CaptionFont.Color = clWindowText
+    CaptionFont.Height = -11
+    CaptionFont.Name = 'Tahoma'
+    CaptionFont.Style = [fsBold]
+    CommentFont.Charset = DEFAULT_CHARSET
+    CommentFont.Color = clWindowText
+    CommentFont.Height = -11
+    CommentFont.Name = 'Tahoma'
+    CommentFont.Style = []
+    SymbolFont.Charset = DEFAULT_CHARSET
+    SymbolFont.Color = clHighlightText
+    SymbolFont.Height = -35
+    SymbolFont.Name = 'Wingdings'
+    SymbolFont.Style = [fsBold]
+    Captions.Strings = (
+      'Seleccione el pedido de proveedor')
+    Comments.Strings = (
+      ' ')
+    Gradient.FromColor = clHighlight
+    Gradient.ToColor = clWindow
+    Gradient.Active = False
+    Gradient.Orientation = fgdVertical
+    BufferedDraw = False
+    ExplicitTop = 16
+  end
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 656
+    Caption = 'Lista de pedidos de proveedor'
+    Visible = False
+    ExplicitWidth = 656
+    inherited Image1: TImage
+      Left = 629
+      ExplicitLeft = 629
+    end
+  end
+  inherited TBXDock: TTBXDock
+    Top = 87
+    Width = 656
+    ExplicitTop = 87
+    ExplicitWidth = 656
+    inherited tbxMain: TTBXToolbar
+      Align = alRight
+      ExplicitWidth = 126
+      inherited TBXItem2: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem5: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem4: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem6: TTBXItem
+        Visible = False
+      end
+      inherited TBXItem36: TTBXItem
+        Action = actAnchoAuto2
+      end
+    end
+    inherited tbxFiltro: TTBXToolbar
+      Left = 126
+      Top = 23
+      DockPos = 115
+      DockRow = 1
+      ExplicitLeft = 126
+      ExplicitTop = 23
+      inherited TBXItem34: TTBXItem
+        Action = actQuitarFiltro2
+      end
+    end
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 656
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Width = 656
+    Visible = False
+    ExplicitWidth = 656
+  end
+  inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
+    Left = 0
+    Top = 376
+    Width = 656
+    Height = 49
+    Align = alBottom
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 4
+    ReadOnly = False
+    ExplicitTop = 376
+    ExplicitWidth = 656
+    inherited JvFooter1: TJvFooter
+      Width = 656
+      ExplicitWidth = 656
+      inherited bSeleccionar: TJvFooterBtn
+        Left = 444
+        ExplicitLeft = 444
+      end
+      inherited bCancelar: TJvFooterBtn
+        Left = 548
+        ExplicitLeft = 548
+      end
+    end
+    inherited BarraSeleccionActionList: TActionList
+      inherited actSeleccionar: TAction
+        OnExecute = frViewBarraSeleccion1actSeleccionarExecute
+        OnUpdate = frViewBarraSeleccion1actSeleccionarUpdate
+      end
+      inherited actCancelar: TAction
+        OnExecute = frViewBarraSeleccion1actCancelarExecute
+      end
+    end
+  end
+  inherited frViewCuentasEspeciales1: TfrViewCuentasEspeciales [5]
+    Top = 162
+    Width = 656
+    Height = 214
+    ExplicitTop = 162
+    ExplicitWidth = 656
+    ExplicitHeight = 214
+    inherited cxGrid: TcxGrid
+      Width = 656
+      Height = 86
+      ExplicitWidth = 656
+      ExplicitHeight = 86
+      inherited cxGridView: TcxGridDBTableView
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = ',0.00 '#8364';-,0.00 '#8364
+            Kind = skSum
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Format = '0 pedidos'
+            Kind = skCount
+          end>
+        inherited cxGridViewID: TcxGridDBColumn
+          IsCaptionAssigned = True
+        end
+      end
+    end
+    inherited frViewFiltroBase1: TfrViewFiltroBase
+      Width = 656
+      ExplicitWidth = 656
+      inherited TBXDockablePanel1: TTBXDockablePanel
+        ExplicitWidth = 656
+        inherited dxLayoutControl1: TdxLayoutControl
+          Width = 656
+          ExplicitWidth = 656
+          inherited edtFechaFinFiltro: TcxDateEdit
+            Left = 225
+            ExplicitLeft = 225
+            ExplicitWidth = 421
+            Width = 421
+          end
+        end
+        inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+          Width = 656
+          ExplicitWidth = 656
+          inherited tbxBotones: TTBXToolbar
+            Width = 646
+            ExplicitWidth = 646
+          end
+        end
+      end
+    end
+    inherited pnlAgrupaciones: TTBXDockablePanel
+      Top = 188
+      ExplicitTop = 188
+      ExplicitWidth = 656
+      inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+        Width = 656
+        ExplicitWidth = 656
+        inherited TBXToolbar1: TTBXToolbar
+          Width = 646
+          ExplicitWidth = 646
+        end
+      end
+    end
+    inherited dxComponentPrinter: TdxComponentPrinter
+      inherited dxComponentPrinterLink: TdxGridReportLink
+        BuiltInReportLink = True
+      end
+    end
+    inherited cxViewGridPopupMenu: TcxGridPopupMenu
+      PopupMenus = <
+        item
+          GridView = frViewCuentasEspeciales1.cxGridView
+          HitTypes = [gvhtCell]
+          Index = 0
+        end>
+    end
+    inherited dxPrintStyleManager1: TdxPrintStyleManager
+      inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+        BuiltInStyle = True
+      end
+    end
+  end
+  inherited EditorActionList: TActionList [8]
+    Left = 112
+    Top = 192
+    inherited actDuplicar: TAction
+      Visible = False
+    end
+  end
+  inherited dsDataTable: TDADataSource
+    Left = 8
+    Top = 192
+  end
+  inherited JvFormStorage: TJvFormStorage [12]
+  end
+  inherited GridPopupMenu: TPopupMenu
+    Left = 80
+    Top = 192
+  end
+  object EditorSeleccionActionList: TActionList
+    Images = SmallImages
+    Left = 152
+    Top = 192
+    object actBuscar2: TAction
+      Category = 'Buscar'
+      Caption = 'Buscar'
+      ImageIndex = 10
+      ShortCut = 114
+    end
+    object actQuitarFiltro2: TAction
+      Category = 'Buscar'
+      Caption = 'Quitar filtro y ver todo'
+      ImageIndex = 19
+      OnExecute = actQuitarFiltro2Execute
+    end
+    object actAnchoAuto2: TAction
+      Category = 'Ver'
+      Caption = 'Ancho autom'#225'tico'
+      ImageIndex = 21
+      OnExecute = actAnchoAuto2Execute
+    end
+  end
+end

Source/Modulos/Contabilidad/Views/uEditorElegirCuentasEspeciales.pas

@@ -0,0 +1,126 @@
+unit uEditorElegirCuentasEspeciales;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, uDADataTable, Menus, JvAppStorage, JvAppRegistryStorage,
+  JvComponentBase, JvFormPlacement, ImgList, PngImageList, StdActns,
+  ActnList, uCustomView, uViewBase, uViewGridBase, uViewGrid,
+  ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
+  pngimage, ExtCtrls, JvExControls, JvComponent,
+  JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
+  uBizCuentasEspeciales, uIEditorElegirCuentasEspeciales,
+  JvExComCtrls, JvStatusBar, uEditorCuentasEspeciales, uViewCuentasEspeciales,
+  JSDialog, uDAInterfaces;
+
+type
+  TfEditorElegirCuentasEspeciales = class(TfEditorCuentasEspeciales, IEditorElegirCuentasEspeciales)
+    frViewBarraSeleccion1: TfrViewBarraSeleccion;
+    JvgWizardHeader1: TJvgWizardHeader;
+    EditorSeleccionActionList: TActionList;
+    actBuscar2: TAction;
+    actQuitarFiltro2: TAction;
+    actAnchoAuto2: TAction;
+    procedure frViewBarraSeleccion1actSeleccionarUpdate(Sender: TObject);
+    procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
+    procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure actAnchoAuto2Execute(Sender: TObject);
+    procedure actQuitarFiltro2Execute(Sender: TObject);
+  protected
+    procedure SetMultiSelect (AValue : Boolean);
+    function GetMultiSelect : Boolean;
+    function GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
+    procedure SetViewGrid(const Value: IViewGridBase); override;
+    procedure SetMensaje (const AValue: String);
+    function GetMensaje: String;
+  public
+    property Mensaje : String read GetMensaje write SetMensaje;
+    property CuentasEspecialesSeleccionados: IBizCuentaEspecial read GetCuentasEspecialesSeleccionados;
+    property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
+  end;
+
+implementation
+
+uses
+  uEditorGridBase, cxGridCustomTableView, uIntegerListUtils, uDBSelectionListUtils,
+  uGridUtils, uEditorBase, uCuentasEspecialesController;
+
+{$R *.dfm}
+
+{ TfEditorElegirCuentasEspeciales }
+
+procedure TfEditorElegirCuentasEspeciales.actAnchoAuto2Execute(Sender: TObject);
+begin
+  inherited;
+  actAnchoAuto.Execute;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.actQuitarFiltro2Execute(Sender: TObject);
+begin
+  inherited;
+  actQuitarFiltro.Execute;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.FormShow(Sender: TObject);
+begin
+  inherited;
+  EditorActionList.State := asSuspended;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actCancelarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  Close;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actSeleccionarExecute(
+  Sender: TObject);
+begin
+  inherited;
+  ModalResult := mrOk;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.frViewBarraSeleccion1actSeleccionarUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (ViewGrid._FocusedView.Controller.SelectedRowCount > 0)
+end;
+
+function TfEditorElegirCuentasEspeciales.GetCuentasEspecialesSeleccionados: IBizCuentaEspecial;
+begin
+  SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (CuentasEspeciales as ISeleccionable).SelectedRecords);
+  // En SelectedRecords tengo los ID de las filas seleccionadas del grid
+  Result := (Controller as ICuentasEspecialesController).ExtraerSeleccionados(CuentasEspeciales) as IBizCuentaEspecial;
+end;
+
+function TfEditorElegirCuentasEspeciales.GetMensaje: String;
+begin
+  Result := JvgWizardHeader1.Comments.Text;
+end;
+
+function TfEditorElegirCuentasEspeciales.GetMultiSelect: Boolean;
+begin
+  Result := ViewGrid.MultiSelect;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.SetMensaje(const AValue: String);
+begin
+  JvgWizardHeader1.Comments.Text := AValue;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.SetMultiSelect(AValue: Boolean);
+begin
+  ViewGrid.MultiSelect := AValue;
+end;
+
+procedure TfEditorElegirCuentasEspeciales.SetViewGrid(const Value: IViewGridBase);
+begin
+  inherited;
+  ViewGrid.OnDblClick := frViewBarraSeleccion1.actSeleccionar.OnExecute;
+end;
+
+end.

Source/Modulos/Contabilidad/Views/uEditorElegirEpigrafes.dfm

@@ -165,8 +165,8 @@ inherited fEditorElegirEpigrafes: TfEditorElegirEpigrafes
           Width = 656
           ExplicitWidth = 656
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 294
+            Left = 290
-            ExplicitLeft = 294
+            ExplicitLeft = 290
             ExplicitWidth = 421
             Width = 421
           end

Source/Modulos/Contabilidad/Views/uEditorElegirEpigrafes.pas

@@ -94,7 +94,7 @@ function TfEditorElegirEpigrafes.GetEpigrafesSeleccionados: IBizEpigrafe;
 begin
   SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Epigrafes as ISeleccionable).SelectedRecords);
   // En SelectedRecords tengo los ID de las filas seleccionadas del grid
-//  Result := (Controller as IEpigrafesController).ExtraerSeleccionados(Epigrafes) as IBizEpigrafe;
+  Result := (Controller as IEpigrafesController).ExtraerSeleccionados(Epigrafes) as IBizEpigrafe;
 end;
 
 function TfEditorElegirEpigrafes.GetMensaje: String;

Source/Modulos/Contabilidad/Views/uEditorEpigrafe.pas

@@ -122,6 +122,8 @@ end;
 procedure TfEditorEpigrafe.SetController(const Value: IEpigrafesController);
 begin
   FController := Value;
+  if Assigned(ViewEpigrafe) then
+     ViewEpigrafe.Controller := FController;
 end;
 
 procedure TfEditorEpigrafe.SetViewEpigrafe(const Value: IViewEpigrafe);

Source/Modulos/Contabilidad/Views/uViewBalances.dfm

@@ -0,0 +1,117 @@
+inherited frViewBalances: TfrViewBalances
+  inherited cxGrid: TcxGrid
+    inherited cxGridView: TcxGridDBTableView
+      DataController.KeyFieldNames = 'ID'
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Format = '0 ejercicios'
+          Kind = skCount
+          Column = cxGridViewNATURALEZA
+        end>
+      OptionsBehavior.PullFocusing = True
+      object cxGridViewID: TcxGridDBColumn
+        DataBinding.FieldName = 'ID'
+        OnCustomDrawCell = cxGridViewIDCustomDrawCell
+        BestFitMaxWidth = 22
+        MinWidth = 22
+        Options.HorzSizing = False
+        Width = 22
+        IsCaptionAssigned = True
+      end
+      object cxGridViewREF_BALANCE: TcxGridDBColumn
+        DataBinding.FieldName = 'REF_BALANCE'
+        Visible = False
+      end
+      object cxGridViewNATURALEZA: TcxGridDBColumn
+        DataBinding.FieldName = 'NATURALEZA'
+        PropertiesClassName = 'TcxTextEditProperties'
+        SortIndex = 0
+        SortOrder = soAscending
+        Width = 304
+      end
+      object cxGridViewNIVEL1: TcxGridDBColumn
+        DataBinding.FieldName = 'NIVEL1'
+      end
+      object cxGridViewDESCRIPCION1: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCRIPCION1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Width = 118
+      end
+      object cxGridViewNIVEL2: TcxGridDBColumn
+        DataBinding.FieldName = 'NIVEL2'
+      end
+      object cxGridViewDESCRIPCION2: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCRIPCION2'
+      end
+      object cxGridViewNIVEL3: TcxGridDBColumn
+        DataBinding.FieldName = 'NIVEL3'
+      end
+      object cxGridViewDESCRIPCION3: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCRIPCION3'
+      end
+    end
+  end
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDockablePanel1: TTBXDockablePanel
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
+        inherited edtFechaFinFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
+      end
+    end
+  end
+  inherited pnlAgrupaciones: TTBXDockablePanel
+    ExplicitWidth = 554
+  end
+  inherited dxComponentPrinter: TdxComponentPrinter
+    inherited dxComponentPrinterLink: TdxGridReportLink
+      ReportDocument.CreationDate = 38673.842406053240000000
+      BuiltInReportLink = True
+    end
+  end
+  inherited dxPrintStyleManager1: TdxPrintStyleManager
+    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+      BuiltInStyle = True
+    end
+  end
+  object PngImageList: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000022E4944415478DA
+          8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
+          C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
+          A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
+          2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
+          8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
+          4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
+          A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
+          7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
+          9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
+          1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
+          13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
+          AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
+          352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
+          3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
+          12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
+          84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
+          C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
+          6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 160
+    Top = 32
+    Bitmap = {}
+  end
+end

Source/Modulos/Contabilidad/Views/uViewBalances.pas

@@ -0,0 +1,82 @@
+unit uViewBalances;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGrid, uBizBalances, ActnList, Menus,
+  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
+  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
+  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
+  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
+  cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
+  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
+  cxImageComboBox, cxTextEdit;
+
+type
+  IViewBalances = interface(IViewGrid)
+  ['{E1960F7E-97F6-4BF6-82AA-82E60C220B33}']
+    function GetBalances: IBizBalance;
+    procedure SetBalances(const Value: IBizBalance);
+    property Balances: IBizBalance read GetBalances write SetBalances;
+  end;
+
+  TfrViewBalances = class(TfrViewGrid, IViewBalances)
+    cxGridViewDESCRIPCION1: TcxGridDBColumn;
+    cxGridViewNATURALEZA: TcxGridDBColumn;
+    cxGridViewID: TcxGridDBColumn;
+    PngImageList: TPngImageList;
+    cxGridViewREF_BALANCE: TcxGridDBColumn;
+    cxGridViewNIVEL1: TcxGridDBColumn;
+    cxGridViewNIVEL2: TcxGridDBColumn;
+    cxGridViewDESCRIPCION2: TcxGridDBColumn;
+    cxGridViewNIVEL3: TcxGridDBColumn;
+    cxGridViewDESCRIPCION3: TcxGridDBColumn;
+    procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+  protected
+    FBalances: IBizBalance;
+    function GetBalances: IBizBalance; virtual;
+    procedure SetBalances(const Value: IBizBalance); virtual;
+  public
+    property Balances: IBizBalance read GetBalances write SetBalances;
+  end;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewBalances }
+
+{
+******************************* TfrViewBalances *******************************
+}
+function TfrViewBalances.GetBalances: IBizBalance;
+begin
+  Result := FBalances;
+end;
+
+procedure TfrViewBalances.SetBalances(const Value: IBizBalance);
+begin
+  FBalances := Value;
+  if Assigned(FBalances) then
+    dsDataSource.DataTable := FBalances.DataTable;
+end;
+
+
+procedure TfrViewBalances.cxGridViewIDCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  R := AViewInfo.ContentBounds;
+  ACanvas.FillRect(R);
+  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
+  ADone := True;
+end;
+
+end.

Source/Modulos/Contabilidad/Views/uViewCuenta.dfm

@@ -73,7 +73,7 @@ inherited frViewCuenta: TfrViewCuenta
     end
     object eBalance: TcxDBTextEdit
       Left = 107
-      Top = 140
+      Top = 144
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'BALANCE'
       DataBinding.DataSource = DADataSource
@@ -86,7 +86,7 @@ inherited frViewCuenta: TfrViewCuenta
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 5
+      TabOrder = 6
       Width = 322
     end
     object eEpigrafe: TcxDBTextEdit
@@ -116,6 +116,24 @@ inherited frViewCuenta: TfrViewCuenta
       Caption = 'Elegir ep'#237'grafe'
       TabOrder = 1
     end
+    object BitBtn2: TBitBtn
+      Left = 354
+      Top = 113
+      Width = 75
+      Height = 25
+      Action = actCuentaEspecial
+      Caption = 'Cuenta especial'
+      TabOrder = 5
+    end
+    object BitBtn3: TBitBtn
+      Left = 354
+      Top = 144
+      Width = 75
+      Height = 25
+      Action = actBalance
+      Caption = 'Balance'
+      TabOrder = 7
+    end
     object dxLayoutControlCuentaGroup_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -154,15 +172,41 @@ inherited frViewCuenta: TfrViewCuenta
           Control = eDescripcion
           ControlOptions.ShowBorder = False
         end
-        object dxLayoutControlCuentaItem2: TdxLayoutItem
+        object dxLayoutControlCuentaGroup3: TdxLayoutGroup
-          Caption = 'Cuenta especial:'
+          ShowCaption = False
-          Control = eCuentaEspecial
+          Hidden = True
-          ControlOptions.ShowBorder = False
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControlCuentaItem2: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Cuenta especial:'
+            Control = eCuentaEspecial
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControlCuentaItem7: TdxLayoutItem
+            ShowCaption = False
+            Control = BitBtn2
+            ControlOptions.ShowBorder = False
+          end
         end
-        object dxLayoutControlCuentaItem4: TdxLayoutItem
+        object dxLayoutControlCuentaGroup4: TdxLayoutGroup
-          Caption = 'Balance:'
+          ShowCaption = False
-          Control = eBalance
+          Hidden = True
-          ControlOptions.ShowBorder = False
+          LayoutDirection = ldHorizontal
+          ShowBorder = False
+          object dxLayoutControlCuentaItem4: TdxLayoutItem
+            AutoAligns = [aaVertical]
+            AlignHorz = ahClient
+            Caption = 'Balance:'
+            Control = eBalance
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControlCuentaItem8: TdxLayoutItem
+            ShowCaption = False
+            Control = BitBtn3
+            ControlOptions.ShowBorder = False
+          end
         end
       end
     end
@@ -178,6 +222,14 @@ inherited frViewCuenta: TfrViewCuenta
       Caption = 'Elegir ep'#237'grafe'
       OnExecute = actElegirEpigrafeExecute
     end
+    object actBalance: TAction
+      Caption = 'Balance'
+      OnExecute = actBalanceExecute
+    end
+    object actCuentaEspecial: TAction
+      Caption = 'Cuenta especial'
+      OnExecute = actCuentaEspecialExecute
+    end
   end
   object LargeImages: TPngImageList
     Height = 24

Source/Modulos/Contabilidad/Views/uViewCuenta.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
-  DBCtrls, Grids, DBGrids, uBizCuentas, Mask, ComCtrls, uCustomView,
+  DBCtrls, Grids, DBGrids, uBizCuentas, uCuentasController, Mask, ComCtrls, uCustomView,
   JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
   cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
   cxImageComboBox, cxMaskEdit, cxCalendar, ActnList, ImgList, PngImageList;
@@ -13,6 +13,10 @@ uses
 type
   IViewCuenta = interface(IViewBase)
   ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
+    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;
@@ -38,28 +42,62 @@ type
     BitBtn1: TBitBtn;
     dxLayoutControlCuentaItem6: TdxLayoutItem;
     dxLayoutControlCuentaGroup2: TdxLayoutGroup;
+    dxLayoutControlCuentaItem7: TdxLayoutItem;
+    BitBtn2: TBitBtn;
+    dxLayoutControlCuentaGroup3: TdxLayoutGroup;
+    dxLayoutControlCuentaItem8: TdxLayoutItem;
+    BitBtn3: TBitBtn;
+    dxLayoutControlCuentaGroup4: TdxLayoutGroup;
+    actBalance: TAction;
+    actCuentaEspecial: TAction;
     procedure actElegirEpigrafeExecute(Sender: TObject);
+    procedure actBalanceExecute(Sender: TObject);
+    procedure actCuentaEspecialExecute(Sender: TObject);
   protected
     FCuenta: IBizCuenta;
+    FController : ICuentasController;
     function GetCuenta: IBizCuenta;
     procedure SetCuenta(const Value: IBizCuenta);
+    function GetController : ICuentasController;
+    procedure SetController (const Value : ICuentasController);
+
   public
+    property Controller : ICuentasController read GetController write SetController;
     property Cuenta: IBizCuenta read GetCuenta write SetCuenta;
   end;
 
 implementation
 {$R *.dfm}
 
+uses uBizEpigrafes;
+
 { TfrViewCuenta }
 
 {
 ******************************* TfrViewCuenta ********************************
 }
 
+procedure TfrViewCuenta.actBalanceExecute(Sender: TObject);
+begin
+  inherited;
+  Controller.ElegirBalance(Cuenta);
+end;
+
+procedure TfrViewCuenta.actCuentaEspecialExecute(Sender: TObject);
+begin
+  inherited;
+  Controller.ElegirCuentaEspecial(Cuenta);
+end;
+
 procedure TfrViewCuenta.actElegirEpigrafeExecute(Sender: TObject);
 begin
   inherited;
-//Seleccion de epigrafe
+  Controller.ElegirEpigrafe(Cuenta);
+end;
+
+function TfrViewCuenta.GetController: ICuentasController;
+begin
+  Result := FController;
 end;
 
 function TfrViewCuenta.GetCuenta: IBizCuenta;
@@ -67,6 +105,11 @@ begin
   Result := FCuenta;
 end;
 
+procedure TfrViewCuenta.SetController(const Value: ICuentasController);
+begin
+  FController := Value;
+end;
+
 procedure TfrViewCuenta.SetCuenta(const Value: IBizCuenta);
 begin
   FCuenta := Value;

Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.dfm

@@ -0,0 +1,97 @@
+inherited frViewCuentasEspeciales: TfrViewCuentasEspeciales
+  inherited cxGrid: TcxGrid
+    inherited cxGridView: TcxGridDBTableView
+      DataController.KeyFieldNames = 'ID'
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Format = '0 ejercicios'
+          Kind = skCount
+          Column = cxGridViewDESCRIPCION
+        end>
+      OptionsBehavior.PullFocusing = True
+      object cxGridViewID: TcxGridDBColumn
+        DataBinding.FieldName = 'ID'
+        OnCustomDrawCell = cxGridViewIDCustomDrawCell
+        BestFitMaxWidth = 22
+        MinWidth = 22
+        Options.HorzSizing = False
+        Width = 22
+        IsCaptionAssigned = True
+      end
+      object cxGridViewREFERENCIA: TcxGridDBColumn
+        DataBinding.FieldName = 'REFERENCIA'
+        Visible = False
+      end
+      object cxGridViewDESCRIPCION: TcxGridDBColumn
+        DataBinding.FieldName = 'DESCRIPCION'
+        PropertiesClassName = 'TcxTextEditProperties'
+        SortIndex = 0
+        SortOrder = soAscending
+        Width = 304
+      end
+    end
+  end
+  inherited frViewFiltroBase1: TfrViewFiltroBase
+    inherited TBXDockablePanel1: TTBXDockablePanel
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
+        inherited edtFechaFinFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
+      end
+    end
+  end
+  inherited pnlAgrupaciones: TTBXDockablePanel
+    ExplicitWidth = 554
+  end
+  inherited dxComponentPrinter: TdxComponentPrinter
+    inherited dxComponentPrinterLink: TdxGridReportLink
+      ReportDocument.CreationDate = 38673.842406053240000000
+      BuiltInReportLink = True
+    end
+  end
+  inherited dxPrintStyleManager1: TdxPrintStyleManager
+    inherited dxPrintStyleManager1Style1: TdxPSPrintStyle
+      BuiltInStyle = True
+    end
+  end
+  object PngImageList: TPngImageList
+    PngImages = <
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000022E4944415478DA
+          8D93CF6BD36018C7BF6997A45DD376EA70CA18D31D44981741280C44119DA83D
+          C87619781A1EFD1BC49B2028B28353141111A43BE8CD934E65A8D4A1686B61B5
+          A31DD8CCBAFEDAACEDF226B389EFFB26CBCC54E6030FEFCB4B3E9FE79B9744B0
+          2C0B8220E0F7BA3AB2D75A282DE07F4AD82C60F0851B8F50530BF85EF98A6236
+          8DCCAB69B0B366BD8C95B24ACF4BB877FD226AFD635EC13A5CF99243A356869A
+          4D51F8398799EC476D09E5621E0F6F5EC6C8D938EE7C503604EB7055CDA34127
+          A8B90C3ECD3CE570A35AA2FD0DCB4B2AEE4F5CC29953C35094102667655B706D
+          7480C3F97412AD951AAAC502E6DEBCE47031974673B942BB8AA9DB57103F7D12
+          9D9D413ED4154C8C0BD6FCE7AD2F6C2816C3CE9E6E8862077C3E9F57307CE2FC
+          1F80655A308C35E844C7B3273318D8D78FE8B6282449A41211B7DE05FE2D304D
+          13866EC34433F0FAC55BF4EDE945A42B0C910A6459C6DD94F27781D936F964B2
+          AADB02DAEF9329ECEEED4138A240944548B2840773DBBD02B637596C6238205D
+          352AD175643E66B1A3BB0B0A15489204292061AAB0CB2B68D3C96B34367120BE
+          3AB2F96C01E1A8825028083920F35778BCD8B721387E6C9C42060788465C50A3
+          12B24AB0582C2110946907282C61BA3588442221B882C343E75C50A30093B104
+          84D849EAD53AFC1D7E0ECFFA631C76FF0526387470D4135977405B62A0D56CB2
+          C791891C71618FE0C0FEB873618623B2E33361FB679B4A340A1FF5C01E41928C
+          6DF9256E8659FD02D3B7960923D6946A0000000049454E44AE426082}
+        Name = 'PngImage0'
+        Background = clWindow
+      end>
+    Left = 160
+    Top = 32
+    Bitmap = {}
+  end
+end

Source/Modulos/Contabilidad/Views/uViewCuentasEspeciales.pas

@@ -0,0 +1,76 @@
+unit uViewCuentasEspeciales;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, uDADataTable, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxGrid, uBizCuentasEspeciales, ActnList, Menus,
+  cxGridBandedTableView, cxGridDBBandedTableView, JvComponent,
+  JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn,
+  dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
+  dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGridLnk,
+  cxGridCustomPopupMenu, cxGridPopupMenu, uViewFiltroBase, TB2Item, TBX,
+  TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, cxCalendar,
+  cxImageComboBox, cxTextEdit;
+
+type
+  IViewCuentasEspeciales = interface(IViewGrid)
+  ['{E1960F7E-97F6-4BF6-82AA-82E60C220B33}']
+    function GetCuentasEspeciales: IBizCuentaEspecial;
+    procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial);
+    property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
+  end;
+
+  TfrViewCuentasEspeciales = class(TfrViewGrid, IViewCuentasEspeciales)
+    cxGridViewDESCRIPCION: TcxGridDBColumn;
+    cxGridViewID: TcxGridDBColumn;
+    PngImageList: TPngImageList;
+    cxGridViewREFERENCIA: TcxGridDBColumn;
+    procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+  protected
+    FCuentasEspeciales: IBizCuentaEspecial;
+    function GetCuentasEspeciales: IBizCuentaEspecial; virtual;
+    procedure SetCuentasEspeciales(const Value: IBizCuentaEspecial); virtual;
+  public
+    property CuentasEspeciales: IBizCuentaEspecial read GetCuentasEspeciales write SetCuentasEspeciales;
+  end;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewCuentasEspeciales }
+
+{
+******************************* TfrViewCuentasEspeciales *******************************
+}
+function TfrViewCuentasEspeciales.GetCuentasEspeciales: IBizCuentaEspecial;
+begin
+  Result := FCuentasEspeciales;
+end;
+
+procedure TfrViewCuentasEspeciales.SetCuentasEspeciales(const Value: IBizCuentaEspecial);
+begin
+  FCuentasEspeciales := Value;
+  if Assigned(FCuentasEspeciales) then
+    dsDataSource.DataTable := FCuentasEspeciales.DataTable;
+end;
+
+
+procedure TfrViewCuentasEspeciales.cxGridViewIDCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  R := AViewInfo.ContentBounds;
+  ACanvas.FillRect(R);
+  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
+  ADone := True;
+end;
+
+end.

Source/Modulos/Contabilidad/Views/uViewEpigrafe.dfm

@@ -76,6 +76,7 @@ inherited frViewEpigrafe: TfrViewEpigrafe
       Top = 28
       Width = 75
       Height = 25
+      Action = actElegirEpigrafe
       Caption = 'Elegir ep'#237'grafe'
       TabOrder = 1
     end

Source/Modulos/Contabilidad/Views/uViewEpigrafe.pas

@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
-  DBCtrls, Grids, DBGrids, uBizEpigrafes, Mask, ComCtrls, uCustomView,
+  DBCtrls, Grids, DBGrids, uBizEpigrafes, uEpigrafesController, Mask, ComCtrls, uCustomView,
   JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
   cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
   cxImageComboBox, cxMaskEdit, cxCalendar, ActnList, ImgList, PngImageList;
@@ -13,6 +13,10 @@ uses
 type
   IViewEpigrafe = interface(IViewBase)
   ['{F44F8AEF-CB9C-44D5-93DA-53D6AB6A2D29}']
+    function GetController : IEpigrafesController;
+    procedure SetController (const Value : IEpigrafesController);
+    property Controller : IEpigrafesController read GetController write SetController;
+
     function GetEpigrafe: IBizEpigrafe;
     procedure SetEpigrafe(const Value: IBizEpigrafe);
     property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
@@ -37,10 +41,14 @@ type
     actElegirEpigrafe: TAction;
     procedure actElegirEpigrafeExecute(Sender: TObject);
   protected
+    FController : IEpigrafesController;
     FEpigrafe: IBizEpigrafe;
     function GetEpigrafe: IBizEpigrafe;
     procedure SetEpigrafe(const Value: IBizEpigrafe);
+    function GetController : IEpigrafesController;
+    procedure SetController (const Value : IEpigrafesController);
   public
+    property Controller : IEpigrafesController read GetController write SetController;
     property Epigrafe: IBizEpigrafe read GetEpigrafe write SetEpigrafe;
   end;
   
@@ -54,9 +62,18 @@ implementation
 }
 
 procedure TfrViewEpigrafe.actElegirEpigrafeExecute(Sender: TObject);
+var
+  AEpigrafe : IBizEpigrafe;
 begin
   inherited;
-//
+  AEpigrafe := (Controller.ElegirEpigrafe(Controller.BuscarTodos, 'ddddddd', False) as IBizEpigrafe);
+  Controller.AsignarPadre(Epigrafe, AEpigrafe);
+  AEpigrafe := Nil;
+end;
+
+function TfrViewEpigrafe.GetController: IEpigrafesController;
+begin
+  Result := FController;
 end;
 
 function TfrViewEpigrafe.GetEpigrafe: IBizEpigrafe;
@@ -64,6 +81,11 @@ begin
   Result := FEpigrafe;
 end;
 
+procedure TfrViewEpigrafe.SetController(const Value: IEpigrafesController);
+begin
+  FController := Value;
+end;
+
 procedure TfrViewEpigrafe.SetEpigrafe(const Value: IBizEpigrafe);
 begin
   FEpigrafe := Value;

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "miércoles, 05 de diciembre de 2007 18:39\0"
+              VALUE "CompileDate", "jueves, 06 de diciembre de 2007 17:14\0"
          END
     END
     BLOCK "VarFileInfo"