Se adapta el programa para requisitos de fabrica

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/tags/2.3.5@38 0a814768-cfdd-9c42-8d01-223fcc10da9d
2009-10-21 17:56:28 +00:00
74 changed files with 654 additions and 1376 deletions
--- a/BaseDatos/TablaContratos.dfm
+++ b/BaseDatos/TablaContratos.dfm
@ -1,6 +1,7 @@
 object dmTablaContratos: TdmTablaContratos
  OldCreateOrder = True
-  Top = 526
+  Left = 215
+  Top = 538
  Height = 200
-  Width = 640
+  Width = 741
 end
--- a/BaseDatos/TablaContratos.pas
+++ b/BaseDatos/TablaContratos.pas
@ -80,8 +80,6 @@ type
    ImporteDescuento : double;
    IVA : Integer;
    ImporteIVA : double;
-    Re : integer;
-    ImporteRe : double;
    ImporteTotal : double;
    Observaciones : string;
    PlazoEntrega : string;
@ -605,18 +603,6 @@ begin
        EditFormat := EDIT_EUROS4;
      end;

-    if FindField('RE') <> NIL then
-      with (FieldByName('RE') as TFloatField) do begin
-        DisplayFormat := DISPLAY_DTO;
-        EditFormat := EDIT_DTO;
-      end;
-
-    if FindField('IMPORTERE') <> NIL then
-      with (FieldByName('IMPORTERE') as TIBBCDField) do begin
-        DisplayFormat := DISPLAY_EUROS2;
-        EditFormat := EDIT_EUROS2;
-      end;
-      
    if FindField('IMPORTETOTAL') <> NIL then
      with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
        DisplayFormat := DISPLAY_EUROS2;
@ -820,7 +806,6 @@ begin
    Add('    BASEIMPONIBLE, DESCUENTO, ');
    Add('    IMPORTEDESCUENTO, ');
    Add('    IVA, IMPORTEIVA, ');
-    Add('    RE, IMPORTERE, ');    
    Add('    IMPORTETOTAL, ');
    Add('    OBSERVACIONES, PLAZOENTREGA, ');
    Add('    FORMAPAGO) ');
@ -836,7 +821,6 @@ begin
    Add('    :BASEIMPONIBLE, :DESCUENTO, ');
    Add('    :IMPORTEDESCUENTO, ');
    Add('    :IVA, :IMPORTEIVA, ');
-    Add('    :RE, :IMPORTERE, ');    
    Add('    :IMPORTETOTAL, ');
    Add('    :OBSERVACIONES, :PLAZOENTREGA, ');
    Add('    :FORMAPAGO) ');
