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

BaseDatos/TablaContratos.dfm

@@ -1,7 +1,6 @@
 object dmTablaContratos: TdmTablaContratos
   OldCreateOrder = True
-  Left = 215
+  Top = 526
-  Top = 538
   Height = 200
-  Width = 741
+  Width = 640
 end

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;

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;

BaseDatos/TablaFacturasCliente.dfm

@@ -1,7 +1,7 @@
 object dmTablaFacturasCliente: TdmTablaFacturasCliente
   OldCreateOrder = False
-  Left = 504
+  Left = 507
-  Top = 256
+  Top = 81
   Height = 408
   Width = 123
 end

BaseDatos/TablaPresupuestos.dfm

@@ -1,7 +1,6 @@
 object dmTablaPresupuestos: TdmTablaPresupuestos
   OldCreateOrder = True
-  Left = 251
+  Top = 423
-  Top = 416
   Height = 200
-  Width = 741
+  Width = 640
 end

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;

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

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.

Clientes/ContratoCliente.dfm

@@ -1,8 +1,8 @@
 object frContratoCliente: TfrContratoCliente
   Left = 0
   Top = 0
-  Width = 853
+  Width = 630
-  Height = 626
+  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
+    Top = 310
-    Width = 853
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frContratoCliente: TfrContratoCliente
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 576
+    Top = 360
-    Width = 853
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frContratoCliente: TfrContratoCliente
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 853
+    Width = 630
-    Height = 504
+    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
+      Width = 610
-      Height = 320
+      Height = 113
       Caption = ' '
       ParentColor = True
       ColorHighLight = 8623776
@@ -541,8 +541,8 @@ object frContratoCliente: TfrContratoCliente
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 833
+        Width = 610
-        Height = 320
+        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
+            Width = 602
-            Height = 292
+            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
+              Width = 592
-              Height = 153
+              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
+              Top = 3
-              Width = 815
+              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
+      Top = 202
-      Width = 833
+      Width = 610
-      Height = 85
+      Height = 76
       Align = alBottom
       BevelOuter = bvNone
       Color = 16383743
@@ -2206,175 +2206,274 @@ object frContratoCliente: TfrContratoCliente
       TopIndent = 0
       URLColor = clBlue
       FullHeight = 38
-      object Label7: TLabel
+      object Panel1: TPanel
-        Left = 66
+        Left = 116
-        Top = 13
+        Top = 0
-        Width = 74
+        Width = 494
-        Height = 13
+        Height = 76
-        Caption = 'Descuento(%):'
+        Align = alRight
-        Font.Charset = DEFAULT_CHARSET
+        BevelOuter = bvNone
-        Font.Color = clWindowText
+        BorderWidth = 5
-        Font.Height = -11
+        ParentColor = True
-        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
         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
+      object Panel6: TPanel
-        Left = 271
+        Left = 0
-        Top = 9
+        Top = 0
-        DataBinding.DataField = 'IVA'
+        Width = 116
-        DataBinding.DataSource = dsContrato
+        Height = 76
-        ParentFont = False
+        Align = alClient
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Alignment = taLeftJustify
+        BevelOuter = bvNone
+        ParentColor = True
         TabOrder = 1
