Se adapta la contabiulidad para poder hacer cierres anuales

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@393 f4e31baf-9722-1c47-927c-6f952f962d4b
2009-02-06 11:22:56 +00:00 · 2009-02-06 11:22:56 +00:00 · 641f8d84a6
commit 641f8d84a6
parent 423818ddfc
18 changed files with 418 additions and 156 deletions
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@ -4019,9 +4019,9 @@ end
 ^

 ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_CLI (
-    IDFACTURA INTEGER,
-    ID_SUBCUENTA_VENTA INTEGER)
-AS
+    idfactura integer,
+    id_subcuenta_venta integer)
+as
 declare variable ignorarcontabilidad integer;
 declare variable referenciafactura varchar(255);
 declare variable razon varchar(255);
@ -4034,15 +4034,30 @@ declare variable orden integer;
 declare variable importetotal numeric(11,2);
 declare variable importeiva numeric(11,2);
 declare variable importere numeric(11,2);
+declare variable idempresa integer;
+declare variable idcontacto integer;
 begin
  /*BUSCAMOS LA FACTURA DE LA QUE COMPROBAR SI HACER ASIENTO*/
-  SELECT FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD, FACTURAS_CLIENTE.REFERENCIA, FACTURAS_CLIENTE.NOMBRE, FACTURAS_CLIENTE.FECHA_FACTURA,
-  FACTURAS_CLIENTE.BASE_IMPONIBLE, FACTURAS_CLIENTE.IMPORTE_IVA, FACTURAS_CLIENTE.IMPORTE_RE, FACTURAS_CLIENTE.IMPORTE_TOTAL,
-  CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
+  SELECT FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.IGNORAR_CONTABILIDAD, FACTURAS_CLIENTE.REFERENCIA,
+  FACTURAS_CLIENTE.ID_CLIENTE, FACTURAS_CLIENTE.NOMBRE, FACTURAS_CLIENTE.FECHA_FACTURA,
+  FACTURAS_CLIENTE.BASE_IMPONIBLE, FACTURAS_CLIENTE.IMPORTE_IVA, FACTURAS_CLIENTE.IMPORTE_RE, FACTURAS_CLIENTE.IMPORTE_TOTAL
  FROM FACTURAS_CLIENTE
-  LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_CLIENTE.ID_CLIENTE)
-  WHERE FACTURAS_CLIENTE.ID = :IDFACTURA INTO :IGNORARCONTABILIDAD, :REFERENCIAFACTURA, :RAZON,
-  :FECHAFACTURA, :BASEIMPONIBLE, :IMPORTEIVA, :IMPORTERE, :IMPORTETOTAL, :IDSUBCUENTA, :IDEJERCICIO;
+  WHERE FACTURAS_CLIENTE.ID = :IDFACTURA INTO :IDEMPRESA, :IGNORARCONTABILIDAD, :REFERENCIAFACTURA,
+  :IDCONTACTO, :RAZON, :FECHAFACTURA, :BASEIMPONIBLE, :IMPORTEIVA, :IMPORTERE, :IMPORTETOTAL;
+
+  /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_EJERCICIOS
+  WHERE ID_EMPRESA = :IDEMPRESA
+  AND ACTIVO = 1
+  INTO :IDEJERCICIO;
+
+  /*BUSCAMOS LA SUBCUENTA DEL EJERCICIO ACTIVO DE LA EMPRESA DE LA FACTURA PARA EL CLIENTE DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_SUBCUENTAS
+  WHERE ID_CONTACTO = :IDCONTACTO
+  AND ID_EJERCICIO = :IDEJERCICIO
+  INTO :IDSUBCUENTA;

  SELECT ID FROM CONT_ASIENTOS
  WHERE ID_FACTURA = :IDFACTURA
@ -4160,9 +4175,9 @@ end
 ^

 ALTER PROCEDURE PROC_NEW_ASIENTO_FACTURA_PROV (
-    IDFACTURA INTEGER,
-    ID_SUBCUENTA_COMPRA INTEGER)
-AS
+    idfactura integer,
+    id_subcuenta_compra integer)
+as
 declare variable ignorarcontabilidad integer;
 declare variable referenciafactura varchar(255);
 declare variable razon varchar(255);
@ -4175,15 +4190,30 @@ declare variable orden integer;
 declare variable importetotal numeric(11,2);
 declare variable importeiva numeric(11,2);
 declare variable importere numeric(11,2);
+declare variable idempresa integer;
+declare variable idcontacto integer;
 begin
  /*BUSCAMOS LA FACTURA DE LA QUE COMPROBAR SI HACER ASIENTO*/
-  SELECT FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD, FACTURAS_PROVEEDOR.REFERENCIA, FACTURAS_PROVEEDOR.NOMBRE, FACTURAS_PROVEEDOR.FECHA_FACTURA,
-  FACTURAS_PROVEEDOR.BASE_IMPONIBLE, FACTURAS_PROVEEDOR.IMPORTE_IVA, FACTURAS_PROVEEDOR.IMPORTE_RE, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
-  CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
+  SELECT FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.IGNORAR_CONTABILIDAD,
+  FACTURAS_PROVEEDOR.REFERENCIA, FACTURAS_PROVEEDOR.ID_PROVEEDOR, FACTURAS_PROVEEDOR.NOMBRE, FACTURAS_PROVEEDOR.FECHA_FACTURA,
+  FACTURAS_PROVEEDOR.BASE_IMPONIBLE, FACTURAS_PROVEEDOR.IMPORTE_IVA, FACTURAS_PROVEEDOR.IMPORTE_RE, FACTURAS_PROVEEDOR.IMPORTE_TOTAL
  FROM FACTURAS_PROVEEDOR