@ -870,8 +854,6 @@ begin
    Add('      IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
    Add('      IVA = :IVA,         ');
    Add('      IMPORTEIVA = :IMPORTEIVA, ');
-    Add('      RE = :RE,         ');
-    Add('      IMPORTERE = :IMPORTERE, ');
    Add('      IMPORTETOTAL = :IMPORTETOTAL, ');
    Add('      OBSERVACIONES = :OBSERVACIONES, ');
    Add('      PLAZOENTREGA = :PLAZOENTREGA, ');
@ -984,7 +966,6 @@ begin
      Add('    BASEIMPONIBLE, DESCUENTO, ');
      Add('    IMPORTEDESCUENTO, ');
      Add('    IVA, IMPORTEIVA, ');
-      Add('    RE, IMPORTERE, ');
      Add('    IMPORTETOTAL, ');
      Add('    OBSERVACIONES, PLAZOENTREGA, ');
      Add('    FORMAPAGO) ');
@ -1000,7 +981,6 @@ begin
      Add('BASEIMPONIBLE,');
      Add('DESCUENTO, IMPORTEDESCUENTO,');
      Add('IVA, IMPORTEIVA,');
-      Add('RE, IMPORTERE,');      
      Add('IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, FORMAPAGO ');
      Add('from PRESUPUESTOSCLIENTE ');
      Add('where CODIGO = :CODIGO');
@ -1111,7 +1091,6 @@ begin
      Add('    BASEIMPONIBLE, DESCUENTO, ');
      Add('    IMPORTEDESCUENTO, ');
      Add('    IVA, IMPORTEIVA, ');
-      Add('    RE, IMPORTERE, ');      
      Add('    IMPORTETOTAL, ');
      Add('    OBSERVACIONES, PLAZOENTREGA, ');
      Add('    FORMAPAGO) ');
@ -1122,7 +1101,7 @@ begin
      Add('CALLE, NUMERO, PISO, CODIGOPOSTAL,');
      Add('POBLACION, PROVINCIA,');
      Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
+      Add('IVA, IMPORTEIVA, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
      Add('FORMAPAGO from CONTRATOSCLIENTE ');
      Add('where CODIGO = :CODIGO');
    end;
@ -1687,8 +1666,6 @@ begin
        ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
        Iva := FieldByName('IVA').AsInteger;
        ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
-        Re := FieldByName('RE').AsInteger;
-        ImporteRe := FieldByName('IMPORTERE').AsDouble;
        ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
        PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;
        FormaPago := FieldByName('FORMAPAGO').AsString;
--- a/BaseDatos/TablaEmpresas.pas
+++ b/BaseDatos/TablaEmpresas.pas
@ -196,8 +196,7 @@ begin
  with sqlGrid do
  begin
    Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL');
-    Add('from EMPRESAS ');
-    Add('where CODIGO IN ( select CODIGOEMPRESA from PERMISOS_EMPRESAS where usuario = :USUARIO) order by CODIGO ');
+    Add('from EMPRESAS order by CODIGO ');
  end;
 end;

@ -280,8 +279,6 @@ begin
  Codigo := CodigoEmpresa;
  // Recuperar las restricciones de la empresa para el usuario logado
  FRestricciones := TStringList.Create;
-  FRestricciones.Sorted := true;
-    
  ObtenerRestricciones;
  // Recuperar los datos de la empresa
  ObtenerDatos;
@ -292,7 +289,6 @@ begin
  inherited Create;
  FDirecciones := TListaDireccionesEmpresa.Create(Codigo);
  FRestricciones := TStringList.Create;
-  FRestricciones.Sorted := true;  
 end;

 destructor TDatosEmpresa.Destroy;
--- a/BaseDatos/TablaFacturasCliente.dfm
+++ b/BaseDatos/TablaFacturasCliente.dfm
@ -1,7 +1,7 @@
 object dmTablaFacturasCliente: TdmTablaFacturasCliente
  OldCreateOrder = False
-  Left = 507
-  Top = 81
+  Left = 504
+  Top = 256
  Height = 408
  Width = 123
 end
--- a/BaseDatos/TablaPresupuestos.dfm
+++ b/BaseDatos/TablaPresupuestos.dfm
@ -1,6 +1,7 @@
 object dmTablaPresupuestos: TdmTablaPresupuestos
  OldCreateOrder = True
-  Top = 423
+  Left = 251
+  Top = 416
  Height = 200
-  Width = 640
+  Width = 741
 end
--- a/BaseDatos/TablaPresupuestos.pas
+++ b/BaseDatos/TablaPresupuestos.pas
@ -79,8 +79,6 @@ type
    ImporteDescuento : double;
    Iva : integer;
    ImporteIva : double;
-    Re : integer;
-    ImporteRe : double;
    ImporteTotal : double;
    VigenciaPresupuesto : TDateTime;
    PlazoEntrega : String;
@ -608,18 +606,6 @@ begin
        EditFormat := EDIT_EUROS4;
      end;

-    if FindField('RE') <> NIL then
-      with (FieldByName('RE') as TFloatField) do begin
-        DisplayFormat := DISPLAY_DTO;
-        EditFormat := EDIT_DTO;
-      end;
-
-    if FindField('IMPORTERE') <> NIL then
-      with (FieldByName('IMPORTERE') as TIBBCDField) do begin
-        DisplayFormat := DISPLAY_EUROS2;
-        EditFormat := EDIT_EUROS2;
-      end;
-      
    if FindField('IMPORTETOTAL') <> NIL then
      with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
        DisplayFormat := DISPLAY_EUROS2;
@ -774,7 +760,7 @@ begin
    Add('NUMERO, PISO, CODIGOPOSTAL, POBLACION, ');
    Add('PROVINCIA, TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, VENDEDOR, ');
    Add('BASEIMPONIBLE, DESCUENTO, ');
-    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, RE, IMPORTERE, ');
+    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, ');
    Add('IMPORTETOTAL, CODIGODOCUMENTO, VIGENCIAPRESUPUESTO, ');
    Add('OBSERVACIONES, PLAZOENTREGA, FORMAPAGO, DESGLOSES, AUMENTO) values (');
    Add(':CODIGO, :FECHAALTA, :USUARIO, ');
@ -784,7 +770,7 @@ begin
    Add(':PISO, :CODIGOPOSTAL, :POBLACION, ');
    Add(':PROVINCIA, :TELEFONO1, :TELEFONO2, :MOVIL1, :MOVIL2, :FAX, :PERSONACONTACTO, :VENDEDOR, ');
    Add(':BASEIMPONIBLE, :DESCUENTO, ');
-    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :RE, :IMPORTERE,');
+    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, ');
    Add(':IMPORTETOTAL, :CODIGODOCUMENTO, :VIGENCIAPRESUPUESTO, ');
    Add(':OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :DESGLOSES, :AUMENTO) ');
  end;
@ -817,8 +803,6 @@ begin
    Add('IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
    Add('IVA = :IVA, ');
    Add('IMPORTEIVA = :IMPORTEIVA, ');
-    Add('RE = :RE, ');
-    Add('IMPORTERE = :IMPORTERE, ');
    Add('IMPORTETOTAL = :IMPORTETOTAL, ');
    Add('VIGENCIAPRESUPUESTO = :VIGENCIAPRESUPUESTO, ');
    Add('OBSERVACIONES = :OBSERVACIONES, ');
@ -1088,7 +1072,7 @@ begin
      Add('OBSERVACIONES, VENDEDOR, ');
      Add('BASEIMPONIBLE, DESCUENTO, ');
      Add('IMPORTEDESCUENTO, IVA, ');
-      Add('IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, ');
+      Add('IMPORTEIVA, IMPORTETOTAL, ');
      Add('VIGENCIAPRESUPUESTO, PLAZOENTREGA, ');
      Add('FORMAPAGO, DESGLOSES, AUMENTO) ');
      Add('SELECT ''' + CodigoAux + ''', current_date, ');
@ -1103,7 +1087,7 @@ begin
      Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, ');
      Add('OBSERVACIONES, VENDEDOR, ');
      Add('BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA, RE, IMPORTERE,');
+      Add('IVA, IMPORTEIVA,');
      Add('IMPORTETOTAL, VIGENCIAPRESUPUESTO, PLAZOENTREGA, FORMAPAGO, ');
      Add('DESGLOSES, AUMENTO ');
      Add('from PRESUPUESTOSCLIENTE ');
@ -1402,8 +1386,6 @@ begin
        ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
        Iva := FieldByName('IVA').AsInteger;
        ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
-        Re := FieldByName('RE').AsInteger;
-        ImporteRe := FieldByName('IMPORTERE').AsDouble;
        ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
        VigenciaPresupuesto := FieldByName('VIGENCIAPRESUPUESTO').AsDateTime;
        PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;
--- a/Clientes/BarraClientes.dfm
+++ b/Clientes/BarraClientes.dfm
@ -827,19 +827,16 @@ object frBarraClientes: TfrBarraClientes
      Caption = 'Clientes'
      ImageIndex = 0
      OnExecute = actClientesExecute
-      OnUpdate = actClientesUpdate
    end
    object actPresupuestos: TAction
      Caption = 'Presupuestos de clientes'
      ImageIndex = 1
      OnExecute = actPresupuestosExecute
-      OnUpdate = actPresupuestosUpdate
    end
    object actContratos: TAction
      Caption = 'Contratos de clientes'
      ImageIndex = 2
      OnExecute = actContratosExecute
-      OnUpdate = actContratosUpdate
    end
    object actObras: TAction
      Caption = 'Obras de clientes'
@ -849,24 +846,20 @@ object frBarraClientes: TfrBarraClientes
      Caption = 'Facturas de clientes'
      ImageIndex = 2
      OnExecute = actFacturasExecute
-      OnUpdate = actFacturasUpdate
    end
    object actPagos: TAction
      Caption = 'Cobros de cliente'
      ImageIndex = 3
      OnExecute = actPagosExecute
-      OnUpdate = actPagosUpdate
    end
    object actFacturasP: TAction
      Caption = 'Facturas proforma'
      ImageIndex = 2
      OnExecute = actFacturasPExecute
-      OnUpdate = actFacturasPUpdate
    end
    object actAlbaranes: TAction
      Caption = 'Albaranes de cliente'
      OnExecute = actAlbaranesExecute
-      OnUpdate = actAlbaranesUpdate
    end
  end
 end
--- a/Clientes/BarraClientes.pas
+++ b/Clientes/BarraClientes.pas
@ -63,13 +63,6 @@ type
    procedure actContratosExecute(Sender: TObject);
    procedure actObrasExecute(Sender: TObject);
    procedure actAlbaranesExecute(Sender: TObject);
-    procedure actClientesUpdate(Sender: TObject);
-    procedure actPresupuestosUpdate(Sender: TObject);
-    procedure actContratosUpdate(Sender: TObject);
-    procedure actFacturasUpdate(Sender: TObject);
-    procedure actPagosUpdate(Sender: TObject);
-    procedure actFacturasPUpdate(Sender: TObject);
-    procedure actAlbaranesUpdate(Sender: TObject);
  public
    constructor Create (AOwner: TComponent); override;
  end;
@ -80,7 +73,7 @@ var
 implementation
 {$R *.DFM}
 uses
-  RdxEmpresaActiva, Literales, Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
+  Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
  InformeTrimestral, Entidades, FacturasProforma, ContratosClientes, Configuracion,
  AlbaranesClientes;

@ -132,81 +125,4 @@ begin
  Contenido := TfrAlbaranesClientes.Create(Self);
 end;

-procedure TfrBarraClientes.actClientesUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_CLIENTES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actPresupuestosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PRESUPUESTOS, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actContratosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_CONTRATOS, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actFacturasUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_FACTURAS_CLIENTE, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actPagosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PAGOS_CLIENTE, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actFacturasPUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_FACTURAS_PROFORMA, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actAlbaranesUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_ALBARANES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
 end.
--- a/Clientes/ContratoCliente.dfm
+++ b/Clientes/ContratoCliente.dfm
@ -1,8 +1,8 @@
 object frContratoCliente: TfrContratoCliente
  Left = 0
  Top = 0
-  Width = 630
-  Height = 410
+  Width = 853
+  Height = 626
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frContratoCliente: TfrContratoCliente
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 630
+    Width = 853
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frContratoCliente: TfrContratoCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 310
-    Width = 630
+    Top = 526
+    Width = 853
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frContratoCliente: TfrContratoCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 360
-    Width = 630
+    Top = 576
+    Width = 853
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frContratoCliente: TfrContratoCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 630
-    Height = 288
+    Width = 853
+    Height = 504
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frContratoCliente: TfrContratoCliente
    object pnlFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 610
+      Width = 833
      Height = 79
      Align = alTop
      BevelOuter = bvNone
@ -529,8 +529,8 @@ object frContratoCliente: TfrContratoCliente
    object pnlPaginas: TRdxPanel
      Left = 10
      Top = 89
-      Width = 610
-      Height = 113
+      Width = 833
+      Height = 320
      Caption = ' '
      ParentColor = True
      ColorHighLight = 8623776
@ -541,8 +541,8 @@ object frContratoCliente: TfrContratoCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 610
-        Height = 113
+        Width = 833
+        Height = 320
        ActivePage = pagContenido
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1117,8 +1117,8 @@ object frContratoCliente: TfrContratoCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 602
-            Height = 85
+            Width = 825
+            Height = 292
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 5
@ -1128,7 +1128,7 @@ object frContratoCliente: TfrContratoCliente
            object pnlBarraContenido: TRdxPanel
              Left = 5
              Top = 31
-              Width = 592
+              Width = 815
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1246,8 +1246,8 @@ object frContratoCliente: TfrContratoCliente
            object gridDetalles: TcxGrid
              Left = 5
              Top = 57
-              Width = 592
-              Height = 193
+              Width = 815
+              Height = 153
              Align = alClient
              BevelInner = bvNone
              BevelKind = bkFlat
@ -1340,7 +1340,7 @@ object frContratoCliente: TfrContratoCliente
            object pnlBarraPropiedades: TRdxPanel
              Left = 5
              Top = 5
-              Width = 592
+              Width = 815
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1543,8 +1543,8 @@ object frContratoCliente: TfrContratoCliente
            end
            object pnlObservaciones: TRdxPanel
              Left = 5
-              Top = 3
-              Width = 592
+              Top = 210
+              Width = 815
              Height = 77
              Caption = ' '
              ParentColor = True
@ -1556,7 +1556,7 @@ object frContratoCliente: TfrContratoCliente
              object Label1: TLabel
                Left = 0
                Top = 0
-                Width = 592
+                Width = 815
                Height = 22
                Align = alTop
                AutoSize = False
@ -1578,7 +1578,7 @@ object frContratoCliente: TfrContratoCliente
                TabOrder = 0
                OnExit = ObservacionesExit
                Height = 55
-                Width = 592
+                Width = 815
              end
            end
          end
@ -1763,7 +1763,7 @@ object frContratoCliente: TfrContratoCliente
          object pnlFormasPago: TPanel
            Left = 0
            Top = 0
-            Width = 602
+            Width = 825
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1798,7 +1798,7 @@ object frContratoCliente: TfrContratoCliente
            object RdxPanel5: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 700
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1818,14 +1818,14 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 680
              end
            end
          end
          object pnlPlazosEntrega: TPanel
            Left = 0
            Top = 100
-            Width = 602
+            Width = 825
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1860,7 +1860,7 @@ object frContratoCliente: TfrContratoCliente
            object Panel3: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 700
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1880,14 +1880,14 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 680
              end
            end
          end
          object pnlNota: TPanel
            Left = 0
            Top = 200
-            Width = 602
+            Width = 825
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1922,7 +1922,7 @@ object frContratoCliente: TfrContratoCliente
            object Panel5: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 700
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1942,7 +1942,7 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 680
              end
            end
          end
@ -2126,9 +2126,9 @@ object frContratoCliente: TfrContratoCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 202
-      Width = 610
-      Height = 76
+      Top = 409
+      Width = 833
+      Height = 85
      Align = alBottom
      BevelOuter = bvNone
      Color = 16383743
@ -2206,274 +2206,175 @@ object frContratoCliente: TfrContratoCliente
      TopIndent = 0
      URLColor = clBlue
      FullHeight = 38
-      object Panel1: TPanel
-        Left = 116
-        Top = 0
-        Width = 494
-        Height = 76
-        Align = alRight
-        BevelOuter = bvNone
-        BorderWidth = 5
-        ParentColor = True
-        TabOrder = 0
-        object RdxPanel1: TRdxPanel
-          Left = 5
-          Top = 5
-          Width = 484
-          Height = 66
-          BorderStyle = bsSingle
-          Caption = ' '
-          BorderWidth = 1
-          Color = 15726583
-          ColorHighLight = 8623776
-          ColorShadow = 8623776
-          Align = alClient
-          TabOrder = 0
-          UseDockManager = True
-          object Label5: TLabel
-            Left = 135
-            Top = 10
-            Width = 70
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Base imponible'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label9: TLabel
-            Left = 400
-            Top = 10
-            Width = 77
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe total'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = [fsBold]
-            ParentFont = False
-          end
-          object Label10: TLabel
-            Left = 29
-            Top = 10
-            Width = 76
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de dto.'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label11: TLabel
-            Left = 234
-            Top = 10
-            Width = 73
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de IVA'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Shape2: TShape
-            Left = 16
-            Top = 29
-            Width = 465
-            Height = 1
-          end
-          object Label4: TLabel
-            Left = 319
-            Top = 10
-            Width = 69
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de RE'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object BaseImponible: TcxDBTextEdit
-            Left = 95
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'BASEIMPONIBLE'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 0
-            Height = 21
-            Width = 110
-          end
-          object ImporteDescuento: TcxDBTextEdit
-            Left = 26
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEDESCUENTO'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 1
-            Height = 21
-            Width = 79
-          end
-          object ImporteIVA: TcxDBTextEdit
-            Left = 231
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEIVA'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 2
-            Height = 21
-            Width = 76
-          end
-          object ImporteTotal: TcxDBTextEdit
-            Left = 380
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTETOTAL'
-            DataBinding.DataSource = dsContrato
-            ParentFont = False
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.Font.Charset = DEFAULT_CHARSET
-            Style.Font.Color = clWindowText
-            Style.Font.Height = -11
-            Style.Font.Name = 'Tahoma'
-            Style.Font.Style = [fsBold]
-            Style.HotTrack = False
-            Style.IsFontAssigned = True
-            TabOrder = 3
-            Height = 21
-            Width = 98
-          end
-          object ImporteRE: TcxDBTextEdit
-            Left = 312
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTERE'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 4
-            Height = 21
-            Width = 76
-          end
-        end
+      object Label7: TLabel
+        Left = 66
+        Top = 13
+        Width = 74
+        Height = 13
+        Caption = 'Descuento(%):'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
      end
-      object Panel6: TPanel
-        Left = 0
-        Top = 0
-        Width = 116
-        Height = 76
-        Align = alClient
-        Alignment = taLeftJustify
-        BevelOuter = bvNone
-        ParentColor = True
+      object Label8: TLabel
+        Left = 228
+        Top = 13
+        Width = 40
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'IVA(%):'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label5: TLabel
+        Left = 22
+        Top = 39
+        Width = 70
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Base imponible'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label10: TLabel
+        Left = 133
+        Top = 39
+        Width = 72
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe de dto'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label11: TLabel
+        Left = 228
+        Top = 39
+        Width = 73
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe de IVA'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label9: TLabel
+        Left = 338
+        Top = 39
+        Width = 77
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe total'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Descuento: TcxDBTextEdit
+        Left = 145
+        Top = 9
+        DataBinding.DataField = 'DESCUENTO'
+        DataBinding.DataSource = dsContrato
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        TabOrder = 0
+        Width = 57
+      end
+      object IVA: TcxDBTextEdit
+        Left = 271
+        Top = 9
+        DataBinding.DataField = 'IVA'
+        DataBinding.DataSource = dsContrato
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 1
-        object Label7: TLabel
-          Left = 8
-          Top = 50
-          Width = 74
-          Height = 13
-          Caption = 'Descuento(%):'
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -11
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
-        end
-        object Label8: TLabel
-          Left = 157
-          Top = 50
-          Width = 40
-          Height = 13
-          Alignment = taRightJustify
-          Caption = 'IVA(%):'
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -11
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
-        end
-        object cbRecargoEquivalencia: TcxCheckBox
-          Left = 8
-          Top = 14
-          Caption = 'Acogido al recargo de equivalencia'
-          ParentColor = False
-          ParentFont = False
-          Properties.NullStyle = nssUnchecked
-          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-          TabOrder = 0
-          Width = 193
-        end
-        object Descuento: TcxDBTextEdit
-          Left = 85
-          Top = 46
-          DataBinding.DataField = 'DESCUENTO'
-          DataBinding.DataSource = dsContrato
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 1
-          Width = 57
-        end
-        object IVA: TcxDBTextEdit
-          Left = 203
-          Top = 46
-          DataBinding.DataField = 'IVA'
-          DataBinding.DataSource = dsContrato
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 2
-          Width = 57
-        end
-        object RecargoEquivalencia: TcxDBTextEdit
-          Left = 203
-          Top = 14
-          DataBinding.DataField = 'RE'
-          DataBinding.DataSource = dsContrato
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 3
-          Width = 57
-        end
+        Width = 57
+      end
+      object BaseImponible: TcxDBTextEdit
+        Left = 2
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'BASEIMPONIBLE'
+        DataBinding.DataSource = dsContrato
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 2
+        Width = 90
+      end
+      object ImporteDescuento: TcxDBTextEdit
+        Left = 115
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEDESCUENTO'
+        DataBinding.DataSource = dsContrato
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 3
+        Width = 90
+      end
+      object ImporteIVA: TcxDBTextEdit
+        Left = 211
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEIVA'
+        DataBinding.DataSource = dsContrato
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 4
+        Width = 90
+      end
+      object ImporteTotal: TcxDBTextEdit
+        Left = 325
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTETOTAL'
+        DataBinding.DataSource = dsContrato
+        ParentFont = False
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.Font.Charset = DEFAULT_CHARSET
+        Style.Font.Color = clWindowText
+        Style.Font.Height = -11
+        Style.Font.Name = 'Tahoma'
+        Style.Font.Style = [fsBold]
+        Style.HotTrack = False
+        Style.IsFontAssigned = True
+        TabOrder = 5
+        Width = 90
      end
    end
  end
--- a/Clientes/ContratoCliente.pas
+++ b/Clientes/ContratoCliente.pas
@ -52,7 +52,7 @@ uses
  cxDBLookupEdit, cxDBLookupComboBox, TablaDocumentos, TablaPropiedades,
  RdxEmpresaActiva, am2000utils, cxCurrencyEdit, RXCtrls, Mask, dbcgrids,
  cxDataStorage, JvExForms, JvBaseThumbnail, JvThumbViews, JvExComCtrls,
-  JvComCtrls, Dialogs, cxCheckBox;
+  JvComCtrls, Dialogs;

 type
  TfrContratoCliente = class(TRdxFrameContratos)
@ -114,6 +114,7 @@ type
    FormasPago: TcxDBMemo;
    dsPropiedadesContrato: TDataSource;
    eDocumento: TLabel;
+    pnlImportes: TAdvPanel;
    cbxDocumento: TcxDBLookupComboBox;
    dsDocumentos: TDataSource;
    TablaDocumentos: TIBQuery;
@ -124,6 +125,10 @@ type
    TablaValores: TIBQuery;
    dsValores: TDataSource;
    dsPropiedades: TDataSource;
+    Label7: TLabel;
+    Descuento: TcxDBTextEdit;
+    Label8: TLabel;
+    IVA: TcxDBTextEdit;
    actAnadirPropiedad: TAction;
    actEliminarPropiedad: TAction;
    pnlBarraPropiedades: TRdxPanel;
@ -140,6 +145,14 @@ type
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    pnlGrid: TRdxPanel;
+    Label5: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label9: TLabel;
+    BaseImponible: TcxDBTextEdit;
+    ImporteDescuento: TcxDBTextEdit;
+    ImporteIVA: TcxDBTextEdit;
+    ImporteTotal: TcxDBTextEdit;
    eSeccion: TLabel;
    Seccion: TcxComboBox;
    pnlObservaciones: TRdxPanel;
@ -177,27 +190,6 @@ type
    RdxBoton6: TRdxBoton;
    tvPlanos: TJvThumbView;
    OpenDialog1: TOpenDialog;
-    pnlImportes: TAdvPanel;
-    Panel1: TPanel;
-    RdxPanel1: TRdxPanel;
-    Label5: TLabel;
-    Label9: TLabel;
-    Label10: TLabel;
-    Label11: TLabel;
-    Shape2: TShape;
-    Label4: TLabel;
-    BaseImponible: TcxDBTextEdit;
-    ImporteDescuento: TcxDBTextEdit;
-    ImporteIVA: TcxDBTextEdit;
-    ImporteTotal: TcxDBTextEdit;
-    ImporteRE: TcxDBTextEdit;
-    Panel6: TPanel;
-    Label7: TLabel;
-    Label8: TLabel;
-    cbRecargoEquivalencia: TcxCheckBox;
-    Descuento: TcxDBTextEdit;
-    IVA: TcxDBTextEdit;
-    RecargoEquivalencia: TcxDBTextEdit;
    procedure bSalirClick(Sender: TObject);
    procedure bGuardarClick(Sender: TObject);
    procedure bCancelarClick(Sender: TObject);
@ -246,7 +238,6 @@ type
    procedure actAnadirPlanoUpdate(Sender: TObject);
    procedure tvPlanosDblClick(Sender: TObject);
    procedure JvTrackBar1Change(Sender: TObject);
-    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
  private
    FRootPlanos: Variant;
    FDirectorio: Variant;
@ -284,7 +275,6 @@ type
    procedure ProvinciaSetText(Sender: TField; const Text: String);
    procedure IVASetText(Sender: TField; const Text: String);
    procedure DtoSetText(Sender: TField; const Text: String);
-    procedure RESetText(Sender: TField; const Text: String);    
    procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
    procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);    
    procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@ -375,8 +365,6 @@ begin
  CodCliente.Properties.Buttons[0].Visible := True;
  Poblacion.Properties.Buttons[0].Visible := True;
  Provincia.Properties.Buttons[0].Visible := True;
-  cbRecargoEquivalencia.Checked := False;
-  RecargoEquivalencia.Enabled := False;

  DesactivarEventosCampos;
  try
@ -433,8 +421,7 @@ begin

    dmTablaContratos.InicializarTablaContratos(@TablaContratos);
    dmTablaContratos.InicializarTablaDetalles(@TablaDetallesMem);
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-    
+
    ActivarEdicionGridDetalles(VistaDetalles);

    cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad);
@ -538,10 +525,6 @@ begin
        DeshabilitarPlanos;
    end;}

-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-
    FechaContrato.SetFocus;
  except
    on E : EIBError do
@ -609,10 +592,6 @@ begin
        DeshabilitarPlanos;
    end;}

-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-
    Visible := True;
  except
    on E : EIBError do
@ -676,10 +655,6 @@ begin
      end;
    end;

-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-    
    ActivarEventosCampos;
    ConfigurarPantallaDocumento;
    Visible := True;
@ -866,16 +841,13 @@ end;

 procedure TfrContratoCliente.CalcularTotalContrato;
 var
-  ImporteNeto,
  BaseImponible,
-  ImporteRE,
  ImporteIVA,
  ImporteDto,
  ImporteTotal : Double;
  FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
+  BaseImponible := 0;
  ImporteTotal := 0;
  with TablaDetallesMem do
  begin
@ -884,22 +856,19 @@ begin
    try
      First;
      while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
        Next;
      end;

-      ImporteDto := ImporteNeto * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
-
-      ImporteRE := BaseImponible * (TablaContratos.FieldByName('RE').AsFloat/100);
-      ImporteIVA := BaseImponible * (TablaContratos.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
+      ImporteDto := BaseImponible * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteTotal := BaseImponible - ImporteDto;
+      ImporteIVA := ImporteTotal * (TablaContratos.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA;

      TablaContratos.Edit;
      TablaContratos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
      TablaContratos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
      TablaContratos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA;
-      TablaContratos.FieldByName('IMPORTERE').AsFloat := ImporteRE;      
      TablaContratos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal;
    finally
      Bookmark := FDetallesBookmark;
@ -1498,14 +1467,11 @@ end;

 procedure TfrContratoCliente.ActivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
-  
  with TablaContratos do
  begin
    FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
    FieldByName('IVA').OnSetText := IVASetText;
    FieldByName('DESCUENTO').OnSetText := DtoSetText;
-    FieldByName('RE').OnSetText := RESetText;    
  end;

  with TablaDetallesMem do
@ -1965,8 +1931,6 @@ end;

 procedure TfrContratoCliente.DesactivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := NIL;
-  
  with TablaContratos do
  begin
    if FindField('CODIGOCLIENTE') <> NIL then
@ -1975,8 +1939,6 @@ begin
      FieldByName('IVA').OnSetText := NIL;
    if FindField('DESCUENTO') <> NIL then
      FieldByName('DESCUENTO').OnSetText := NIL;
-    if FindField('RE') <> NIL then
-      FieldByName('RE').OnSetText := NIL;
  end;

  with TablaDetallesMem do
@ -2664,26 +2626,5 @@ begin
  gridDetalles.SetFocus;
 end;

-procedure TfrContratoCliente.cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
-begin
-  RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
-  if not cbRecargoEquivalencia.Checked then
-  begin
-    RecargoEquivalencia.DataBinding.Field.Value := Null;
-    CalcularTotalContrato;
-  end;
-end;
-
-procedure TfrContratoCliente.RESetText(Sender: TField; const Text: String);
-begin
-  if EsCadenaVacia(Text) then
-    Sender.AsString := '0'
-  else begin
-    ValidarDto(Text);
-    Sender.AsString := Text;
-  end;
-  CalcularTotalContrato;
-end;
-
 end.

--- a/Clientes/FacturaCliente.dfm
+++ b/Clientes/FacturaCliente.dfm
@ -1,8 +1,8 @@
 object frFacturaCliente: TfrFacturaCliente
  Left = 0
  Top = 0
-  Width = 630
-  Height = 410
+  Width = 954
+  Height = 639
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frFacturaCliente: TfrFacturaCliente
  object Titulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 630
+    Width = 954
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frFacturaCliente: TfrFacturaCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 310
-    Width = 630
+    Top = 539
+    Width = 954
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frFacturaCliente: TfrFacturaCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 360
-    Width = 630
+    Top = 589
+    Width = 954
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frFacturaCliente: TfrFacturaCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 630
-    Height = 288
+    Width = 954
+    Height = 517
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frFacturaCliente: TfrFacturaCliente
    object pnlDatosFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 610
+      Width = 934
      Height = 121
      Align = alTop
      BevelOuter = bvNone
@ -593,8 +593,8 @@ object frFacturaCliente: TfrFacturaCliente
    object pnlGrid: TAdvPanel
      Left = 10
      Top = 131
-      Width = 610
-      Height = 71
+      Width = 934
+      Height = 300
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
@ -660,8 +660,8 @@ object frFacturaCliente: TfrFacturaCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 610
-        Height = 71
+        Width = 934
+        Height = 300
        ActivePage = pagCliente
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1236,8 +1236,8 @@ object frFacturaCliente: TfrFacturaCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 602
-            Height = 43
+            Width = 926
+            Height = 272
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1247,7 +1247,7 @@ object frFacturaCliente: TfrFacturaCliente
            object pnlBarraGrid: TRdxPanel
              Left = 10
              Top = 10
-              Width = 582
+              Width = 906
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1401,7 +1401,7 @@ object frFacturaCliente: TfrFacturaCliente
            object gridDetalles: TcxGrid
              Left = 10
              Top = 36
-              Width = 582
+              Width = 906
              Height = 226
              Align = alClient
              BevelInner = bvNone
@ -1435,7 +1435,6 @@ object frFacturaCliente: TfrFacturaCliente
                OptionsView.GroupByBox = False
                OptionsView.HeaderEndEllipsis = True
                OptionsView.Indicator = True
-                OptionsView.NewItemRowInfoText = 'Click here to add a new row'
                OptionsView.RowSeparatorColor = 14280169
                Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
              end
@ -1448,7 +1447,6 @@ object frFacturaCliente: TfrFacturaCliente
                DataController.Summary.FooterSummaryItems = <>
                DataController.Summary.SummaryGroups = <>
                OptionsView.GroupByBox = False
-                OptionsView.NewItemRowInfoText = 'Click here to add a new row'
                Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
              end
              object gridDetallesLevel1: TcxGridLevel
@ -1464,7 +1462,7 @@ object frFacturaCliente: TfrFacturaCliente
            Left = 0
            Top = 0
            Width = 125
-            Height = 43
+            Height = 272
            Align = alLeft
            BevelOuter = bvNone
            Caption = ' '
@ -1489,8 +1487,8 @@ object frFacturaCliente: TfrFacturaCliente
          object RdxPanel5: TPanel
            Left = 125
            Top = 0
-            Width = 477
-            Height = 43
+            Width = 801
+            Height = 272
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1508,8 +1506,8 @@ object frFacturaCliente: TfrFacturaCliente
              Properties.ScrollBars = ssVertical
              Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
              TabOrder = 0
-              Height = 23
-              Width = 457
+              Height = 252
+              Width = 781
            end
          end
        end
@ -1517,8 +1515,8 @@ object frFacturaCliente: TfrFacturaCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 202
-      Width = 610
+      Top = 431
+      Width = 934
      Height = 76
      Align = alBottom
      BevelOuter = bvNone
@ -1598,9 +1596,9 @@ object frFacturaCliente: TfrFacturaCliente
      URLColor = clBlue
      FullHeight = 38
      object Panel1: TPanel
-        Left = 116
+        Left = 500
        Top = 0
-        Width = 494
+        Width = 434
        Height = 76
        Align = alRight
        BevelOuter = bvNone
@ -1610,7 +1608,7 @@ object frFacturaCliente: TfrFacturaCliente
        object RdxPanel1: TRdxPanel
          Left = 5
          Top = 5
-          Width = 484
+          Width = 424
          Height = 66
          BorderStyle = bsSingle
          Caption = ' '
@ -1622,7 +1620,7 @@ object frFacturaCliente: TfrFacturaCliente
          TabOrder = 0
          UseDockManager = True
          object Label5: TLabel
-            Left = 135
+            Left = 52
            Top = 10
            Width = 70
            Height = 13
@ -1636,7 +1634,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label9: TLabel
-            Left = 400
+            Left = 332
            Top = 10
            Width = 77
            Height = 13
@ -1650,7 +1648,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label10: TLabel
-            Left = 29
+            Left = 145
            Top = 10
            Width = 76
            Height = 13
@ -1664,7 +1662,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label11: TLabel
-            Left = 234
+            Left = 238
            Top = 10
            Width = 73
            Height = 13
@ -1680,25 +1678,11 @@ object frFacturaCliente: TfrFacturaCliente
          object Shape2: TShape
            Left = 16
            Top = 29
-            Width = 465
+            Width = 394
            Height = 1
          end
-          object Label4: TLabel
-            Left = 319
-            Top = 10
-            Width = 69
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de RE'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
          object BaseImponible: TcxDBTextEdit
-            Left = 95
+            Left = 12
            Top = 37
            TabStop = False
            AutoSize = False
@ -1714,7 +1698,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 110
          end
          object ImporteDescuento: TcxDBTextEdit
-            Left = 26
+            Left = 142
            Top = 37
            TabStop = False
            AutoSize = False
@ -1730,7 +1714,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 79
          end
          object ImporteIVA: TcxDBTextEdit
-            Left = 231
+            Left = 235
            Top = 37
            TabStop = False
            AutoSize = False
@ -1746,7 +1730,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 76
          end
          object ImporteTotal: TcxDBTextEdit
-            Left = 380
+            Left = 312
            Top = 37
            TabStop = False
            AutoSize = False
@ -1768,28 +1752,12 @@ object frFacturaCliente: TfrFacturaCliente
            Height = 21
            Width = 98
          end
-          object ImporteRE: TcxDBTextEdit
-            Left = 312
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTERE'
-            DataBinding.DataSource = dsFactura
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 4
-            Height = 21
-            Width = 76
-          end
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
-        Width = 116
+        Width = 500
        Height = 76
        Align = alClient
        Alignment = taLeftJustify
--- a/Clientes/FacturaCliente.pas
+++ b/Clientes/FacturaCliente.pas
@ -167,8 +167,6 @@ type
    cbxTrimestres: TcxComboBox;
    eTrimestreCerrado: TLabel;
    cbComisiones: TcxDBCheckBox;
-    Label4: TLabel;
-    ImporteRE: TcxDBTextEdit;
    procedure bCancelarClick(Sender: TObject);
    procedure bSalirClick(Sender: TObject);
    procedure bGuardarClick(Sender: TObject);
@ -742,7 +740,6 @@ end;

 procedure TfrFacturaCliente.CalcularTotalFactura;
 var
-  ImporteNeto,
  BaseImponible,
  ImporteRE,
  ImporteIVA,
@ -750,8 +747,7 @@ var
  ImporteTotal : Double;
  FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
+  BaseImponible := 0;
  ImporteTotal := 0;
  with TablaDetallesMem do
  begin
@ -760,16 +756,15 @@ begin
    try
      First;
      while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
        Next;
      end;

-      ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
-
      ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
-      ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
+      ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteTotal := BaseImponible - ImporteDto;
+      ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;

      TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
      TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
--- a/Clientes/FacturaProforma.dfm
+++ b/Clientes/FacturaProforma.dfm
@ -1,8 +1,8 @@
 object frFacturaProforma: TfrFacturaProforma
  Left = 0
  Top = 0
-  Width = 630
-  Height = 410
+  Width = 736
+  Height = 643
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frFacturaProforma: TfrFacturaProforma
  object Titulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 630
+    Width = 736
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frFacturaProforma: TfrFacturaProforma
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 310
-    Width = 630
+    Top = 543
+    Width = 736
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frFacturaProforma: TfrFacturaProforma
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 360
-    Width = 630
+    Top = 593
+    Width = 736
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frFacturaProforma: TfrFacturaProforma
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 630
-    Height = 288
+    Width = 736
+    Height = 521
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frFacturaProforma: TfrFacturaProforma
    object pnlDatosFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 610
+      Width = 716
      Height = 121
      Align = alTop
      BevelOuter = bvNone
@ -488,8 +488,8 @@ object frFacturaProforma: TfrFacturaProforma
    object pnlGrid: TAdvPanel
      Left = 10
      Top = 131
-      Width = 610
-      Height = 71
+      Width = 716
+      Height = 304
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
@ -555,8 +555,8 @@ object frFacturaProforma: TfrFacturaProforma
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 610
-        Height = 71
+        Width = 716
+        Height = 304
        ActivePage = pagContenido
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1131,8 +1131,8 @@ object frFacturaProforma: TfrFacturaProforma
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 602
-            Height = 43
+            Width = 708
+            Height = 276
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1142,7 +1142,7 @@ object frFacturaProforma: TfrFacturaProforma
            object pnlBarraGrid: TPanel
              Left = 10
              Top = 10
-              Width = 582
+              Width = 688
              Height = 28
              Align = alTop
              BevelOuter = bvNone
@ -1258,8 +1258,8 @@ object frFacturaProforma: TfrFacturaProforma
            object gridDetalles: TcxGrid
              Left = 10
              Top = 38
-              Width = 582
-              Height = 250
+              Width = 688
+              Height = 228
              Align = alClient
              BevelInner = bvNone
              BevelKind = bkFlat
@ -1307,7 +1307,7 @@ object frFacturaProforma: TfrFacturaProforma
            Left = 0
            Top = 0
            Width = 125
-            Height = 43
+            Height = 276
            Align = alLeft
            BevelOuter = bvNone
            Caption = ' '
@ -1332,8 +1332,8 @@ object frFacturaProforma: TfrFacturaProforma
          object RdxPanel5: TPanel
            Left = 125
            Top = 0
-            Width = 477
-            Height = 43
+            Width = 583
+            Height = 276
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1351,8 +1351,8 @@ object frFacturaProforma: TfrFacturaProforma
              Properties.ScrollBars = ssVertical
              Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
              TabOrder = 0
-              Height = 23
-              Width = 457
+              Height = 256
+              Width = 563
            end
          end
        end
@ -1360,8 +1360,8 @@ object frFacturaProforma: TfrFacturaProforma
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 202
-      Width = 610
+      Top = 435
+      Width = 716
      Height = 76
      Align = alBottom
      BevelOuter = bvNone
@ -1441,9 +1441,9 @@ object frFacturaProforma: TfrFacturaProforma
      URLColor = clBlue
      FullHeight = 38
      object Panel1: TPanel
-        Left = 89
+        Left = 282
        Top = 0
-        Width = 521
+        Width = 434
        Height = 76
        Align = alRight
        BevelOuter = bvNone
@ -1453,7 +1453,7 @@ object frFacturaProforma: TfrFacturaProforma
        object RdxPanel1: TRdxPanel
          Left = 5
          Top = 5
-          Width = 511
+          Width = 424
          Height = 66
          BorderStyle = bsSingle
          Caption = ' '
@ -1465,7 +1465,7 @@ object frFacturaProforma: TfrFacturaProforma
          TabOrder = 0
          UseDockManager = True
          object Label5: TLabel
-            Left = 131
+            Left = 52
            Top = 10
            Width = 70
            Height = 13
@ -1479,7 +1479,7 @@ object frFacturaProforma: TfrFacturaProforma
            ParentFont = False
          end
          object Label9: TLabel
-            Left = 421
+            Left = 332
            Top = 10
            Width = 77
            Height = 13
@ -1493,7 +1493,7 @@ object frFacturaProforma: TfrFacturaProforma
            ParentFont = False
          end
          object Label10: TLabel
-            Left = 18
+            Left = 145
            Top = 10
            Width = 76
            Height = 13
@ -1507,7 +1507,7 @@ object frFacturaProforma: TfrFacturaProforma
            ParentFont = False
          end
          object Label11: TLabel
-            Left = 225
+            Left = 238
            Top = 10
            Width = 73
            Height = 13
@ -1523,25 +1523,11 @@ object frFacturaProforma: TfrFacturaProforma
          object Shape2: TShape
            Left = 16
            Top = 29
-            Width = 484
+            Width = 394
            Height = 1
          end
-          object Label4: TLabel
-            Left = 325
-            Top = 10
-            Width = 69
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de RE'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
          object BaseImponible: TcxDBTextEdit
-            Left = 91
+            Left = 12
            Top = 37
            TabStop = False
            AutoSize = False
@ -1557,7 +1543,7 @@ object frFacturaProforma: TfrFacturaProforma
            Width = 110
          end
          object ImporteDescuento: TcxDBTextEdit
-            Left = 15
+            Left = 142
            Top = 37
            TabStop = False
            AutoSize = False
@ -1573,7 +1559,7 @@ object frFacturaProforma: TfrFacturaProforma
            Width = 79
          end
          object ImporteIVA: TcxDBTextEdit
-            Left = 222
+            Left = 235
            Top = 37
            TabStop = False
            AutoSize = False
@ -1589,7 +1575,7 @@ object frFacturaProforma: TfrFacturaProforma
            Width = 76
          end
          object ImporteTotal: TcxDBTextEdit
-            Left = 401
+            Left = 312
            Top = 37
            TabStop = False
            AutoSize = False
@ -1611,28 +1597,12 @@ object frFacturaProforma: TfrFacturaProforma
            Height = 21
            Width = 98
          end
-          object ImporteRE: TcxDBTextEdit
-            Left = 318
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTERE'
-            DataBinding.DataSource = dsFactura
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 4
-            Height = 21
-            Width = 76
-          end
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 0
-        Width = 89
+        Width = 282
        Height = 76
        Align = alClient
        BevelOuter = bvNone
--- a/Clientes/FacturaProforma.pas
+++ b/Clientes/FacturaProforma.pas
@ -137,8 +137,6 @@ type
    Descuento: TcxDBTextEdit;
    IVA: TcxDBTextEdit;
    RecargoEquivalencia: TcxDBTextEdit;
-    Label4: TLabel;
-    ImporteRE: TcxDBTextEdit;
    procedure bCancelarClick(Sender: TObject);
    procedure bSalirClick(Sender: TObject);
    procedure bGuardarClick(Sender: TObject);
@ -646,7 +644,6 @@ end;

 procedure TfrFacturaProforma.CalcularTotalFactura;
 var
-  ImporteNeto,
  BaseImponible,
  ImporteRE,
  ImporteIVA,
@ -654,8 +651,7 @@ var
  ImporteTotal : Double;
  FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
+  BaseImponible := 0;
  ImporteTotal := 0;
  with TablaDetallesMem do
  begin
@ -664,16 +660,15 @@ begin
    try
      First;
      while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
        Next;
      end;

-      ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
-
      ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
-      ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
+      ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteTotal := BaseImponible - ImporteDto;
+      ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;

      TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
      TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
--- a/Clientes/ImprimirFacturasCliente.dfm
+++ b/Clientes/ImprimirFacturasCliente.dfm
@ -205,47 +205,60 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
      object CodCliente: TcxTextEdit
        Left = 152
        Top = 58
-        ParentFont = False
+        Width = 113
+        Height = 21
        Properties.ReadOnly = True
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 0
        Text = 'CodCliente'
-        Width = 113
      end
      object NIFCIF: TcxTextEdit
        Left = 323
        Top = 58
-        ParentFont = False
+        Width = 121
+        Height = 21
        Properties.ReadOnly = True
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 1
        Text = 'NIFCIF'
-        Width = 121
      end
      object FechaFactura: TcxTextEdit
        Left = 323
        Top = 34
-        ParentFont = False
+        Width = 121
+        Height = 21
        Properties.ReadOnly = True
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 2
        Text = 'FechaFactura'
-        Width = 121
      end
      object Nombre: TcxTextEdit
        Left = 152
        Top = 82
-        ParentFont = False
+        Width = 292
+        Height = 21
        Properties.ReadOnly = True
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 3
        Text = 'Nombre'
-        Width = 292
      end
      object Codigo: TcxButtonEdit
        Left = 152
        Top = 35
-        ParentFont = False
+        Width = 113
+        Height = 21
        Properties.Buttons = <
          item
            Default = True
@ -297,9 +310,11 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
        Properties.ReadOnly = True
        Properties.OnButtonClick = CodigoPropertiesButtonClick
        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 4
        Text = 'Codigo'
-        Width = 113
      end
    end
  end
--- a/Clientes/PresupuestoCliente.dfm
+++ b/Clientes/PresupuestoCliente.dfm
@ -1,8 +1,8 @@
 object frPresupuestoCliente: TfrPresupuestoCliente
  Left = 0
  Top = 0
-  Width = 630
-  Height = 410
+  Width = 973
+  Height = 704
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 630
+    Width = 973
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 310
-    Width = 630
+    Top = 604
+    Width = 973
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 360
-    Width = 630
+    Top = 654
+    Width = 973
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 630
-    Height = 288
+    Width = 973
+    Height = 582
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    object pnlFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 610
+      Width = 953
      Height = 79
      Align = alTop
      BevelOuter = bvNone
@ -656,8 +656,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    object pnlPaginas: TRdxPanel
      Left = 10
      Top = 89
-      Width = 610
-      Height = 113
+      Width = 953
+      Height = 398
      Caption = ' '
      ParentColor = True
      ColorHighLight = 8623776
@ -668,8 +668,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 610
-        Height = 113
+        Width = 953
+        Height = 398
        ActivePage = pagContenido
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1244,8 +1244,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 602
-            Height = 67
+            Width = 945
+            Height = 352
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 5
@ -1255,7 +1255,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object pnlBarraContenido: TRdxPanel
              Left = 5
              Top = 31
-              Width = 592
+              Width = 935
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1373,8 +1373,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object gridDetalles: TcxGrid
              Left = 5
              Top = 57
-              Width = 592
-              Height = 232
+              Width = 935
+              Height = 223
              Align = alClient
              BevelInner = bvNone
              BevelKind = bkFlat
@ -1514,7 +1514,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object pnlBarraPropiedades: TRdxPanel
              Left = 5
              Top = 5
-              Width = 592
+              Width = 935
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1752,8 +1752,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            end
            object pnlObservaciones: TRdxPanel
              Left = 5
-              Top = -5
-              Width = 592
+              Top = 280
+              Width = 935
              Height = 67
              Caption = ' '
              ParentColor = True
@ -1765,7 +1765,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              object Label1: TLabel
                Left = 0
                Top = 0
-                Width = 592
+                Width = 935
                Height = 25
                Align = alTop
                AutoSize = False
@ -1787,7 +1787,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                TabOrder = 0
                OnExit = ObservacionesExit
                Height = 42
-                Width = 592
+                Width = 935
              end
            end
          end
@ -1798,8 +1798,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object Panel1: TPanel
            Left = 0
            Top = 0
-            Width = 602
-            Height = 67
+            Width = 945
+            Height = 352
            Align = alClient
            BevelOuter = bvNone
            ParentColor = True
@ -1808,7 +1808,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              Left = 0
              Top = 0
              Width = 125
-              Height = 67
+              Height = 352
              Align = alLeft
              BevelOuter = bvNone
              Caption = ' '
@ -1833,8 +1833,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel7: TPanel
              Left = 125
              Top = 0
-              Width = 477
-              Height = 67
+              Width = 820
+              Height = 352
              Align = alClient
              BevelOuter = bvNone
              BorderWidth = 10
@ -1858,8 +1858,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                Style.IsFontAssigned = True
                TabOrder = 0
-                Height = 47
-                Width = 457
+                Height = 332
+                Width = 800
              end
            end
          end
@ -2042,7 +2042,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            Left = 0
            Top = 0
            Width = 125
-            Height = 67
+            Height = 352
            Align = alLeft
            BevelOuter = bvNone
            Caption = ' '
@ -2067,8 +2067,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object Panel13: TPanel
            Left = 125
            Top = 0
-            Width = 477
-            Height = 67
+            Width = 820
+            Height = 352
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -2092,8 +2092,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
              Style.IsFontAssigned = True
              TabOrder = 0
-              Height = 47
-              Width = 457
+              Height = 332
+              Width = 800
            end
          end
        end
@ -2104,7 +2104,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object pnlFormasPago: TPanel
            Left = 0
            Top = 0
-            Width = 602
+            Width = 945
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2139,7 +2139,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object RdxPanel5: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 820
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2159,14 +2159,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 800
              end
            end
          end
          object pnlPlazosEntrega: TPanel
            Left = 0
            Top = 100
-            Width = 602
+            Width = 945
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2201,7 +2201,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel3: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 820
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2221,14 +2221,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 800
              end
            end
          end
          object pnlNota: TPanel
            Left = 0
            Top = 200
-            Width = 602
+            Width = 945
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2263,7 +2263,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel5: TPanel
              Left = 125
              Top = 0
-              Width = 477
+              Width = 820
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2283,7 +2283,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 457
+                Width = 800
              end
            end
          end
@ -2624,9 +2624,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 202
-      Width = 610
-      Height = 76
+      Top = 487
+      Width = 953
+      Height = 85
      Align = alBottom
      BevelOuter = bvNone
      Color = 16383743
@ -2704,274 +2704,175 @@ object frPresupuestoCliente: TfrPresupuestoCliente
      TopIndent = 0
      URLColor = clBlue
      FullHeight = 38
-      object Panel15: TPanel
-        Left = 116
-        Top = 0
-        Width = 494
-        Height = 76
-        Align = alRight
-        BevelOuter = bvNone
-        BorderWidth = 5
-        ParentColor = True
-        TabOrder = 0
-        object RdxPanel1: TRdxPanel
-          Left = 5
-          Top = 5
-          Width = 484
-          Height = 66
-          BorderStyle = bsSingle
-          Caption = ' '
-          BorderWidth = 1
-          Color = 15726583
-          ColorHighLight = 8623776
-          ColorShadow = 8623776
-          Align = alClient
-          TabOrder = 0
-          UseDockManager = True
-          object Label5: TLabel
-            Left = 135
-            Top = 10
-            Width = 70
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Base imponible'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label9: TLabel
-            Left = 400
-            Top = 10
-            Width = 77
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe total'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = [fsBold]
-            ParentFont = False
-          end
-          object Label10: TLabel
-            Left = 29
-            Top = 10
-            Width = 76
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de dto.'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label11: TLabel
-            Left = 234
-            Top = 10
-            Width = 73
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de IVA'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Shape2: TShape
-            Left = 16
-            Top = 29
-            Width = 465
-            Height = 1
-          end
-          object Label7: TLabel
-            Left = 319
-            Top = 10
-            Width = 69
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de RE'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object BaseImponible: TcxDBTextEdit
-            Left = 95
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'BASEIMPONIBLE'
-            DataBinding.DataSource = dsPresupuesto
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 0
-            Height = 21
-            Width = 110
-          end
-          object ImporteDescuento: TcxDBTextEdit
-            Left = 26
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEDESCUENTO'
-            DataBinding.DataSource = dsPresupuesto
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 1
-            Height = 21
-            Width = 79
-          end
-          object ImporteIVA: TcxDBTextEdit
-            Left = 231
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEIVA'
-            DataBinding.DataSource = dsPresupuesto
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 2
-            Height = 21
-            Width = 76
-          end
-          object ImporteTotal: TcxDBTextEdit
-            Left = 380
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTETOTAL'
-            DataBinding.DataSource = dsPresupuesto
-            ParentFont = False
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.Font.Charset = DEFAULT_CHARSET
-            Style.Font.Color = clWindowText
-            Style.Font.Height = -11
-            Style.Font.Name = 'Tahoma'
-            Style.Font.Style = [fsBold]
-            Style.HotTrack = False
-            Style.IsFontAssigned = True
-            TabOrder = 3
-            Height = 21
-            Width = 98
-          end
-          object ImporteRE: TcxDBTextEdit
-            Left = 312
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTERE'
-            DataBinding.DataSource = dsPresupuesto
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 4
-            Height = 21
-            Width = 76
-          end
-        end
+      object Label7: TLabel
+        Left = 66
+        Top = 13
+        Width = 74
+        Height = 13
+        Caption = 'Descuento(%):'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
      end
-      object Panel16: TPanel
-        Left = 0
-        Top = 0
-        Width = 116
-        Height = 76
-        Align = alClient
-        Alignment = taLeftJustify
-        BevelOuter = bvNone
-        ParentColor = True
+      object Label8: TLabel
+        Left = 228
+        Top = 13
+        Width = 40
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'IVA(%):'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label5: TLabel
+        Left = 22
+        Top = 39
+        Width = 70
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Base imponible'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label10: TLabel
+        Left = 133
+        Top = 39
+        Width = 72
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe de dto'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label11: TLabel
+        Left = 228
+        Top = 39
+        Width = 73
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe de IVA'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label9: TLabel
+        Left = 338
+        Top = 39
+        Width = 77
+        Height = 13
+        Alignment = taRightJustify
+        Caption = 'Importe total'
+        Font.Charset = DEFAULT_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -11
+        Font.Name = 'Tahoma'
+        Font.Style = [fsBold]
+        ParentFont = False
+      end
+      object Descuento: TcxDBTextEdit
+        Left = 145
+        Top = 9
+        DataBinding.DataField = 'DESCUENTO'
+        DataBinding.DataSource = dsPresupuesto
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        TabOrder = 0
+        Width = 57
+      end
+      object IVA: TcxDBTextEdit
+        Left = 271
+        Top = 9
+        DataBinding.DataField = 'IVA'
+        DataBinding.DataSource = dsPresupuesto
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
        TabOrder = 1
-        object Label8: TLabel
-          Left = 8
-          Top = 50
-          Width = 74
-          Height = 13
-          Caption = 'Descuento(%):'
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -11
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
-        end
-        object Label12: TLabel
-          Left = 157
-          Top = 50
-          Width = 40
-          Height = 13
-          Alignment = taRightJustify
-          Caption = 'IVA(%):'
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -11
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
-        end
-        object cbRecargoEquivalencia: TcxCheckBox
-          Left = 8
-          Top = 14
-          Caption = 'Acogido al recargo de equivalencia'
-          ParentColor = False
-          ParentFont = False
-          Properties.NullStyle = nssUnchecked
-          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-          TabOrder = 0
-          Width = 193
-        end
-        object Descuento: TcxDBTextEdit
-          Left = 85
-          Top = 46
-          DataBinding.DataField = 'DESCUENTO'
-          DataBinding.DataSource = dsPresupuesto
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 1
-          Width = 57
-        end
-        object IVA: TcxDBTextEdit
-          Left = 203
-          Top = 46
-          DataBinding.DataField = 'IVA'
-          DataBinding.DataSource = dsPresupuesto
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 2
-          Width = 57
-        end
-        object RecargoEquivalencia: TcxDBTextEdit
-          Left = 203
-          Top = 14
-          DataBinding.DataField = 'RE'
-          DataBinding.DataSource = dsPresupuesto
-          ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-          TabOrder = 3
-          Width = 57
-        end
+        Width = 57
+      end
+      object BaseImponible: TcxDBTextEdit
+        Left = 2
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'BASEIMPONIBLE'
+        DataBinding.DataSource = dsPresupuesto
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 2
+        Width = 90
+      end
+      object ImporteDescuento: TcxDBTextEdit
+        Left = 115
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEDESCUENTO'
+        DataBinding.DataSource = dsPresupuesto
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 3
+        Width = 90
+      end
+      object ImporteIVA: TcxDBTextEdit
+        Left = 211
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEIVA'
+        DataBinding.DataSource = dsPresupuesto
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 4
+        Width = 90
+      end
+      object ImporteTotal: TcxDBTextEdit
+        Left = 325
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTETOTAL'
+        DataBinding.DataSource = dsPresupuesto
+        ParentFont = False
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.Font.Charset = DEFAULT_CHARSET
+        Style.Font.Color = clWindowText
+        Style.Font.Height = -11
+        Style.Font.Name = 'Tahoma'
+        Style.Font.Style = [fsBold]
+        Style.HotTrack = False
+        Style.IsFontAssigned = True
+        TabOrder = 5
+        Width = 90
      end
    end
  end
--- a/Clientes/PresupuestoCliente.pas
+++ b/Clientes/PresupuestoCliente.pas
@ -61,7 +61,7 @@ uses
  SysUtils, JvExMask, JvToolEdit, ShlObj, cxShellCommon, cxShellListView,
  JvComponent, JvChangeNotify, JvExForms, JvBaseThumbnail, JvThumbViews,
  JvExComCtrls, JvComCtrls, JvComponentBase, cxRichEdit, cxDBRichEdit,
-  ToolWin, ImgList, cxCheckBox;
+  ToolWin, ImgList;

 type
  TfrPresupuestoCliente = class(TRdxFramePresupuestos)
@ -108,6 +108,7 @@ type
    FormasPago: TcxDBMemo;
    dsPropiedadesPresupuesto: TDataSource;
    eDocumento: TLabel;
+    pnlImportes: TAdvPanel;
    pagDesgloses: TTabSheet;
    pagDocumentos: TTabSheet;
    eVigencia: TLabel;
@ -122,6 +123,10 @@ type
    TablaValores: TIBQuery;
    dsValores: TDataSource;
    dsPropiedades: TDataSource;
+    Label7: TLabel;
+    Descuento: TcxDBTextEdit;
+    Label8: TLabel;
+    IVA: TcxDBTextEdit;
    actAnadirPropiedad: TAction;
    actEliminarPropiedad: TAction;
    pnlBarraPropiedades: TRdxPanel;
@ -138,6 +143,14 @@ type
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    pnlGrid: TRdxPanel;
+    Label5: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label9: TLabel;
+    BaseImponible: TcxDBTextEdit;
+    ImporteDescuento: TcxDBTextEdit;
+    ImporteIVA: TcxDBTextEdit;
+    ImporteTotal: TcxDBTextEdit;
    eSeccion: TLabel;
    Seccion: TcxComboBox;
    pnlObservaciones: TRdxPanel;
@ -226,27 +239,6 @@ type
    RdxBoton6: TRdxBoton;
    bEliminarTodoFiltrado: TRdxBoton;
    actEliminarTodoPropiedad: TAction;
-    pnlImportes: TAdvPanel;
-    Panel15: TPanel;
-    RdxPanel1: TRdxPanel;
-    Label5: TLabel;
-    Label9: TLabel;
-    Label10: TLabel;
-    Label11: TLabel;
-    Shape2: TShape;
-    Label7: TLabel;
-    BaseImponible: TcxDBTextEdit;
-    ImporteDescuento: TcxDBTextEdit;
-    ImporteIVA: TcxDBTextEdit;
-    ImporteTotal: TcxDBTextEdit;
-    ImporteRE: TcxDBTextEdit;
-    Panel16: TPanel;
-    Label8: TLabel;
-    Label12: TLabel;
-    cbRecargoEquivalencia: TcxCheckBox;
-    Descuento: TcxDBTextEdit;
-    IVA: TcxDBTextEdit;
-    RecargoEquivalencia: TcxDBTextEdit;
    procedure bSalirClick(Sender: TObject);
    procedure bGuardarClick(Sender: TObject);
    procedure bCancelarClick(Sender: TObject);
@ -310,7 +302,6 @@ type
    procedure actAnadirPlanoUpdate(Sender: TObject);
    procedure actEliminarTodoPropiedadExecute(Sender: TObject);
    procedure actEliminarTodoPropiedadUpdate(Sender: TObject);
-    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
  private
    FRootDocumentos: Variant;
    FRootPlanos: Variant;
@ -360,7 +351,6 @@ type
    procedure ProvinciaSetText(Sender: TField; const Text: String);
    procedure IVASetText(Sender: TField; const Text: String);
    procedure DtoSetText(Sender: TField; const Text: String);
-    procedure RESetText(Sender: TField; const Text: String);
    procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
    procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);
    procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@ -452,8 +442,6 @@ begin
  CodCliente.Properties.Buttons[0].Visible := True;
  Poblacion.Properties.Buttons[0].Visible := True;
  Provincia.Properties.Buttons[0].Visible := True;
-  cbRecargoEquivalencia.Checked := False;
-  RecargoEquivalencia.Enabled := False;

  DesactivarEventosCampos;
  try
@ -511,8 +499,6 @@ begin

    dmTablaPresupuestos.InicializarTablaPresupuestos(@TablaPresupuestos);
    dmTablaPresupuestos.InicializarTablaDetalles(@TablaDetallesMem);
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-        
    ActivarEdicionGridDetalles(VistaDetalles);
    cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad);
    CargarDatosDocumento(cbxDocumento.DataBinding.Field.AsString);
@ -646,9 +632,6 @@ begin
      else
        DeshabilitarPlanos;
    end;}
-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;

    FechaPresupuesto.SetFocus;
  except
@ -726,10 +709,6 @@ begin
        DeshabilitarPlanos;
    end;}

-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;    
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-    
  except
    on E : EIBError do
      TratarExcepcion(E);
@ -792,10 +771,6 @@ begin
      end;
    end;

-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-    
    ActivarEventosCampos;
    ConfigurarPantallaDocumento;
    Visible := True;
@ -987,16 +962,13 @@ end;

 procedure TfrPresupuestoCliente.CalcularTotalPresupuesto;
 var
-  ImporteNeto,
  BaseImponible,
  ImporteIVA,
-  ImporteRE,
  ImporteDto,
  ImporteTotal : Double;
  FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
+  BaseImponible := 0;
  ImporteTotal := 0;
  with TablaDetallesMem do
  begin
@ -1005,22 +977,19 @@ begin
    try
      First;
      while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
        Next;
      end;

-      ImporteDto := ImporteNeto * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
-
-      ImporteRE := BaseImponible * (TablaPresupuestos.FieldByName('RE').AsFloat/100);
-      ImporteIVA := BaseImponible * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
+      ImporteDto := BaseImponible * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteTotal := BaseImponible - ImporteDto;
+      ImporteIVA := ImporteTotal * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA;

      TablaPresupuestos.Edit;
      TablaPresupuestos.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
      TablaPresupuestos.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
      TablaPresupuestos.FieldByName('IMPORTEIVA').AsFloat := ImporteIVA;
-      TablaPresupuestos.FieldByName('IMPORTERE').AsFloat := ImporteRE;      
      TablaPresupuestos.FieldByName('IMPORTETOTAL').AsFloat := ImporteTotal;
    finally
      Bookmark := FDetallesBookmark;
@ -1649,14 +1618,11 @@ end;

 procedure TfrPresupuestoCliente.ActivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
-  
  with TablaPresupuestos do
  begin
    FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
    FieldByName('IVA').OnSetText := IVASetText;
    FieldByName('DESCUENTO').OnSetText := DtoSetText;
-    FieldByName('RE').OnSetText := RESetText;    
  end;

  with TablaDetallesMem do
@ -2150,8 +2116,6 @@ end;

 procedure TfrPresupuestoCliente.DesactivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := NIL;
-  
  with TablaPresupuestos do
  begin
    if FindField('CODIGOCLIENTE') <> NIL then
@ -2160,8 +2124,6 @@ begin
      FieldByName('IVA').OnSetText := NIL;
    if FindField('DESCUENTO') <> NIL then
      FieldByName('DESCUENTO').OnSetText := NIL;
-    if FindField('RE') <> NIL then
-      FieldByName('RE').OnSetText := NIL;
  end;

  with TablaDetallesMem do
@ -3070,28 +3032,5 @@ begin
    (Sender as TAction).Enabled := not (VistaPropiedades.ViewData.RecordCount = 0);
 end;

-procedure TfrPresupuestoCliente.cbRecargoEquivalenciaPropertiesChange(
-  Sender: TObject);
-begin
-  RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
-  if not cbRecargoEquivalencia.Checked then
-  begin
-    RecargoEquivalencia.DataBinding.Field.Value := Null;
-    CalcularTotalPresupuesto;
-  end;
-end;
-
-procedure TfrPresupuestoCliente.RESetText(Sender: TField;
-  const Text: String);
-begin
-  if EsCadenaVacia(Text) then
-    Sender.AsString := '0'
-  else begin
-    ValidarDto(Text);
-    Sender.AsString := Text;
-  end;
-  CalcularTotalPresupuesto;
-end;
-
 end.

--- a/Empresas/ElegirEmpresa.pas
+++ b/Empresas/ElegirEmpresa.pas
@ -99,7 +99,6 @@ begin
    Database := BaseDatos;
    Transaction := Transaccion;
    SelectSQL.Assign(dmTablaEmpresas.sqlGrid);
-  	ParamByName('USUARIO').AsString := UpperCase(dmBaseDatos.Usuario);
    Prepare;
    EnableControls;
  end;
--- a/Factuges.cfg
+++ b/Factuges.cfg
@ -1,45 +0,0 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O-
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-GD
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E".\Temp"
-N".\Temp"
-LE".\Temp"
-LN".\Temp"
-U"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
-O"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
-I"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
-R"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST
--- a/Factuges.dof
+++ b/Factuges.dof
@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
-MinorVer=3
-Release=1
+MinorVer=2
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.3.1.0
+FileVersion=3.2.4.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=3.3.1.0
+ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
--- a/Factuges.drc
+++ b/Factuges.drc
@ -5112,7 +5112,7 @@ BEGIN
 	VDBConsts_SNotReplicatable,	"Control cannot be used in a DBCtrlGrid"
 	VDBConsts_SPropDefByLookup,	"Property already defined by lookup field"
 	VDBConsts_SRemoteLogin,	"Remote Login"
-	Constantes_CTE_IVA_DEFECTO,	"18"
+	Constantes_CTE_IVA_DEFECTO,	"16"
 	Constantes_DISPLAY_EUROS2,	"#,0.00 €"
 	Constantes_DISPLAY_EUROS4,	"#,0.0000 €"
 	Constantes_EDIT_EUROS2,	"0.00"
--- a/Factuges.dsk
+++ b/Factuges.dsk
@ -1,40 +1,20 @@
 [Closed Files]
-File_0=SourceModule,'C:\Codigo\Empresas\ElegirEmpresa.pas',0,1,86,70,102,1,0
-File_1=SourceModule,'C:\Codigo\BaseDatos\TablaEmpresas.pas',0,1,187,96,200,1,0
-File_2=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\ComObj.pas',0,1,1259,1,1269,0,0
-File_3=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\DB.pas',0,1,2340,1,2350,0,0
-File_4=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\IB.pas',0,1,403,1,411,0,0
-File_5=SourceModule,'C:\Codigo\Informes\InformePresupuestoCliente.pas',0,1,1,1,1,1,0
-File_6=SourceModule,'C:\Codigo Abeto\Clientes\FacturaCliente.pas',0,1,334,63,344,0,0
-File_7=SourceModule,'C:\Codigo Abeto\Libreria\Constantes.pas',0,1,42,24,55,0,0
-File_8=SourceModule,'C:\Codigo Abeto\Proveedores\FacturaProveedor.pas',0,1,272,38,285,1,0
-File_9=SourceModule,'C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas',0,1,140,65,150,0,0
+File_0=SourceModule,'C:\Codigo Abeto\Informes\InformeBase.pas',0,1,212,36,224,0,0
+File_1=SourceModule,'C:\Codigo Abeto\Informes\InformePresupuestoCliente.pas',0,1,167,41,180,1,1
+File_2=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,75,14,54,0,0
+File_3=SourceModule,'C:\Codigo Abeto\Empresas\Empresa.pas',0,1,823,56,847,1,0
+File_4=SourceModule,'C:\Codigo Abeto\Informes\InformeBaseFR3.pas',0,1,65,28,79,0,0
+File_5=SourceModule,'C:\Codigo Abeto\Informes\InformePagoCliente.pas',0,1,84,37,98,0,0
+File_6=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas',0,1,1873,1,1899,0,0
+File_7=SourceModule,'C:\Codigo Abeto\BaseDatos\BaseDatos.pas',0,1,163,14,171,0,0
+File_8=SourceModule,'C:\Codigo Abeto\Libreria\RdxEmpresaActiva.pas',0,1,203,61,206,0,0
+File_9=SourceModule,'C:\Codigo Abeto\Proveedores\BarraProveedores.pas',0,1,1,23,65,1,0

 [Modules]
-Module0=C:\Codigo\Libreria\Literales.pas
-Module1=C:\Codigo\Proveedores\BarraProveedores.pas
-Module2=C:\Codigo\Clientes\BarraClientes.pas
-Module3=C:\Codigo\Principal.pas
-Count=4
-EditWindowCount=1
+Count=0
+EditWindowCount=0

-[C:\Codigo\Libreria\Literales.pas]
-ModuleType=SourceModule
-FormState=0
-FormOnTop=0
-
-[C:\Codigo\Proveedores\BarraProveedores.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=0
-
-[C:\Codigo\Clientes\BarraClientes.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=0
-
-[C:\Codigo\Principal.pas]
-ModuleType=SourceModule
+[C:\Codigo Abeto\Factuges.dpr]
 FormState=0
 FormOnTop=0

@ -42,80 +22,14 @@ FormOnTop=0
 FormState=0
 FormOnTop=0

-[C:\Codigo\Factuges.dpr]
-FormState=0
-FormOnTop=0
-
-[C:\Codigo\Frames\RdxFrame.pas]
-FormState=0
-FormOnTop=0
-
-[EditWindow0]
-ViewCount=4
-CurrentView=2
-View0=0
-View1=1
-View2=2
-View3=3
-CodeExplorer=CodeExplorer@EditWindow0
-MessageView=MessageView@EditWindow0
-Create=1
-Visible=1
-State=0
-Left=447
-Top=136
-Width=1137
-Height=560
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1129
-ClientHeight=526
-LeftPanelSize=140
-LeftPanelClients=CodeExplorer@EditWindow0
-LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
-RightPanelSize=0
-BottomPanelSize=85
-BottomPanelClients=MessageView@EditWindow0
-BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
-
-[View0]
-Module=C:\Codigo\Proveedores\BarraProveedores.pas
-CursorX=78
-CursorY=119
-TopLine=113
-LeftCol=1
-
-[View1]
-Module=C:\Codigo\Clientes\BarraClientes.pas
-CursorX=32
-CursorY=83
-TopLine=66
-LeftCol=1
-
-[View2]
-Module=C:\Codigo\Libreria\Literales.pas
-CursorX=33
-CursorY=30
-TopLine=22
-LeftCol=1
-
-[View3]
-Module=C:\Codigo\Principal.pas
-CursorX=74
-CursorY=360
-TopLine=356
-LeftCol=1
-
 [Watches]
-Count=2
-Watch0='EmpresaActiva.Restricciones.strings[1]',256,0,18,1,0,'Watches'
-Watch1='EmpresaActiva.Restricciones.strings[0]',256,0,18,1,0,'Watches'
+Count=0

 [WatchWindow]
 WatchColumnWidth=100
 WatchShowColumnHeaders=1
 Create=1
-Visible=1
+Visible=0
 State=0
 Left=146
 Top=563
@ -131,7 +45,7 @@ Dockable=1

 [Breakpoints]
 Count=1
-Breakpoint0='C:\Codigo\Empresas\ElegirEmpresa.pas',72,'',0,1,'',1,0,0,'',1,'','',''
+Breakpoint0='C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',387,'',0,1,'',1,0,0,'',1,'','',''

 [AddressBreakpoints]
 Count=0
@ -142,13 +56,13 @@ Visible=1
 State=2
 Left=0
 Top=0
-Width=1676
+Width=640
 Height=112
 MaxLeft=-1
 MaxTop=-1
-MaxWidth=1684
+MaxWidth=1680
 MaxHeight=112
-ClientWidth=1676
+ClientWidth=1672
 ClientHeight=78

 [ProjectManager]
@ -188,7 +102,7 @@ Create=1
 Visible=0
 State=0
 Left=5
-Top=7
+Top=5
 Width=638
 Height=444
 MaxLeft=-1
@ -230,7 +144,7 @@ LRDockWidth=317
 Dockable=1
 SplitPos=201
 ArrangeBy=Name
-SelectedItem=BarraExtra
+SelectedItem=
 ExpandedItems=ActiveTranslateStringEngine,Anchors,AppStorage,BevelEdges,Brush,Constraints,DataBinding,DataController,DataController.Filter,DataController.Options,DataController.Summary,DataController.Summary.Options,Filtering,HTTPOptions,LookAndFeel.AssignedValues,NavigatorButtons.Cancel,NavigatorButtons.Delete,NavigatorButtons.Edit,Options,OptionsBehavior,OptionsData,OptionsSelection,OptionsView,Preview,Properties,Properties.Alignment,Properties.SpinButtons,StorageOptions,Style,Styles,VertScrollBar
 HiddenCategories=

@ -368,8 +282,8 @@ ShowChecked=1
 Create=1
 Visible=0
 State=0
-Left=363
-Top=263
+Left=417
+Top=365
 Width=457
 Height=250
 MaxLeft=-1
@ -416,38 +330,6 @@ TBDockHeight=195
 LRDockWidth=383
 Dockable=1

-[CodeExplorer@EditWindow0]
-Create=1
-Visible=1
-State=0
-Left=0
-Top=12
-Width=140
-Height=426
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=140
-ClientHeight=426
-TBDockHeight=305
-LRDockWidth=140
-Dockable=1
-
-[MessageView@EditWindow0]
-Create=1
-Visible=1
-State=0
-Left=12
-Top=0
-Width=1117
-Height=85
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1117
-ClientHeight=85
-TBDockHeight=85
-LRDockWidth=443
-Dockable=1
-
 [DockHosts]
 DockHostCount=1

--- a/Factuges.res
+++ b/Factuges.res
--- a/Gráficos/Barras.jpg
+++ b/Gráficos/Barras.jpg
--- a/Gráficos/Thumbs.db
+++ b/Gráficos/Thumbs.db
--- a/Gráficos/logotipo
+++ b/Gráficos/logotipo
--- a/Gráficos/logotipo-abeto-pie-de-hoja.jpg
+++ b/Gráficos/logotipo-abeto-pie-de-hoja.jpg
--- a/Informes/InformeAlbaranCliente.pas
+++ b/Informes/InformeAlbaranCliente.pas
@ -58,16 +58,10 @@ uses Literales, Mensajes;
 { TdmInformeFacturaProforma }

 constructor TdmInformeAlbaranCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
  inherited;
-  FConLogo := True;

-  i := EmpresaActiva.Restricciones.IndexOf(CTE_INFORMES_CONLOGO);
-  if i < 0  then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
-     
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
  if FConLogo then
    FNombreInforme := 'InformeAlbaranCliente(Con logo).frf'
  else
--- a/Informes/InformeBase.dfm
+++ b/Informes/InformeBase.dfm
@ -1,7 +1,7 @@
 object dmInformeBase: TdmInformeBase
  OldCreateOrder = False
-  Left = 840
-  Top = 410
+  Left = 845
+  Top = 400
  Height = 246
  Width = 321
  object FReport: TfrReport
--- a/Informes/InformeContratoCliente.dfm
+++ b/Informes/InformeContratoCliente.dfm
@ -1,7 +1,7 @@
 inherited dmInformeContratoCliente: TdmInformeContratoCliente
  OldCreateOrder = True
-  Left = 242
-  Top = 64
+  Left = 464
+  Top = 265
  Height = 416
  Width = 548
  inherited FReport: TfrReport
--- a/Informes/InformeContratoCliente.pas
+++ b/Informes/InformeContratoCliente.pas
@ -53,15 +53,9 @@ uses
 { TdmInformeContratoCliente }

 constructor TdmInformeContratoCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
  inherited;
-  FConLogo := True;
-
-  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
-
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);  
  FDocumento := TDocumento.Create('MCOCINA');
 end;

@ -174,7 +168,7 @@ begin
          with (Objeto as TfrMemoView), EmpresaActiva do
          begin
            Memo.Clear;
-            Memo.Add('CONFORME ' + Nombre);
+            Memo.Add('CONFORME ' + NombreComercial);
          end;
        end;

--- a/Informes/InformeFacturaCliente.dfm
+++ b/Informes/InformeFacturaCliente.dfm
@ -1,7 +1,7 @@
 inherited dmInformeFacturaCliente: TdmInformeFacturaCliente
  OldCreateOrder = True
-  Left = 572
-  Top = 306
+  Left = 569
+  Top = 300
  Width = 344
  inherited FReport: TfrReport
    Dataset = TablaCab
--- a/Informes/InformeFacturaCliente.pas
+++ b/Informes/InformeFacturaCliente.pas
@ -38,15 +38,10 @@ uses
 { TdmInformeFacturaCliente }

 constructor TdmInformeFacturaCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
  inherited;
-  FConLogo := True;
-
-  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
-     
+  
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
  if FConLogo then
    FNombreInforme := 'FacturaCliente(Con logo).frf'
  else
--- a/Informes/InformeHistorialFacturacionClientes.pas
+++ b/Informes/InformeHistorialFacturacionClientes.pas
@ -88,14 +88,14 @@ begin
    SQL.Add('COALESCE(C.CODIGOPOSTAL, FC.CODIGOPOSTAL) as CODIGOPOSTAL, ');
    SQL.Add('COALESCE(C.POBLACION, FC.POBLACION) as POBLACION ,');
    SQL.Add('COALESCE(C.PROVINCIA, FC.PROVINCIA) as PROVINCIA ,');    
-    SQL.Add('FC.IVA, FC.BASEIMPONIBLE AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
+    SQL.Add('FC.IVA, (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
    SQL.Add('from FACTURASCLIENTE FC left join sucursalescliente C');
    SQL.Add('on (FC.CODIGOCLIENTE = C.CODIGOCLIENTE) and (C.TIPO = ''P'')');
    SQL.Add('where FC.CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(FC.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FC.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and FC.BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
    SQL.Add('order by FC.NOMBRE, FC.FECHAFACTURA');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeHistorialFacturacionProveedores.pas
+++ b/Informes/InformeHistorialFacturacionProveedores.pas
@ -87,7 +87,7 @@ begin
    SQL.Add('COALESCE(P.CODIGOPOSTAL, FP.CODIGOPOSTAL) as CODIGOPOSTAL, ');
    SQL.Add('COALESCE(P.POBLACION, FP.POBLACION) as POBLACION ,');
    SQL.Add('COALESCE(P.PROVINCIA, FP.PROVINCIA) as PROVINCIA ,');
-    SQL.Add('FP.IVA, FP.BASEIMPONIBLE AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
+    SQL.Add('FP.IVA, (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
    SQL.Add('from FACTURASPROVEEDOR FP left join PROVEEDORES P');
    SQL.Add('on FP.CODIGOPROVEEDOR = P.CODIGO');
    SQL.Add('left join TIPOSFACTURAS TF');
@ -96,7 +96,7 @@ begin
    SQL.Add('and upper(FP.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FP.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and FP.BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
    SQL.Add('order by FP.NOMBRE, FP.FECHAFACTURA');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformePresupuestoCliente.dfm
+++ b/Informes/InformePresupuestoCliente.dfm
@ -1,7 +1,7 @@
 inherited dmInformePresupuestoCliente: TdmInformePresupuestoCliente
  OldCreateOrder = True
-  Left = 522
-  Top = 292
+  Left = 519
+  Top = 288
  Height = 416
  Width = 548
  inherited FReport: TfrReport
--- a/Informes/InformePresupuestoCliente.pas
+++ b/Informes/InformePresupuestoCliente.pas
@ -51,14 +51,9 @@ uses
 { TdmInformePresupuestoCliente }

 constructor TdmInformePresupuestoCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
  inherited;
-  FConLogo := True;
-
-  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
 end;

 procedure TdmInformePresupuestoCliente.ImprimirFinanciacion;
--- a/Informes/InformeResumenFacturacionClientes.pas
+++ b/Informes/InformeResumenFacturacionClientes.pas
@ -84,13 +84,13 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select NOMBRE, BASEIMPONIBLE AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
    SQL.Add('from FACTURASCLIENTE ');
    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
    SQL.Add('order by NOMBRE');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeResumenFacturacionProveedores.pas
+++ b/Informes/InformeResumenFacturacionProveedores.pas
@ -82,13 +82,13 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select NOMBRE, BASEIMPONIBLE AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
    SQL.Add('from FACTURASPROVEEDOR ');
    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
    SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
    SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
    if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
    SQL.Add('order by NOMBRE');
    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
    ParamByName('NOMBREINI').AsString := FNombreIni;
--- a/Informes/InformeTrimestralCompras.pas
+++ b/Informes/InformeTrimestralCompras.pas
@ -117,7 +117,7 @@ begin
    for i := 0 to ContAux do
    begin
      if i < FListaCodTiposOp.Count then
-        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then BASEIMPONIBLE else null end as OP' + IntToStr(i) + ', ')
+        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then (BASEIMPONIBLE - IMPORTEDESCUENTO) else null end as OP' + IntToStr(i) + ', ')
      else
        SQL.Add('0 as OP' + IntToStr(i) + ', ');
    end;
@ -147,7 +147,7 @@ begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
-    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM(F.BASEIMPONIBLE) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
+    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM((F.BASEIMPONIBLE - F.IMPORTEDESCUENTO)) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
    SQL.Add('from FACTURASPROVEEDOR F, TIPOSFACTURAS T');
    SQL.Add('where F.TIPOFACTURA = T.CODIGO');
    SQL.Add('and F.CODIGOEMPRESA = :CODIGOEMPRESA');
--- a/Informes/InformeTrimestralVentas.dfm
+++ b/Informes/InformeTrimestralVentas.dfm
@ -1,7 +1,7 @@
 inherited dmInformeTrimestralVentas: TdmInformeTrimestralVentas
  OldCreateOrder = True
-  Left = 719
-  Top = 180
+  Left = 715
+  Top = 174
  Width = 344
  inherited FReport: TfrReport
    Dataset = TablaCab
--- a/Informes/InformeTrimestralVentas.pas
+++ b/Informes/InformeTrimestralVentas.pas
@ -131,7 +131,7 @@ begin
    end;

    //Para que el importe total de cada factura sea de 4 decimales y el total salga con exactitud
-    SQL.Add('BASEIMPONIBLE + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
+    SQL.Add('BASEIMPONIBLE - coalesce(importedescuento,0) + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
    SQL.Add('from FACTURASCLIENTE FC, TIPOSFACTURAS TF ');
    SQL.Add('where TIPOFACTURA = TF.CODIGO ');
    SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA');
--- a/Libreria/Configuracion.dfm
+++ b/Libreria/Configuracion.dfm
--- a/Libreria/Constantes.pas
+++ b/Libreria/Constantes.pas
@ -52,7 +52,7 @@ resourcestring
 ////////////////////////////////////////////////////////////////////////////////
 // Comunes
 ////////////////////////////////////////////////////////////////////////////////
-  CTE_IVA_DEFECTO = '18';
+  CTE_IVA_DEFECTO = '16';


 ////////////////////////////////////////////////////////////////////////////////
--- a/Libreria/Literales.pas
+++ b/Libreria/Literales.pas
@ -25,23 +25,6 @@ unit Literales;

 interface

-const
-  CTE_COMPRAS = 'COMPRAS';
-  CTE_PROVEEDORES = 'PROVEEDORES';
-  CTE_FACTURAS_PROVEEDOR = 'FACTURAS_PROVEEDOR';
-  CTE_PAGOS_PROVEEDOR = 'PAGOS_PROVEEDOR';
-  CTE_VENTAS = 'VENTAS';
-  CTE_CLIENTES = 'CLIENTES';
-  CTE_PRESUPUESTOS = 'PRESUPUESTOS';
-  CTE_CONTRATOS = 'CONTRATOS';
-  CTE_ALBARANES = 'ALBARANES';
-  CTE_FACTURAS_CLIENTE = 'FACTURAS_CLIENTE';
-  CTE_PAGOS_CLIENTE = 'PAGOS_CLIENTE';
-  CTE_FACTURAS_PROFORMA = 'FACTURAS_PROFORMA';          
-  CTE_CONTABILIDAD = 'CONTABILIDAD';
-  CTE_INFORMES = 'INFORMES';
-  CTE_INFORMES_CONLOGO = 'INFORMES_SIEMPRE_CONLOGO';
-
 resourcestring
 ////////////////////////////////////////////////////////////////////////////////
 // Mensajes
--- a/Principal.pas
+++ b/Principal.pas
@ -31,6 +31,13 @@ uses
  am2000menuitem, am2000popupmenu, am2000, RdxBotones, RdxPaneles,
  RdxFrame, ActnList, FthImage, pngimage, am2000utils;

+const
+  CTE_FACTURAS_PROVEEDOR = 'FACTURAS_PROVEEDOR';
+  CTE_PAGOS_PROVEEDOR = 'PAGOS_PROVEEDOR';
+  CTE_VENTAS = 'VENTAS';
+  CTE_CONTABILIDAD = 'CONTABILIDAD';
+  CTE_INFORMES = 'INFORMES';
+
 type
  TfrPrincipal = class(TRdxFrame)
    BarraEstado: TStatusBar;
--- a/Proveedores/BarraProveedores.dfm
+++ b/Proveedores/BarraProveedores.dfm
@ -623,7 +623,6 @@ object frBarraProveedores: TfrBarraProveedores
      Caption = 'Proveedores'
      ImageIndex = 0
      OnExecute = actProveedoresExecute
-      OnUpdate = actProveedoresUpdate
    end
    object actFacturas: TAction
      Caption = 'Facturas de proveedores'
--- a/Proveedores/BarraProveedores.pas
+++ b/Proveedores/BarraProveedores.pas
@ -51,7 +51,6 @@ type
    procedure actPagosExecute(Sender: TObject);
    procedure actFacturasUpdate(Sender: TObject);
    procedure actPagosUpdate(Sender: TObject);
-    procedure actProveedoresUpdate(Sender: TObject);
  public
    constructor Create (AOwner: TComponent); override;
  end;
@ -63,7 +62,7 @@ implementation
 {$R *.DFM}
 uses
  RdxEmpresaActiva, Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion,
-  BaseDatos, Literales;
+  BaseDatos, Principal;

 constructor TfrBarraProveedores.Create (AOwner: TComponent);
 begin
@ -110,15 +109,4 @@ begin
     (Sender as TAction).Enabled := True;
 end;

-procedure TfrBarraProveedores.actProveedoresUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PROVEEDORES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
 end.
--- a/Proveedores/FacturaProveedor.dfm
+++ b/Proveedores/FacturaProveedor.dfm
@ -1508,14 +1508,12 @@ object frFacturaProveedor: TfrFacturaProveedor
          Width = 74
          Height = 13
          Caption = 'Descuento(%):'
-          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
-          Visible = False
        end
        object Label8: TLabel
          Left = 157
@ -1550,11 +1548,9 @@ object frFacturaProveedor: TfrFacturaProveedor
          Top = 38
          DataBinding.DataField = 'DESCUENTO'
          DataBinding.DataSource = dsFactura
-          Enabled = False
          ParentFont = False
          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
          TabOrder = 1
-          Visible = False
          Width = 57
        end
        object IVA: TcxDBTextEdit
--- a/Temp/FACTUGES.INI
+++ b/Temp/FACTUGES.INI
@ -1,6 +1,6 @@
 [BD]
-ABETO ARMARIOS SERVIDOR=localhost:C:\FactuGES (Abeto)\BD\abeto.gdb
+ABETO ARMARIOS SERVIDOR=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
 ABETO ARMARIOS DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
-ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo\bd\abeto.gdb
+ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo Abeto\bd\abeto.gdb
 ABETO ARMARIOS DAVID T=david:T:\Codigo Abeto\bd\abeto.gdb

--- a/Temp/Factuges.exe
+++ b/Temp/Factuges.exe
--- a/Temp/Informes/ContratoArmarios(Con
+++ b/Temp/Informes/ContratoArmarios(Con
--- a/Temp/Informes/ContratoArmarios.frf
+++ b/Temp/Informes/ContratoArmarios.frf
--- a/Temp/Informes/ContratoBano(Con
+++ b/Temp/Informes/ContratoBano(Con
--- a/Temp/Informes/ContratoBano.frf
+++ b/Temp/Informes/ContratoBano.frf
--- a/Temp/Informes/ContratoCliente(Con
+++ b/Temp/Informes/ContratoCliente(Con
--- a/Temp/Informes/ContratoCliente.frf
+++ b/Temp/Informes/ContratoCliente.frf
--- a/Temp/Informes/ContratoCocina(Con
+++ b/Temp/Informes/ContratoCocina(Con
--- a/Temp/Informes/ContratoCocina.frf
+++ b/Temp/Informes/ContratoCocina.frf
--- a/Temp/Informes/FacturaCliente(Con
+++ b/Temp/Informes/FacturaCliente(Con
--- a/Temp/Informes/FacturaCliente.frf
+++ b/Temp/Informes/FacturaCliente.frf
--- a/Temp/Informes/InformeAlbaranCliente(Con
+++ b/Temp/Informes/InformeAlbaranCliente(Con
--- a/Temp/Informes/InformeAlbaranCliente.frf
+++ b/Temp/Informes/InformeAlbaranCliente.frf
--- a/Temp/Informes/InformeFacturaProforma(Con
+++ b/Temp/Informes/InformeFacturaProforma(Con
--- a/Temp/Informes/InformeFacturaProforma.frf
+++ b/Temp/Informes/InformeFacturaProforma.frf
--- a/Temp/Informes/PresupuestoArmarios(Con
+++ b/Temp/Informes/PresupuestoArmarios(Con
--- a/Temp/Informes/PresupuestoArmarios.frf
+++ b/Temp/Informes/PresupuestoArmarios.frf
--- a/Temp/Informes/PresupuestoBano(Con
+++ b/Temp/Informes/PresupuestoBano(Con
--- a/Temp/Informes/PresupuestoBano.frf
+++ b/Temp/Informes/PresupuestoBano.frf
--- a/Temp/Informes/PresupuestoCliente(Con
+++ b/Temp/Informes/PresupuestoCliente(Con
--- a/Temp/Informes/PresupuestoCliente.frf
+++ b/Temp/Informes/PresupuestoCliente.frf
--- a/Temp/Informes/PresupuestoCocina(Con
+++ b/Temp/Informes/PresupuestoCocina(Con
--- a/Temp/Informes/PresupuestoCocina.frf
+++ b/Temp/Informes/PresupuestoCocina.frf
--- a/bd/ABETO.GDB
+++ b/bd/ABETO.GDB