-        Width = 57
+        object Label7: TLabel
-      end
+          Left = 8
-      object BaseImponible: TcxDBTextEdit
+          Top = 50
-        Left = 2
+          Width = 74
-        Top = 59
+          Height = 13
-        TabStop = False
+          Caption = 'Descuento(%):'
-        DataBinding.DataField = 'BASEIMPONIBLE'
+          Font.Charset = DEFAULT_CHARSET
-        DataBinding.DataSource = dsContrato
+          Font.Color = clWindowText
-        Properties.Alignment.Horz = taRightJustify
+          Font.Height = -11
-        Properties.AutoSelect = False
+          Font.Name = 'Tahoma'
-        Properties.ReadOnly = True
+          Font.Style = []
-        Style.BorderStyle = ebsNone
+          ParentFont = False
-        Style.Color = 15726583
+        end
-        Style.HotTrack = False
+        object Label8: TLabel
-        TabOrder = 2
+          Left = 157
-        Width = 90
+          Top = 50
-      end
+          Width = 40
-      object ImporteDescuento: TcxDBTextEdit
+          Height = 13
-        Left = 115
+          Alignment = taRightJustify
-        Top = 59
+          Caption = 'IVA(%):'
-        TabStop = False
+          Font.Charset = DEFAULT_CHARSET
-        DataBinding.DataField = 'IMPORTEDESCUENTO'
+          Font.Color = clWindowText
-        DataBinding.DataSource = dsContrato
+          Font.Height = -11
-        Properties.Alignment.Horz = taRightJustify
+          Font.Name = 'Tahoma'
-        Properties.AutoSelect = False
+          Font.Style = []
-        Properties.ReadOnly = True
+          ParentFont = False
-        Style.BorderStyle = ebsNone
+        end
-        Style.Color = 15726583
+        object cbRecargoEquivalencia: TcxCheckBox
-        Style.HotTrack = False
+          Left = 8
-        TabOrder = 3
+          Top = 14
-        Width = 90
+          Caption = 'Acogido al recargo de equivalencia'
-      end
+          ParentColor = False
-      object ImporteIVA: TcxDBTextEdit
+          ParentFont = False
-        Left = 211
+          Properties.NullStyle = nssUnchecked
-        Top = 59
+          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-        TabStop = False
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-        DataBinding.DataField = 'IMPORTEIVA'
+          TabOrder = 0
-        DataBinding.DataSource = dsContrato
+          Width = 193
-        Properties.Alignment.Horz = taRightJustify
+        end
-        Properties.AutoSelect = False
+        object Descuento: TcxDBTextEdit
-        Properties.ReadOnly = True
+          Left = 85
-        Style.BorderStyle = ebsNone
+          Top = 46
-        Style.Color = 15726583
+          DataBinding.DataField = 'DESCUENTO'
-        Style.HotTrack = False
+          DataBinding.DataSource = dsContrato
-        TabOrder = 4
+          ParentFont = False
-        Width = 90
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-      end
+          TabOrder = 1
-      object ImporteTotal: TcxDBTextEdit
+          Width = 57
-        Left = 325
+        end
-        Top = 59
+        object IVA: TcxDBTextEdit
-        TabStop = False
+          Left = 203
-        DataBinding.DataField = 'IMPORTETOTAL'
+          Top = 46
-        DataBinding.DataSource = dsContrato
+          DataBinding.DataField = 'IVA'
-        ParentFont = False
+          DataBinding.DataSource = dsContrato
-        Properties.Alignment.Horz = taRightJustify
+          ParentFont = False
-        Properties.AutoSelect = False
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        Properties.ReadOnly = True
+          TabOrder = 2
-        Style.BorderStyle = ebsNone
+          Width = 57
-        Style.Color = 15726583
+        end
-        Style.Font.Charset = DEFAULT_CHARSET
+        object RecargoEquivalencia: TcxDBTextEdit
-        Style.Font.Color = clWindowText
+          Left = 203
-        Style.Font.Height = -11
+          Top = 14
-        Style.Font.Name = 'Tahoma'
+          DataBinding.DataField = 'RE'
-        Style.Font.Style = [fsBold]
+          DataBinding.DataSource = dsContrato
-        Style.HotTrack = False
+          ParentFont = False
-        Style.IsFontAssigned = True
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 5
+          TabOrder = 3
-        Width = 90
+          Width = 57
+        end
       end
     end
   end

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,6 +433,7 @@ begin
 
     dmTablaContratos.InicializarTablaContratos(@TablaContratos);
     dmTablaContratos.InicializarTablaDetalles(@TablaDetallesMem);
+    cbRecargoEquivalencia.Properties.ReadOnly := False;
     
     ActivarEdicionGridDetalles(VistaDetalles);
 