-  LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
-  WHERE FACTURAS_PROVEEDOR.ID = :IDFACTURA INTO :IGNORARCONTABILIDAD, :REFERENCIAFACTURA, :RAZON,
-  :FECHAFACTURA, :BASEIMPONIBLE, :IMPORTEIVA, :IMPORTERE, :IMPORTETOTAL, :IDSUBCUENTA, :IDEJERCICIO;
+  WHERE FACTURAS_PROVEEDOR.ID = :IDFACTURA INTO :IDEMPRESA, :IGNORARCONTABILIDAD, :REFERENCIAFACTURA,
+  :IDCONTACTO, :RAZON, :FECHAFACTURA, :BASEIMPONIBLE, :IMPORTEIVA, :IMPORTERE, :IMPORTETOTAL;
+
+  /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_EJERCICIOS
+  WHERE ID_EMPRESA = :IDEMPRESA
+  AND ACTIVO = 1
+  INTO :IDEJERCICIO;
+
+  /*BUSCAMOS LA SUBCUENTA DEL EJERCICIO ACTIVO DE LA EMPRESA DE LA FACTURA PARA EL CLIENTE DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_SUBCUENTAS
+  WHERE ID_CONTACTO = :IDCONTACTO
+  AND ID_EJERCICIO = :IDEJERCICIO
+  INTO :IDSUBCUENTA;

  SELECT ID FROM CONT_ASIENTOS
  WHERE ID_FACTURA = :IDFACTURA
@ -4301,9 +4331,9 @@ end
 ^

 ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_CLI (
-    IDPAGO INTEGER,
-    IDSUBCUENTAPAGO INTEGER)
-AS
+    idpago integer,
+    idsubcuentapago integer)
+as
 declare variable ignorarcontabilidad integer;
 declare variable referenciarecibo varchar(255);
 declare variable fechapago date;
@ -4315,19 +4345,34 @@ declare variable idejercicio integer;
 declare variable orden integer;
 declare variable debe numeric(11,2);
 declare variable haber numeric(11,2);
+declare variable idempresa integer;
+declare variable idcontacto integer;
 begin
  /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
-  SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD,
+  SELECT PAGOS_CLIENTE.IGNORAR_CONTABILIDAD, RECIBOS_CLIENTE.ID_EMPRESA, RECIBOS_CLIENTE.ID_CLIENTE,
  RECIBOS_CLIENTE.REFERENCIA || ': ' || RECIBOS_CLIENTE.NOMBRE,
  PAGOS_CLIENTE.FECHA_PAGO,
  PAGOS_CLIENTE.TIPO || ': ' || RECIBOS_CLIENTE.DESCRIPCION,
-  RECIBOS_CLIENTE.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
+  RECIBOS_CLIENTE.IMPORTE
  FROM PAGOS_CLIENTE
  LEFT JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID = PAGOS_CLIENTE.ID_RECIBO)
-/*  LEFT JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = RECIBOS_CLIENTE.ID_FACTURA) (ya no esta atado a las facturas)*/
-  LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_CLIENTE.ID_CLIENTE)
-  WHERE PAGOS_CLIENTE.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO,
-  :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO;
+  WHERE PAGOS_CLIENTE.ID = :IDPAGO
+  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE;
+
+  /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_EJERCICIOS
+  WHERE ID_EMPRESA = :IDEMPRESA
+  AND ACTIVO = 1
+  INTO :IDEJERCICIO;
+
+  /*BUSCAMOS LA SUBCUENTA DEL EJERCICIO ACTIVO DE LA EMPRESA DE LA FACTURA PARA EL CLIENTE DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_SUBCUENTAS
+  WHERE ID_CONTACTO = :IDCONTACTO
+  AND ID_EJERCICIO = :IDEJERCICIO
+  INTO :IDSUBCUENTA;
+

  SELECT ID FROM CONT_ASIENTOS
  WHERE ID_PAGO = :IDPAGO
@ -4391,9 +4436,9 @@ end
 ^

 ALTER PROCEDURE PROC_NEW_ASIENTO_PAGO_PROV (
-    IDPAGO INTEGER,
-    IDSUBCUENTAPAGO INTEGER)
-AS
+    idpago integer,
+    idsubcuentapago integer)
+as
 declare variable ignorarcontabilidad integer;
 declare variable referenciarecibo varchar(255);
 declare variable fechapago date;
@ -4405,19 +4450,33 @@ declare variable idejercicio integer;
 declare variable orden integer;
 declare variable debe numeric(11,2);
 declare variable haber numeric(11,2);
+declare variable idempresa integer;
+declare variable idcontacto integer;
 begin
  /*BUSCAMOS EL PAGO PARA COMPROBAR SI HACER ASIENTO*/
-  SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD,
+  SELECT PAGOS_PROVEEDOR.IGNORAR_CONTABILIDAD, RECIBOS_PROVEEDOR.ID_EMPRESA, RECIBOS_PROVEEDOR.ID_PROVEEDOR,
  RECIBOS_PROVEEDOR.REFERENCIA || ': ' || RECIBOS_PROVEEDOR.NOMBRE,
  PAGOS_PROVEEDOR.FECHA_PAGO,
  PAGOS_PROVEEDOR.TIPO || ': ' || RECIBOS_PROVEEDOR.DESCRIPCION,
