Version 3.3.1 Se establecen pribilegios por empresa, modulo y apartado

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@54 0a814768-cfdd-9c42-8d01-223fcc10da9d
Se establecen pribilegios por empresa, modulo y apartado
2011-04-04 15:10:01 +00:00 · 2011-04-04 15:07:52 +00:00 · 2011-03-10 16:40:57 +00:00 · 2010-11-05 11:10:41 +00:00 · 2010-07-15 15:10:44 +00:00 · 2010-06-14 18:03:11 +00:00
74 changed files with 1374 additions and 652 deletions
--- a/BaseDatos/TablaContratos.dfm
+++ b/BaseDatos/TablaContratos.dfm
@ -1,7 +1,6 @@
 object dmTablaContratos: TdmTablaContratos
  OldCreateOrder = True
-  Left = 215
-  Top = 538
+  Top = 526
  Height = 200
-  Width = 741
+  Width = 640
 end
--- a/BaseDatos/TablaContratos.pas
+++ b/BaseDatos/TablaContratos.pas
@ -80,6 +80,8 @@ type
    ImporteDescuento : double;
    IVA : Integer;
    ImporteIVA : double;
+    Re : integer;
+    ImporteRe : double;
    ImporteTotal : double;
    Observaciones : string;
    PlazoEntrega : string;
@ -603,6 +605,18 @@ 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;
@ -806,6 +820,7 @@ begin
    Add('    BASEIMPONIBLE, DESCUENTO, ');
    Add('    IMPORTEDESCUENTO, ');
    Add('    IVA, IMPORTEIVA, ');
+    Add('    RE, IMPORTERE, ');    
    Add('    IMPORTETOTAL, ');
    Add('    OBSERVACIONES, PLAZOENTREGA, ');
    Add('    FORMAPAGO) ');
@ -821,6 +836,7 @@ begin
    Add('    :BASEIMPONIBLE, :DESCUENTO, ');
    Add('    :IMPORTEDESCUENTO, ');
    Add('    :IVA, :IMPORTEIVA, ');
+    Add('    :RE, :IMPORTERE, ');    
    Add('    :IMPORTETOTAL, ');
    Add('    :OBSERVACIONES, :PLAZOENTREGA, ');
    Add('    :FORMAPAGO) ');
@ -854,6 +870,8 @@ 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, ');
@ -966,6 +984,7 @@ begin
      Add('    BASEIMPONIBLE, DESCUENTO, ');
      Add('    IMPORTEDESCUENTO, ');
      Add('    IVA, IMPORTEIVA, ');
+      Add('    RE, IMPORTERE, ');
      Add('    IMPORTETOTAL, ');
      Add('    OBSERVACIONES, PLAZOENTREGA, ');
      Add('    FORMAPAGO) ');
@ -981,6 +1000,7 @@ begin
      Add('BASEIMPONIBLE,');
      Add('DESCUENTO, IMPORTEDESCUENTO,');
      Add('IVA, IMPORTEIVA,');
+      Add('RE, IMPORTERE,');      
      Add('IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, FORMAPAGO ');
      Add('from PRESUPUESTOSCLIENTE ');
      Add('where CODIGO = :CODIGO');
@ -1091,6 +1111,7 @@ begin
      Add('    BASEIMPONIBLE, DESCUENTO, ');
      Add('    IMPORTEDESCUENTO, ');
      Add('    IVA, IMPORTEIVA, ');
+      Add('    RE, IMPORTERE, ');      
      Add('    IMPORTETOTAL, ');
      Add('    OBSERVACIONES, PLAZOENTREGA, ');
      Add('    FORMAPAGO) ');
@ -1101,7 +1122,7 @@ begin
      Add('CALLE, NUMERO, PISO, CODIGOPOSTAL,');
      Add('POBLACION, PROVINCIA,');
      Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