@@ -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);
+      ImporteDto := ImporteNeto * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
-      ImporteTotal := BaseImponible - ImporteDto;
+      BaseImponible := ImporteNeto - ImporteDto;
-      ImporteIVA := ImporteTotal * (TablaContratos.FieldByName('IVA').AsFloat/100);
+
-      ImporteTotal := ImporteTotal + ImporteIVA;
+      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.
 

Clientes/FacturaCliente.dfm

@@ -1,8 +1,8 @@
 object frFacturaCliente: TfrFacturaCliente
   Left = 0
   Top = 0
-  Width = 954
+  Width = 630
-  Height = 639
+  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
+    Top = 310
-    Width = 954
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frFacturaCliente: TfrFacturaCliente
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 589
+    Top = 360
-    Width = 954
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frFacturaCliente: TfrFacturaCliente
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 954
+    Width = 630
-    Height = 517
+    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
+      Width = 610
-      Height = 300
+      Height = 71
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 1
@@ -660,8 +660,8 @@ object frFacturaCliente: TfrFacturaCliente
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 934
+        Width = 610
-        Height = 300
+        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
+            Width = 602
-            Height = 272
+            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
+            Width = 477
-            Height = 272
+            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
+              Height = 23
-              Width = 781
+              Width = 457
             end
           end
         end
@@ -1515,8 +1517,8 @@ object frFacturaCliente: TfrFacturaCliente
     end
     object pnlImportes: TAdvPanel
       Left = 10
-      Top = 431
+      Top = 202
-      Width = 934
+      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

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

Clientes/FacturaProforma.dfm

@@ -1,8 +1,8 @@
 object frFacturaProforma: TfrFacturaProforma
   Left = 0
   Top = 0
-  Width = 736
+  Width = 630
-  Height = 643
+  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
+    Top = 310
-    Width = 736
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frFacturaProforma: TfrFacturaProforma
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 593
+    Top = 360
-    Width = 736
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frFacturaProforma: TfrFacturaProforma
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 736
+    Width = 630
-    Height = 521
+    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
+      Width = 610
-      Height = 304
+      Height = 71
       Align = alClient
       BevelOuter = bvNone
       TabOrder = 1
@@ -555,8 +555,8 @@ object frFacturaProforma: TfrFacturaProforma
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 716
+        Width = 610
-        Height = 304
+        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
+            Width = 602
-            Height = 276
+            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
+              Width = 582
-              Height = 228
+              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
+            Width = 477
-            Height = 276
+            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
+              Height = 23
-              Width = 563
+              Width = 457
             end
           end
         end
@@ -1360,8 +1360,8 @@ object frFacturaProforma: TfrFacturaProforma
     end
     object pnlImportes: TAdvPanel
       Left = 10
-      Top = 435
+      Top = 202
-      Width = 716
+      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

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

Clientes/ImprimirFacturasCliente.dfm

@@ -205,60 +205,47 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
       object CodCliente: TcxTextEdit
         Left = 152
         Top = 58
-        Width = 113
+        ParentFont = False
-        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 0
         Text = 'CodCliente'
+        Width = 113
       end
       object NIFCIF: TcxTextEdit
         Left = 323
         Top = 58
-        Width = 121
+        ParentFont = False
-        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Text = 'NIFCIF'
+        Width = 121
       end
       object FechaFactura: TcxTextEdit
         Left = 323
         Top = 34
-        Width = 121
+        ParentFont = False
-        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 2
         Text = 'FechaFactura'
+        Width = 121
       end
       object Nombre: TcxTextEdit
         Left = 152
         Top = 82
-        Width = 292
+        ParentFont = False
-        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 3
         Text = 'Nombre'
+        Width = 292
       end
       object Codigo: TcxButtonEdit
         Left = 152
         Top = 35
-        Width = 113
+        ParentFont = False
-        Height = 21
         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

Clientes/PresupuestoCliente.dfm

@@ -1,8 +1,8 @@
 object frPresupuestoCliente: TfrPresupuestoCliente
   Left = 0
   Top = 0