-  RECIBOS_PROVEEDOR.IMPORTE, CONT_SUBCUENTAS.ID, CONT_SUBCUENTAS.ID_EJERCICIO
+  RECIBOS_PROVEEDOR.IMPORTE
  FROM PAGOS_PROVEEDOR
  LEFT JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID = PAGOS_PROVEEDOR.ID_RECIBO)
-/*  LEFT JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = RECIBOS_PROVEEDOR.ID_FACTURA) (ya no esta atado a las facturas)*/
-  LEFT JOIN CONT_SUBCUENTAS ON (CONT_SUBCUENTAS.ID_CONTACTO = RECIBOS_PROVEEDOR.ID_PROVEEDOR)
-  WHERE PAGOS_PROVEEDOR.ID = :IDPAGO INTO :IGNORARCONTABILIDAD, :REFERENCIARECIBO,
-  :FECHAPAGO, :TIPOPAGO, :IMPORTE, :IDSUBCUENTA, :IDEJERCICIO;
+  WHERE PAGOS_PROVEEDOR.ID = :IDPAGO
+  INTO :IGNORARCONTABILIDAD, :IDEMPRESA, :IDCONTACTO, :REFERENCIARECIBO, :FECHAPAGO, :TIPOPAGO, :IMPORTE;
+
+  /*BUSCAMOS EL EJERCICIO ACTIVO PARA LA EMPRESA DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_EJERCICIOS
+  WHERE ID_EMPRESA = :IDEMPRESA
+  AND ACTIVO = 1
+  INTO :IDEJERCICIO;
+
+  /*BUSCAMOS LA SUBCUENTA DEL EJERCICIO ACTIVO DE LA EMPRESA DE LA FACTURA PARA EL CLIENTE DE LA FACTURA*/
+  SELECT ID
+  FROM CONT_SUBCUENTAS
+  WHERE ID_CONTACTO = :IDCONTACTO
+  AND ID_EJERCICIO = :IDEJERCICIO
+  INTO :IDSUBCUENTA;

  SELECT ID FROM CONT_ASIENTOS
  WHERE ID_PAGO = :IDPAGO
--- a/Source/Modulos/Contactos/Contactos_Group.groupproj
+++ b/Source/Modulos/Contactos/Contactos_Group.groupproj
@ -13,6 +13,7 @@
    <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
    <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
    <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
+    <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
    <Projects Include="Controller\Contactos_controller.dproj" />
    <Projects Include="Data\Contactos_data.dproj" />
    <Projects Include="Model\Contactos_model.dproj" />
@ -151,14 +152,23 @@
  <Target Name="FactuGES_Server:Make">
    <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
  </Target>
+  <Target Name="FacturasCliente_view">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_view:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_view:Make">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
+  </Target>
  <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;FacturasCliente_view" />
  </Target>
  <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean" />
  </Target>
  <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make" />
  </Target>
  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@ -25,6 +25,8 @@ type
  protected
    FDireccionesController : IDireccionesContactoController;
    function ValidarContacto(AContacto: IBizContacto): Boolean; override;
+    procedure FiltrarEjercicio(AContacto : IBizContacto); virtual;
+
  public
    constructor Create; override;
    destructor Destroy; override;
@ -54,7 +56,7 @@ implementation
 uses
  Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
  uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
-  uIEditorElegirClientes, uEditorGridBase,
+  uIEditorElegirClientes, uEditorGridBase, uDAInterfaces, uFactuGES_App,
  Dialogs;

 { TClientesController }
@ -63,18 +65,21 @@ function TClientesController.Buscar(const ID: Integer): IBizContacto;
 begin
  Result := (FDataModule as IDataModuleClientes).GetItem(ID);
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);
 end;

 function TClientesController.BuscarTodos: IBizContacto;
 begin
  Result := (FDataModule as IDataModuleClientes).GetItems;
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);  
 end;

 function TClientesController.BuscarTodosTiendaWeb: IBizCliente;
 begin
  Result := (FDataModule as IDataModuleClientes).GetItemsTiendaWeb;
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);  
 end;

 constructor TClientesController.Create;
@ -184,6 +189,31 @@ begin
  Result := True;
 end;