+      Add('IVA, IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
      Add('FORMAPAGO from CONTRATOSCLIENTE ');
      Add('where CODIGO = :CODIGO');
    end;
@ -1666,6 +1687,8 @@ 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,7 +196,8 @@ begin
  with sqlGrid do
  begin
    Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL');
-    Add('from EMPRESAS order by CODIGO ');
+    Add('from EMPRESAS ');
+    Add('where CODIGO IN ( select CODIGOEMPRESA from PERMISOS_EMPRESAS where usuario = :USUARIO) order by CODIGO ');
  end;
 end;

@ -279,6 +280,8 @@ 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;
@ -289,6 +292,7 @@ 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 = 504
-  Top = 256
+  Left = 507
+  Top = 81
  Height = 408
  Width = 123
 end
--- a/BaseDatos/TablaPresupuestos.dfm
+++ b/BaseDatos/TablaPresupuestos.dfm
@ -1,7 +1,6 @@
 object dmTablaPresupuestos: TdmTablaPresupuestos
  OldCreateOrder = True
-  Left = 251
-  Top = 416
+  Top = 423
  Height = 200
-  Width = 741
+  Width = 640
 end
--- a/BaseDatos/TablaPresupuestos.pas
+++ b/BaseDatos/TablaPresupuestos.pas
@ -79,6 +79,8 @@ type
    ImporteDescuento : double;
    Iva : integer;
    ImporteIva : double;
+    Re : integer;
+    ImporteRe : double;
    ImporteTotal : double;
    VigenciaPresupuesto : TDateTime;
    PlazoEntrega : String;
@ -606,6 +608,18 @@ 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;
@ -760,7 +774,7 @@ begin
    Add('NUMERO, PISO, CODIGOPOSTAL, POBLACION, ');
    Add('PROVINCIA, TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, VENDEDOR, ');
    Add('BASEIMPONIBLE, DESCUENTO, ');
-    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, ');
+    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, RE, IMPORTERE, ');
    Add('IMPORTETOTAL, CODIGODOCUMENTO, VIGENCIAPRESUPUESTO, ');
    Add('OBSERVACIONES, PLAZOENTREGA, FORMAPAGO, DESGLOSES, AUMENTO) values (');
    Add(':CODIGO, :FECHAALTA, :USUARIO, ');
@ -770,7 +784,7 @@ begin
    Add(':PISO, :CODIGOPOSTAL, :POBLACION, ');
    Add(':PROVINCIA, :TELEFONO1, :TELEFONO2, :MOVIL1, :MOVIL2, :FAX, :PERSONACONTACTO, :VENDEDOR, ');
    Add(':BASEIMPONIBLE, :DESCUENTO, ');
-    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, ');
+    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :RE, :IMPORTERE,');
    Add(':IMPORTETOTAL, :CODIGODOCUMENTO, :VIGENCIAPRESUPUESTO, ');
    Add(':OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :DESGLOSES, :AUMENTO) ');
  end;
@ -803,6 +817,8 @@ 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, ');
@ -1072,7 +1088,7 @@ begin
      Add('OBSERVACIONES, VENDEDOR, ');
      Add('BASEIMPONIBLE, DESCUENTO, ');
      Add('IMPORTEDESCUENTO, IVA, ');
-      Add('IMPORTEIVA, IMPORTETOTAL, ');
+      Add('IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, ');
      Add('VIGENCIAPRESUPUESTO, PLAZOENTREGA, ');
      Add('FORMAPAGO, DESGLOSES, AUMENTO) ');
      Add('SELECT ''' + CodigoAux + ''', current_date, ');
@ -1087,7 +1103,7 @@ begin
      Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, ');
      Add('OBSERVACIONES, VENDEDOR, ');
      Add('BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA,');
+      Add('IVA, IMPORTEIVA, RE, IMPORTERE,');
      Add('IMPORTETOTAL, VIGENCIAPRESUPUESTO, PLAZOENTREGA, FORMAPAGO, ');
      Add('DESGLOSES, AUMENTO ');
      Add('from PRESUPUESTOSCLIENTE ');
@ -1386,6 +1402,8 @@ 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,16 +827,19 @@ 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'
@ -846,20 +849,24 @@ 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,6 +63,13 @@ 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;
@ -73,7 +80,7 @@ var
 implementation
 {$R *.DFM}
 uses
-  Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
+  RdxEmpresaActiva, Literales, Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
  InformeTrimestral, Entidades, FacturasProforma, ContratosClientes, Configuracion,
  AlbaranesClientes;

@ -125,4 +132,81 @@ 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 = 853
-  Height = 626
+  Width = 630
+  Height = 410
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frContratoCliente: TfrContratoCliente
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 853
+    Width = 630
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frContratoCliente: TfrContratoCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 526
-    Width = 853
+    Top = 310
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frContratoCliente: TfrContratoCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 576
-    Width = 853
+    Top = 360
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frContratoCliente: TfrContratoCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 853
-    Height = 504
+    Width = 630
+    Height = 288
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frContratoCliente: TfrContratoCliente
    object pnlFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 833
+      Width = 610
      Height = 79
      Align = alTop
      BevelOuter = bvNone
@ -529,8 +529,8 @@ object frContratoCliente: TfrContratoCliente
    object pnlPaginas: TRdxPanel
      Left = 10
      Top = 89
-      Width = 833
-      Height = 320
+      Width = 610
+      Height = 113
      Caption = ' '
      ParentColor = True
      ColorHighLight = 8623776
@ -541,8 +541,8 @@ object frContratoCliente: TfrContratoCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 833
-        Height = 320
+        Width = 610
+        Height = 113
        ActivePage = pagContenido
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1117,8 +1117,8 @@ object frContratoCliente: TfrContratoCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 825
-            Height = 292
+            Width = 602
+            Height = 85
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 5
@ -1128,7 +1128,7 @@ object frContratoCliente: TfrContratoCliente
            object pnlBarraContenido: TRdxPanel
              Left = 5
              Top = 31
-              Width = 815
+              Width = 592
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1246,8 +1246,8 @@ object frContratoCliente: TfrContratoCliente
            object gridDetalles: TcxGrid
              Left = 5
              Top = 57
-              Width = 815
-              Height = 153
+              Width = 592
+              Height = 193
              Align = alClient
              BevelInner = bvNone
              BevelKind = bkFlat
@ -1340,7 +1340,7 @@ object frContratoCliente: TfrContratoCliente
            object pnlBarraPropiedades: TRdxPanel
              Left = 5
              Top = 5
-              Width = 815
+              Width = 592
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1543,8 +1543,8 @@ object frContratoCliente: TfrContratoCliente
            end
            object pnlObservaciones: TRdxPanel
              Left = 5
-              Top = 210
-              Width = 815
+              Top = 3
+              Width = 592
              Height = 77
              Caption = ' '
              ParentColor = True
@ -1556,7 +1556,7 @@ object frContratoCliente: TfrContratoCliente
              object Label1: TLabel
                Left = 0
                Top = 0
-                Width = 815
+                Width = 592
                Height = 22
                Align = alTop
                AutoSize = False
@ -1578,7 +1578,7 @@ object frContratoCliente: TfrContratoCliente
                TabOrder = 0
                OnExit = ObservacionesExit
                Height = 55
-                Width = 815
+                Width = 592
              end
            end
          end
@ -1763,7 +1763,7 @@ object frContratoCliente: TfrContratoCliente
          object pnlFormasPago: TPanel
            Left = 0
            Top = 0
-            Width = 825
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1798,7 +1798,7 @@ object frContratoCliente: TfrContratoCliente
            object RdxPanel5: TPanel
              Left = 125
              Top = 0
-              Width = 700
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1818,14 +1818,14 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 680
+                Width = 457
              end
            end
          end
          object pnlPlazosEntrega: TPanel
            Left = 0
            Top = 100
-            Width = 825
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1860,7 +1860,7 @@ object frContratoCliente: TfrContratoCliente
            object Panel3: TPanel
              Left = 125
              Top = 0
-              Width = 700
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1880,14 +1880,14 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 680
+                Width = 457
              end
            end
          end
          object pnlNota: TPanel
            Left = 0
            Top = 200
-            Width = 825
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -1922,7 +1922,7 @@ object frContratoCliente: TfrContratoCliente
            object Panel5: TPanel
              Left = 125
              Top = 0
-              Width = 700
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -1942,7 +1942,7 @@ object frContratoCliente: TfrContratoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 680
+                Width = 457
              end
            end
          end
@ -2126,9 +2126,9 @@ object frContratoCliente: TfrContratoCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 409
-      Width = 833
-      Height = 85
+      Top = 202
+      Width = 610
+      Height = 76
      Align = alBottom
      BevelOuter = bvNone
      Color = 16383743
@ -2206,175 +2206,274 @@ object frContratoCliente: TfrContratoCliente
      TopIndent = 0
      URLColor = clBlue
      FullHeight = 38
-      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 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
+      object Panel1: TPanel
+        Left = 116
+        Top = 0
+        Width = 494
+        Height = 76
+        Align = alRight
+        BevelOuter = bvNone
+        BorderWidth = 5
+        ParentColor = True
        TabOrder = 0
-        Width = 57
+        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
      end
-      object IVA: TcxDBTextEdit
-        Left = 271
-        Top = 9
-        DataBinding.DataField = 'IVA'
-        DataBinding.DataSource = dsContrato
-        ParentFont = False
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+      object Panel6: TPanel
+        Left = 0
+        Top = 0
+        Width = 116
+        Height = 76
+        Align = alClient
+        Alignment = taLeftJustify
+        BevelOuter = bvNone
+        ParentColor = True
        TabOrder = 1
-        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
+        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
      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;
+  JvComCtrls, Dialogs, cxCheckBox;

 type
  TfrContratoCliente = class(TRdxFrameContratos)
@ -114,7 +114,6 @@ type
    FormasPago: TcxDBMemo;
    dsPropiedadesContrato: TDataSource;
    eDocumento: TLabel;
-    pnlImportes: TAdvPanel;
    cbxDocumento: TcxDBLookupComboBox;
    dsDocumentos: TDataSource;
    TablaDocumentos: TIBQuery;
@ -125,10 +124,6 @@ type
    TablaValores: TIBQuery;
    dsValores: TDataSource;
    dsPropiedades: TDataSource;
-    Label7: TLabel;
-    Descuento: TcxDBTextEdit;
-    Label8: TLabel;
-    IVA: TcxDBTextEdit;
    actAnadirPropiedad: TAction;
    actEliminarPropiedad: TAction;
    pnlBarraPropiedades: TRdxPanel;
@ -145,14 +140,6 @@ 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;
@ -190,6 +177,27 @@ 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);
@ -238,6 +246,7 @@ type
    procedure actAnadirPlanoUpdate(Sender: TObject);
    procedure tvPlanosDblClick(Sender: TObject);
    procedure JvTrackBar1Change(Sender: TObject);
+    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
  private
    FRootPlanos: Variant;
    FDirectorio: Variant;
@ -275,6 +284,7 @@ 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);
@ -365,6 +375,8 @@ 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
@ -421,7 +433,8 @@ begin

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

    cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad);
@ -525,6 +538,10 @@ 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
@ -592,6 +609,10 @@ 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
@ -655,6 +676,10 @@ 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;
@ -841,13 +866,16 @@ end;

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

-      ImporteDto := BaseImponible * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
-      ImporteTotal := BaseImponible - ImporteDto;
-      ImporteIVA := ImporteTotal * (TablaContratos.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := ImporteTotal + ImporteIVA;
+      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;

      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;
@ -1467,11 +1498,14 @@ 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
@ -1931,6 +1965,8 @@ end;

 procedure TfrContratoCliente.DesactivarEventosCampos;
 begin
+  cbRecargoEquivalencia.Properties.OnChange := NIL;
+  
  with TablaContratos do
  begin
    if FindField('CODIGOCLIENTE') <> NIL then
@ -1939,6 +1975,8 @@ 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
@ -2626,5 +2664,26 @@ 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 = 954
-  Height = 639
+  Width = 630
+  Height = 410
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frFacturaCliente: TfrFacturaCliente
  object Titulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 954
+    Width = 630
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frFacturaCliente: TfrFacturaCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 539
-    Width = 954
+    Top = 310
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frFacturaCliente: TfrFacturaCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 589
-    Width = 954
+    Top = 360
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frFacturaCliente: TfrFacturaCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 954
-    Height = 517
+    Width = 630
+    Height = 288
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frFacturaCliente: TfrFacturaCliente
    object pnlDatosFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 934
+      Width = 610
      Height = 121
      Align = alTop
      BevelOuter = bvNone
@ -593,8 +593,8 @@ object frFacturaCliente: TfrFacturaCliente
    object pnlGrid: TAdvPanel
      Left = 10
      Top = 131
-      Width = 934
-      Height = 300
+      Width = 610
+      Height = 71
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
@ -660,8 +660,8 @@ object frFacturaCliente: TfrFacturaCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 934
-        Height = 300
+        Width = 610
+        Height = 71
        ActivePage = pagCliente
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1236,8 +1236,8 @@ object frFacturaCliente: TfrFacturaCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 926
-            Height = 272
+            Width = 602
+            Height = 43
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1247,7 +1247,7 @@ object frFacturaCliente: TfrFacturaCliente
            object pnlBarraGrid: TRdxPanel
              Left = 10
              Top = 10
-              Width = 906
+              Width = 582
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1401,7 +1401,7 @@ object frFacturaCliente: TfrFacturaCliente
            object gridDetalles: TcxGrid
              Left = 10
              Top = 36
-              Width = 906
+              Width = 582
              Height = 226
              Align = alClient
              BevelInner = bvNone
@ -1435,6 +1435,7 @@ 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
@ -1447,6 +1448,7 @@ 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
@ -1462,7 +1464,7 @@ object frFacturaCliente: TfrFacturaCliente
            Left = 0
            Top = 0
            Width = 125
-            Height = 272
+            Height = 43
            Align = alLeft
            BevelOuter = bvNone
            Caption = ' '
@ -1487,8 +1489,8 @@ object frFacturaCliente: TfrFacturaCliente
          object RdxPanel5: TPanel
            Left = 125
            Top = 0
-            Width = 801
-            Height = 272
+            Width = 477
+            Height = 43
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -1506,8 +1508,8 @@ object frFacturaCliente: TfrFacturaCliente
              Properties.ScrollBars = ssVertical
              Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
              TabOrder = 0
-              Height = 252
-              Width = 781
+              Height = 23
+              Width = 457
            end
          end
        end
@ -1515,8 +1517,8 @@ object frFacturaCliente: TfrFacturaCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 431
-      Width = 934
+      Top = 202
+      Width = 610
      Height = 76
      Align = alBottom
      BevelOuter = bvNone
@ -1596,9 +1598,9 @@ object frFacturaCliente: TfrFacturaCliente
      URLColor = clBlue
      FullHeight = 38
      object Panel1: TPanel
-        Left = 500
+        Left = 116
        Top = 0
-        Width = 434
+        Width = 494
        Height = 76
        Align = alRight
        BevelOuter = bvNone
@ -1608,7 +1610,7 @@ object frFacturaCliente: TfrFacturaCliente
        object RdxPanel1: TRdxPanel
          Left = 5
          Top = 5
-          Width = 424
+          Width = 484
          Height = 66
          BorderStyle = bsSingle
          Caption = ' '
@ -1620,7 +1622,7 @@ object frFacturaCliente: TfrFacturaCliente
          TabOrder = 0
          UseDockManager = True
          object Label5: TLabel
-            Left = 52
+            Left = 135
            Top = 10
            Width = 70
            Height = 13
@ -1634,7 +1636,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label9: TLabel
-            Left = 332
+            Left = 400
            Top = 10
            Width = 77
            Height = 13
@ -1648,7 +1650,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label10: TLabel
-            Left = 145
+            Left = 29
            Top = 10
            Width = 76
            Height = 13
@ -1662,7 +1664,7 @@ object frFacturaCliente: TfrFacturaCliente
            ParentFont = False
          end
          object Label11: TLabel
-            Left = 238
+            Left = 234
            Top = 10
            Width = 73
            Height = 13
@ -1678,11 +1680,25 @@ object frFacturaCliente: TfrFacturaCliente
          object Shape2: TShape
            Left = 16
            Top = 29
-            Width = 394
+            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 = 12
+            Left = 95
            Top = 37
            TabStop = False
            AutoSize = False
@ -1698,7 +1714,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 110
          end
          object ImporteDescuento: TcxDBTextEdit
-            Left = 142
+            Left = 26
            Top = 37
            TabStop = False
            AutoSize = False
@ -1714,7 +1730,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 79
          end
          object ImporteIVA: TcxDBTextEdit
-            Left = 235
+            Left = 231
            Top = 37
            TabStop = False
            AutoSize = False
@ -1730,7 +1746,7 @@ object frFacturaCliente: TfrFacturaCliente
            Width = 76
          end
          object ImporteTotal: TcxDBTextEdit
-            Left = 312
+            Left = 380
            Top = 37
            TabStop = False
            AutoSize = False
@ -1752,12 +1768,28 @@ 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 = 500
+        Width = 116
        Height = 76
        Align = alClient
        Alignment = taLeftJustify
--- a/Clientes/FacturaCliente.pas
+++ b/Clientes/FacturaCliente.pas
@ -167,6 +167,8 @@ type
    cbxTrimestres: TcxComboBox;
    eTrimestreCerrado: TLabel;
    cbComisiones: TcxDBCheckBox;
+    Label4: TLabel;
+    ImporteRE: TcxDBTextEdit;
    procedure bCancelarClick(Sender: TObject);
    procedure bSalirClick(Sender: TObject);
    procedure bGuardarClick(Sender: TObject);
@ -740,6 +742,7 @@ end;

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

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

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

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

      TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
      TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;
--- a/Clientes/ImprimirFacturasCliente.dfm
+++ b/Clientes/ImprimirFacturasCliente.dfm
@ -205,60 +205,47 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
      object CodCliente: TcxTextEdit
        Left = 152
        Top = 58
-        Width = 113
-        Height = 21
+        ParentFont = False
        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
-        Width = 121
-        Height = 21
+        ParentFont = False
        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
-        Width = 121
-        Height = 21
+        ParentFont = False
        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
-        Width = 292
-        Height = 21
+        ParentFont = False
        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
-        Width = 113
-        Height = 21
+        ParentFont = False
        Properties.Buttons = <
          item
            Default = True
@ -310,11 +297,9 @@ 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 = 973
-  Height = 704
+  Width = 630
+  Height = 410
  Color = 16383743
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
@ -17,7 +17,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  object pnlTitulo: TRdxPanelTituloOperacion
    Left = 0
    Top = 0
-    Width = 973
+    Width = 630
    Height = 22
    Caption = ' '
    Color = 11590911
@ -30,8 +30,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  end
  object brSalir: TRdxBarraInferior
    Left = 0
-    Top = 604
-    Width = 973
+    Top = 310
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -111,8 +111,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  end
  object brGuardar: TRdxBarraInferior
    Left = 0
-    Top = 654
-    Width = 973
+    Top = 360
+    Width = 630
    Height = 50
    Caption = ' '
    ParentColor = True
@ -265,8 +265,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
  object pnlCuerpo: TPanel
    Left = 0
    Top = 22
-    Width = 973
-    Height = 582
+    Width = 630
+    Height = 288
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 10
@ -275,7 +275,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    object pnlFactura: TAdvPanel
      Left = 10
      Top = 10
-      Width = 953
+      Width = 610
      Height = 79
      Align = alTop
      BevelOuter = bvNone
@ -656,8 +656,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    object pnlPaginas: TRdxPanel
      Left = 10
      Top = 89
-      Width = 953
-      Height = 398
+      Width = 610
+      Height = 113
      Caption = ' '
      ParentColor = True
      ColorHighLight = 8623776
@ -668,8 +668,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
      object Paginas: TRdxPagesControl
        Left = 0
        Top = 0
-        Width = 953
-        Height = 398
+        Width = 610
+        Height = 113
        ActivePage = pagContenido
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
@ -1244,8 +1244,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object pnlGridArticulos: TPanel
            Left = 0
            Top = 0
-            Width = 945
-            Height = 352
+            Width = 602
+            Height = 67
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 5
@ -1255,7 +1255,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object pnlBarraContenido: TRdxPanel
              Left = 5
              Top = 31
-              Width = 935
+              Width = 592
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1373,8 +1373,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object gridDetalles: TcxGrid
              Left = 5
              Top = 57
-              Width = 935
-              Height = 223
+              Width = 592
+              Height = 232
              Align = alClient
              BevelInner = bvNone
              BevelKind = bkFlat
@ -1514,7 +1514,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object pnlBarraPropiedades: TRdxPanel
              Left = 5
              Top = 5
-              Width = 935
+              Width = 592
              Height = 26
              Caption = ' '
              ParentColor = True
@ -1752,8 +1752,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            end
            object pnlObservaciones: TRdxPanel
              Left = 5
-              Top = 280
-              Width = 935
+              Top = -5
+              Width = 592
              Height = 67
              Caption = ' '
              ParentColor = True
@ -1765,7 +1765,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              object Label1: TLabel
                Left = 0
                Top = 0
-                Width = 935
+                Width = 592
                Height = 25
                Align = alTop
                AutoSize = False
@ -1787,7 +1787,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                TabOrder = 0
                OnExit = ObservacionesExit
                Height = 42
-                Width = 935
+                Width = 592
              end
            end
          end
@ -1798,8 +1798,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object Panel1: TPanel
            Left = 0
            Top = 0
-            Width = 945
-            Height = 352
+            Width = 602
+            Height = 67
            Align = alClient
            BevelOuter = bvNone
            ParentColor = True
@ -1808,7 +1808,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              Left = 0
              Top = 0
              Width = 125
-              Height = 352
+              Height = 67
              Align = alLeft
              BevelOuter = bvNone
              Caption = ' '
@ -1833,8 +1833,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel7: TPanel
              Left = 125
              Top = 0
-              Width = 820
-              Height = 352
+              Width = 477
+              Height = 67
              Align = alClient
              BevelOuter = bvNone
              BorderWidth = 10
@ -1858,8 +1858,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                Style.IsFontAssigned = True
                TabOrder = 0
-                Height = 332
-                Width = 800
+                Height = 47
+                Width = 457
              end
            end
          end
@ -2042,7 +2042,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            Left = 0
            Top = 0
            Width = 125
-            Height = 352
+            Height = 67
            Align = alLeft
            BevelOuter = bvNone
            Caption = ' '
@ -2067,8 +2067,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object Panel13: TPanel
            Left = 125
            Top = 0
-            Width = 820
-            Height = 352
+            Width = 477
+            Height = 67
            Align = alClient
            BevelOuter = bvNone
            BorderWidth = 10
@ -2092,8 +2092,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
              Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
              Style.IsFontAssigned = True
              TabOrder = 0
-              Height = 332
-              Width = 800
+              Height = 47
+              Width = 457
            end
          end
        end
@ -2104,7 +2104,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
          object pnlFormasPago: TPanel
            Left = 0
            Top = 0
-            Width = 945
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2139,7 +2139,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object RdxPanel5: TPanel
              Left = 125
              Top = 0
-              Width = 820
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2159,14 +2159,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 800
+                Width = 457
              end
            end
          end
          object pnlPlazosEntrega: TPanel
            Left = 0
            Top = 100
-            Width = 945
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2201,7 +2201,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel3: TPanel
              Left = 125
              Top = 0
-              Width = 820
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2221,14 +2221,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 800
+                Width = 457
              end
            end
          end
          object pnlNota: TPanel
            Left = 0
            Top = 200
-            Width = 945
+            Width = 602
            Height = 100
            Align = alTop
            BevelOuter = bvNone
@ -2263,7 +2263,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
            object Panel5: TPanel
              Left = 125
              Top = 0
-              Width = 820
+              Width = 477
              Height = 100
              Align = alClient
              BevelOuter = bvNone
@ -2283,7 +2283,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                TabOrder = 0
                Height = 80
-                Width = 800
+                Width = 457
              end
            end
          end
@ -2624,9 +2624,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
    end
    object pnlImportes: TAdvPanel
      Left = 10
-      Top = 487
-      Width = 953
-      Height = 85
+      Top = 202
+      Width = 610
+      Height = 76
      Align = alBottom
      BevelOuter = bvNone
      Color = 16383743
@ -2704,175 +2704,274 @@ object frPresupuestoCliente: TfrPresupuestoCliente
      TopIndent = 0
      URLColor = clBlue
      FullHeight = 38
-      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 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
+      object Panel15: TPanel
+        Left = 116
+        Top = 0
+        Width = 494
+        Height = 76
+        Align = alRight
+        BevelOuter = bvNone
+        BorderWidth = 5
+        ParentColor = True
        TabOrder = 0
-        Width = 57
+        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
      end
-      object IVA: TcxDBTextEdit
-        Left = 271
-        Top = 9
-        DataBinding.DataField = 'IVA'
-        DataBinding.DataSource = dsPresupuesto
-        ParentFont = False
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+      object Panel16: TPanel
+        Left = 0
+        Top = 0
+        Width = 116
+        Height = 76
+        Align = alClient
+        Alignment = taLeftJustify
+        BevelOuter = bvNone
+        ParentColor = True
        TabOrder = 1
-        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
+        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
      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;
+  ToolWin, ImgList, cxCheckBox;

 type
  TfrPresupuestoCliente = class(TRdxFramePresupuestos)
@ -108,7 +108,6 @@ type
    FormasPago: TcxDBMemo;
    dsPropiedadesPresupuesto: TDataSource;
    eDocumento: TLabel;
-    pnlImportes: TAdvPanel;
    pagDesgloses: TTabSheet;
    pagDocumentos: TTabSheet;
    eVigencia: TLabel;
@ -123,10 +122,6 @@ type
    TablaValores: TIBQuery;
    dsValores: TDataSource;
    dsPropiedades: TDataSource;
-    Label7: TLabel;
-    Descuento: TcxDBTextEdit;
-    Label8: TLabel;
-    IVA: TcxDBTextEdit;
    actAnadirPropiedad: TAction;
    actEliminarPropiedad: TAction;
    pnlBarraPropiedades: TRdxPanel;
@ -143,14 +138,6 @@ 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;
@ -239,6 +226,27 @@ 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);
@ -302,6 +310,7 @@ type
    procedure actAnadirPlanoUpdate(Sender: TObject);
    procedure actEliminarTodoPropiedadExecute(Sender: TObject);
    procedure actEliminarTodoPropiedadUpdate(Sender: TObject);
+    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
  private
    FRootDocumentos: Variant;
    FRootPlanos: Variant;
@ -351,6 +360,7 @@ 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);
@ -442,6 +452,8 @@ 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
@ -499,6 +511,8 @@ 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);
@ -632,6 +646,9 @@ 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
@ -709,6 +726,10 @@ 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);
@ -771,6 +792,10 @@ 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;
@ -962,13 +987,16 @@ end;

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

-      ImporteDto := BaseImponible * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
-      ImporteTotal := BaseImponible - ImporteDto;
-      ImporteIVA := ImporteTotal * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := ImporteTotal + ImporteIVA;
+      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;

      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;
@ -1618,11 +1649,14 @@ 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
@ -2116,6 +2150,8 @@ end;

 procedure TfrPresupuestoCliente.DesactivarEventosCampos;
 begin
+  cbRecargoEquivalencia.Properties.OnChange := NIL;
+  
  with TablaPresupuestos do
  begin
    if FindField('CODIGOCLIENTE') <> NIL then
@ -2124,6 +2160,8 @@ 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
@ -3032,5 +3070,28 @@ 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,6 +99,7 @@ begin
    Database := BaseDatos;
    Transaction := Transaccion;
    SelectSQL.Assign(dmTablaEmpresas.sqlGrid);
+  	ParamByName('USUARIO').AsString := UpperCase(dmBaseDatos.Usuario);
    Prepare;
    EnableControls;
  end;
--- a/Factuges.cfg
+++ b/Factuges.cfg
@ -0,0 +1,45 @@
+-$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=2
-Release=4
+MinorVer=3
+Release=1
 Build=0
 Debug=0
 PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.2.4.0
+FileVersion=3.3.1.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=1.0.0.0
+ProductVersion=3.3.1.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,	"16"
+	Constantes_CTE_IVA_DEFECTO,	"18"
 	Constantes_DISPLAY_EUROS2,	"#,0.00 €"
 	Constantes_DISPLAY_EUROS4,	"#,0.0000 €"
 	Constantes_EDIT_EUROS2,	"0.00"
--- a/Factuges.dsk
+++ b/Factuges.dsk
@ -1,20 +1,40 @@
 [Closed Files]
-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
+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

 [Modules]
-Count=0
-EditWindowCount=0
+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

-[C:\Codigo Abeto\Factuges.dpr]
+[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
 FormState=0
 FormOnTop=0

@ -22,14 +42,80 @@ 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=0
+Count=2
+Watch0='EmpresaActiva.Restricciones.strings[1]',256,0,18,1,0,'Watches'
+Watch1='EmpresaActiva.Restricciones.strings[0]',256,0,18,1,0,'Watches'

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

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

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

 [ProjectManager]
@ -102,7 +188,7 @@ Create=1
 Visible=0
 State=0
 Left=5
-Top=5
+Top=7
 Width=638
 Height=444
 MaxLeft=-1
@ -144,7 +230,7 @@ LRDockWidth=317
 Dockable=1
 SplitPos=201
 ArrangeBy=Name
-SelectedItem=
+SelectedItem=BarraExtra
 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=

@ -282,8 +368,8 @@ ShowChecked=1
 Create=1
 Visible=0
 State=0
-Left=417
-Top=365
+Left=363
+Top=263
 Width=457
 Height=250
 MaxLeft=-1
@ -330,6 +416,38 @@ 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,10 +58,16 @@ uses Literales, Mensajes;
 { TdmInformeFacturaProforma }

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

-  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  i := EmpresaActiva.Restricciones.IndexOf(CTE_INFORMES_CONLOGO);
+  if i < 0  then
+     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 = 845
-  Top = 400
+  Left = 840
+  Top = 410
  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 = 464
-  Top = 265
+  Left = 242
+  Top = 64
  Height = 416
  Width = 548
  inherited FReport: TfrReport
--- a/Informes/InformeContratoCliente.pas
+++ b/Informes/InformeContratoCliente.pas
@ -53,9 +53,15 @@ uses
 { TdmInformeContratoCliente }

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

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

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

 constructor TdmInformeFacturaCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
  inherited;
-  
-  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  FConLogo := True;
+
+  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
+     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 - FC.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
+    SQL.Add('FC.IVA, FC.BASEIMPONIBLE 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 - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FC.BASEIMPONIBLE >= :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 - FP.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
+    SQL.Add('FP.IVA, FP.BASEIMPONIBLE 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 - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FP.BASEIMPONIBLE >= :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 = 519
-  Top = 288
+  Left = 522
+  Top = 292
  Height = 416
  Width = 548
  inherited FReport: TfrReport
--- a/Informes/InformePresupuestoCliente.pas
+++ b/Informes/InformePresupuestoCliente.pas
@ -51,9 +51,14 @@ uses
 { TdmInformePresupuestoCliente }

 constructor TdmInformePresupuestoCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
  inherited;
-  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
+  FConLogo := True;
+
+  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
+     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 - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE 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 - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :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 - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE 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 - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :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 - IMPORTEDESCUENTO) else null end as OP' + IntToStr(i) + ', ')
+        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then BASEIMPONIBLE 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 - F.IMPORTEDESCUENTO)) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
+    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM(F.BASEIMPONIBLE) 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 = 715
-  Top = 174
+  Left = 719
+  Top = 180
  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(importedescuento,0) + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
+    SQL.Add('BASEIMPONIBLE + 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 = '16';
+  CTE_IVA_DEFECTO = '18';


 ////////////////////////////////////////////////////////////////////////////////
--- a/Libreria/Literales.pas
+++ b/Libreria/Literales.pas
@ -25,6 +25,23 @@ 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,13 +31,6 @@ 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,6 +623,7 @@ 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,6 +51,7 @@ type
    procedure actPagosExecute(Sender: TObject);
    procedure actFacturasUpdate(Sender: TObject);
    procedure actPagosUpdate(Sender: TObject);
+    procedure actProveedoresUpdate(Sender: TObject);
  public
    constructor Create (AOwner: TComponent); override;
  end;
@ -62,7 +63,7 @@ implementation
 {$R *.DFM}
 uses
  RdxEmpresaActiva, Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion,
-  BaseDatos, Principal;
+  BaseDatos, Literales;

 constructor TfrBarraProveedores.Create (AOwner: TComponent);
 begin
@ -109,4 +110,15 @@ 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,12 +1508,14 @@ 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
@ -1548,9 +1550,11 @@ 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=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
+ABETO ARMARIOS SERVIDOR=localhost:C:\FactuGES (Abeto)\BD\abeto.gdb
 ABETO ARMARIOS DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
-ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo Abeto\bd\abeto.gdb
+ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo\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
Author	SHA1	Message	Date
roberto	5d8c06fe3c	Version 3.3.1 Se establecen pribilegios por empresa, modulo y apartado git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@54 0a814768-cfdd-9c42-8d01-223fcc10da9d	2011-04-04 15:10:01 +00:00
roberto	de74a296a4	Se establecen pribilegios por empresa, modulo y apartado git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@53 0a814768-cfdd-9c42-8d01-223fcc10da9d	2011-04-04 15:07:52 +00:00
roberto	a0551072ec	Se adapta base de datos y programa para poder establecer permisos de acceso a las empresas para cada usuario git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@51 0a814768-cfdd-9c42-8d01-223fcc10da9d	2011-03-10 16:40:57 +00:00
roberto	bc6f5e03f1	Se solicita el cambio de los informes para incluir el texto por defecto de la protección de datos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@50 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-11-05 11:10:41 +00:00
roberto	f6ca7a7d86	Se cambia para que las facturas de proveedor cojan el iva por defecto al 18 git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@49 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-07-15 15:10:44 +00:00
roberto	1a77d838f5	Se retocan los informes de facturas para que la base imponible no se falsee al descontar el descuento, ya no se debe hacer version 1.0.8 git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@48 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-06-14 18:03:11 +00:00
roberto	7f905a73f9	git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@47 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-04-13 15:12:14 +00:00
roberto	768a83ca2e	Se adapta para soportar recargo de equivalencia en presupuestos, contratos y facturas. git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@46 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-04-13 10:07:15 +00:00
roberto	80b4b87dcd	Se retoca el nforme porque la base es muy ancha git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@45 0a814768-cfdd-9c42-8d01-223fcc10da9d	2010-02-22 12:00:34 +00:00
roberto	711a749c5d	Adaptación para sobres git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@44 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-12-17 16:24:51 +00:00
roberto	6accaa906f	Adaptación para sobres git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@43 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-12-15 17:56:03 +00:00
david	fce5f10446	En los informes de contratos en la parte de 'CONFORME' de la empresa se debe poner el nombre real (ABETO DESIGN S.L.) git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@42 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-12-03 17:59:30 +00:00
david	ead3fe1fa0	Informes de presupuestos, contratos y facturas arreglados para cuando hay más de 1 hoja. git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@41 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-11-18 18:33:22 +00:00
roberto	668f6b1fe6	Se adapta el programa para que el usuario fabrica siempre saque los informes con logotipo y en tienda se pregunte git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@40 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-11-11 15:22:19 +00:00
roberto	52897f3f9b	Se añade en todos los informes con logo la marca de agua al final de la hoja con ABETO git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@39 0a814768-cfdd-9c42-8d01-223fcc10da9d	2009-11-03 17:18:52 +00:00