-  Width = 973
+  Width = 630
-  Height = 704
+  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
+    Top = 310
-    Width = 973
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 654
+    Top = 360
-    Width = 973
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 973
+    Width = 630
-    Height = 582
+    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
+      Width = 610
-      Height = 398
+      Height = 113
       Caption = ' '
       ParentColor = True
       ColorHighLight = 8623776
@@ -668,8 +668,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 953
+        Width = 610
-        Height = 398
+        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
+            Width = 602
-            Height = 352
+            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
+              Width = 592
-              Height = 223
+              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
+              Top = -5
-              Width = 935
+              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
+            Width = 602
-            Height = 352
+            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
+              Width = 477
-              Height = 352
+              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
+                Height = 47
-                Width = 800
+                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
+            Width = 477
-            Height = 352
+            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
+              Height = 47
-              Width = 800
+              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
+      Top = 202
-      Width = 953
+      Width = 610
-      Height = 85
+      Height = 76
       Align = alBottom
       BevelOuter = bvNone
       Color = 16383743
@@ -2704,175 +2704,274 @@ object frPresupuestoCliente: TfrPresupuestoCliente
       TopIndent = 0
       URLColor = clBlue
       FullHeight = 38
-      object Label7: TLabel
+      object Panel15: TPanel
-        Left = 66
+        Left = 116
-        Top = 13
+        Top = 0
-        Width = 74
+        Width = 494
-        Height = 13
+        Height = 76
-        Caption = 'Descuento(%):'
+        Align = alRight
-        Font.Charset = DEFAULT_CHARSET
+        BevelOuter = bvNone
-        Font.Color = clWindowText
+        BorderWidth = 5
-        Font.Height = -11
+        ParentColor = True
-        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
         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
+      object Panel16: TPanel
-        Left = 271
+        Left = 0
-        Top = 9
+        Top = 0
-        DataBinding.DataField = 'IVA'
+        Width = 116
-        DataBinding.DataSource = dsPresupuesto
+        Height = 76
-        ParentFont = False
+        Align = alClient
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Alignment = taLeftJustify
+        BevelOuter = bvNone
+        ParentColor = True
         TabOrder = 1