+procedure TClientesController.FiltrarEjercicio(AContacto: IBizContacto);
+var
+  Condicion: TDAWhereExpression;
+
+begin
+  if Assigned(AContacto)
+  and Assigned((AContacto as IBizCliente).SubCuentas) then
+  begin
+    if (AContacto as IBizCliente).SubCuentas.DataTable.Active then
+       (AContacto as IBizCliente).SubCuentas.DataTable.Active := False;
+
+    // Filtrar los presupuestos actuales por empresa
+    with (AContacto as IBizCliente).SubCuentas.DataTable.DynamicWhere do
+    begin
+      // (ID_EMPRESA >= ID)
+      Condicion := NewBinaryExpression(NewField('', fld_SubCuentasContactoID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  end;
+end;
+
 function TClientesController.Guardar(AContacto: IBizContacto): Boolean;
 begin
  Result := inherited Guardar(AContacto);
@ -196,6 +226,7 @@ var
 begin
  AContacto := (FDataModule as IDataModuleClientes).NewItem;
  FiltrarEmpresa(AContacto);
+  FiltrarEjercicio(Result);  
  AContacto.DataTable.Active := True;
  AContacto.Insert;
  Result := AContacto;
--- a/Source/Modulos/Contactos/Controller/uContactosController.pas
+++ b/Source/Modulos/Contactos/Controller/uContactosController.pas
@ -68,7 +68,7 @@ type
    function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
    function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
      AMensaje: String): IBizContactoPersonal;
-    function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;      
+    function DarDireccionSocial(AContacto : IBizContacto): IBizDireccionesContacto;
  end;

 implementation
--- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas
+++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas
@ -23,6 +23,7 @@ type
  protected
    FDireccionesController : IDireccionesContactoController;
    function ValidarContacto(AContacto: IBizContacto): Boolean; override;
+    procedure FiltrarEjercicio(AContacto : IBizContacto); virtual;
  public
    constructor Create; override;
    destructor Destroy; override;
@ -49,7 +50,8 @@ implementation
 uses
  Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
  uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
-  uIEditorElegirProveedores, Controls, uEditorGridBase, JSDialogs, JSDialog, Windows;
+  uIEditorElegirProveedores, Controls, uEditorGridBase, JSDialogs, JSDialog,
+  uDAInterfaces, uFactuGES_App, Windows;

 { TProveedoresController }

@ -57,18 +59,21 @@ function TProveedoresController.Buscar(const ID: Integer): IBizContacto;
 begin
  Result := (FDataModule as IDataModuleProveedores).GetItem(ID);
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);  
 end;

 function TProveedoresController.BuscarTodos: IBizContacto;
 begin
  Result := (FDataModule as IDataModuleProveedores).GetItems;
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);  
 end;

 function TProveedoresController.BuscarTodosTiendaWeb: IBizProveedor;
 begin
  Result := (FDataModule as IDataModuleProveedores).GetItemsTiendaWeb;
  FiltrarEmpresa(Result);
+  FiltrarEjercicio(Result);  
 end;

 constructor TProveedoresController.Create;
@ -170,6 +175,31 @@ begin
  Result := True;
 end;

+procedure TProveedoresController.FiltrarEjercicio(AContacto: IBizContacto);
+var
+  Condicion: TDAWhereExpression;
+
+begin
+  if Assigned(AContacto)
+  and Assigned((AContacto as IBizProveedor).SubCuentas) then
+  begin
+    if (AContacto as IBizProveedor).SubCuentas.DataTable.Active then
+       (AContacto as IBizProveedor).SubCuentas.DataTable.Active := False;
+
+    // Filtrar los presupuestos actuales por empresa
+    with (AContacto as IBizProveedor).SubCuentas.DataTable.DynamicWhere do
+    begin
+      // (ID_EMPRESA >= ID)
+      Condicion := NewBinaryExpression(NewField('', fld_SubCuentasContactoID_EJERCICIO), NewConstant(AppFactuGES.EjercicioActivo.ID, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  end;
+end;
+
 function TProveedoresController.Guardar(AContacto: IBizContacto): Boolean;
 begin
  Result := inherited Guardar(AContacto);
@ -181,7 +211,8 @@ var
  AContacto : IBizProveedor;
 begin
  AContacto := (FDataModule as IDataModuleProveedores).NewItem;
-  FiltrarEmpresa(AContacto);  
+  FiltrarEmpresa(AContacto);
+  FiltrarEjercicio(Result);    
  AContacto.DataTable.Active := True;
  AContacto.Insert;
  Result := AContacto;
--- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas
@ -59,22 +59,45 @@ var
  Intf : IInterface;
  AClientID : TGUID;

+  ASchema : TDASchema;
+  ACurrentConn : IDAConnection;
+  dsData: IDADataset;
+  i: Integer;
+
  ANombre: string;
-  AIDEmpresa: Integer;
  AIDCliente: Integer;
  AIDTienda: Integer;
+
 begin
  AIDCliente := aChange.NewValueByName[fld_ClientesID];
  AIDTienda := aChange.NewValueByName[fld_ClientesID_TIENDA];
-  AIDEmpresa := aChange.NewValueByName[fld_ClientesID_EMPRESA];
  ANombre := aChange.NewValueByName[fld_ClientesNOMBRE];

  CreateGUID(AClientID);
  GetClassFactory('srvContabilidad').CreateInstance(AClientID, Intf);
  AContabilidadService := Intf as IsrvContabilidad;

-  if not AContabilidadService.TieneCuentaAsociada(AIDCliente, AIDEmpresa) then
-    AContabilidadService.AnadirSubCuentaCliente(AIDCliente, AIDTienda, AIDEmpresa, ANombre);
+  ASchema := BusinessProcessor.Schema;
+  ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
+
+  try
+    dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDCliente]);
+    dsData.Active := True;
+
+    if not AContabilidadService.TieneCuentaAsociada(AIDCliente, dsData.FieldValues[0]) then
+    begin
+      //Por cada ino de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo
+      while not dsData.EOF do
+      begin
+        AContabilidadService.AnadirSubCuentaCliente(AIDCliente, AIDTienda, dsData.FieldValues[0], ANombre);
+        dsData.Next;
+      end;
+    end;
+
+  finally
+    dsData := NIL;
+    ACurrentConn := NIL;
+  end;
 end;

 procedure TBizClienteServer.BeforeProcessDelta(Sender: TDABusinessProcessor; const aDelta: IDADelta);
--- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
+++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
@ -58,7 +58,11 @@ var
  AIDProveedor: Integer;
  bEsAcreedor: Integer;
  ANombre: string;
-  AIDEmpresa: Integer;
+
+  ASchema : TDASchema;
+  ACurrentConn : IDAConnection;
+  dsData: IDADataset;
+  i: Integer;

  Intf: IInterface;
  AContabilidadService: IsrvContabilidad;