-        Width = 57
+        object Label8: TLabel
-      end
+          Left = 8
-      object BaseImponible: TcxDBTextEdit
+          Top = 50
-        Left = 2
+          Width = 74
-        Top = 59
+          Height = 13
-        TabStop = False
+          Caption = 'Descuento(%):'
-        DataBinding.DataField = 'BASEIMPONIBLE'
+          Font.Charset = DEFAULT_CHARSET
-        DataBinding.DataSource = dsPresupuesto
+          Font.Color = clWindowText
-        Properties.Alignment.Horz = taRightJustify
+          Font.Height = -11
-        Properties.AutoSelect = False
+          Font.Name = 'Tahoma'
-        Properties.ReadOnly = True
+          Font.Style = []
-        Style.BorderStyle = ebsNone
+          ParentFont = False
-        Style.Color = 15726583
+        end
-        Style.HotTrack = False
+        object Label12: TLabel
-        TabOrder = 2
+          Left = 157
-        Width = 90
+          Top = 50
-      end
+          Width = 40
-      object ImporteDescuento: TcxDBTextEdit
+          Height = 13
-        Left = 115
+          Alignment = taRightJustify
-        Top = 59
+          Caption = 'IVA(%):'
-        TabStop = False
+          Font.Charset = DEFAULT_CHARSET
-        DataBinding.DataField = 'IMPORTEDESCUENTO'
+          Font.Color = clWindowText
-        DataBinding.DataSource = dsPresupuesto
+          Font.Height = -11
-        Properties.Alignment.Horz = taRightJustify
+          Font.Name = 'Tahoma'
-        Properties.AutoSelect = False
+          Font.Style = []
-        Properties.ReadOnly = True
+          ParentFont = False
-        Style.BorderStyle = ebsNone
+        end
-        Style.Color = 15726583
+        object cbRecargoEquivalencia: TcxCheckBox
-        Style.HotTrack = False
+          Left = 8
-        TabOrder = 3
+          Top = 14
-        Width = 90
+          Caption = 'Acogido al recargo de equivalencia'
-      end
+          ParentColor = False
-      object ImporteIVA: TcxDBTextEdit
+          ParentFont = False
-        Left = 211
+          Properties.NullStyle = nssUnchecked
-        Top = 59
+          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-        TabStop = False
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-        DataBinding.DataField = 'IMPORTEIVA'
+          TabOrder = 0
-        DataBinding.DataSource = dsPresupuesto
+          Width = 193
-        Properties.Alignment.Horz = taRightJustify
+        end
-        Properties.AutoSelect = False
+        object Descuento: TcxDBTextEdit
-        Properties.ReadOnly = True
+          Left = 85
-        Style.BorderStyle = ebsNone
+          Top = 46
-        Style.Color = 15726583
+          DataBinding.DataField = 'DESCUENTO'
-        Style.HotTrack = False
+          DataBinding.DataSource = dsPresupuesto
-        TabOrder = 4
+          ParentFont = False
-        Width = 90
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-      end
+          TabOrder = 1
-      object ImporteTotal: TcxDBTextEdit
+          Width = 57
-        Left = 325
+        end
-        Top = 59
+        object IVA: TcxDBTextEdit
-        TabStop = False
+          Left = 203
-        DataBinding.DataField = 'IMPORTETOTAL'
+          Top = 46
-        DataBinding.DataSource = dsPresupuesto
+          DataBinding.DataField = 'IVA'
-        ParentFont = False
+          DataBinding.DataSource = dsPresupuesto
-        Properties.Alignment.Horz = taRightJustify
+          ParentFont = False
-        Properties.AutoSelect = False
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        Properties.ReadOnly = True
+          TabOrder = 2
-        Style.BorderStyle = ebsNone
+          Width = 57
-        Style.Color = 15726583
+        end
-        Style.Font.Charset = DEFAULT_CHARSET
+        object RecargoEquivalencia: TcxDBTextEdit
-        Style.Font.Color = clWindowText
+          Left = 203
-        Style.Font.Height = -11
+          Top = 14
-        Style.Font.Name = 'Tahoma'
+          DataBinding.DataField = 'RE'
-        Style.Font.Style = [fsBold]
+          DataBinding.DataSource = dsPresupuesto
-        Style.HotTrack = False
+          ParentFont = False
-        Style.IsFontAssigned = True
+          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 5
+          TabOrder = 3
-        Width = 90
+          Width = 57
+        end
       end
     end
   end

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

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;

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

Factuges.dof

@@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
-MinorVer=2
+MinorVer=3
-Release=4
+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.

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"

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_0=SourceModule,'C:\Codigo\Empresas\ElegirEmpresa.pas',0,1,86,70,102,1,0
-File_1=SourceModule,'C:\Codigo Abeto\Informes\InformePresupuestoCliente.pas',0,1,167,41,180,1,1
+File_1=SourceModule,'C:\Codigo\BaseDatos\TablaEmpresas.pas',0,1,187,96,200,1,0
-File_2=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,75,14,54,0,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:\Codigo Abeto\Empresas\Empresa.pas',0,1,823,56,847,1,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:\Codigo Abeto\Informes\InformeBaseFR3.pas',0,1,65,28,79,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 Abeto\Informes\InformePagoCliente.pas',0,1,84,37,98,0,0
+File_5=SourceModule,'C:\Codigo\Informes\InformePresupuestoCliente.pas',0,1,1,1,1,1,0
-File_6=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas',0,1,1873,1,1899,0,0
+File_6=SourceModule,'C:\Codigo Abeto\Clientes\FacturaCliente.pas',0,1,334,63,344,0,0
-File_7=SourceModule,'C:\Codigo Abeto\BaseDatos\BaseDatos.pas',0,1,163,14,171,0,0
+File_7=SourceModule,'C:\Codigo Abeto\Libreria\Constantes.pas',0,1,42,24,55,0,0
-File_8=SourceModule,'C:\Codigo Abeto\Libreria\RdxEmpresaActiva.pas',0,1,203,61,206,0,0
+File_8=SourceModule,'C:\Codigo Abeto\Proveedores\FacturaProveedor.pas',0,1,272,38,285,1,0
-File_9=SourceModule,'C:\Codigo Abeto\Proveedores\BarraProveedores.pas',0,1,1,23,65,1,0
+File_9=SourceModule,'C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas',0,1,140,65,150,0,0
 
 [Modules]