@ -66,15 +70,33 @@ var
 begin
  AIDProveedor := aChange.NewValueByName[fld_ProveedoresID];
  bEsAcreedor := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR];
-  AIDEmpresa := aChange.NewValueByName[fld_ProveedoresID_EMPRESA];
  ANombre := aChange.NewValueByName[fld_ProveedoresNOMBRE];

  CreateGUID(AClientID);
  GetClassFactory('srvContabilidad').CreateInstance(AClientID, Intf);
  AContabilidadService := Intf as IsrvContabilidad;

-  if not AContabilidadService.TieneCuentaAsociada(AIDProveedor, AIDEmpresa) then
-    AContabilidadService.AnadirSubCuentaProveedor(AIDProveedor, bEsAcreedor, AIDEmpresa, ANombre);
+  ASchema := BusinessProcessor.Schema;
+  ACurrentConn := GetBusinessProcessorConnection(BusinessProcessor);
+
+  try
+    dsData := ASchema.NewDataset(ACurrentConn, 'DarEmpresasContacto', ['ID_CONTACTO'], [AIDProveedor]);
+    dsData.Active := True;
+
+    if not AContabilidadService.TieneCuentaAsociada(AIDProveedor, dsData.FieldValues[0]) then
+    begin
+      //Por cada ino de las empresas que tiene asociadas el contacto se añade una subcuenta en su ejercicio activo
+      while not dsData.EOF do
+      begin
+        AContabilidadService.AnadirSubCuentaProveedor(AIDProveedor, bEsAcreedor, dsData.FieldValues[0], ANombre);
+        dsData.Next;
+      end;
+    end;
+
+  finally
+    dsData := NIL;
+    ACurrentConn := NIL;
+  end;
 end;


--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@ -14,6 +14,36 @@ object srvContactos: TsrvContactos
    DataDictionary = DataDictionary
    Diagrams = Diagrams
    Datasets = <
+      item
+        Params = <
+          item
+            Name = 'ID_CONTACTO'
+            Value = ''
+            ParamType = daptInput
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            Name = 'IBX'
+            SQL = 
+              'select ID_EMPRESA'#10'from empresas_contactos'#10'where ID_CONTACTO = :I' +
+              'D_CONTACTO'#10
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID_EMPRESA'
+                TableField = 'ID_EMPRESA'
+              end>
+          end>
+        Name = 'DarEmpresasContacto'
+        Fields = <
+          item
+            Name = 'ID_EMPRESA'
+            DataType = datInteger
+          end>
+      end
      item
        Params = <>
        Statements = <
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
@ -16,8 +16,7 @@ uses
  {Ancestor Implementation:} DataAbstractService_Impl,
  {Used RODLs:} DataAbstract4_Intf,
  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
-  uDAScriptingProvider, uDAClasses,
-  FactuGES_Intf, uDAInterfaces;
+  uDAScriptingProvider, uDAClasses, FactuGES_Intf, uDAInterfaces;

 type
  { TsrvContactos }
--- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm
@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente
  inherited pgPaginas: TPageControl
    Width = 890
    Height = 544
-    ActivePage = pagDatosComerciales
+    ActivePage = pagContabilidad
    ExplicitWidth = 890
    ExplicitHeight = 544
    inherited pagGeneral: TTabSheet
@ -487,8 +487,22 @@ inherited fEditorCliente: TfEditorCliente
          ExplicitWidth = 882
          ExplicitHeight = 193
          inherited Label1: TLabel
+            Left = 575
+            Top = 30
+            Width = 277
+            ExplicitLeft = 575
+            ExplicitTop = 30
+            ExplicitWidth = 277
          end
          inherited eDiasVencimiento: TcxDBSpinEdit
+            Left = 647
+            Top = 62
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 647
+            ExplicitTop = 62
          end
          inherited cbRegimenIVA: TcxDBComboBox
            Top = 30
@ -542,6 +556,26 @@ inherited fEditorCliente: TfEditorCliente
            ExplicitLeft = 415
            ExplicitTop = 84
          end
+          inherited cxDBSpinEdit1: TcxDBSpinEdit
+            Left = 647
+            Top = 89
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 647
+            ExplicitTop = 89
+          end
+          inherited cxDBSpinEdit2: TcxDBSpinEdit
+            Left = 647
+            Top = 116
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitLeft = 647
+            ExplicitTop = 116
+          end
          inherited dxLayoutGroup1: TdxLayoutGroup
            inherited dxLayoutControl1Group5: TdxLayoutGroup
              inherited dxLayoutControl1Item2: TdxLayoutItem
@ -707,6 +741,19 @@ inherited fEditorCliente: TfEditorCliente
          end
        end
      end
+      object DBGrid1: TDBGrid
+        Left = 93
+        Top = 192
+        Width = 786
+        Height = 120
+        DataSource = frViewSubCuentaContacto1.DADataSource
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'Tahoma'
+        TitleFont.Style = []
+      end
    end
  end
  inherited StatusBar: TJvStatusBar
--- a/Source/Modulos/Contactos/Views/uEditorCliente.pas
+++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas
@ -15,7 +15,7 @@ uses
  uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos,
  uViewContactoDatosBancarios, dxLayoutLookAndFeels,
  uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto,
-  uViewPersonalContacto;
+  uViewPersonalContacto, Grids, DBGrids;

 type
  TfEditorCliente = class(TfEditorContacto, IEditorCliente)
@ -30,6 +30,7 @@ type
    frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales;
    pagContabilidad: TTabSheet;
    frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
+    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
    procedure actGruposClienteExecute(Sender: TObject);
  protected
--- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm
@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
  ClientWidth = 632
  Scaled = False
  ExplicitWidth = 640
+  ExplicitHeight = 240
  PixelsPerInch = 96
  TextHeight = 13
  inherited JvNavPanelHeader: TJvNavPanelHeader
@ -178,13 +179,29 @@ inherited fEditorContacto: TfEditorContacto
        ParentFont = False
        TabOrder = 0
        ReadOnly = False
-        ExplicitTop = -134
+        ExplicitWidth = 618
+        ExplicitHeight = 330
        inherited cxGrid: TcxGrid
          Width = 618
          Height = 305
+          ExplicitWidth = 618
+          ExplicitHeight = 305
        end
        inherited ToolBar1: TToolBar
          Width = 618
+          ExplicitWidth = 618
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
        end
      end
    end
--- a/cliente/Views/uEditorFacturaCliente.dfm
+++ b/cliente/Views/uEditorFacturaCliente.dfm
@ -136,6 +136,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
            ExplicitWidth = 78
            Width = 78
          end
+          inherited bFormasPago: TButton
+            Left = 289
+            ExplicitLeft = 289
+          end
          inherited frViewTienda1: TfrViewTienda
            inherited dxLayoutControl1: TdxLayoutControl
              inherited cbTienda: TcxComboBox
@ -149,7 +153,9 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
            end
          end
          inherited frViewClienteFactura1: TfrViewClienteFactura
+            Left = 449
            Width = 398
+            ExplicitLeft = 449
            ExplicitWidth = 398
            inherited dxLayoutControl1: TdxLayoutControl
              Width = 398
@ -198,16 +204,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                Width = 276
              end
              inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 259
+                Left = 283
                Style.LookAndFeel.SkinName = ''
                StyleDisabled.LookAndFeel.SkinName = ''
                StyleFocused.LookAndFeel.SkinName = ''
                StyleHot.LookAndFeel.SkinName = ''
-                ExplicitLeft = 259
+                ExplicitLeft = 283
              end
              inherited Button3: TBitBtn
-                Left = 149
-                ExplicitLeft = 149
+                Left = 173
+                ExplicitLeft = 173
              end
              inherited cxDBTextEdit1: TcxDBTextEdit
                Style.LookAndFeel.SkinName = ''
@ -224,6 +230,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
            StyleDisabled.LookAndFeel.SkinName = ''
            StyleFocused.LookAndFeel.SkinName = ''
            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 310
+            Width = 310
          end
        end
      end
@ -278,57 +286,57 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
            ExplicitWidth = 57
          end
          inherited UpDown1: TUpDown
-            Left = 570
+            Left = 586
            Top = 0
-            ExplicitLeft = 570
+            ExplicitLeft = 586
            ExplicitTop = 0
          end
          inherited ToolButton13: TToolButton
-            Left = 587
+            Left = 603
            Top = 0
-            ExplicitLeft = 587
+            ExplicitLeft = 603
            ExplicitTop = 0
          end
          inherited ToolButton6: TToolButton
-            Left = 595
+            Left = 611
            Top = 0
-            ExplicitLeft = 595
+            ExplicitLeft = 611
            ExplicitTop = 0
          end
          inherited ToolButton7: TToolButton
-            Left = 629
+            Left = 645
            Top = 0
-            ExplicitLeft = 629
+            ExplicitLeft = 645
            ExplicitTop = 0
          end
          inherited ToolButton8: TToolButton
-            Left = 663
+            Left = 679
            Top = 0
-            ExplicitLeft = 663
+            ExplicitLeft = 679
            ExplicitTop = 0
          end
          inherited ToolButton12: TToolButton
-            Left = 697
+            Left = 713
            Top = 0
-            ExplicitLeft = 697
+            ExplicitLeft = 713
            ExplicitTop = 0
          end
          inherited ToolButton9: TToolButton
-            Left = 705
+            Left = 721
            Top = 0
-            ExplicitLeft = 705
+            ExplicitLeft = 721
            ExplicitTop = 0
          end
          inherited ToolButton10: TToolButton
-            Left = 739
+            Left = 755
            Top = 0
-            ExplicitLeft = 739
+            ExplicitLeft = 755
            ExplicitTop = 0
          end
          inherited ToolButton11: TToolButton
-            Left = 773
+            Left = 789
            Top = 0
-            ExplicitLeft = 773
+            ExplicitLeft = 789
            ExplicitTop = 0
          end
        end
@ -433,12 +441,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
      Width = 860
      LookAndFeel = frViewFacturaCliente1.dxLayoutOfficeLookAndFeel1
      ExplicitWidth = 860
-      inherited Bevel1: TBevel
-        Top = 111
-        Width = 73
-        ExplicitTop = 111
-        ExplicitWidth = 73
-      end
      inherited Bevel3: TBevel
        Left = 457
        Top = 30
@ -449,69 +451,69 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
      end
      inherited Bevel4: TBevel
        Left = 569
-        Top = 111
+        Top = 72
        Width = 186
        ExplicitLeft = 569
-        ExplicitTop = 111
+        ExplicitTop = 72
        ExplicitWidth = 186
      end
      inherited ImporteDto: TcxDBCurrencyEdit
-        Top = 131
+        Top = 57
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 131
+        ExplicitTop = 57
        ExplicitWidth = 220
        Width = 220
      end
      inherited ImporteIVA: TcxDBCurrencyEdit
        Left = 640