-Count=0
+Module0=C:\Codigo\Libreria\Literales.pas
-EditWindowCount=0
+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
+Left=363
-Top=365
+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
 

Informes/InformeAlbaranCliente.pas

@@ -58,10 +58,16 @@ uses Literales, Mensajes;
 { TdmInformeFacturaProforma }
 
 constructor TdmInformeAlbaranCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
   inherited;
+  FConLogo := True;
+
+  i := EmpresaActiva.Restricciones.IndexOf(CTE_INFORMES_CONLOGO);
+  if i < 0  then
+     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
      
-  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
   if FConLogo then
     FNombreInforme := 'InformeAlbaranCliente(Con logo).frf'
   else

Informes/InformeBase.dfm

@@ -1,7 +1,7 @@
 object dmInformeBase: TdmInformeBase
   OldCreateOrder = False
-  Left = 845
+  Left = 840
-  Top = 400
+  Top = 410
   Height = 246
   Width = 321
   object FReport: TfrReport

Informes/InformeContratoCliente.dfm

@@ -1,7 +1,7 @@
 inherited dmInformeContratoCliente: TdmInformeContratoCliente
   OldCreateOrder = True
-  Left = 464
+  Left = 242
-  Top = 265
+  Top = 64
   Height = 416
   Width = 548
   inherited FReport: TfrReport

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;
 

Informes/InformeFacturaCliente.dfm

@@ -1,7 +1,7 @@
 inherited dmInformeFacturaCliente: TdmInformeFacturaCliente
   OldCreateOrder = True
-  Left = 569
+  Left = 572
-  Top = 300
+  Top = 306
   Width = 344
   inherited FReport: TfrReport
     Dataset = TablaCab

Informes/InformeFacturaCliente.pas

@@ -38,10 +38,15 @@ uses
 { TdmInformeFacturaCliente }
 
 constructor TdmInformeFacturaCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
   inherited;
+  FConLogo := True;
+
+  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
+     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
      
-  FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
   if FConLogo then
     FNombreInforme := 'FacturaCliente(Con logo).frf'
   else

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;

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;

Informes/InformePresupuestoCliente.dfm

@@ -1,7 +1,7 @@
 inherited dmInformePresupuestoCliente: TdmInformePresupuestoCliente
   OldCreateOrder = True
-  Left = 519
+  Left = 522
-  Top = 288
+  Top = 292
   Height = 416
   Width = 548
   inherited FReport: TfrReport

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;

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;

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;

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');

Informes/InformeTrimestralVentas.dfm

@@ -1,7 +1,7 @@
 inherited dmInformeTrimestralVentas: TdmInformeTrimestralVentas
   OldCreateOrder = True
-  Left = 715
+  Left = 719
-  Top = 174
+  Top = 180
   Width = 344
   inherited FReport: TfrReport
     Dataset = TablaCab

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');

Libreria/Constantes.pas

@@ -52,7 +52,7 @@ resourcestring
 ////////////////////////////////////////////////////////////////////////////////
 // Comunes
 ////////////////////////////////////////////////////////////////////////////////
-  CTE_IVA_DEFECTO = '16';
+  CTE_IVA_DEFECTO = '18';
 
 
 ////////////////////////////////////////////////////////////////////////////////

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

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;

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'

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.

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

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