-        Top = 57
+        Top = 107
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 640
-        ExplicitTop = 57
+        ExplicitTop = 107
        ExplicitWidth = 155
        Width = 155
      end
      inherited ImporteTotal: TcxDBCurrencyEdit
        Left = 570
-        Top = 131
+        Top = 161
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 570
-        ExplicitTop = 131
+        ExplicitTop = 161
        ExplicitWidth = 225
        Width = 225
      end
      inherited edtDescuento: TcxDBSpinEdit
-        Top = 131
+        Top = 57
        Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 131
+        ExplicitTop = 57
      end
      inherited edtIVA: TcxDBSpinEdit
        Left = 569
-        Top = 57
+        Top = 107
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 569
-        ExplicitTop = 57
+        ExplicitTop = 107
      end
      inherited ImporteBase: TcxDBCurrencyEdit
        Left = 569
@ -528,7 +530,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
      end
      inherited edtRE: TcxDBSpinEdit
        Left = 569
-        Top = 84
+        Top = 134
        Properties.AssignedValues.MinValue = True
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
@ -536,18 +538,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 569
-        ExplicitTop = 84
+        ExplicitTop = 134
      end
      inherited ImporteRE: TcxDBCurrencyEdit
        Left = 640
-        Top = 84
+        Top = 134
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 640
-        ExplicitTop = 84
+        ExplicitTop = 134
        ExplicitWidth = 155
        Width = 155
      end
@ -563,7 +565,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
        Width = 291
      end
      inherited ePorte: TcxDBCurrencyEdit
-        Top = 158
+        Top = 84
        DataBinding.DataSource = dsDataTable
        Properties.OnValidate = frViewTotales1ePortePropertiesValidate
        Style.LookAndFeel.SkinName = ''
@ -572,47 +574,42 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        OnEditing = frViewTotales1ePorteEditing
-        ExplicitTop = 158
+        ExplicitTop = 84
        ExplicitWidth = 291
        Width = 291
      end
      inherited eIVA: TcxDBLookupComboBox
-        Top = 57
+        Top = 111
        Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
        Style.Color = clInfoBk
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 57
+        ExplicitTop = 111
        ExplicitWidth = 153
        Width = 153
      end
      inherited bTiposIVA: TButton
        Left = 309
-        Top = 57
+        Top = 111
        OnClick = frViewTotales1bTiposIVAClick
        ExplicitLeft = 309
-        ExplicitTop = 57
+        ExplicitTop = 111
      end
      inherited cbRecargoEquivalencia: TcxDBCheckBox
-        Top = 84
+        Top = 138
        Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 84
+        ExplicitTop = 138
        ExplicitWidth = 291
        Width = 291
      end
      inherited dxLayoutControl1Group_Root: TdxLayoutGroup
        inherited dxLayoutControl1Group1: TdxLayoutGroup
-          inherited dxLayoutControl1Group2: TdxLayoutGroup
-            inherited dxLayoutControl1Item10: TdxLayoutItem
-              Visible = False
-            end
-          end
          inherited dxLayoutControl1Group5: TdxLayoutGroup
            inherited dxLayoutControl1Group3: TdxLayoutGroup
              inherited dxLayoutControl1Group8: TdxLayoutGroup
--- a/cliente/Views/uEditorFacturaCliente.pas
+++ b/cliente/Views/uEditorFacturaCliente.pas
@ -324,12 +324,14 @@ begin
  if not (FFactura.DataTable.State in dsEditModes) then
     FFactura.DataTable.Edit;

+  //En el caso de Acana no se cambia para que el IVA y la FORMA DE PAGO por defecto sea el de la empresa.
  // Actualizar IVA y RE a partir del tipo de IVA del cliente.
-  Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
+{  Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
  if FFactura.Cliente.RECARGO_EQUIVALENCIA = 1 then
    Factura.RE := FTiposIVA.RE
  else
    Factura.RE := 0;
+}

  // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
  AClientesController := TClientesController.Create;
--- a/proveedor/Views/uEditorFacturaProveedor.dfm
+++ b/proveedor/Views/uEditorFacturaProveedor.dfm
@ -71,7 +71,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
  inherited pgPaginas: TPageControl
    Width = 740
    Height = 342
-    ActivePage = pagContabilidad
    OnChanging = pgPaginasChanging
    ExplicitLeft = 3
    ExplicitTop = 79
@ -434,12 +433,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
    inherited dxLayoutControl1: TdxLayoutControl
      Width = 746
      ExplicitWidth = 746
-      inherited Bevel1: TBevel
-        Top = 111
-        Width = 73
-        ExplicitTop = 111
-        ExplicitWidth = 73
-      end
      inherited Bevel3: TBevel
        Left = 398
        Top = 30
@ -450,69 +443,69 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
      end
      inherited Bevel4: TBevel
        Left = 510
-        Top = 111
+        Top = 72
        Width = 186
        ExplicitLeft = 510
-        ExplicitTop = 111
+        ExplicitTop = 72
        ExplicitWidth = 186
      end
      inherited ImporteDto: TcxDBCurrencyEdit
-        Top = 131
+        Top = 57
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 131
+        ExplicitTop = 57
        ExplicitWidth = 207
        Width = 207
      end
      inherited ImporteIVA: TcxDBCurrencyEdit
        Left = 581
-        Top = 57
+        Top = 107
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 581
-        ExplicitTop = 57
+        ExplicitTop = 107
        ExplicitWidth = 143
        Width = 143
      end
      inherited ImporteTotal: TcxDBCurrencyEdit
        Left = 511
-        Top = 131
+        Top = 161
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 511
-        ExplicitTop = 131
+        ExplicitTop = 161
        ExplicitWidth = 213
        Width = 213
      end
      inherited edtDescuento: TcxDBSpinEdit
-        Top = 131
+        Top = 57
        Properties.OnValidate = frViewTotales1edtDescuentoPropertiesValidate
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 131
+        ExplicitTop = 57
      end
      inherited edtIVA: TcxDBSpinEdit
        Left = 510
-        Top = 57
+        Top = 107
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 510
-        ExplicitTop = 57
+        ExplicitTop = 107
      end
      inherited ImporteBase: TcxDBCurrencyEdit
        Left = 510
@ -529,7 +522,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
      end
      inherited edtRE: TcxDBSpinEdit
        Left = 510
-        Top = 84
+        Top = 134
        Properties.AssignedValues.MinValue = True
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
@ -537,18 +530,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 510
-        ExplicitTop = 84
+        ExplicitTop = 134
      end
      inherited ImporteRE: TcxDBCurrencyEdit
        Left = 581
-        Top = 84
+        Top = 134
        Style.LookAndFeel.SkinName = ''
        Style.IsFontAssigned = True
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        ExplicitLeft = 581
-        ExplicitTop = 84
+        ExplicitTop = 134
        ExplicitWidth = 143
        Width = 143
      end
@ -564,7 +557,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
        Width = 278
      end
      inherited ePorte: TcxDBCurrencyEdit
-        Top = 158
+        Top = 84
        DataBinding.DataSource = dsDataTable
        Properties.OnValidate = frViewTotales1ePortePropertiesValidate
        Style.LookAndFeel.SkinName = ''
@ -573,37 +566,37 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
        OnEditing = frViewTotales1ePorteEditing
-        ExplicitTop = 158
+        ExplicitTop = 84
        ExplicitWidth = 278
        Width = 278
      end
      inherited eIVA: TcxDBLookupComboBox
-        Top = 57
+        Top = 111
        Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
        Style.Color = clInfoBk
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 57
+        ExplicitTop = 111
        ExplicitWidth = 140
        Width = 140
      end
      inherited bTiposIVA: TButton
        Left = 250
-        Top = 57
+        Top = 111
        OnClick = frViewTotales1bTiposIVAClick
        ExplicitLeft = 250
-        ExplicitTop = 57
+        ExplicitTop = 111
      end
      inherited cbRecargoEquivalencia: TcxDBCheckBox
-        Top = 84
+        Top = 138
        Properties.OnEditValueChanged = frViewTotales1cbRecargoEquivalenciaPropertiesEditValueChanged
        Style.LookAndFeel.SkinName = ''
        StyleDisabled.LookAndFeel.SkinName = ''
        StyleFocused.LookAndFeel.SkinName = ''
        StyleHot.LookAndFeel.SkinName = ''
-        ExplicitTop = 84
+        ExplicitTop = 138
        ExplicitWidth = 278
        Width = 278
      end
@ -611,16 +604,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
        LookAndFeel = frViewFacturaProveedor1.dxLayoutOfficeLookAndFeel1
        inherited dxLayoutControl1Group1: TdxLayoutGroup
          inherited dxLayoutControl1Group2: TdxLayoutGroup
-            inherited dxLayoutControl1Item10: TdxLayoutItem
-              Visible = False
-            end
            inherited dxLayoutControl1Group7: TdxLayoutGroup
              Visible = False
-              inherited dxLayoutControl1Item4: TdxLayoutItem
-                Visible = False
-              end
-              inherited dxLayoutControl1Item1: TdxLayoutItem
-                Visible = False
+              inherited dxLayoutControl1Group10: TdxLayoutGroup
+                inherited dxLayoutControl1Item4: TdxLayoutItem
+                  Visible = False
+                end
+                inherited dxLayoutControl1Item1: TdxLayoutItem
+                  Visible = False
+                end
              end
            end
          end
--- a/proveedor/Views/uEditorFacturaProveedor.pas
+++ b/proveedor/Views/uEditorFacturaProveedor.pas
@ -302,13 +302,14 @@ begin
  if not (FFactura.DataTable.State in dsEditModes) then
     FFactura.DataTable.Edit;

+  //En el caso de Acana no se cambia para que el IVA y la FORMA DE PAGO por defecto sea el de la empresa.
  // Actualizar IVA y RE a partir del tipo de IVA del proveedor.
-  Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
+{  Factura.IVA := FTiposIVA.IVA; //((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).IVA;
 //  if FFactura.Proveedor.RECARGO_EQUIVALENCIA = 1 then
 //    Factura.RE := ((frViewTotales1.dsTiposIVA.DataTable) as IBizTipoIVA).RE
 //  else
 //    Factura.RE := 0;
-
+}
  // En el caso de tener direcciones asociadas, se debe dar la posibilidad de elegir la dirección principal o las secundarias para la factura
  AProveedoresController := TProveedoresController.Create;
  try
--- a/Source/Servidor/FactuGES_Server.RES
+++ b/Source/Servidor/FactuGES_Server.RES
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@ -16,7 +16,7 @@ BEGIN
              VALUE "FileVersion", "2.2.8.0\0"
              VALUE "ProductName", "FactuGES (Servidor)\0"
              VALUE "ProductVersion", "2.2.8.0\0"
-              VALUE "CompileDate", "martes, 03 de febrero de 2009 20:01\0"
+              VALUE "CompileDate", "viernes, 06 de febrero de 2009 12:01\0"
         END
    END
    BLOCK "VarFileInfo"