Se arreglan los informes para que la base imponible siempre sea (BASEIMPONIBLE - IMPORTEDESCUENTO)

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/tags/3.2.2@30 0a814768-cfdd-9c42-8d01-223fcc10da9d

BaseDatos/BaseDatos.dfm

@@ -1,7 +1,7 @@
 object dmBaseDatos: TdmBaseDatos
   OldCreateOrder = True
-  Left = 545
+  Left = 544
-  Top = 395
+  Top = 343
   Height = 235
   Width = 461
 end

BaseDatos/BaseDatos.pas

@@ -36,9 +36,8 @@ uses
   Entidades, Contadores, RdxGestorContadores;
 
 Const
-  CTE_PRIVILEGIO_TIENDA = 'TIENDA';
+  CTE_PRIVILEGIO_TOTAL = 'TOTAL';
-  CTE_PRIVILEGIO_TIENDAPARCIAL = 'TIENDAPARCIAL';
+  CTE_PRIVILEGIO_1 = 'PRIVILEGIO1';
-  CTE_PRIVILEGIO_FABRICA = 'FABRICA';
 
 ////////////////////////////////////////////////////////////////////////////////
 // COMUNES
@@ -160,7 +159,7 @@ type
     function DarUsuario : string;
     function GetRutaBD: String;
     function GetNombreServidor: String;
-    function validarUsuario: Boolean;
+    function validarPrivilegios: Boolean;
 
   public
     procedure Commit;
@@ -514,7 +513,7 @@ begin
       Screen.Cursor := crHourGlass;
       Connected := True;
       FTransaccionBD.StartTransaction;
-      if (ValidarUsuario) then
+      if (ValidarPrivilegios) then
       begin
         GestorContadores.BD := FBD;
         GestorContadores.Transaccion := FTransaccionBD;
@@ -595,10 +594,12 @@ begin
   end;
 end;
 
-function TdmBaseDatos.validarUsuario: Boolean;
+function TdmBaseDatos.validarPrivilegios: Boolean;
 var
   oSQL : TIBSQL;
 begin
+//Por si en un futuro se desea establecer una politica de privilegios de usuario
+//para cada EmpresaActiva.
   Result := False;
 
   oSQL := TIBSQL.Create(Self);
@@ -606,7 +607,7 @@ begin
   begin
     Database := dmBaseDatos.BD;
     Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('select usuario ');
+    SQL.Add('select perfil ');
     SQL.Add('from usuarios ');
     SQL.Add('where UPPER(usuario) = UPPER(:usuario) ');
     ParamByName('usuario').AsString := Usuario;
@@ -615,7 +616,10 @@ begin
       ExecQuery;
       // Compruebo si se han recuperado datos
       if (RecordCount > 0) then
+      begin
+         FPrivilegios := Fields[0].AsString;
          Result := True;
+      end;
     finally
       Close;
       Transaction := NIL;

BaseDatos/TablaContratos.dfm

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

BaseDatos/TablaContratos.pas

@@ -80,8 +80,6 @@ type
     ImporteDescuento : double;
     IVA : Integer;
     ImporteIVA : double;
-    Re : integer;
-    ImporteRe : double;
     ImporteTotal : double;
     Observaciones : string;
     PlazoEntrega : string;
@@ -605,18 +603,6 @@ begin
         EditFormat := EDIT_EUROS4;
       end;
 
-    if FindField('RE') <> NIL then
-      with (FieldByName('RE') as TFloatField) do begin
-        DisplayFormat := DISPLAY_DTO;
-        EditFormat := EDIT_DTO;
-      end;
-
-    if FindField('IMPORTERE') <> NIL then
-      with (FieldByName('IMPORTERE') as TIBBCDField) do begin
-        DisplayFormat := DISPLAY_EUROS2;
-        EditFormat := EDIT_EUROS2;
-      end;
-      
     if FindField('IMPORTETOTAL') <> NIL then
       with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
         DisplayFormat := DISPLAY_EUROS2;
@@ -820,7 +806,6 @@ begin
     Add('    BASEIMPONIBLE, DESCUENTO, ');
     Add('    IMPORTEDESCUENTO, ');
     Add('    IVA, IMPORTEIVA, ');
-    Add('    RE, IMPORTERE, ');    
     Add('    IMPORTETOTAL, ');
     Add('    OBSERVACIONES, PLAZOENTREGA, ');
     Add('    FORMAPAGO) ');
@@ -836,7 +821,6 @@ begin
     Add('    :BASEIMPONIBLE, :DESCUENTO, ');
     Add('    :IMPORTEDESCUENTO, ');
     Add('    :IVA, :IMPORTEIVA, ');
-    Add('    :RE, :IMPORTERE, ');    
     Add('    :IMPORTETOTAL, ');
     Add('    :OBSERVACIONES, :PLAZOENTREGA, ');
     Add('    :FORMAPAGO) ');
@@ -870,8 +854,6 @@ begin
     Add('      IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
     Add('      IVA = :IVA,         ');
     Add('      IMPORTEIVA = :IMPORTEIVA, ');
-    Add('      RE = :RE,         ');
-    Add('      IMPORTERE = :IMPORTERE, ');
     Add('      IMPORTETOTAL = :IMPORTETOTAL, ');
     Add('      OBSERVACIONES = :OBSERVACIONES, ');
     Add('      PLAZOENTREGA = :PLAZOENTREGA, ');
@@ -984,7 +966,6 @@ begin
       Add('    BASEIMPONIBLE, DESCUENTO, ');
       Add('    IMPORTEDESCUENTO, ');
       Add('    IVA, IMPORTEIVA, ');
-      Add('    RE, IMPORTERE, ');
       Add('    IMPORTETOTAL, ');
       Add('    OBSERVACIONES, PLAZOENTREGA, ');
       Add('    FORMAPAGO) ');
@@ -1000,7 +981,6 @@ begin
       Add('BASEIMPONIBLE,');
       Add('DESCUENTO, IMPORTEDESCUENTO,');
       Add('IVA, IMPORTEIVA,');
-      Add('RE, IMPORTERE,');      
       Add('IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, FORMAPAGO ');
       Add('from PRESUPUESTOSCLIENTE ');
       Add('where CODIGO = :CODIGO');
@@ -1111,7 +1091,6 @@ begin
       Add('    BASEIMPONIBLE, DESCUENTO, ');
       Add('    IMPORTEDESCUENTO, ');
       Add('    IVA, IMPORTEIVA, ');
-      Add('    RE, IMPORTERE, ');      
       Add('    IMPORTETOTAL, ');
       Add('    OBSERVACIONES, PLAZOENTREGA, ');
       Add('    FORMAPAGO) ');
@@ -1122,7 +1101,7 @@ begin
       Add('CALLE, NUMERO, PISO, CODIGOPOSTAL,');
       Add('POBLACION, PROVINCIA,');
       Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
+      Add('IVA, IMPORTEIVA, IMPORTETOTAL, OBSERVACIONES, PLAZOENTREGA, ');
       Add('FORMAPAGO from CONTRATOSCLIENTE ');
       Add('where CODIGO = :CODIGO');
     end;
@@ -1687,8 +1666,6 @@ begin
         ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
         Iva := FieldByName('IVA').AsInteger;
         ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
-        Re := FieldByName('RE').AsInteger;
-        ImporteRe := FieldByName('IMPORTERE').AsDouble;
         ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
         PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;
         FormaPago := FieldByName('FORMAPAGO').AsString;

BaseDatos/TablaEmpresas.pas

@@ -48,8 +48,6 @@ type
     Provincia : String;
     Telefono : String;
     Fax : String;
-    Correo : String;
-    Web: String;
     procedure SalvarDatos;
     procedure Eliminar;
   end;
@@ -70,10 +68,8 @@ type
   TDatosEmpresa = class(TObjeto)
   private
     FDirecciones : TListaDireccionesEmpresa;
-    FRestricciones: TStringList;
   protected
     procedure ObtenerDatos; override;
-    procedure ObtenerRestricciones;
   public
     Codigo : Integer;
     FechaAlta : String;
@@ -90,7 +86,6 @@ type
     LibroDefecto : String;
     Logotipo : TPicture;
     property Direcciones : TListaDireccionesEmpresa read FDirecciones;
-    property Restricciones : TStringList read FRestricciones;
     constructor Create; overload;
     constructor Create(CodigoEmpresa : Integer); overload;
     destructor Destroy; override;
@@ -121,7 +116,7 @@ implementation
 {$R *.DFM}
 
 uses
-  Literales, Dialogs;
+  Literales;
 
 constructor TdmTablaEmpresas.Create (AOwner : TComponent);
 begin
@@ -197,7 +192,6 @@ begin
   begin
     Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL');
     Add('from EMPRESAS ');
-    Add('where CODIGO IN ( select CODIGOEMPRESA from PERMISOS_EMPRESAS where usuario = :USUARIO) order by CODIGO ');
   end;
 end;
 
@@ -278,11 +272,6 @@ constructor TDatosEmpresa.Create(CodigoEmpresa: Integer);
 begin
   inherited Create;
   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;
 end;
@@ -291,8 +280,6 @@ constructor TDatosEmpresa.Create;
 begin
   inherited Create;
   FDirecciones := TListaDireccionesEmpresa.Create(Codigo);
-  FRestricciones := TStringList.Create;
-  FRestricciones.Sorted := true;  
 end;
 
 destructor TDatosEmpresa.Destroy;
@@ -302,13 +289,6 @@ begin
     FDirecciones.Free;
     FDirecciones := NIL;
   end;
-
-  if Assigned(FRestricciones) then
-  begin
-    FRestricciones.Free;
-    FRestricciones := NIL;
-  end;
-
   inherited;
 end;
 
@@ -369,38 +349,6 @@ begin
   end;
 end;
 
-procedure TDatosEmpresa.ObtenerRestricciones;
-var
-  oSQL : TIBQuery;
-begin
-  oSQL := TIBQuery.Create(dmTablaEmpresas);
-  with oSQL do
-  begin
-    Database := dmBaseDatos.BD;
-    Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('select RESTRICCION ');
-    SQL.Add('from PERMISOS ');
-    SQL.Add('where CODIGOEMPRESA = :codigo ');
-    SQL.Add('and UPPER(usuario) = UPPER(:usuario) ');
-    ParamByName('usuario').AsString := dmBaseDatos.Usuario;
-    ParamByName('codigo').AsInteger := Codigo;
-    try
-      Prepare;
-      Open;
-      // Compruebo si se han recuperado datos
-      while not Eof do
-      begin
-         FRestricciones.Add(FieldByName('RESTRICCION').AsString);
-         Next;
-      end;
-    finally
-      Close;
-      Transaction := NIL;
-      Free;
-    end;
-  end;
-end;
-
 { TDatosDireccionEmpresa }
 
 procedure TDatosDireccionEmpresa.Eliminar;
@@ -486,12 +434,12 @@ begin
         Add('insert into SUCURSALESEMPRESA ( ');
         Add('CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, ');
         Add('CALLE, NUMERO, CODIGOPOSTAL, POBLACION, ');
-        Add('PROVINCIA, TELEFONO, FAX, CORREO, WEB) ');
+        Add('PROVINCIA, TELEFONO, FAX) ');
         Add('values ( ');
         Add(':CODIGOEMPRESA, :CODIGO, CURRENT_DATE, ');
         Add('CURRENT_USER, :CALLE, :NUMERO, ');
         Add(':CODIGOPOSTAL, :POBLACION, :PROVINCIA, ');
-        Add(':TELEFONO, :FAX, :CORREO, :WEB) ');
+        Add(':TELEFONO, :FAX) ');
       end
       else begin
         Add('update SUCURSALESEMPRESA set ');
@@ -502,7 +450,6 @@ begin
         Add('PROVINCIA = :PROVINCIA, ');
         Add('TELEFONO = :TELEFONO, ');
         Add('FAX = :FAX ');
-        Add('CORREO = :CORREO ');
         Add('WHERE (CODIGOEMPRESA = :CODIGOEMPRESA) AND (CODIGO = :CODIGO) ');
       end;
     end;
@@ -515,8 +462,6 @@ begin
     ParamByName('PROVINCIA').AsString := Provincia;
     ParamByName('TELEFONO').AsString := Telefono;
     ParamByName('FAX').AsString := Fax;
-    ParamByName('CORREO').AsString := Correo;
-    ParamByName('WEB').AsString := Web;
 
     try
       Prepare;
@@ -563,7 +508,7 @@ begin
     Database := dmBaseDatos.BD;
     Transaction := dmBaseDatos.Transaccion;
     SQL.Add('select CODIGO, CALLE, NUMERO, CODIGOPOSTAL, POBLACION, ');
-    SQL.Add('PROVINCIA, TELEFONO, FAX, CORREO, WEB ');
+    SQL.Add('PROVINCIA, TELEFONO, FAX ');
     SQL.Add('from SUCURSALESEMPRESA ');
     SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
     SQL.Add('order by CODIGO');
@@ -588,8 +533,6 @@ begin
           Provincia := FieldByName('PROVINCIA').AsString;
           Telefono := FieldByName('TELEFONO').AsString;
           Fax := FieldByName('FAX').AsString;
-          Correo := FieldByName('CORREO').AsString;
-          Web := FieldByName('WEB').AsString;
         end;
         Add(FDireccion);
         Next;

BaseDatos/TablaFacturasCliente.dfm

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

BaseDatos/TablaFacturasCliente.pas

@@ -146,10 +146,8 @@ type
     function ValidarCodigo(Codigo : String) : Boolean;
     function FormatearCodigo(Codigo : String) : String;
 
-    function CrearFacturaContrato(CodigoContrato, TipoFactura: String) : String;
+    function CrearFactura(CodigoContrato, TipoFactura: String) : String;
-    function CrearFacturaAlbaran(CodigoAlbaran, TipoFactura: String) : String;
     function ExisteFacturaConContrato(CodigoContrato : String) : Boolean;
-    function ExisteFacturaConAlbaran(CodigoAlbaran : String) : Boolean;
     function ExisteFacturaConCliente(Codigo : Variant) : Boolean;
     function RecalcularPreciosFactura(CodigoFactura : String) : Boolean;
     function DarDatosFactura(Datos : TDatosFacturaCliente): Boolean;
@@ -537,12 +535,6 @@ begin
     Columna.Caption := 'Contrato';
     Columna.Width := tamColCodigo;
     Columna.Options.Filtering := False;
-    {Columna CODIGOALBARAN}
-    Columna := CreateColumn;
-    Columna.DataBinding.FieldName := 'CODIGOALBARAN';
-    Columna.Caption := 'Albarán';
-    Columna.Width := tamColCodigo;
-    Columna.Options.Filtering := False;
 
   end;
 end;
@@ -682,7 +674,7 @@ begin
     Add('select FAC.CODIGO, FAC.CLASEFACTURA, FAC.SITUACION, ');
     Add('FAC.FECHAALTA, FAC.FECHAFACTURA, FAC.CODIGOCLIENTE, FAC.NIFCIF, ');
     Add('FAC.NOMBRE, FAC.IMPORTETOTAL, FAC.CODIGODOCUMENTO, DOC.DESCRIPCION, ');
-    Add('FAC.CODIGOCONTRATO, FAC.CODIGOALBARAN ');
+    Add('FAC.CODIGOCONTRATO ');
     Add('from FACTURASCLIENTE FAC, DOCUMENTOS DOC ');
     Add('WHERE (FAC.CODIGOEMPRESA = :CODIGOEMPRESA) AND  ');
     Add('(DOC.CODIGO = FAC.CODIGODOCUMENTO)');
@@ -1625,7 +1617,7 @@ begin
   end;
 end;
 
-function TdmTablaFacturasCliente.CrearFacturaContrato(CodigoContrato, TipoFactura: String): String;
+function TdmTablaFacturasCliente.CrearFactura(CodigoContrato, TipoFactura: String): String;
 var
   oSQL : TIBSQL;
   oSQL2 : TIBSQL;
@@ -1870,35 +1862,6 @@ begin
   end;
 end;
 
-function TdmTablaFacturasCliente.ExisteFacturaConAlbaran(
-  CodigoAlbaran: String): Boolean;
-var
-  oSQL : TIBSQL;
-begin
-  Result := False;
-  oSQL := TIBSQL.Create(Self);
-  with oSQL do
-  begin
-    Database := dmBaseDatos.BD;
-    Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('select count(CODIGO) ');
-    SQL.Add('from FACTURASCLIENTE ');
-    SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
-    SQL.Add(' and CODIGOALBARAN = :CODIGOALBARAN');
-    ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-    ParamByName('CODIGOALBARAN').AsString := CodigoAlbaran;
-    try
-      Prepare;
-      ExecQuery;
-      Result := not (Fields[0].AsInteger = 0);
-    finally
-      Close;
-      Transaction := NIL;
-      Free;
-    end;
-  end;
-end;
-
 procedure TdmTablaFacturasCliente.InicializarGridFacturasCliContrato(var Grid: TcxGrid);
 var
   Columna : TcxGridDBColumn;
@@ -2221,103 +2184,4 @@ begin
   end;
 end;
 
-function TdmTablaFacturasCliente.CrearFacturaAlbaran(CodigoAlbaran, TipoFactura: String): String;
-var
-  oSQL : TIBSQL;
-  oSQL2 : TIBSQL;
-  CodigoAux : String;
-  CodigoEmpAux : Integer;
-  CodDoc : String;
-  Cadena : String;
-begin
-  Result := '';
-
-  CodigoAux := dmTablaFacturasCliente.DarNuevoCodigo;
-  CodigoEmpAux := EmpresaActiva.Codigo;
-
-  oSQL := TIBSQL.Create(Self);
-  try
-    with oSQL do
-    begin
-      Database := dmBaseDatos.BD;
-      Transaction := dmBaseDatos.Transaccion;
-
-      SQL.Add('insert into FACTURASCLIENTE (');
-      SQL.Add('CODIGOEMPRESA, CODIGO, FECHAALTA,');
-      SQL.Add('USUARIO, CODIGODOCUMENTO,');
-      SQL.Add('FECHAFACTURA, SITUACION, CLASEFACTURA, COMISION,');
-      SQL.Add('CODIGOCLIENTE, NIFCIF,');
-      SQL.Add('NOMBRE, CALLE,');
-      SQL.Add('NUMERO, PISO,');
-      SQL.Add('CODIGOPOSTAL, POBLACION,');
-      SQL.Add('PROVINCIA, PERSONACONTACTO,');
-      SQL.Add('OBSERVACIONES, FORMAPAGO, ');
-      SQL.Add('DESCUENTO, IVA,');
-      SQL.Add('BASEIMPONIBLE, IMPORTEDESCUENTO, ');
-      SQL.Add('IMPORTEIVA, IMPORTETOTAL, ');
-      SQL.Add('TIPOFACTURA, CODIGOTRIMESTRE, CODIGOALBARAN) ');
-      SQL.Add('select ' + IntToStr(CodigoEmpAux) + ', ''' + CodigoAux + ''', current_date,');
-      SQL.Add('''' + dmBaseDatos.Usuario + ''',  ''VARIOS'',');
-      SQL.Add('current_date, ''PENDIENTE'', ''' + TipoFactura + ''', 1,');
-      SQL.Add('CODIGOCLIENTE,');
-      SQL.Add('NIFCIF, NOMBRE,');
-      SQL.Add('CALLE, NUMERO,');
-      SQL.Add('PISO, CODIGOPOSTAL,');
-      SQL.Add('POBLACION, PROVINCIA,');
-      SQL.Add('PERSONACONTACTO, null, null, DESCUENTO, ' + EmpresaActiva.IvaDefecto + ', ');
-      if TipoFactura = CTE_CF_ABONO then
-        SQL.Add('BASEIMPONIBLE * (-1), IMPORTEDESCUENTO  * (-1), IMPORTEIVA  * (-1), IMPORTETOTAL  * (-1), ')
-      else
-        SQL.Add('BASEIMPONIBLE, IMPORTEDESCUENTO, IMPORTEIVA, IMPORTETOTAL, ');
-      SQL.Add(IntToStr(CTE_TIPFAC_VENTA) + ', ''' + EmpresaActiva.CodigoTrimestre + ''', ');
-      SQL.Add('''' + CODIGOALBARAN + ''' ');
-      SQL.Add('from ALBARANESCLIENTE ');
-      SQL.Add('where CODIGO = ''' + CodigoAlbaran + '''');
-
-      Prepare;
-      ExecQuery;
-      Close;
-    end;
-
-    oSQL2 := TIBSQL.Create(Self);
-    oSQL2.Database := dmBaseDatos.BD;
-    oSQL2.Transaction := dmBaseDatos.Transaccion;
-
-    // Insertar todos los registros
-    with oSQL2 do
-    begin
-      SQL.Add('insert into DETALLESFACTURASCLIARTICULOS (');
-      SQL.Add('CODIGOEMPRESA, CODIGOFACTURA, NUMCONCEPTO,');
-      SQL.Add('CODIGOARTICULO, REFERENCIA, ');
-      SQL.Add('DESCRIPCION, CANTIDAD,');
-      SQL.Add('IMPORTEUNIDAD, IMPORTETOTAL)');
-      SQL.Add('select ' + IntToStr(CodigoEmpAux) + ', ''' + CodigoAux + ''', NUMCONCEPTO,');
-      SQL.Add('CODIGOARTICULO, REFERENCIA, ');
-      SQL.Add('DESCRIPCION, CANTIDAD,');
-      if TipoFactura = CTE_CF_ABONO then
-        SQL.Add('IMPORTEUNIDAD * (-1), IMPORTETOTAL * (-1) ')
-      else
-        SQL.Add('IMPORTEUNIDAD, IMPORTETOTAL ');
-
-      SQL.Add('from DETALLESALBARANESCLIENTE ');
-      SQL.Add('where CODIGOALBARAN = :CODIGOALBARAN');
-      ParamByName('CODIGOALBARAN').AsString := CodigoAlbaran;
-      Prepare;
-      ExecQuery;
-    end;
-
-    RecalcularPreciosFactura(CodigoAux);
-    dmTablaFacturasCliente.IncrementarCodigo;
-    Result := CodigoAux;
-  finally
-    oSQL.Close;
-    oSQL.Transaction := NIL;
-    oSQL.Free;
-
-    oSQL2.Close;
-    oSQL2.Transaction := NIL;
-    oSQL2.Free;
-  end;
-end;
-
 end.

BaseDatos/TablaPresupuestos.dfm

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

BaseDatos/TablaPresupuestos.pas

@@ -79,8 +79,6 @@ type
     ImporteDescuento : double;
     Iva : integer;
     ImporteIva : double;
-    Re : integer;
-    ImporteRe : double;
     ImporteTotal : double;
     VigenciaPresupuesto : TDateTime;
     PlazoEntrega : String;
@@ -608,18 +606,6 @@ begin
         EditFormat := EDIT_EUROS4;
       end;
 
-    if FindField('RE') <> NIL then
-      with (FieldByName('RE') as TFloatField) do begin
-        DisplayFormat := DISPLAY_DTO;
-        EditFormat := EDIT_DTO;
-      end;
-
-    if FindField('IMPORTERE') <> NIL then
-      with (FieldByName('IMPORTERE') as TIBBCDField) do begin
-        DisplayFormat := DISPLAY_EUROS2;
-        EditFormat := EDIT_EUROS2;
-      end;
-      
     if FindField('IMPORTETOTAL') <> NIL then
       with (FieldByName('IMPORTETOTAL') as TIBBCDField) do begin
         DisplayFormat := DISPLAY_EUROS2;
@@ -774,7 +760,7 @@ begin
     Add('NUMERO, PISO, CODIGOPOSTAL, POBLACION, ');
     Add('PROVINCIA, TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, VENDEDOR, ');
     Add('BASEIMPONIBLE, DESCUENTO, ');
-    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, RE, IMPORTERE, ');
+    Add('IMPORTEDESCUENTO, IVA, IMPORTEIVA, ');
     Add('IMPORTETOTAL, CODIGODOCUMENTO, VIGENCIAPRESUPUESTO, ');
     Add('OBSERVACIONES, PLAZOENTREGA, FORMAPAGO, DESGLOSES, AUMENTO) values (');
     Add(':CODIGO, :FECHAALTA, :USUARIO, ');
@@ -784,7 +770,7 @@ begin
     Add(':PISO, :CODIGOPOSTAL, :POBLACION, ');
     Add(':PROVINCIA, :TELEFONO1, :TELEFONO2, :MOVIL1, :MOVIL2, :FAX, :PERSONACONTACTO, :VENDEDOR, ');
     Add(':BASEIMPONIBLE, :DESCUENTO, ');
-    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, :RE, :IMPORTERE,');
+    Add(':IMPORTEDESCUENTO, :IVA, :IMPORTEIVA, ');
     Add(':IMPORTETOTAL, :CODIGODOCUMENTO, :VIGENCIAPRESUPUESTO, ');
     Add(':OBSERVACIONES, :PLAZOENTREGA, :FORMAPAGO, :DESGLOSES, :AUMENTO) ');
   end;
@@ -817,8 +803,6 @@ begin
     Add('IMPORTEDESCUENTO = :IMPORTEDESCUENTO, ');
     Add('IVA = :IVA, ');
     Add('IMPORTEIVA = :IMPORTEIVA, ');
-    Add('RE = :RE, ');
-    Add('IMPORTERE = :IMPORTERE, ');
     Add('IMPORTETOTAL = :IMPORTETOTAL, ');
     Add('VIGENCIAPRESUPUESTO = :VIGENCIAPRESUPUESTO, ');
     Add('OBSERVACIONES = :OBSERVACIONES, ');
@@ -1088,7 +1072,7 @@ begin
       Add('OBSERVACIONES, VENDEDOR, ');
       Add('BASEIMPONIBLE, DESCUENTO, ');
       Add('IMPORTEDESCUENTO, IVA, ');
-      Add('IMPORTEIVA, RE, IMPORTERE, IMPORTETOTAL, ');
+      Add('IMPORTEIVA, IMPORTETOTAL, ');
       Add('VIGENCIAPRESUPUESTO, PLAZOENTREGA, ');
       Add('FORMAPAGO, DESGLOSES, AUMENTO) ');
       Add('SELECT ''' + CodigoAux + ''', current_date, ');
@@ -1103,7 +1087,7 @@ begin
       Add('TELEFONO1, TELEFONO2, MOVIL1, MOVIL2, FAX, PERSONACONTACTO, ');
       Add('OBSERVACIONES, VENDEDOR, ');
       Add('BASEIMPONIBLE, DESCUENTO, IMPORTEDESCUENTO,');
-      Add('IVA, IMPORTEIVA, RE, IMPORTERE,');
+      Add('IVA, IMPORTEIVA,');
       Add('IMPORTETOTAL, VIGENCIAPRESUPUESTO, PLAZOENTREGA, FORMAPAGO, ');
       Add('DESGLOSES, AUMENTO ');
       Add('from PRESUPUESTOSCLIENTE ');
@@ -1402,8 +1386,6 @@ begin
         ImporteDescuento := FieldByName('IMPORTEDESCUENTO').AsDouble;
         Iva := FieldByName('IVA').AsInteger;
         ImporteIva := FieldByName('IMPORTEIVA').AsDouble;
-        Re := FieldByName('RE').AsInteger;
-        ImporteRe := FieldByName('IMPORTERE').AsDouble;
         ImporteTotal := FieldByName('IMPORTETOTAL').AsDouble;
         VigenciaPresupuesto := FieldByName('VIGENCIAPRESUPUESTO').AsDateTime;
         PlazoEntrega := FieldByName('PLAZOENTREGA').AsString;

Clientes/AlbaranesClientes.dfm

@@ -671,15 +671,6 @@ object frAlbaranesClientes: TfrAlbaranesClientes
       TabOrder = 1
       UseDockManager = True
       Margen = 5
-      object Shape1: TShape
-        Left = 127
-        Top = 4
-        Width = 1
-        Height = 17
-        Brush.Style = bsClear
-        Pen.Color = 5594726
-        Pen.Style = psDot
-      end
       object bRefrescar: TRdxBoton
         Left = 4
         Top = 3
@@ -724,50 +715,6 @@ object frAlbaranesClientes: TfrAlbaranesClientes
         TabOrder = 0
         Spacing = 2
       end
-      object bFacturar: TRdxBoton
-        Left = 133
-        Top = 3
-        Width = 135
-        Height = 19
-        Action = actFacturarAlbaran
-        Alignment = taLeftJustify
-        Color = 15726583
-        ColorFocused = 12775679
-        ColorDown = 16383743
-        ColorBorder = 8623776
-        ColorHighLight = 5594726
-        ColorShadow = 5594726
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = 5594726
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = [fsBold]
-        FontDown.Charset = DEFAULT_CHARSET
-        FontDown.Color = 5594726
-        FontDown.Height = -11
-        FontDown.Name = 'Tahoma'
-        FontDown.Style = [fsBold]
-        FontDisabled.Charset = DEFAULT_CHARSET
-        FontDisabled.Color = clWindowText
-        FontDisabled.Height = -11
-        FontDisabled.Name = 'MS Sans Serif'
-        FontDisabled.Style = []
-        Glyph.Data = {
-          F6000000424DF600000000000000760000002800000010000000100000000100
-          04000000000080000000320B0000320B000010000000100000003D99A100FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-          FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111
-          1111100000000000000110000000000000011001111111111001100111111111
-          1001111111111001111111111111011011111111111101101111111110001001
-          1111111100000111111111110000011111111111000001111111111110001111
-          1111111111111111111111111111111111111111111111111111}
-        Margin = 3
-        ParentFont = False
-        ParentColor = False
-        TabStop = True
-        TabOrder = 1
-        Spacing = 2
-      end
     end
   end
   object dsAlbaranes: TDataSource
@@ -871,9 +818,5 @@ object frAlbaranesClientes: TfrAlbaranesClientes
       Caption = 'Refrescar datos'
       OnExecute = actRefrescarDatosExecute
     end
-    object actFacturarAlbaran: TAction
-      Caption = 'Facturar albar'#225'n'
-      OnExecute = actFacturarAlbaranExecute
-    end
   end
 end

Clientes/AlbaranesClientes.pas

@@ -82,9 +82,6 @@ type
     eNombre: TLabel;
     Buscar: TcxTextEdit;
     bLimpiar: TRdxBoton;
-    bFacturar: TRdxBoton;
-    Shape1: TShape;
-    actFacturarAlbaran: TAction;
     procedure RdxFrameAlbaranesClienteShow(Sender: TObject);
     procedure actImprimirExecute(Sender: TObject);
     procedure actAnadirExecute(Sender: TObject);
@@ -98,7 +95,6 @@ type
     procedure actRefrescarDatosExecute(Sender: TObject);
     procedure BuscarPropertiesChange(Sender: TObject);
     procedure bLimpiarClick(Sender: TObject);
-    procedure actFacturarAlbaranExecute(Sender: TObject);
   private
     procedure ActualizarBotones;
   protected
@@ -118,9 +114,8 @@ implementation
 {$R *.DFM}
 uses
   BaseDatos, IBDatabase, Literales, IBCustomDataSet, Mensajes, Entidades,
-  Variants, Constantes, FacturarAlbaran,
+  Variants, Constantes,
-  TablaEmpresas, TablaAlbaranesCliente, ImprimirAlbaranCliente, AlbaranCliente,
+  TablaEmpresas, TablaAlbaranesCliente, ImprimirAlbaranCliente, AlbaranCliente;
-  TablaFacturasCliente;
 
 procedure TfrAlbaranesClientes.BuscarAlbaran;
 begin
@@ -244,13 +239,6 @@ end;
 
 procedure TfrAlbaranesClientes.actEliminarExecute(Sender: TObject);
 begin
-  if dmTablaFacturasCliente.ExisteFacturaConAlbaran(
-    TablaAlbaranes.FieldByName('CODIGO').AsString) then
-  begin
-    VerMensaje('No se puede eliminar este albarán porque tiene al menos una factura de cliente relacionada.');
-    Exit;
-  end;
-
   Contenido := TfrAlbaranCliente.Create(Self);
   Contenido.Modo := Eliminar;
 end;
@@ -303,31 +291,4 @@ begin
   Buscar.Text := '';
 end;
 
-procedure TfrAlbaranesClientes.actFacturarAlbaranExecute(Sender: TObject);
-var
-  CodAux : String;
-begin
-  CodigoAlbaran := TablaAlbaranes.FieldByName('CODIGO').AsString;
-  frFacturarAlbaran := TfrFacturarAlbaran.Create(Self);
-  with frFacturarAlbaran do
-  begin
-    try
-      frFacturarAlbaran.CodigoAlbaran := Self.CodigoAlbaran;
-      ShowModal;
-
-      if ModalResult = mrYes then
-      begin
-        Commit;
-        VerMensajeFmt('La factura asociada a este albarán es %s.', [frFacturarAlbaran.CodigoFactura])
-      end
-      else begin
-        Rollback;
-        VerMensaje('No se ha podido facturar el albarán')
-      end;
-    finally
-      Free;
-    end;
-  end;
-end;
-
 end.

Clientes/BarraClientes.dfm

@@ -827,19 +827,16 @@ object frBarraClientes: TfrBarraClientes
       Caption = 'Clientes'
       ImageIndex = 0
       OnExecute = actClientesExecute
-      OnUpdate = actClientesUpdate
     end
     object actPresupuestos: TAction
       Caption = 'Presupuestos de clientes'
       ImageIndex = 1
       OnExecute = actPresupuestosExecute
-      OnUpdate = actPresupuestosUpdate
     end
     object actContratos: TAction
       Caption = 'Contratos de clientes'
       ImageIndex = 2
       OnExecute = actContratosExecute
-      OnUpdate = actContratosUpdate
     end
     object actObras: TAction
       Caption = 'Obras de clientes'
@@ -849,24 +846,20 @@ object frBarraClientes: TfrBarraClientes
       Caption = 'Facturas de clientes'
       ImageIndex = 2
       OnExecute = actFacturasExecute
-      OnUpdate = actFacturasUpdate
     end
     object actPagos: TAction
       Caption = 'Cobros de cliente'
       ImageIndex = 3
       OnExecute = actPagosExecute
-      OnUpdate = actPagosUpdate
     end
     object actFacturasP: TAction
       Caption = 'Facturas proforma'
       ImageIndex = 2
       OnExecute = actFacturasPExecute
-      OnUpdate = actFacturasPUpdate
     end
     object actAlbaranes: TAction
       Caption = 'Albaranes de cliente'
       OnExecute = actAlbaranesExecute
-      OnUpdate = actAlbaranesUpdate
     end
   end
 end

Clientes/BarraClientes.pas

@@ -63,13 +63,6 @@ type
     procedure actContratosExecute(Sender: TObject);
     procedure actObrasExecute(Sender: TObject);
     procedure actAlbaranesExecute(Sender: TObject);
-    procedure actClientesUpdate(Sender: TObject);
-    procedure actPresupuestosUpdate(Sender: TObject);
-    procedure actContratosUpdate(Sender: TObject);
-    procedure actFacturasUpdate(Sender: TObject);
-    procedure actPagosUpdate(Sender: TObject);
-    procedure actFacturasPUpdate(Sender: TObject);
-    procedure actAlbaranesUpdate(Sender: TObject);
   public
     constructor Create (AOwner: TComponent); override;
   end;
@@ -80,7 +73,7 @@ var
 implementation
 {$R *.DFM}
 uses
-  RdxEmpresaActiva, Literales, Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
+  Principal, Clientes, PresupuestosClientes, FacturasClientes, PagosClientes,
   InformeTrimestral, Entidades, FacturasProforma, ContratosClientes, Configuracion,
   AlbaranesClientes;
 
@@ -132,81 +125,4 @@ begin
   Contenido := TfrAlbaranesClientes.Create(Self);
 end;
 
-procedure TfrBarraClientes.actClientesUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_CLIENTES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actPresupuestosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PRESUPUESTOS, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actContratosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_CONTRATOS, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actFacturasUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_FACTURAS_CLIENTE, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actPagosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PAGOS_CLIENTE, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actFacturasPUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_FACTURAS_PROFORMA, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraClientes.actAlbaranesUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_ALBARANES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
 end.

Clientes/ContratoCliente.dfm

@@ -1,8 +1,8 @@
 object frContratoCliente: TfrContratoCliente
   Left = 0
   Top = 0
-  Width = 630
+  Width = 853
-  Height = 410
+  Height = 626
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,7 +17,7 @@ object frContratoCliente: TfrContratoCliente
   object pnlTitulo: TRdxPanelTituloOperacion
     Left = 0
     Top = 0
-    Width = 630
+    Width = 853
     Height = 22
     Caption = ' '
     Color = 11590911
@@ -30,8 +30,8 @@ object frContratoCliente: TfrContratoCliente
   end
   object brSalir: TRdxBarraInferior
     Left = 0
-    Top = 310
+    Top = 526
-    Width = 630
+    Width = 853
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frContratoCliente: TfrContratoCliente
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 360
+    Top = 576
-    Width = 630
+    Width = 853
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frContratoCliente: TfrContratoCliente
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 630
+    Width = 853
-    Height = 288
+    Height = 504
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -275,7 +275,7 @@ object frContratoCliente: TfrContratoCliente
     object pnlFactura: TAdvPanel
       Left = 10
       Top = 10
-      Width = 610
+      Width = 833
       Height = 79
       Align = alTop
       BevelOuter = bvNone
@@ -529,8 +529,8 @@ object frContratoCliente: TfrContratoCliente
     object pnlPaginas: TRdxPanel
       Left = 10
       Top = 89
-      Width = 610
+      Width = 833
-      Height = 113
+      Height = 320
       Caption = ' '
       ParentColor = True
       ColorHighLight = 8623776
@@ -541,8 +541,8 @@ object frContratoCliente: TfrContratoCliente
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 610
+        Width = 833
-        Height = 113
+        Height = 320
         ActivePage = pagContenido
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -1117,8 +1117,8 @@ object frContratoCliente: TfrContratoCliente
           object pnlGridArticulos: TPanel
             Left = 0
             Top = 0
-            Width = 602
+            Width = 825
-            Height = 85
+            Height = 292
             Align = alClient
             BevelOuter = bvNone
             BorderWidth = 5
@@ -1128,7 +1128,7 @@ object frContratoCliente: TfrContratoCliente
             object pnlBarraContenido: TRdxPanel
               Left = 5
               Top = 31
-              Width = 592
+              Width = 815
               Height = 26
               Caption = ' '
               ParentColor = True
@@ -1246,8 +1246,8 @@ object frContratoCliente: TfrContratoCliente
             object gridDetalles: TcxGrid
               Left = 5
               Top = 57
-              Width = 592
+              Width = 815
-              Height = 193
+              Height = 153
               Align = alClient
               BevelInner = bvNone
               BevelKind = bkFlat
@@ -1340,7 +1340,7 @@ object frContratoCliente: TfrContratoCliente
             object pnlBarraPropiedades: TRdxPanel
               Left = 5
               Top = 5
-              Width = 592
+              Width = 815
               Height = 26
               Caption = ' '
               ParentColor = True
@@ -1543,8 +1543,8 @@ object frContratoCliente: TfrContratoCliente
             end
             object pnlObservaciones: TRdxPanel
               Left = 5
-              Top = 3
+              Top = 210
-              Width = 592
+              Width = 815
               Height = 77
               Caption = ' '
               ParentColor = True
@@ -1556,7 +1556,7 @@ object frContratoCliente: TfrContratoCliente
               object Label1: TLabel
                 Left = 0
                 Top = 0
-                Width = 592
+                Width = 815
                 Height = 22
                 Align = alTop
                 AutoSize = False
@@ -1578,7 +1578,7 @@ object frContratoCliente: TfrContratoCliente
                 TabOrder = 0
                 OnExit = ObservacionesExit
                 Height = 55
-                Width = 592
+                Width = 815
               end
             end
           end
@@ -1763,7 +1763,7 @@ object frContratoCliente: TfrContratoCliente
           object pnlFormasPago: TPanel
             Left = 0
             Top = 0
-            Width = 602
+            Width = 825
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -1798,7 +1798,7 @@ object frContratoCliente: TfrContratoCliente
             object RdxPanel5: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 700
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -1818,14 +1818,14 @@ object frContratoCliente: TfrContratoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 680
               end
             end
           end
           object pnlPlazosEntrega: TPanel
             Left = 0
             Top = 100
-            Width = 602
+            Width = 825
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -1860,7 +1860,7 @@ object frContratoCliente: TfrContratoCliente
             object Panel3: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 700
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -1880,14 +1880,14 @@ object frContratoCliente: TfrContratoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 680
               end
             end
           end
           object pnlNota: TPanel
             Left = 0
             Top = 200
-            Width = 602
+            Width = 825
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -1922,7 +1922,7 @@ object frContratoCliente: TfrContratoCliente
             object Panel5: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 700
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -1942,7 +1942,7 @@ object frContratoCliente: TfrContratoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 680
               end
             end
           end
@@ -2126,9 +2126,9 @@ object frContratoCliente: TfrContratoCliente
     end
     object pnlImportes: TAdvPanel
       Left = 10
-      Top = 202
+      Top = 409
-      Width = 610
+      Width = 833
-      Height = 76
+      Height = 85
       Align = alBottom
       BevelOuter = bvNone
       Color = 16383743
@@ -2206,208 +2206,9 @@ object frContratoCliente: TfrContratoCliente
       TopIndent = 0
       URLColor = clBlue
       FullHeight = 38
-      object Panel1: TPanel
-        Left = 116
-        Top = 0
-        Width = 494
-        Height = 76
-        Align = alRight
-        BevelOuter = bvNone
-        BorderWidth = 5
-        ParentColor = True
-        TabOrder = 0
-        object RdxPanel1: TRdxPanel
-          Left = 5
-          Top = 5
-          Width = 484
-          Height = 66
-          BorderStyle = bsSingle
-          Caption = ' '
-          BorderWidth = 1
-          Color = 15726583
-          ColorHighLight = 8623776
-          ColorShadow = 8623776
-          Align = alClient
-          TabOrder = 0
-          UseDockManager = True
-          object Label5: TLabel
-            Left = 135
-            Top = 10
-            Width = 70
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Base imponible'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label9: TLabel
-            Left = 400
-            Top = 10
-            Width = 77
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe total'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = [fsBold]
-            ParentFont = False
-          end
-          object Label10: TLabel
-            Left = 29
-            Top = 10
-            Width = 76
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de dto.'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label11: TLabel
-            Left = 234
-            Top = 10
-            Width = 73
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de IVA'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Shape2: TShape
-            Left = 16
-            Top = 29
-            Width = 465
-            Height = 1
-          end
-          object Label4: TLabel
-            Left = 319
-            Top = 10
-            Width = 69
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de RE'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object BaseImponible: TcxDBTextEdit
-            Left = 95
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'BASEIMPONIBLE'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 0
-            Height = 21
-            Width = 110
-          end
-          object ImporteDescuento: TcxDBTextEdit
-            Left = 26
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEDESCUENTO'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 1
-            Height = 21
-            Width = 79
-          end
-          object ImporteIVA: TcxDBTextEdit
-            Left = 231
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTEIVA'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 2
-            Height = 21
-            Width = 76
-          end
-          object ImporteTotal: TcxDBTextEdit
-            Left = 380
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTETOTAL'
-            DataBinding.DataSource = dsContrato
-            ParentFont = False
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.Font.Charset = DEFAULT_CHARSET
-            Style.Font.Color = clWindowText
-            Style.Font.Height = -11
-            Style.Font.Name = 'Tahoma'
-            Style.Font.Style = [fsBold]
-            Style.HotTrack = False
-            Style.IsFontAssigned = True
-            TabOrder = 3
-            Height = 21
-            Width = 98
-          end
-          object ImporteRE: TcxDBTextEdit
-            Left = 312
-            Top = 37
-            TabStop = False
-            AutoSize = False
-            DataBinding.DataField = 'IMPORTERE'
-            DataBinding.DataSource = dsContrato
-            Properties.Alignment.Horz = taRightJustify
-            Properties.ReadOnly = True
-            Style.BorderStyle = ebsNone
-            Style.Color = 15726583
-            Style.HotTrack = False
-            TabOrder = 4
-            Height = 21
-            Width = 76
-          end
-        end
-      end
-      object Panel6: TPanel
-        Left = 0
-        Top = 0
-        Width = 116
-        Height = 76
-        Align = alClient
-        Alignment = taLeftJustify
-        BevelOuter = bvNone
-        ParentColor = True
-        TabOrder = 1
       object Label7: TLabel
-          Left = 8
+        Left = 66
-          Top = 50
+        Top = 13
         Width = 74
         Height = 13
         Caption = 'Descuento(%):'
@@ -2419,8 +2220,8 @@ object frContratoCliente: TfrContratoCliente
         ParentFont = False
       end
       object Label8: TLabel
-          Left = 157
+        Left = 228
-          Top = 50
+        Top = 13
         Width = 40
         Height = 13
         Alignment = taRightJustify
@@ -2432,48 +2233,148 @@ object frContratoCliente: TfrContratoCliente
         Font.Style = []
         ParentFont = False
       end
-        object cbRecargoEquivalencia: TcxCheckBox
+      object Label5: TLabel
-          Left = 8
+        Left = 22
-          Top = 14
+        Top = 39
-          Caption = 'Acogido al recargo de equivalencia'
+        Width = 70
-          ParentColor = False
+        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
-          Properties.NullStyle = nssUnchecked
-          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-          TabOrder = 0
-          Width = 193
       end
       object Descuento: TcxDBTextEdit
-          Left = 85
+        Left = 145
-          Top = 46
+        Top = 9
         DataBinding.DataField = 'DESCUENTO'
         DataBinding.DataSource = dsContrato
         ParentFont = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        TabOrder = 0
+        Width = 57
+      end
+      object IVA: TcxDBTextEdit
+        Left = 271
+        Top = 9
+        DataBinding.DataField = 'IVA'
+        DataBinding.DataSource = dsContrato
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Width = 57
       end
-        object IVA: TcxDBTextEdit
+      object BaseImponible: TcxDBTextEdit
-          Left = 203
+        Left = 2
-          Top = 46
+        Top = 59
-          DataBinding.DataField = 'IVA'
+        TabStop = False
+        DataBinding.DataField = 'BASEIMPONIBLE'
         DataBinding.DataSource = dsContrato
-          ParentFont = False
+        Properties.Alignment.Horz = taRightJustify
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
         TabOrder = 2
-          Width = 57
+        Width = 90
       end
-        object RecargoEquivalencia: TcxDBTextEdit
+      object ImporteDescuento: TcxDBTextEdit
-          Left = 203
+        Left = 115
-          Top = 14
+        Top = 59
-          DataBinding.DataField = 'RE'
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEDESCUENTO'
+        DataBinding.DataSource = dsContrato
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 3
+        Width = 90
+      end
+      object ImporteIVA: TcxDBTextEdit
+        Left = 211
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEIVA'
+        DataBinding.DataSource = dsContrato
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 4
+        Width = 90
+      end
+      object ImporteTotal: TcxDBTextEdit
+        Left = 325
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTETOTAL'
         DataBinding.DataSource = dsContrato
         ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Properties.Alignment.Horz = taRightJustify
-          TabOrder = 3
+        Properties.AutoSelect = False
-          Width = 57
+        Properties.ReadOnly = True
-        end
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.Font.Charset = DEFAULT_CHARSET
+        Style.Font.Color = clWindowText
+        Style.Font.Height = -11
+        Style.Font.Name = 'Tahoma'
+        Style.Font.Style = [fsBold]
+        Style.HotTrack = False
+        Style.IsFontAssigned = True
+        TabOrder = 5
+        Width = 90
       end
     end
   end

Clientes/ContratoCliente.pas

@@ -52,7 +52,7 @@ uses
   cxDBLookupEdit, cxDBLookupComboBox, TablaDocumentos, TablaPropiedades,
   RdxEmpresaActiva, am2000utils, cxCurrencyEdit, RXCtrls, Mask, dbcgrids,
   cxDataStorage, JvExForms, JvBaseThumbnail, JvThumbViews, JvExComCtrls,
-  JvComCtrls, Dialogs, cxCheckBox;
+  JvComCtrls, Dialogs;
 
 type
   TfrContratoCliente = class(TRdxFrameContratos)
@@ -114,6 +114,7 @@ type
     FormasPago: TcxDBMemo;
     dsPropiedadesContrato: TDataSource;
     eDocumento: TLabel;
+    pnlImportes: TAdvPanel;
     cbxDocumento: TcxDBLookupComboBox;
     dsDocumentos: TDataSource;
     TablaDocumentos: TIBQuery;
@@ -124,6 +125,10 @@ type
     TablaValores: TIBQuery;
     dsValores: TDataSource;
     dsPropiedades: TDataSource;
+    Label7: TLabel;
+    Descuento: TcxDBTextEdit;
+    Label8: TLabel;
+    IVA: TcxDBTextEdit;
     actAnadirPropiedad: TAction;
     actEliminarPropiedad: TAction;
     pnlBarraPropiedades: TRdxPanel;
@@ -140,6 +145,14 @@ type
     DBEdit1: TDBEdit;
     DBEdit2: TDBEdit;
     pnlGrid: TRdxPanel;
+    Label5: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label9: TLabel;
+    BaseImponible: TcxDBTextEdit;
+    ImporteDescuento: TcxDBTextEdit;
+    ImporteIVA: TcxDBTextEdit;
+    ImporteTotal: TcxDBTextEdit;
     eSeccion: TLabel;
     Seccion: TcxComboBox;
     pnlObservaciones: TRdxPanel;
@@ -177,27 +190,6 @@ type
     RdxBoton6: TRdxBoton;
     tvPlanos: TJvThumbView;
     OpenDialog1: TOpenDialog;
-    pnlImportes: TAdvPanel;
-    Panel1: TPanel;
-    RdxPanel1: TRdxPanel;
-    Label5: TLabel;
-    Label9: TLabel;
-    Label10: TLabel;
-    Label11: TLabel;
-    Shape2: TShape;
-    Label4: TLabel;
-    BaseImponible: TcxDBTextEdit;
-    ImporteDescuento: TcxDBTextEdit;
-    ImporteIVA: TcxDBTextEdit;
-    ImporteTotal: TcxDBTextEdit;
-    ImporteRE: TcxDBTextEdit;
-    Panel6: TPanel;
-    Label7: TLabel;
-    Label8: TLabel;
-    cbRecargoEquivalencia: TcxCheckBox;
-    Descuento: TcxDBTextEdit;
-    IVA: TcxDBTextEdit;
-    RecargoEquivalencia: TcxDBTextEdit;
     procedure bSalirClick(Sender: TObject);
     procedure bGuardarClick(Sender: TObject);
     procedure bCancelarClick(Sender: TObject);
@@ -246,7 +238,6 @@ type
     procedure actAnadirPlanoUpdate(Sender: TObject);
     procedure tvPlanosDblClick(Sender: TObject);
     procedure JvTrackBar1Change(Sender: TObject);
-    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
   private
     FRootPlanos: Variant;
     FDirectorio: Variant;
@@ -284,7 +275,6 @@ type
     procedure ProvinciaSetText(Sender: TField; const Text: String);
     procedure IVASetText(Sender: TField; const Text: String);
     procedure DtoSetText(Sender: TField; const Text: String);
-    procedure RESetText(Sender: TField; const Text: String);    
     procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
     procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);    
     procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@@ -375,8 +365,6 @@ begin
   CodCliente.Properties.Buttons[0].Visible := True;
   Poblacion.Properties.Buttons[0].Visible := True;
   Provincia.Properties.Buttons[0].Visible := True;
-  cbRecargoEquivalencia.Checked := False;
-  RecargoEquivalencia.Enabled := False;
 
   DesactivarEventosCampos;
   try
@@ -433,7 +421,6 @@ begin
 
     dmTablaContratos.InicializarTablaContratos(@TablaContratos);
     dmTablaContratos.InicializarTablaDetalles(@TablaDetallesMem);
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
 
     ActivarEdicionGridDetalles(VistaDetalles);
 
@@ -538,10 +525,6 @@ begin
         DeshabilitarPlanos;
     end;}
 
-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-
     FechaContrato.SetFocus;
   except
     on E : EIBError do
@@ -609,10 +592,6 @@ begin
         DeshabilitarPlanos;
     end;}
 
-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-
     Visible := True;
   except
     on E : EIBError do
@@ -676,10 +655,6 @@ begin
       end;
     end;
 
-    cbRecargoEquivalencia.Checked := TablaContratos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaContratos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-    
     ActivarEventosCampos;
     ConfigurarPantallaDocumento;
     Visible := True;
@@ -866,16 +841,13 @@ end;
 
 procedure TfrContratoCliente.CalcularTotalContrato;
 var
-  ImporteNeto,
   BaseImponible,
-  ImporteRE,
   ImporteIVA,
   ImporteDto,
   ImporteTotal : Double;
   FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
+  BaseImponible := 0;
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
   ImporteTotal := 0;
   with TablaDetallesMem do
   begin
@@ -884,22 +856,19 @@ begin
     try
       First;
       while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
         Next;
       end;
 
-      ImporteDto := ImporteNeto * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteDto := BaseImponible * (TablaContratos.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
+      ImporteTotal := BaseImponible - ImporteDto;
-
+      ImporteIVA := ImporteTotal * (TablaContratos.FieldByName('IVA').AsFloat/100);
-      ImporteRE := BaseImponible * (TablaContratos.FieldByName('RE').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA;
-      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;
@@ -1498,14 +1467,11 @@ end;
 
 procedure TfrContratoCliente.ActivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
-  
   with TablaContratos do
   begin
     FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
     FieldByName('IVA').OnSetText := IVASetText;
     FieldByName('DESCUENTO').OnSetText := DtoSetText;
-    FieldByName('RE').OnSetText := RESetText;    
   end;
 
   with TablaDetallesMem do
@@ -1965,8 +1931,6 @@ end;
 
 procedure TfrContratoCliente.DesactivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := NIL;
-  
   with TablaContratos do
   begin
     if FindField('CODIGOCLIENTE') <> NIL then
@@ -1975,8 +1939,6 @@ begin
       FieldByName('IVA').OnSetText := NIL;
     if FindField('DESCUENTO') <> NIL then
       FieldByName('DESCUENTO').OnSetText := NIL;
-    if FindField('RE') <> NIL then
-      FieldByName('RE').OnSetText := NIL;
   end;
 
   with TablaDetallesMem do
@@ -2664,26 +2626,5 @@ begin
   gridDetalles.SetFocus;
 end;
 
-procedure TfrContratoCliente.cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
-begin
-  RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
-  if not cbRecargoEquivalencia.Checked then
-  begin
-    RecargoEquivalencia.DataBinding.Field.Value := Null;
-    CalcularTotalContrato;
-  end;
-end;
-
-procedure TfrContratoCliente.RESetText(Sender: TField; const Text: String);
-begin
-  if EsCadenaVacia(Text) then
-    Sender.AsString := '0'
-  else begin
-    ValidarDto(Text);
-    Sender.AsString := Text;
-  end;
-  CalcularTotalContrato;
-end;
-
 end.
 

Clientes/FacturaCliente.dfm

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

Clientes/FacturaCliente.pas

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

Clientes/FacturaProforma.pas

@@ -137,8 +137,6 @@ type
     Descuento: TcxDBTextEdit;
     IVA: TcxDBTextEdit;
     RecargoEquivalencia: TcxDBTextEdit;
-    Label4: TLabel;
-    ImporteRE: TcxDBTextEdit;
     procedure bCancelarClick(Sender: TObject);
     procedure bSalirClick(Sender: TObject);
     procedure bGuardarClick(Sender: TObject);
@@ -646,7 +644,6 @@ end;
 
 procedure TfrFacturaProforma.CalcularTotalFactura;
 var
-  ImporteNeto,
   BaseImponible,
   ImporteRE,
   ImporteIVA,
@@ -654,8 +651,7 @@ var
   ImporteTotal : Double;
   FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
+  BaseImponible := 0;
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
   ImporteTotal := 0;
   with TablaDetallesMem do
   begin
@@ -664,16 +660,15 @@ begin
     try
       First;
       while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
         Next;
       end;
 
-      ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
-
       ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
-      ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
+      ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
-      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
+      ImporteTotal := BaseImponible - ImporteDto;
+      ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;
 
       TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
       TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;

Clientes/FacturarAlbaran.dfm

@@ -1,268 +0,0 @@
-object frFacturarAlbaran: TfrFacturarAlbaran
-  Left = 480
-  Top = 272
-  BorderStyle = bsDialog
-  Caption = 'Facturar albar'#225'n de cliente'
-  ClientHeight = 244
-  ClientWidth = 372
-  Color = 16383743
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'Tahoma'
-  Font.Style = []
-  OldCreateOrder = False
-  Position = poOwnerFormCenter
-  OnCreate = FormCreate
-  OnShow = FormShow
-  PixelsPerInch = 96
-  TextHeight = 13
-  object eTexto: TLabel
-    Left = 8
-    Top = 33
-    Width = 369
-    Height = 32
-    AutoSize = False
-    Caption = 
-      'Se va a crear una factura de cliente para el albar'#225'n %s. Elija q' +
-      'u'#233' tipo de factura desea:'
-    WordWrap = True
-  end
-  object eEmpresa: TLabel
-    Left = 32
-    Top = 161
-    Width = 305
-    Height = 32
-    AutoSize = False
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clRed
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = []
-    ParentFont = False
-    WordWrap = True
-  end
-  object RdxPanel1: TRdxPanel
-    Left = 32
-    Top = 72
-    Width = 309
-    Height = 81
-    BorderStyle = bsSingle
-    Caption = ' '
-    BorderWidth = 1
-    Color = 15726583
-    ColorHighLight = 8623776
-    ColorShadow = 8623776
-    TabOrder = 0
-    UseDockManager = True
-    object eCodigo: TLabel
-      Left = 45
-      Top = 31
-      Width = 77
-      Height = 13
-      Alignment = taRightJustify
-      Caption = 'Tipo de factura:'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      ParentFont = False
-    end
-    object cbxTipoFactura: TcxComboBox
-      Left = 124
-      Top = 27
-      ParentFont = False
-      Properties.DropDownListStyle = lsFixedList
-      Properties.Items.Strings = (
-        'Normal'
-        'Abono')
-      Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-      TabOrder = 0
-      Width = 121
-    end
-  end
-  object Titulo: TRdxBarraSuperior
-    Left = 0
-    Top = 0
-    Width = 372
-    Height = 25
-    Caption = 'Facturar albar'#225'n de cliente'
-    BorderWidth = 1
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = 11590911
-    Font.Height = -19
-    Font.Name = 'Tahoma'
-    Font.Style = [fsBold]
-    Color = 18299
-    ColorHighLight = 8623776
-    ColorShadow = 8623776
-    Align = alTop
-    Alignment = taRightJustify
-    TabOrder = 1
-    UseDockManager = True
-    Margen = 5
-  end
-  object brDoble: TRdxBarraInferior
-    Left = 0
-    Top = 194
-    Width = 372
-    Height = 50
-    Caption = ' '
-    ParentColor = True
-    ColorHighLight = 8623776
-    ColorShadow = clBtnFace
-    Align = alBottom
-    TabOrder = 2
-    UseDockManager = True
-    Margen = 10
-    object bAceptar: TRdxBoton
-      Left = 202
-      Top = 18
-      Width = 75
-      Height = 25
-      Alignment = taLeftJustify
-      Color = 14280169
-      ColorFocused = 12775679
-      ColorDown = 14280169
-      ColorBorder = 8623776
-      ColorHighLight = 8623776
-      ColorShadow = 8623776
-      GroupIndex = -1
-      Down = True
-      Caption = '&Aceptar'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      FontDown.Charset = DEFAULT_CHARSET
-      FontDown.Color = clWindowText
-      FontDown.Height = -11
-      FontDown.Name = 'Tahoma'
-      FontDown.Style = []
-      FontDisabled.Charset = DEFAULT_CHARSET
-      FontDisabled.Color = clWindowText
-      FontDisabled.Height = -11
-      FontDisabled.Name = 'MS Sans Serif'
-      FontDisabled.Style = []
-      Glyph.Data = {
-        36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FAFAFA00EBEBEB00E6E6E600EBEBEB00FAFA
-        FA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FAFAFA00DCDCDC00A8A8A80098989800A8A8A800DCDC
-        DC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FAFAFA00DCDCDC007DB90C0075AC0E0075AC0E0084848400A8A8
-        A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FAFAFA00DCDCDC007AB40D007DB90C0084C50B007DB90C0075AC0E009494
-        9400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FAFA
-        FA00DCDCDC007AB40D0071A6100084C50B0084C50B0087C90A0089CD09008484
-        8400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEB
-        EB007AB40D0071A6100084C50B008CD207007AB40D007DB90C0080BF0B0089CD
-        090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF007AB4
-        0D0071A6100092DB05008CD2070075AC0E00DCDCDC0080BF0B0084C50B0089CD
-        090084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF006EA1
-        110098E6030075AC0E006EA11100DCDCDC00FAFAFA00FFFFFF0084C50B0089CD
-        090089CD090094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00618D
-        130075AC0E0065921200EBEBEB00FAFAFA00FFFFFF00FFFFFF0087C90A008CD2
-        070084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008CD2
-        070092DB050087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0090D7
-        060092DB050084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF0096E3040098E6030087C90A0094949400D7D7D700FAFAFA00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF0096E304009AEA020084C50B0084848400A8A8A800EBEBEB00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF009AEA020092DB050084C50B00ADADAD00EBEBEB00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF0092DB05007AB40D0092DB0500EBEBEB00FAFAFA00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
-      Margin = 7
-      ParentFont = False
-      ParentColor = False
-      TabStop = True
-      TabOrder = 0
-      Spacing = 6
-      ModalResult = 6
-      OnClick = bAceptarClick
-    end
-    object bCancelar: TRdxBoton
-      Left = 287
-      Top = 18
-      Width = 75
-      Height = 25
-      Cancel = True
-      Alignment = taLeftJustify
-      Color = 14280169
-      ColorFocused = 12775679
-      ColorDown = 14280169
-      ColorBorder = 8623776
-      ColorHighLight = 8623776
-      ColorShadow = 8623776
-      GroupIndex = -1
-      Caption = '&Cancelar'
-      Font.Charset = DEFAULT_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -11
-      Font.Name = 'Tahoma'
-      Font.Style = []
-      FontDown.Charset = DEFAULT_CHARSET
-      FontDown.Color = clWindowText
-      FontDown.Height = -11
-      FontDown.Name = 'Tahoma'
-      FontDown.Style = []
-      FontDisabled.Charset = DEFAULT_CHARSET
-      FontDisabled.Color = clWindowText
-      FontDisabled.Height = -11
-      FontDisabled.Name = 'MS Sans Serif'
-      FontDisabled.Style = []
-      Glyph.Data = {
-        36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000000000000000000000000000000000000FFFFFF00FAFA
-        FA00EBEBEB00E6E6E600EBEBEB00FAFAFA00FFFFFF00FFFFFF00FAFAFA00EBEB
-        EB00EBEBEB00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00EBEB
-        EB00ADADAD0098989800ADADAD00EBEBEB00FFFFFF00FAFAFA00DCDCDC00A8A8
-        A800A8A8A800DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF001B1B
-        CB000807BE000807BE0094949400D7D7D700F5F5F500DCDCDC000505BC000505
-        BC0084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00393A
-        DF005F5FF8004B4CEA0084848400A3A3A300C8C8C8001313C5006867FD006B6B
-        FF002827D30098989800E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF004F4E
-        EC006363F9006A6AFE004343E500848484001313C5005B5BF5006A6AFE006A6A
-        FE003839DE0099999900E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00393A
-        DE005A5AF4005A5AF4006766FC004343E5005B5BF5006363F9006766FC005E5E
-        F700201FCD00A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00393ADE005251EE005454F0005F5EF7006363F9005555F1006363F9004A4B
-        E900201FCC00D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00393ADE004F4EEC005251EE005454F0006363F9004B4CEA00201F
-        CD0098989800E6E6E600FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF004A4BE9004242E4004A4BE9004A4BE9004B4CEA00201F
-        CD0094949400D7D7D700FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00FAFAFA004343E5003839DE004242E4004242E4004A4BE9004343
-        E50084848400A3A3A300DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00EBEBEB004F4EEC002D2DD6003637DC003839DE004242E4004242
-        E4001B1BCB0084848400A3A3A300DCDCDC00FAFAFA00FFFFFF00FFFFFF00FFFF
-        FF00FAFAFA003434DB003434DB002C2CD5003333DA003434DB003434DB003C3C
-        E0004242E4001313C50084848400A8A8A800EBEBEB00FFFFFF00FFFFFF00FFFF
-        FF00EBEBEB003434DB003333DA002222CF002827D300504FEC004242E4003434
-        DB003637DC003738DD001313C50099999900E6E6E600FFFFFF00FFFFFF00FFFF
-        FF005251EE00393ADF001B1BCB003434DB003C3CE000A8A8A8002D2DD5003C3C
-        E0003434DB004242E4001313C500ADADAD00EBEBEB00FFFFFF00FFFFFF00FFFF
-        FF00504FEC004343E5004343E5004343E5003434DA00DCDCDC00FAFAFA002222
-        CE00393ADE003D3DE0002D2DD500EBEBEB00FAFAFA00FFFFFF00FFFFFF00FFFF
-        FF00FFFFFF00504FED004B4CEA004B4CEA00EBEBEB00FAFAFA00FFFFFF00FFFF
-        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00}
-      Margin = 6
-      ParentFont = False
-      ParentColor = False
-      TabStop = True
-      TabOrder = 1
-      Spacing = 6
-      ModalResult = 2
-      OnClick = bCancelarClick
-    end
-  end
-end

Clientes/FacturarAlbaran.pas

@@ -1,112 +0,0 @@
-{
-===============================================================================
-  Copyright (©) 2002. Rodax Software.
-===============================================================================
-  Los contenidos de este fichero son propiedad de Rodax Software titular del
-  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
-  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
-  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
-  bajo el que se suministra.
-  -----------------------------------------------------------------------------
-  Web:  www.rodax-software.com
-===============================================================================
-  Fecha primera versión: 19-10-2009
-  Versión actual: 1.0.0
-  Fecha versión actual: 19-10-2009
-===============================================================================
-  Modificaciones:
-
-    Fecha         Comentarios
-    ---------------------------------------------------------------------------
-    19-10-2009    Se crea unidad para poder generar facturas de cliente a partir de los albaranes
-===============================================================================
-}
-
-unit FacturarAlbaran;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, cxControls, cxContainer, cxEdit, cxTextEdit, RdxEmpresaActiva,
-  cxMaskEdit, cxDropDownEdit, cxCalendar, RdxBarras, StdCtrls, ExtCtrls,
-  RdxPaneles, RdxBotones, ActnList, cxGraphics;
-
-type
-  TfrFacturarAlbaran = class(TForm)
-    RdxPanel1: TRdxPanel;
-    eTexto: TLabel;
-    Titulo: TRdxBarraSuperior;
-    eCodigo: TLabel;
-    brDoble: TRdxBarraInferior;
-    bAceptar: TRdxBoton;
-    bCancelar: TRdxBoton;
-    cbxTipoFactura: TcxComboBox;
-    eEmpresa: TLabel;
-    procedure FormCreate(Sender: TObject);
-    procedure bCancelarClick(Sender: TObject);
-    procedure bAceptarClick(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-  private
-    FCodigoAlbaran : String;
-    FCodigoFactura : String;
-    procedure SetCodigoAlbaran(const Value: String);
-  public
-    property CodigoAlbaran : String read FCodigoAlbaran write SetCodigoAlbaran;
-    property CodigoFactura : String read FCodigoFactura;
-  end;
-
-var
-  frFacturarAlbaran: TfrFacturarAlbaran;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  Mensajes, Literales, StrFunc, TablaFacturasCliente, Configuracion, Entidades,
-  Constantes;
-
-procedure TfrFacturarAlbaran.FormCreate(Sender: TObject);
-begin
-  ConfigurarFrame(Self, entContratoCliente);
-  FCodigoFactura := '';
-  cbxTipoFactura.Text := cbxTipoFactura.Properties.Items[0];
-end;
-
-procedure TfrFacturarAlbaran.bCancelarClick(Sender: TObject);
-begin
-  ModalResult := mrCancel;
-end;
-
-procedure TfrFacturarAlbaran.bAceptarClick(Sender: TObject);
-var
-  TipoAux : String;
-begin
-  if (not EsCadenaVacia(FCodigoAlbaran)) then
-  begin
-    if cbxTipoFactura.Text = 'Normal' then
-      TipoAux := CTE_CF_FACTURA
-    else
-      TipoAux := CTE_CF_ABONO;
-    FCodigoFactura := dmTablaFacturasCliente.CrearFacturaAlbaran(FCodigoAlbaran, TipoAux);
-  end;
-  if EsCadenaVacia(FCodigoFactura) then
-  begin
-    VerMensaje('No se ha podido crear la factura para el contrato');
-    ModalResult := mrNone;
-  end;
-end;
-
-procedure TfrFacturarAlbaran.SetCodigoAlbaran(const Value: String);
-begin
-  FCodigoAlbaran := Value;
-  eTexto.Caption := Format(eTexto.Caption, [FCodigoAlbaran]);
-end;
-
-procedure TfrFacturarAlbaran.FormShow(Sender: TObject);
-begin
-  eEmpresa.Caption := 'La factura se creará con la empresa ' + EmpresaActiva.NombreComercial + '. ';
-end;
-
-end.

Clientes/FacturarContrato.dfm

@@ -1,6 +1,6 @@
 object frFacturarContrato: TfrFacturarContrato
-  Left = 480
+  Left = 479
-  Top = 272
+  Top = 236
   BorderStyle = bsDialog
   Caption = 'Facturar contrato de cliente'
   ClientHeight = 244

Clientes/FacturarContrato.pas

@@ -89,7 +89,7 @@ begin
       TipoAux := CTE_CF_FACTURA
     else
       TipoAux := CTE_CF_ABONO;
-    FCodigoFactura := dmTablaFacturasCliente.CrearFacturaContrato(FCodigoContrato, TipoAux);
+    FCodigoFactura := dmTablaFacturasCliente.CrearFactura(FCodigoContrato, TipoAux);
   end;
   if EsCadenaVacia(FCodigoFactura) then
   begin

Clientes/ImprimirFacturasCliente.dfm

@@ -205,47 +205,60 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
       object CodCliente: TcxTextEdit
         Left = 152
         Top = 58
-        ParentFont = False
+        Width = 113
+        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 0
         Text = 'CodCliente'
-        Width = 113
       end
       object NIFCIF: TcxTextEdit
         Left = 323
         Top = 58
-        ParentFont = False
+        Width = 121
+        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Text = 'NIFCIF'
-        Width = 121
       end
       object FechaFactura: TcxTextEdit
         Left = 323
         Top = 34
-        ParentFont = False
+        Width = 121
+        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 2
         Text = 'FechaFactura'
-        Width = 121
       end
       object Nombre: TcxTextEdit
         Left = 152
         Top = 82
-        ParentFont = False
+        Width = 292
+        Height = 21
         Properties.ReadOnly = True
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 3
         Text = 'Nombre'
-        Width = 292
       end
       object Codigo: TcxButtonEdit
         Left = 152
         Top = 35
-        ParentFont = False
+        Width = 113
+        Height = 21
         Properties.Buttons = <
           item
             Default = True
@@ -297,9 +310,11 @@ object frImprimirFacturasCliente: TfrImprimirFacturasCliente
         Properties.ReadOnly = True
         Properties.OnButtonClick = CodigoPropertiesButtonClick
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 4
         Text = 'Codigo'
-        Width = 113
       end
     end
   end

Clientes/PresupuestoCliente.dfm

@@ -1,8 +1,8 @@
 object frPresupuestoCliente: TfrPresupuestoCliente
   Left = 0
   Top = 0
-  Width = 630
+  Width = 973
-  Height = 410
+  Height = 704
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -17,7 +17,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   object pnlTitulo: TRdxPanelTituloOperacion
     Left = 0
     Top = 0
-    Width = 630
+    Width = 973
     Height = 22
     Caption = ' '
     Color = 11590911
@@ -30,8 +30,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   end
   object brSalir: TRdxBarraInferior
     Left = 0
-    Top = 310
+    Top = 604
-    Width = 630
+    Width = 973
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -111,8 +111,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   end
   object brGuardar: TRdxBarraInferior
     Left = 0
-    Top = 360
+    Top = 654
-    Width = 630
+    Width = 973
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -265,8 +265,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 630
+    Width = 973
-    Height = 288
+    Height = 582
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -275,7 +275,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
     object pnlFactura: TAdvPanel
       Left = 10
       Top = 10
-      Width = 610
+      Width = 953
       Height = 79
       Align = alTop
       BevelOuter = bvNone
@@ -656,8 +656,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
     object pnlPaginas: TRdxPanel
       Left = 10
       Top = 89
-      Width = 610
+      Width = 953
-      Height = 113
+      Height = 398
       Caption = ' '
       ParentColor = True
       ColorHighLight = 8623776
@@ -668,8 +668,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
       object Paginas: TRdxPagesControl
         Left = 0
         Top = 0
-        Width = 610
+        Width = 953
-        Height = 113
+        Height = 398
         ActivePage = pagContenido
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -1244,8 +1244,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
           object pnlGridArticulos: TPanel
             Left = 0
             Top = 0
-            Width = 602
+            Width = 945
-            Height = 67
+            Height = 352
             Align = alClient
             BevelOuter = bvNone
             BorderWidth = 5
@@ -1255,7 +1255,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object pnlBarraContenido: TRdxPanel
               Left = 5
               Top = 31
-              Width = 592
+              Width = 935
               Height = 26
               Caption = ' '
               ParentColor = True
@@ -1373,8 +1373,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object gridDetalles: TcxGrid
               Left = 5
               Top = 57
-              Width = 592
+              Width = 935
-              Height = 232
+              Height = 223
               Align = alClient
               BevelInner = bvNone
               BevelKind = bkFlat
@@ -1514,7 +1514,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object pnlBarraPropiedades: TRdxPanel
               Left = 5
               Top = 5
-              Width = 592
+              Width = 935
               Height = 26
               Caption = ' '
               ParentColor = True
@@ -1752,8 +1752,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             end
             object pnlObservaciones: TRdxPanel
               Left = 5
-              Top = -5
+              Top = 280
-              Width = 592
+              Width = 935
               Height = 67
               Caption = ' '
               ParentColor = True
@@ -1765,7 +1765,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               object Label1: TLabel
                 Left = 0
                 Top = 0
-                Width = 592
+                Width = 935
                 Height = 25
                 Align = alTop
                 AutoSize = False
@@ -1787,7 +1787,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 TabOrder = 0
                 OnExit = ObservacionesExit
                 Height = 42
-                Width = 592
+                Width = 935
               end
             end
           end
@@ -1798,8 +1798,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
           object Panel1: TPanel
             Left = 0
             Top = 0
-            Width = 602
+            Width = 945
-            Height = 67
+            Height = 352
             Align = alClient
             BevelOuter = bvNone
             ParentColor = True
@@ -1808,7 +1808,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               Left = 0
               Top = 0
               Width = 125
-              Height = 67
+              Height = 352
               Align = alLeft
               BevelOuter = bvNone
               Caption = ' '
@@ -1833,8 +1833,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object Panel7: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 820
-              Height = 67
+              Height = 352
               Align = alClient
               BevelOuter = bvNone
               BorderWidth = 10
@@ -1858,8 +1858,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 Style.IsFontAssigned = True
                 TabOrder = 0
-                Height = 47
+                Height = 332
-                Width = 457
+                Width = 800
               end
             end
           end
@@ -2042,7 +2042,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             Left = 0
             Top = 0
             Width = 125
-            Height = 67
+            Height = 352
             Align = alLeft
             BevelOuter = bvNone
             Caption = ' '
@@ -2067,8 +2067,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
           object Panel13: TPanel
             Left = 125
             Top = 0
-            Width = 477
+            Width = 820
-            Height = 67
+            Height = 352
             Align = alClient
             BevelOuter = bvNone
             BorderWidth = 10
@@ -2092,8 +2092,8 @@ object frPresupuestoCliente: TfrPresupuestoCliente
               Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
               Style.IsFontAssigned = True
               TabOrder = 0
-              Height = 47
+              Height = 332
-              Width = 457
+              Width = 800
             end
           end
         end
@@ -2104,7 +2104,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
           object pnlFormasPago: TPanel
             Left = 0
             Top = 0
-            Width = 602
+            Width = 945
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -2139,7 +2139,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object RdxPanel5: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 820
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -2159,14 +2159,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 800
               end
             end
           end
           object pnlPlazosEntrega: TPanel
             Left = 0
             Top = 100
-            Width = 602
+            Width = 945
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -2201,7 +2201,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object Panel3: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 820
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -2221,14 +2221,14 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 800
               end
             end
           end
           object pnlNota: TPanel
             Left = 0
             Top = 200
-            Width = 602
+            Width = 945
             Height = 100
             Align = alTop
             BevelOuter = bvNone
@@ -2263,7 +2263,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
             object Panel5: TPanel
               Left = 125
               Top = 0
-              Width = 477
+              Width = 820
               Height = 100
               Align = alClient
               BevelOuter = bvNone
@@ -2283,7 +2283,7 @@ object frPresupuestoCliente: TfrPresupuestoCliente
                 Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
                 TabOrder = 0
                 Height = 80
-                Width = 457
+                Width = 800
               end
             end
           end
@@ -2624,9 +2624,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
     end
     object pnlImportes: TAdvPanel
       Left = 10
-      Top = 202
+      Top = 487
-      Width = 610
+      Width = 953
-      Height = 76
+      Height = 85
       Align = alBottom
       BevelOuter = bvNone
       Color = 16383743
@@ -2704,208 +2704,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
       TopIndent = 0
       URLColor = clBlue
       FullHeight = 38
-      object Panel15: TPanel
-        Left = 116
-        Top = 0
-        Width = 494
-        Height = 76
-        Align = alRight
-        BevelOuter = bvNone
-        BorderWidth = 5
-        ParentColor = True
-        TabOrder = 0
-        object RdxPanel1: TRdxPanel
-          Left = 5
-          Top = 5
-          Width = 484
-          Height = 66
-          BorderStyle = bsSingle
-          Caption = ' '
-          BorderWidth = 1
-          Color = 15726583
-          ColorHighLight = 8623776
-          ColorShadow = 8623776
-          Align = alClient
-          TabOrder = 0
-          UseDockManager = True
-          object Label5: TLabel
-            Left = 135
-            Top = 10
-            Width = 70
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Base imponible'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label9: TLabel
-            Left = 400
-            Top = 10
-            Width = 77
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe total'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = [fsBold]
-            ParentFont = False
-          end
-          object Label10: TLabel
-            Left = 29
-            Top = 10
-            Width = 76
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de dto.'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Label11: TLabel
-            Left = 234
-            Top = 10
-            Width = 73
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Importe de IVA'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
-          object Shape2: TShape
-            Left = 16
-            Top = 29
-            Width = 465
-            Height = 1
-          end
       object Label7: TLabel
-            Left = 319
+        Left = 66
-            Top = 10
+        Top = 13
-            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 Panel16: TPanel
-        Left = 0
-        Top = 0
-        Width = 116
-        Height = 76
-        Align = alClient
-        Alignment = taLeftJustify
-        BevelOuter = bvNone
-        ParentColor = True
-        TabOrder = 1
-        object Label8: TLabel
-          Left = 8
-          Top = 50
         Width = 74
         Height = 13
         Caption = 'Descuento(%):'
@@ -2916,9 +2717,9 @@ object frPresupuestoCliente: TfrPresupuestoCliente
         Font.Style = []
         ParentFont = False
       end
-        object Label12: TLabel
+      object Label8: TLabel
-          Left = 157
+        Left = 228
-          Top = 50
+        Top = 13
         Width = 40
         Height = 13
         Alignment = taRightJustify
@@ -2930,48 +2731,148 @@ object frPresupuestoCliente: TfrPresupuestoCliente
         Font.Style = []
         ParentFont = False
       end
-        object cbRecargoEquivalencia: TcxCheckBox
+      object Label5: TLabel
-          Left = 8
+        Left = 22
-          Top = 14
+        Top = 39
-          Caption = 'Acogido al recargo de equivalencia'
+        Width = 70
-          ParentColor = False
+        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
-          Properties.NullStyle = nssUnchecked
-          Properties.OnChange = cbRecargoEquivalenciaPropertiesChange
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-          TabOrder = 0
-          Width = 193
       end
       object Descuento: TcxDBTextEdit
-          Left = 85
+        Left = 145
-          Top = 46
+        Top = 9
         DataBinding.DataField = 'DESCUENTO'
         DataBinding.DataSource = dsPresupuesto
         ParentFont = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        TabOrder = 0
+        Width = 57
+      end
+      object IVA: TcxDBTextEdit
+        Left = 271
+        Top = 9
+        DataBinding.DataField = 'IVA'
+        DataBinding.DataSource = dsPresupuesto
+        ParentFont = False
+        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Width = 57
       end
-        object IVA: TcxDBTextEdit
+      object BaseImponible: TcxDBTextEdit
-          Left = 203
+        Left = 2
-          Top = 46
+        Top = 59
-          DataBinding.DataField = 'IVA'
+        TabStop = False
+        DataBinding.DataField = 'BASEIMPONIBLE'
         DataBinding.DataSource = dsPresupuesto
-          ParentFont = False
+        Properties.Alignment.Horz = taRightJustify
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
         TabOrder = 2
-          Width = 57
+        Width = 90
       end
-        object RecargoEquivalencia: TcxDBTextEdit
+      object ImporteDescuento: TcxDBTextEdit
-          Left = 203
+        Left = 115
-          Top = 14
+        Top = 59
-          DataBinding.DataField = 'RE'
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEDESCUENTO'
+        DataBinding.DataSource = dsPresupuesto
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 3
+        Width = 90
+      end
+      object ImporteIVA: TcxDBTextEdit
+        Left = 211
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTEIVA'
+        DataBinding.DataSource = dsPresupuesto
+        Properties.Alignment.Horz = taRightJustify
+        Properties.AutoSelect = False
+        Properties.ReadOnly = True
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.HotTrack = False
+        TabOrder = 4
+        Width = 90
+      end
+      object ImporteTotal: TcxDBTextEdit
+        Left = 325
+        Top = 59
+        TabStop = False
+        DataBinding.DataField = 'IMPORTETOTAL'
         DataBinding.DataSource = dsPresupuesto
         ParentFont = False
-          Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        Properties.Alignment.Horz = taRightJustify
-          TabOrder = 3
+        Properties.AutoSelect = False
-          Width = 57
+        Properties.ReadOnly = True
-        end
+        Style.BorderStyle = ebsNone
+        Style.Color = 15726583
+        Style.Font.Charset = DEFAULT_CHARSET
+        Style.Font.Color = clWindowText
+        Style.Font.Height = -11
+        Style.Font.Name = 'Tahoma'
+        Style.Font.Style = [fsBold]
+        Style.HotTrack = False
+        Style.IsFontAssigned = True
+        TabOrder = 5
+        Width = 90
       end
     end
   end

Clientes/PresupuestoCliente.pas

@@ -61,7 +61,7 @@ uses
   SysUtils, JvExMask, JvToolEdit, ShlObj, cxShellCommon, cxShellListView,
   JvComponent, JvChangeNotify, JvExForms, JvBaseThumbnail, JvThumbViews,
   JvExComCtrls, JvComCtrls, JvComponentBase, cxRichEdit, cxDBRichEdit,
-  ToolWin, ImgList, cxCheckBox;
+  ToolWin, ImgList;
 
 type
   TfrPresupuestoCliente = class(TRdxFramePresupuestos)
@@ -108,6 +108,7 @@ type
     FormasPago: TcxDBMemo;
     dsPropiedadesPresupuesto: TDataSource;
     eDocumento: TLabel;
+    pnlImportes: TAdvPanel;
     pagDesgloses: TTabSheet;
     pagDocumentos: TTabSheet;
     eVigencia: TLabel;
@@ -122,6 +123,10 @@ type
     TablaValores: TIBQuery;
     dsValores: TDataSource;
     dsPropiedades: TDataSource;
+    Label7: TLabel;
+    Descuento: TcxDBTextEdit;
+    Label8: TLabel;
+    IVA: TcxDBTextEdit;
     actAnadirPropiedad: TAction;
     actEliminarPropiedad: TAction;
     pnlBarraPropiedades: TRdxPanel;
@@ -138,6 +143,14 @@ type
     DBEdit1: TDBEdit;
     DBEdit2: TDBEdit;
     pnlGrid: TRdxPanel;
+    Label5: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label9: TLabel;
+    BaseImponible: TcxDBTextEdit;
+    ImporteDescuento: TcxDBTextEdit;
+    ImporteIVA: TcxDBTextEdit;
+    ImporteTotal: TcxDBTextEdit;
     eSeccion: TLabel;
     Seccion: TcxComboBox;
     pnlObservaciones: TRdxPanel;
@@ -226,27 +239,6 @@ type
     RdxBoton6: TRdxBoton;
     bEliminarTodoFiltrado: TRdxBoton;
     actEliminarTodoPropiedad: TAction;
-    pnlImportes: TAdvPanel;
-    Panel15: TPanel;
-    RdxPanel1: TRdxPanel;
-    Label5: TLabel;
-    Label9: TLabel;
-    Label10: TLabel;
-    Label11: TLabel;
-    Shape2: TShape;
-    Label7: TLabel;
-    BaseImponible: TcxDBTextEdit;
-    ImporteDescuento: TcxDBTextEdit;
-    ImporteIVA: TcxDBTextEdit;
-    ImporteTotal: TcxDBTextEdit;
-    ImporteRE: TcxDBTextEdit;
-    Panel16: TPanel;
-    Label8: TLabel;
-    Label12: TLabel;
-    cbRecargoEquivalencia: TcxCheckBox;
-    Descuento: TcxDBTextEdit;
-    IVA: TcxDBTextEdit;
-    RecargoEquivalencia: TcxDBTextEdit;
     procedure bSalirClick(Sender: TObject);
     procedure bGuardarClick(Sender: TObject);
     procedure bCancelarClick(Sender: TObject);
@@ -310,7 +302,6 @@ type
     procedure actAnadirPlanoUpdate(Sender: TObject);
     procedure actEliminarTodoPropiedadExecute(Sender: TObject);
     procedure actEliminarTodoPropiedadUpdate(Sender: TObject);
-    procedure cbRecargoEquivalenciaPropertiesChange(Sender: TObject);
   private
     FRootDocumentos: Variant;
     FRootPlanos: Variant;
@@ -360,7 +351,6 @@ type
     procedure ProvinciaSetText(Sender: TField; const Text: String);
     procedure IVASetText(Sender: TField; const Text: String);
     procedure DtoSetText(Sender: TField; const Text: String);
-    procedure RESetText(Sender: TField; const Text: String);
     procedure CodigoArticuloDetalleSetText(Sender: TField; const Text: String);
     procedure ReferenciaArticuloDetalleSetText(Sender: TField; const Text: String);
     procedure CantidadDetalleSetText(Sender: TField; const Text: String);
@@ -452,8 +442,6 @@ begin
   CodCliente.Properties.Buttons[0].Visible := True;
   Poblacion.Properties.Buttons[0].Visible := True;
   Provincia.Properties.Buttons[0].Visible := True;
-  cbRecargoEquivalencia.Checked := False;
-  RecargoEquivalencia.Enabled := False;
 
   DesactivarEventosCampos;
   try
@@ -511,8 +499,6 @@ begin
 
     dmTablaPresupuestos.InicializarTablaPresupuestos(@TablaPresupuestos);
     dmTablaPresupuestos.InicializarTablaDetalles(@TablaDetallesMem);
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-        
     ActivarEdicionGridDetalles(VistaDetalles);
     cbxDocumento.DataBinding.Field.AsString := dmTablaDocumentos.DarCodigoDocumento(Entidad);
     CargarDatosDocumento(cbxDocumento.DataBinding.Field.AsString);
@@ -646,9 +632,6 @@ begin
       else
         DeshabilitarPlanos;
     end;}
-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
 
     FechaPresupuesto.SetFocus;
   except
@@ -726,10 +709,6 @@ begin
         DeshabilitarPlanos;
     end;}
 
-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;    
-    cbRecargoEquivalencia.Properties.ReadOnly := True;
-    
   except
     on E : EIBError do
       TratarExcepcion(E);
@@ -792,10 +771,6 @@ begin
       end;
     end;
 
-    cbRecargoEquivalencia.Checked := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    RecargoEquivalencia.Enabled := TablaPresupuestos.FieldByName('RE').AsFloat > 0;
-    cbRecargoEquivalencia.Properties.ReadOnly := False;
-    
     ActivarEventosCampos;
     ConfigurarPantallaDocumento;
     Visible := True;
@@ -987,16 +962,13 @@ end;
 
 procedure TfrPresupuestoCliente.CalcularTotalPresupuesto;
 var
-  ImporteNeto,
   BaseImponible,
   ImporteIVA,
-  ImporteRE,
   ImporteDto,
   ImporteTotal : Double;
   FDetallesBookmark : string;
 begin
-  ImporteNeto := 0; //Total de los articulos
+  BaseImponible := 0;
-  BaseImponible := 0; //Importe neto una vez aplicado el dto
   ImporteTotal := 0;
   with TablaDetallesMem do
   begin
@@ -1005,22 +977,19 @@ begin
     try
       First;
       while not EOF do begin
-        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
+        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
         Next;
       end;
 
-      ImporteDto := ImporteNeto * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
+      ImporteDto := BaseImponible * (TablaPresupuestos.FieldByName('DESCUENTO').AsFloat/100);
-      BaseImponible := ImporteNeto - ImporteDto;
+      ImporteTotal := BaseImponible - ImporteDto;
-
+      ImporteIVA := ImporteTotal * (TablaPresupuestos.FieldByName('IVA').AsFloat/100);
-      ImporteRE := BaseImponible * (TablaPresupuestos.FieldByName('RE').AsFloat/100);
+      ImporteTotal := ImporteTotal + ImporteIVA;
-      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;
@@ -1649,14 +1618,11 @@ end;
 
 procedure TfrPresupuestoCliente.ActivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := cbRecargoEquivalenciaPropertiesChange;
-  
   with TablaPresupuestos do
   begin
     FieldByName('CODIGOCLIENTE').OnSetText := CodCliSetText;
     FieldByName('IVA').OnSetText := IVASetText;
     FieldByName('DESCUENTO').OnSetText := DtoSetText;
-    FieldByName('RE').OnSetText := RESetText;    
   end;
 
   with TablaDetallesMem do
@@ -2150,8 +2116,6 @@ end;
 
 procedure TfrPresupuestoCliente.DesactivarEventosCampos;
 begin
-  cbRecargoEquivalencia.Properties.OnChange := NIL;
-  
   with TablaPresupuestos do
   begin
     if FindField('CODIGOCLIENTE') <> NIL then
@@ -2160,8 +2124,6 @@ begin
       FieldByName('IVA').OnSetText := NIL;
     if FindField('DESCUENTO') <> NIL then
       FieldByName('DESCUENTO').OnSetText := NIL;
-    if FindField('RE') <> NIL then
-      FieldByName('RE').OnSetText := NIL;
   end;
 
   with TablaDetallesMem do
@@ -3070,28 +3032,5 @@ begin
     (Sender as TAction).Enabled := not (VistaPropiedades.ViewData.RecordCount = 0);
 end;
 
-procedure TfrPresupuestoCliente.cbRecargoEquivalenciaPropertiesChange(
-  Sender: TObject);
-begin
-  RecargoEquivalencia.Enabled := cbRecargoEquivalencia.Checked;
-  if not cbRecargoEquivalencia.Checked then
-  begin
-    RecargoEquivalencia.DataBinding.Field.Value := Null;
-    CalcularTotalPresupuesto;
-  end;
-end;
-
-procedure TfrPresupuestoCliente.RESetText(Sender: TField;
-  const Text: String);
-begin
-  if EsCadenaVacia(Text) then
-    Sender.AsString := '0'
-  else begin
-    ValidarDto(Text);
-    Sender.AsString := Text;
-  end;
-  CalcularTotalPresupuesto;
-end;
-
 end.
 

Contabilidad/ImprimirInformeTrimestral.dfm

@@ -3,7 +3,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
   Left = 0
   Top = 0
   Width = 617
-  Height = 412
+  Height = 416
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -30,9 +30,9 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
   end
   object pnlVistaPrevia: TPanel
     Left = 0
-    Top = 197
+    Top = 156
     Width = 617
-    Height = 215
+    Height = 260
     Align = alClient
     BevelOuter = bvNone
     Color = 16383743
@@ -42,7 +42,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
     Left = 0
     Top = 22
     Width = 617
-    Height = 175
+    Height = 134
     Align = alTop
     AutoSize = True
     BevelOuter = bvNone
@@ -142,7 +142,6 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
         BorderWidth = 10
         Color = 16383743
         TabOrder = 0
-        Visible = False
         object eTrimestre: TLabel
           Left = 70
           Top = 12
@@ -160,13 +159,14 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
         object cbxTrimestres: TcxComboBox
           Left = 129
           Top = 10
+          Width = 275
+          Height = 21
           ParentFont = False
           Properties.DropDownListStyle = lsFixedList
           Properties.ReadOnly = False
           Properties.OnEditValueChanged = cbxTrimestresPropertiesEditValueChanged
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
           TabOrder = 0
-          Width = 275
         end
       end
     end
@@ -181,7 +181,6 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
       BorderWidth = 10
       Color = 16383743
       TabOrder = 1
-      Visible = False
       object rbGeneral: TRdxRadioButton
         Left = 129
         Top = 10
@@ -213,65 +212,5 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
         OnClick = rbInmovilizadoClick
       end
     end
-    object Panel2: TPanel
-      Left = 10
-      Top = 124
-      Width = 597
-      Height = 41
-      Align = alTop
-      AutoSize = True
-      BevelOuter = bvNone
-      BorderWidth = 10
-      Color = 16383743
-      TabOrder = 2
-      object eFechaFin: TLabel
-        Left = 288
-        Top = 18
-        Width = 17
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'y el'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object Label1: TLabel
-        Left = 48
-        Top = 18
-        Width = 103
-        Height = 13
-        Alignment = taRightJustify
-        Caption = 'Facturas entre el d'#237'a:'
-        Font.Charset = DEFAULT_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -11
-        Font.Name = 'Tahoma'
-        Font.Style = []
-        ParentFont = False
-      end
-      object FechaInicial: TcxDateEdit
-        Left = 158
-        Top = 10
-        ParentFont = False
-        Properties.ImmediatePost = True
-        Properties.OnValidate = FechaInicialPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 0
-        Width = 121
-      end
-      object FechaFinal: TcxDateEdit
-        Left = 312
-        Top = 10
-        ParentFont = False
-        Properties.ImmediatePost = True
-        Properties.OnValidate = FechaFinalPropertiesValidate
-        Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
-        TabOrder = 1
-        Width = 121
-      end
-    end
   end
 end

Contabilidad/ImprimirInformeTrimestral.pas

@@ -32,7 +32,7 @@ uses
   Grids, DBGrids, RdxPaneles, RdxRadioButton, VistaPrevia, AdvPanel,
   cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
   cxButtonEdit, Entidades, InformeTrimestralVentas, InformeTrimestralCompras,
-  TablaTrimestres, cxDropDownEdit, cxGraphics, cxCalendar;
+  TablaTrimestres, cxDropDownEdit;
 
 type
   TfrImprimirInformeTrimestral = class(TRdxFrame)
@@ -46,22 +46,11 @@ type
     rbInmovilizado: TRdxRadioButton;
     eTrimestre: TLabel;
     cbxTrimestres: TcxComboBox;
-    Panel2: TPanel;
-    FechaInicial: TcxDateEdit;
-    eFechaFin: TLabel;
-    FechaFinal: TcxDateEdit;
-    Label1: TLabel;
     procedure bCancelarClick(Sender: TObject);
     procedure bImprimirClick(Sender: TObject);
     procedure cbxTrimestresPropertiesEditValueChanged(Sender: TObject);
     procedure rbGeneralClick(Sender: TObject);
     procedure rbInmovilizadoClick(Sender: TObject);
-    procedure FechaInicialPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
-    procedure FechaFinalPropertiesValidate(Sender: TObject;
-      var DisplayValue: Variant; var ErrorText: TCaption;
-      var Error: Boolean);
   private
     FListaTrimestres : TListaTrimestres;
     FCodigoTrimestre : Variant;
@@ -87,8 +76,8 @@ implementation
 {$R *.DFM}
 
 uses
-  Literales, Mensajes, Variants, BaseDatos, Clientes, StrFunc, DateFunc,
+  Variants, BaseDatos, Clientes, Mensajes, StrFunc,
-  TablaFacturasCliente, TablaFacturasProveedor, cxDateUtils;
+  TablaFacturasCliente, TablaFacturasProveedor;
 
 constructor TfrImprimirInformeTrimestral.Create(AOwner : TComponent);
 var
@@ -102,13 +91,6 @@ begin
 
   FListaTrimestres := TListaTrimestres.Create(tlcTriTodos);
   cbxTrimestres.ItemIndex := FListaTrimestres.cargarLista(cbxTrimestres.Properties.Items);
-
-  FechaInicial.Date := DarDiaInicioMesDat;
-  FechaFinal.Date := DarDiaFinalMesDat;
-  FInformeTrimestralVentas.FechaIni := FechaInicial.Date;
-  FInformeTrimestralVentas.FechaFin := FechaFinal.Date;
-  FInformeTrimestralCompras.FechaIni := FechaInicial.Date;
-  FInformeTrimestralCompras.FechaFin := FechaFinal.Date;
 end;
 
 procedure TfrImprimirInformeTrimestral.bCancelarClick(Sender: TObject);
@@ -174,12 +156,12 @@ end;
 function TfrImprimirInformeTrimestral.CambiarEntidad(EntidadAnterior, Entidad: TRdxEntidad): Boolean;
 begin
   inherited CambiarEntidad(EntidadAnterior, Entidad);
-{
+
   if (Entidad = entInformeTrimestralVentas) then
     pnlCompras.Visible := False
   else if (Entidad = entInformeTrimestralCompras) then
     pnlCompras.Visible := True;
-}
+
   GenerarInforme;
 end;
 
@@ -194,50 +176,4 @@ begin
     GenerarInforme;
 end;
 
-procedure TfrImprimirInformeTrimestral.FechaInicialPropertiesValidate(
-  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
-  var Error: Boolean);
-var
-  ADate : TDateTime;
-begin
-  try
-    if DisplayValue > FechaFinal.Date then
-    begin
-      ErrorText := msgFechasMal;
-      Error := True;
-      Exit;
-    end;
-    TextToDateEx(DisplayValue, ADate);
-    FInformeTrimestralVentas.FechaIni := ADate;
-    FInformeTrimestralCompras.FechaIni := ADate;
-    GenerarInforme;
-  except
-    Error := True;
-    ErrorText := msgFechaNoValida;
-  end;
-end;
-
-procedure TfrImprimirInformeTrimestral.FechaFinalPropertiesValidate(
-  Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
-  var Error: Boolean);
-var
-  ADate : TDateTime;
-begin
-  try
-    if DisplayValue < FechaInicial.Date then
-    begin
-      ErrorText := msgFechasMal;
-      Error := True;
-      Exit;
-    end;
-    TextToDateEx(DisplayValue, ADate);
-    FInformeTrimestralVentas.FechaFin := ADate;
-    FInformeTrimestralCompras.FechaFin := ADate;
-    GenerarInforme;
-  except
-    Error := True;
-    ErrorText := msgFechaNoValida;
-  end;
-end;
-
 end.

Contabilidad/InformeTrimestral.dfm

@@ -2,8 +2,8 @@ object frInformeTrimestral: TfrInformeTrimestral
   Tag = 4
   Left = 0
   Top = 0
-  Width = 630
+  Width = 928
-  Height = 410
+  Height = 554
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,8 +18,8 @@ object frInformeTrimestral: TfrInformeTrimestral
   object pnlCuerpo: TRdxPanel
     Left = 0
     Top = 0
-    Width = 630
+    Width = 928
-    Height = 360
+    Height = 504
     Caption = ' '
     ParentColor = True
     ColorHighLight = 8623776
@@ -30,7 +30,7 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlTitulo: TRdxPanelTituloOperacion
       Left = 0
       Top = 0
-      Width = 630
+      Width = 928
       Height = 22
       Caption = ' '
       Color = 9685681
@@ -44,8 +44,8 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlContenido: TRdxPanel
       Left = 0
       Top = 47
-      Width = 630
+      Width = 928
-      Height = 313
+      Height = 457
       Caption = ' '
       BorderWidth = 10
       ParentColor = True
@@ -57,13 +57,13 @@ object frInformeTrimestral: TfrInformeTrimestral
       object Splitter1: TSplitter
         Left = 160
         Top = 10
-        Height = 293
+        Height = 437
       end
       object pnlGrid: TRdxPanel
         Left = 163
         Top = 10
-        Width = 457
+        Width = 755
-        Height = 293
+        Height = 437
         Caption = ' '
         ParentColor = True
         ColorHighLight = 8623776
@@ -74,8 +74,8 @@ object frInformeTrimestral: TfrInformeTrimestral
         object gridFacturas: TcxGrid
           Left = 0
           Top = 0
-          Width = 457
+          Width = 755
-          Height = 293
+          Height = 437
           Align = alClient
           BevelInner = bvNone
           BevelKind = bkFlat
@@ -97,7 +97,6 @@ object frInformeTrimestral: TfrInformeTrimestral
             OnMouseDown = gridFacturasDBTableView1MouseDown
             OnStartDrag = gridFacturasDBTableView1StartDrag
             NavigatorButtons.ConfirmDelete = False
-            FilterBox.Visible = fvNever
             OnCustomDrawCell = gridFacturasDBTableView1CustomDrawCell
             DataController.DataSource = dsFacturas
             DataController.KeyFieldNames = 'CODIGO'
@@ -105,6 +104,7 @@ object frInformeTrimestral: TfrInformeTrimestral
             DataController.Summary.DefaultGroupSummaryItems = <>
             DataController.Summary.FooterSummaryItems = <>
             DataController.Summary.SummaryGroups = <>
+            Filtering.Visible = fvNever
             OptionsBehavior.FocusCellOnTab = True
             OptionsBehavior.FocusFirstCellOnNewRecord = True
             OptionsBehavior.GoToNextCellOnEnter = True
@@ -121,7 +121,6 @@ object frInformeTrimestral: TfrInformeTrimestral
             OptionsView.GridLines = glHorizontal
             OptionsView.GroupByBox = False
             OptionsView.HeaderEndEllipsis = True
-            OptionsView.NewItemRowInfoText = 'Click here to add a new row'
             OptionsView.RowSeparatorColor = 14280169
             Styles.StyleSheet = dmConfiguracion.StyleSheetGrid
           end
@@ -134,7 +133,7 @@ object frInformeTrimestral: TfrInformeTrimestral
         Left = 10
         Top = 10
         Width = 150
-        Height = 293
+        Height = 437
         Caption = ' '
         ParentColor = True
         ColorHighLight = 8623776
@@ -146,7 +145,7 @@ object frInformeTrimestral: TfrInformeTrimestral
           Left = 0
           Top = 0
           Width = 150
-          Height = 293
+          Height = 437
           Align = alClient
           Bands = <
             item
@@ -214,7 +213,7 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlExtra: TRdxBarraSuperior
       Left = 0
       Top = 22
-      Width = 630
+      Width = 928
       Height = 25
       Caption = ' '
       BorderWidth = 1
@@ -386,7 +385,7 @@ object frInformeTrimestral: TfrInformeTrimestral
         Spacing = 2
       end
       object RdxPanel1: TRdxPanel
-        Left = 330
+        Left = 628
         Top = 1
         Width = 299
         Height = 23
@@ -415,13 +414,17 @@ object frInformeTrimestral: TfrInformeTrimestral
         object cbxTipos: TcxComboBox
           Left = 105
           Top = 1
+          Width = 192
+          Height = 21
           ParentFont = False
           Properties.DropDownListStyle = lsFixedList
           Properties.ReadOnly = False
           Properties.OnChange = cbxTiposPropertiesChange
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 0
-          Width = 192
         end
       end
       object bCambioTrimestre: TRdxBoton
@@ -464,8 +467,8 @@ object frInformeTrimestral: TfrInformeTrimestral
   end
   object brSalir: TRdxBarraInferior
     Left = 0
-    Top = 360
+    Top = 504
-    Width = 630
+    Width = 928
     Height = 50
     Caption = ' '
     ParentColor = True

Empresas/ElegirEmpresa.pas

@@ -99,7 +99,6 @@ begin
     Database := BaseDatos;
     Transaction := Transaccion;
     SelectSQL.Assign(dmTablaEmpresas.sqlGrid);
-  	ParamByName('USUARIO').AsString := UpperCase(dmBaseDatos.Usuario);
     Prepare;
     EnableControls;
   end;

Empresas/Empresa.dfm

@@ -2,8 +2,8 @@ object frEmpresa: TfrEmpresa
   Tag = 1
   Left = 0
   Top = 0
-  Width = 665
+  Width = 497
-  Height = 773
+  Height = 658
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,7 +18,7 @@ object frEmpresa: TfrEmpresa
   object pnlTitulo: TRdxPanelTituloOperacion
     Left = 0
     Top = 0
-    Width = 665
+    Width = 497
     Height = 22
     Caption = ' '
     Color = 11590911
@@ -32,8 +32,8 @@ object frEmpresa: TfrEmpresa
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 665
+    Width = 497
-    Height = 651
+    Height = 536
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -42,8 +42,8 @@ object frEmpresa: TfrEmpresa
     object pnlDatos: TAdvPanel
       Left = 10
       Top = 10
-      Width = 645
+      Width = 477
-      Height = 167
+      Height = 192
       Align = alTop
       BevelOuter = bvNone
       Color = 16383743
@@ -196,7 +196,7 @@ object frEmpresa: TfrEmpresa
       end
       object eCorreo: TLabel
         Left = 54
-        Top = 158
+        Top = 131
         Width = 92
         Height = 13
         Alignment = taRightJustify
@@ -207,11 +207,10 @@ object frEmpresa: TfrEmpresa
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
-        Visible = False
       end
       object Label1: TLabel
         Left = 120
-        Top = 131
+        Top = 159
         Width = 26
         Height = 13
         Alignment = taRightJustify
@@ -240,76 +239,85 @@ object frEmpresa: TfrEmpresa
       object NIF: TcxDBTextEdit
         Left = 153
         Top = 73
+        Width = 136
+        Height = 21
         AutoSize = False
         DataBinding.DataField = 'NIFCIF'
         DataBinding.DataSource = dsEmpresas
-        ParentFont = False
         Properties.ReadOnly = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
-        Height = 21
-        Width = 136
       end
       object Nombre: TcxDBTextEdit
         Left = 153
         Top = 100
+        Width = 320
+        Height = 21
         AutoSize = False
         DataBinding.DataField = 'NOMBRE'
         DataBinding.DataSource = dsEmpresas
-        ParentFont = False
         Properties.ReadOnly = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 2
-        Height = 21
-        Width = 320
       end
       object Correo: TcxDBTextEdit
         Left = 153
-        Top = 154
+        Top = 127
+        Width = 320
+        Height = 21
         AutoSize = False
         DataBinding.DataField = 'CORREO'
         DataBinding.DataSource = dsEmpresas
-        ParentFont = False
         Properties.ReadOnly = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 3
-        Visible = False
-        Height = 21
-        Width = 320
       end
       object Web: TcxDBTextEdit
         Left = 153
-        Top = 127
+        Top = 155
+        Width = 320
+        Height = 21
         AutoSize = False
         DataBinding.DataField = 'WEB'
         DataBinding.DataSource = dsEmpresas
-        ParentFont = False
         Properties.ReadOnly = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 4
-        Height = 21
-        Width = 320
       end
       object NombreComercial: TcxDBTextEdit
         Left = 153
         Top = 46
+        Width = 320
+        Height = 21
         AutoSize = False
         DataBinding.DataField = 'NOMBRECOMERCIAL'
         DataBinding.DataSource = dsEmpresas
-        ParentFont = False
         Properties.ReadOnly = False
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 0
-        Height = 21
-        Width = 320
       end
     end
     object RdxPagesControl1: TRdxPagesControl
       Left = 10
-      Top = 177
+      Top = 202
-      Width = 645
+      Width = 477
-      Height = 464
+      Height = 324
-      ActivePage = pagDirecciones
+      ActivePage = pagLogo
       Align = alClient
       TabOrder = 1
       TabWidth = 130
@@ -326,7 +334,7 @@ object frEmpresa: TfrEmpresa
           Left = 6
           Top = 8
           Width = 457
-          Height = 169
+          Height = 137
           Caption = 'Direcci'#243'n 1'
           TabOrder = 0
           object eDireccion: TLabel
@@ -427,116 +435,108 @@ object frEmpresa: TfrEmpresa
             Font.Style = []
             ParentFont = False
           end
-          object Label17: TLabel
-            Left = 45
-            Top = 136
-            Width = 37
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Correo:'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
           object Calle1: TcxTextEdit
             Left = 89
             Top = 20
+            Width = 224
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 150
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 0
-            Height = 21
-            Width = 224
           end
           object Provincia1: TcxTextEdit
             Left = 89
             Top = 48
-            ParentFont = False
+            Width = 224
+            Height = 21
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 2
-            Width = 224
           end
           object Numero1: TcxTextEdit
             Left = 350
             Top = 20
+            Width = 59
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 20
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 1
-            Height = 21
-            Width = 59
           end
           object CodigoPostal1: TcxTextEdit
             Left = 350
             Top = 47
+            Width = 59
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 5
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 3
-            Height = 21
-            Width = 59
           end
           object Poblacion1: TcxTextEdit
             Left = 89
             Top = 76
-            ParentFont = False
+            Width = 320
+            Height = 21
             Properties.MaxLength = 40
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 4
-            Width = 320
           end
           object Telefono1: TcxTextEdit
             Left = 89
             Top = 103
+            Width = 136
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 5
-            Height = 21
-            Width = 136
           end
           object Fax1: TcxTextEdit
             Left = 281
             Top = 103
+            Width = 128
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 6
-            Height = 21
-            Width = 128
-          end
-          object Correo1: TcxTextEdit
-            Left = 89
-            Top = 132
-            ParentFont = False
-            Properties.MaxLength = 40
-            Properties.ReadOnly = False
-            Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-            TabOrder = 7
-            Width = 320
           end
         end
         object GroupBox2: TGroupBox
           Left = 7
-          Top = 180
+          Top = 152
           Width = 457
-          Height = 170
+          Height = 137
           Caption = 'Direcci'#243'n 1'
           TabOrder = 1
           object Label8: TLabel
@@ -637,109 +637,101 @@ object frEmpresa: TfrEmpresa
             Font.Style = []
             ParentFont = False
           end
-          object Label18: TLabel
-            Left = 45
-            Top = 136
-            Width = 37
-            Height = 13
-            Alignment = taRightJustify
-            Caption = 'Correo:'
-            Font.Charset = DEFAULT_CHARSET
-            Font.Color = clWindowText
-            Font.Height = -11
-            Font.Name = 'Tahoma'
-            Font.Style = []
-            ParentFont = False
-          end
           object Calle2: TcxTextEdit
             Left = 89
             Top = 20
+            Width = 224
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 150
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 0
-            Height = 21
-            Width = 224
           end
           object Provincia2: TcxTextEdit
             Left = 89
             Top = 48
-            ParentFont = False
+            Width = 224
+            Height = 21
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 2
-            Width = 224
           end
           object Numero2: TcxTextEdit
             Left = 350
             Top = 20
+            Width = 59
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 20
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 1
-            Height = 21
-            Width = 59
           end
           object CodigoPostal2: TcxTextEdit
             Left = 350
             Top = 47
+            Width = 59
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 5
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 3
-            Height = 21
-            Width = 59
           end
           object Poblacion2: TcxTextEdit
             Left = 89
             Top = 76
-            ParentFont = False
+            Width = 320
+            Height = 21
             Properties.MaxLength = 40
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 4
-            Width = 320
           end
           object Telefono2: TcxTextEdit
             Left = 89
             Top = 103
+            Width = 136
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 5
-            Height = 21
-            Width = 136
           end
           object Fax2: TcxTextEdit
             Left = 281
             Top = 103
+            Width = 128
+            Height = 21
             AutoSize = False
-            ParentFont = False
             Properties.MaxLength = 30
             Properties.ReadOnly = False
             Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+            StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
             TabOrder = 6
-            Height = 21
-            Width = 128
-          end
-          object Correo2: TcxTextEdit
-            Left = 89
-            Top = 132
-            ParentFont = False
-            Properties.MaxLength = 40
-            Properties.ReadOnly = False
-            Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
-            TabOrder = 7
-            Width = 320
           end
         end
       end
@@ -859,63 +851,83 @@ object frEmpresa: TfrEmpresa
         object cbxTrimestres: TcxComboBox
           Left = 152
           Top = 21
+          Width = 137
+          Height = 21
           ParentFont = False
           Properties.DropDownListStyle = lsFixedList
           Properties.ReadOnly = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 0
-          Width = 137
         end
         object cbxLibros: TcxComboBox
           Left = 153
           Top = 46
+          Width = 136
+          Height = 21
           ParentFont = False
           Properties.DropDownListStyle = lsFixedList
           Properties.ReadOnly = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 2
-          Width = 136
         end
         object IvaDefecto: TcxDBSpinEdit
           Left = 152
           Top = 78
+          Width = 136
+          Height = 21
           DataBinding.DataField = 'IVADEFECTO'
           DataBinding.DataSource = dsEmpresas
-          ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 3
-          Width = 136
         end
         object validezdefecto: TcxDBSpinEdit
           Left = 152
           Top = 103
+          Width = 137
+          Height = 21
           DataBinding.DataField = 'VALIDEZDEFECTO'
           DataBinding.DataSource = dsEmpresas
-          ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 4
-          Width = 137
         end
         object Ano: TcxSpinEdit
           Left = 354
           Top = 23
-          ParentFont = False
+          Width = 81
+          Height = 21
           Properties.MaxValue = 9999.000000000000000000
           Properties.MinValue = 1000.000000000000000000
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 1
           Value = 1000
-          Width = 81
         end
         object IntervaloPagosCli: TcxDBSpinEdit
           Left = 152
           Top = 127
+          Width = 137
+          Height = 21
           DataBinding.DataField = 'INTERVALOPAGOSCLI'
           DataBinding.DataSource = dsEmpresas
-          ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 5
-          Width = 137
         end
       end
       object pagLogo: TTabSheet
@@ -960,23 +972,26 @@ object frEmpresa: TfrEmpresa
         object Logotipo: TcxDBImage
           Left = 112
           Top = 18
+          Width = 337
+          Height = 239
           DataBinding.DataField = 'LOGOTIPO'
           DataBinding.DataSource = dsEmpresas
           Properties.Caption = 'Logotipo de la empresa'
           Properties.ImmediatePost = True
           Properties.Stretch = True
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+          StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
           TabOrder = 1
-          Height = 239
-          Width = 337
         end
       end
     end
   end
   object brDoble: TRdxBarraInferior
     Left = 0
-    Top = 673
+    Top = 558
-    Width = 665
+    Width = 497
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -1117,8 +1132,8 @@ object frEmpresa: TfrEmpresa
   end
   object brSimple: TRdxBarraInferior
     Left = 0
-    Top = 723
+    Top = 608
-    Width = 665
+    Width = 497
     Height = 50
     Caption = ' '
     ParentColor = True

Empresas/Empresa.pas

@@ -112,10 +112,6 @@ type
     Label15: TLabel;
     IntervaloPagosCli: TcxDBSpinEdit;
     Label16: TLabel;
-    Correo1: TcxTextEdit;
-    Label17: TLabel;
-    Label18: TLabel;
-    Correo2: TcxTextEdit;
     procedure bAceptarClick(Sender: TObject);
     procedure bCancelarClick(Sender: TObject);
     procedure bSalirClick(Sender: TObject);
@@ -724,7 +720,6 @@ begin
       CodigoPostal1.Text := Items[0].CodigoPostal;
       Telefono1.Text := Items[0].Telefono;
       Fax1.Text := Items[0].Fax;
-      Correo1.Text := Items[0].Correo;
     end;
 
     if Count > 1 then
@@ -736,7 +731,6 @@ begin
       CodigoPostal2.Text := Items[1].CodigoPostal;
       Telefono2.Text := Items[1].Telefono;
       Fax2.Text := Items[1].Fax;
-      Correo2.Text := Items[1].Correo;      
     end;
   end;
 end;
@@ -773,7 +767,6 @@ begin
       Dir1.CodigoPostal := CodigoPostal1.Text;
       Dir1.Telefono := Telefono1.Text;
       Dir1.Fax := Fax1.Text;
-      Dir1.Correo := Correo1.Text;      
       Dir1.SalvarDatos;
     end;
 
@@ -789,7 +782,6 @@ begin
       Dir2.CodigoPostal := CodigoPostal2.Text;
       Dir2.Telefono := Telefono2.Text;
       Dir2.Fax := Fax2.Text;
-      Dir2.Correo := Correo2.Text;      
       Dir2.SalvarDatos;      
     end;
 
@@ -816,7 +808,6 @@ begin
   CodigoPostal1.Text := '';
   Telefono1.Text := '';
   Fax1.Text := '';
-  Correo1.Text := '';
 
   Calle2.Text := '';
   Numero2.Text := '';
@@ -825,7 +816,6 @@ begin
   CodigoPostal2.Text := '';
   Telefono2.Text := '';
   Fax2.Text := '';
-  Correo2.Text := '';  
 end;
 
 function TfrEmpresa.EsVaciaDir1: Boolean;
@@ -833,7 +823,7 @@ begin
   if EsCadenaVacia(Calle1.Text) and EsCadenaVacia(Numero1.Text) and
       EsCadenaVacia(Provincia1.Text) and EsCadenaVacia(Poblacion1.Text) and
       EsCadenaVacia(CodigoPostal1.Text) and EsCadenaVacia(Telefono1.Text) and
-      EsCadenaVacia(Fax1.Text) and EsCadenaVacia(Correo1.Text) then
+      EsCadenaVacia(Fax1.Text) then
     Result := True
   else
     Result := False;
@@ -844,7 +834,7 @@ begin
   if EsCadenaVacia(Calle2.Text) and EsCadenaVacia(Numero2.Text) and
       EsCadenaVacia(Provincia2.Text) and EsCadenaVacia(Poblacion2.Text) and
       EsCadenaVacia(CodigoPostal2.Text) and EsCadenaVacia(Telefono2.Text) and
-      EsCadenaVacia(Fax2.Text) and EsCadenaVacia(Correo2.Text) then
+      EsCadenaVacia(Fax2.Text) then
     Result := True
   else
     Result := False;

Factuges.cfg

@@ -1,45 +0,0 @@
--$A8
--$B-
--$C+
--$D+
--$E-
--$F-
--$G+
--$H+
--$I+
--$J-
--$K-
--$L+
--$M-
--$N+
--$O-
--$P+
--$Q-
--$R-
--$S-
--$T-
--$U-
--$V+
--$W-
--$X+
--$YD
--$Z1
--GD
--cg
--AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
--H+
--W+
--M
--$M16384,1048576
--K$00400000
--E".\Temp"
--N".\Temp"
--LE".\Temp"
--LN".\Temp"
--U"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
--O"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
--I"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
--R"c:\archivos de programa\borland\delphi7\Lib\Debug;.\Frames;C:\Archivos de programa\Developer Express Inc\ExpressScheduler\Sources;D:\Proyectos\Librerias;D:\Proyectos\Componentes\Colores"
--w-UNSAFE_TYPE
--w-UNSAFE_CODE
--w-UNSAFE_CAST

Factuges.dof

@@ -113,8 +113,8 @@ RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
 IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
-MinorVer=3
+MinorVer=2
-Release=1
+Release=2
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.3.1.0
+FileVersion=3.2.2.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=3.3.1.0
+ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

Factuges.dpr

@@ -204,8 +204,7 @@ uses
   InformeListadoContratacionProcedencia in 'Informes\InformeListadoContratacionProcedencia.pas' {dmInformeListadoContratacionProcedencia: TDataModule},
   ListadoPresupuestosProcedencia in 'Clientes\ListadoPresupuestosProcedencia.pas' {frListadoPresupuestosProcedencia: TRdxFrame},
   ListadoProcedencias in 'Clientes\ListadoProcedencias.pas' {frListadoProcedencias: TRdxFrame},
-  ListadoContratacionProcedencia in 'Clientes\ListadoContratacionProcedencia.pas' {frListadoContratacionProcedencia: TRdxFrame},
+  ListadoContratacionProcedencia in 'Clientes\ListadoContratacionProcedencia.pas' {frListadoContratacionProcedencia: TRdxFrame};
-  FacturarAlbaran in 'Clientes\FacturarAlbaran.pas' {frFacturarAlbaran};
 
 {$R *.RES}
 {$R Prueba.res}

Factuges.dsk

@@ -1,473 +0,0 @@
-[Closed Files]
-File_0=SourceModule,'C:\Codigo\Empresas\ElegirEmpresa.pas',0,1,86,70,102,1,0
-File_1=SourceModule,'C:\Codigo\BaseDatos\TablaEmpresas.pas',0,1,187,96,200,1,0
-File_2=SourceModule,'c:\archivos de programa\borland\delphi7\source\rtl\common\ComObj.pas',0,1,1259,1,1269,0,0
-File_3=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\DB.pas',0,1,2340,1,2350,0,0
-File_4=SourceModule,'c:\archivos de programa\borland\delphi7\source\vcl\IB.pas',0,1,403,1,411,0,0
-File_5=SourceModule,'C:\Codigo\Informes\InformePresupuestoCliente.pas',0,1,1,1,1,1,0
-File_6=SourceModule,'C:\Codigo Abeto\Clientes\FacturaCliente.pas',0,1,334,63,344,0,0
-File_7=SourceModule,'C:\Codigo Abeto\Libreria\Constantes.pas',0,1,42,24,55,0,0
-File_8=SourceModule,'C:\Codigo Abeto\Proveedores\FacturaProveedor.pas',0,1,272,38,285,1,0
-File_9=SourceModule,'C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas',0,1,140,65,150,0,0
-
-[Modules]
-Module0=C:\Codigo\Libreria\Literales.pas
-Module1=C:\Codigo\Proveedores\BarraProveedores.pas
-Module2=C:\Codigo\Clientes\BarraClientes.pas
-Module3=C:\Codigo\Principal.pas
-Count=4
-EditWindowCount=1
-
-[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
-
-[C:\Archivos de programa\Borland\Delphi7\Projects\ProjectGroup1.bpg]
-FormState=0
-FormOnTop=0
-
-[C:\Codigo\Factuges.dpr]
-FormState=0
-FormOnTop=0
-
-[C:\Codigo\Frames\RdxFrame.pas]
-FormState=0
-FormOnTop=0
-
-[EditWindow0]
-ViewCount=4
-CurrentView=2
-View0=0
-View1=1
-View2=2
-View3=3
-CodeExplorer=CodeExplorer@EditWindow0
-MessageView=MessageView@EditWindow0
-Create=1
-Visible=1
-State=0
-Left=447
-Top=136
-Width=1137
-Height=560
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=1129
-ClientHeight=526
-LeftPanelSize=140
-LeftPanelClients=CodeExplorer@EditWindow0
-LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
-RightPanelSize=0
-BottomPanelSize=85
-BottomPanelClients=MessageView@EditWindow0
-BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
-
-[View0]
-Module=C:\Codigo\Proveedores\BarraProveedores.pas
-CursorX=78
-CursorY=119
-TopLine=113
-LeftCol=1
-
-[View1]
-Module=C:\Codigo\Clientes\BarraClientes.pas
-CursorX=32
-CursorY=83
-TopLine=66
-LeftCol=1
-
-[View2]
-Module=C:\Codigo\Libreria\Literales.pas
-CursorX=33
-CursorY=30
-TopLine=22
-LeftCol=1
-
-[View3]
-Module=C:\Codigo\Principal.pas
-CursorX=74
-CursorY=360
-TopLine=356
-LeftCol=1
-
-[Watches]
-Count=2
-Watch0='EmpresaActiva.Restricciones.strings[1]',256,0,18,1,0,'Watches'
-Watch1='EmpresaActiva.Restricciones.strings[0]',256,0,18,1,0,'Watches'
-
-[WatchWindow]
-WatchColumnWidth=100
-WatchShowColumnHeaders=1
-Create=1
-Visible=1
-State=0
-Left=146
-Top=563
-Width=842
-Height=149
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=834
-ClientHeight=123
-TBDockHeight=36
-LRDockWidth=842
-Dockable=1
-
-[Breakpoints]
-Count=1
-Breakpoint0='C:\Codigo\Empresas\ElegirEmpresa.pas',72,'',0,1,'',1,0,0,'',1,'','',''
-
-[AddressBreakpoints]
-Count=0
-
-[Main Window]
-Create=1
-Visible=1
-State=2
-Left=0
-Top=0
-Width=1676
-Height=112
-MaxLeft=-1
-MaxTop=-1
-MaxWidth=1684
-MaxHeight=112
-ClientWidth=1676
-ClientHeight=78
-
-[ProjectManager]
-Create=1
-Visible=1
-State=0
-Left=-1
-Top=107
-Width=423
-Height=665
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=415
-ClientHeight=639
-TBDockHeight=871
-LRDockWidth=438
-Dockable=1
-
-[Components]
-Left=548
-Top=379
-Width=183
-Height=266
-Create=1
-Visible=0
-State=0
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=175
-ClientHeight=240
-TBDockHeight=266
-LRDockWidth=183
-Dockable=1
-
-[CPUWindow]
-Create=1
-Visible=0
-State=0
-Left=5
-Top=7
-Width=638
-Height=444
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=630
-ClientHeight=410
-DumpPane=79
-DisassemblyPane=187
-RegisterPane=231
-FlagPane=64
-
-[AlignmentPalette]
-Create=1
-Visible=1
-State=0
-Left=200
-Top=107
-Width=156
-Height=84
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=150
-ClientHeight=60
-
-[PropertyInspector]
-Create=1
-Visible=1
-State=0
-Left=0
-Top=0
-Width=412
-Height=734
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=412
-ClientHeight=734
-TBDockHeight=557
-LRDockWidth=317
-Dockable=1
-SplitPos=201
-ArrangeBy=Name
-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=
-
-[BreakpointWindow]
-Create=1
-Visible=0
-State=0
-Left=174
-Top=742
-Width=820
-Height=262
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=812
-ClientHeight=236
-TBDockHeight=197
-LRDockWidth=737
-Dockable=1
-Column0Width=100
-Column1Width=75
-Column2Width=200
-Column3Width=200
-Column4Width=75
-Column5Width=75
-
-[CallStackWindow]
-Create=1
-Visible=0
-State=0
-Left=490
-Top=356
-Width=351
-Height=293
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=343
-ClientHeight=267
-TBDockHeight=161
-LRDockWidth=203
-Dockable=1
-
-[ThreadStatusWindow]
-Create=1
-Visible=0
-State=0
-Left=744
-Top=176
-Width=624
-Height=152
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=616
-ClientHeight=126
-TBDockHeight=152
-LRDockWidth=624
-Dockable=1
-Column0Width=145
-Column1Width=100
-Column2Width=115
-Column3Width=250
-
-[ObjectTree]
-Create=1
-Visible=1
-State=0
-Left=0
-Top=0
-Width=412
-Height=734
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=412
-ClientHeight=734
-TBDockHeight=366
-LRDockWidth=317
-Dockable=1
-
-[DebugLogView]
-Create=1
-Visible=0
-State=0
-Left=303
-Top=238
-Width=433
-Height=291
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=425
-ClientHeight=265
-TBDockHeight=291
-LRDockWidth=433
-Dockable=1
-
-[LocalVarsWindow]
-Create=1
-Visible=0
-State=0
-Left=175
-Top=203
-Width=524
-Height=139
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=516
-ClientHeight=113
-TBDockHeight=72
-LRDockWidth=215
-Dockable=1
-
-[ToDo List]
-Create=1
-Visible=0
-State=0
-Left=334
-Top=107
-Width=480
-Height=271
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=472
-ClientHeight=245
-TBDockHeight=271
-LRDockWidth=480
-Dockable=1
-Column0Width=200
-Column1Width=30
-Column2Width=100
-Column3Width=70
-Column4Width=70
-SortOrder=3
-ShowHints=1
-ShowChecked=1
-
-[FPUWindow]
-Create=1
-Visible=0
-State=0
-Left=363
-Top=263
-Width=457
-Height=250
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=449
-ClientHeight=216
-RegisterPane=121
-FlagPane=59
-
-[ModuleWindow]
-Create=1
-Visible=0
-State=0
-Left=197
-Top=130
-Width=638
-Height=355
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=630
-ClientHeight=329
-TBDockHeight=355
-LRDockWidth=638
-Dockable=1
-Column0Width=125
-Column1Width=100
-Column2Width=155
-EntryPointPane=225
-CompUnitPane=104
-
-[MessageHintFrm]
-Create=1
-Visible=0
-State=0
-Left=481
-Top=423
-Width=383
-Height=195
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=375
-ClientHeight=169
-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
-
-[DockSite0]
-DockSiteType=1
-Create=1
-Visible=1
-State=0
-Left=9
-Top=102
-Width=428
-Height=789
-MaxLeft=-1
-MaxTop=-1
-ClientWidth=420
-ClientHeight=763
-TBDockHeight=916
-LRDockWidth=325
-Dockable=1
-TabPosition=0
-ActiveTab=Object Inspector
-TabDockClients=PropertyInspector,ObjectTree
-

Informes/InformeAlbaranCliente.pas

@@ -38,7 +38,6 @@ type
     TablaDetallesAlbaranes: TIBQuery;
   private
     FCodigo : Variant;
-    FConLogo: Boolean;
   protected
     procedure PrepararConsultas; override;
   public
@@ -51,29 +50,15 @@ var
   dmInformeAlbaranCliente: TdmInformeAlbaranCliente;
 
 implementation
-{$R *.dfm}
 
-uses Literales, Mensajes;
+{$R *.dfm}
 
 { 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);
-     
-  if FConLogo then
-    FNombreInforme := 'InformeAlbaranCliente(Con logo).frf'
-  else
   FNombreInforme := 'InformeAlbaranCliente.frf';
-
-
 end;
 
 procedure TdmInformeAlbaranCliente.PrepararConsultas;

Informes/InformeBase.dfm

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

Informes/InformeBase.pas

@@ -143,15 +143,12 @@ begin
             CadenaAux := '';
             if not EsCadenaVacia(EmpresaActiva.Web) then
               CadenaAux := EmpresaActiva.Web;
-
-{El correo electronico será propio a cada sucursal
             if not EsCadenaVacia(EmpresaActiva.Correo) then
             begin
               if not EsCadenaVacia(CadenaAux) then
                 CadenaAux := CadenaAux + ' · ';
               CadenaAux := CadenaAux + EmpresaActiva.Correo;
             end;
-}
             Memo.Add(CadenaAux);
             CadenaAux := '';
             if (not EsCadenaVacia(EmpresaActiva.NifCif)) then
@@ -220,8 +217,6 @@ begin
       CadenaAux := 'Telf. ' + Telefono;
     if (not EsCadenaVacia(Fax)) then
       CadenaAux := CadenaAux + ' Fax ' + Fax;
-    if (not EsCadenaVacia(Correo)) then
-      CadenaAux := CadenaAux + #10 + Correo;
     Result := CadenaAux;
   end;
 end;

Informes/InformeContratoCliente.dfm

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

Informes/InformeContratoCliente.pas

@@ -26,7 +26,6 @@ type
     FCodigoContrato : Variant;
     FEntidad: TRdxEntidad;
     FDocumento : TDocumento;
-    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
     procedure PrepararInforme; override;
@@ -48,20 +47,13 @@ implementation
 {$R *.dfm}
 
 uses
-  Literales, Mensajes, StrFunc, Constantes, ComCtrls;
+  StrFunc, Constantes, ComCtrls;
 
 { TdmInformeContratoCliente }
 
 constructor TdmInformeContratoCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
   inherited;
-  FConLogo := True;
-
-  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
-
   FDocumento := TDocumento.Create('MCOCINA');
 end;
 
@@ -174,7 +166,7 @@ begin
           with (Objeto as TfrMemoView), EmpresaActiva do
           begin
             Memo.Clear;
-            Memo.Add('CONFORME ' + Nombre);
+            Memo.Add('CONFORME ' + NombreComercial);
           end;
         end;
 
@@ -202,28 +194,16 @@ begin
   end;
 end;
 
-procedure TdmInformeContratoCliente.SetEntidad(const Value: TRdxEntidad);
+procedure TdmInformeContratoCliente.SetEntidad(
+  const Value: TRdxEntidad);
 begin
   if FEntidad = Value then
     Exit;
-
   FEntidad := Value;
   case FEntidad of
-    entContratoCocina  : if FConLogo then
+    entContratoCocina  : FNombreInforme := 'ContratoCocina.frf';
-                            FNombreInforme := 'ContratoCocina(Con logo).frf'
+    entContratoBano    : FNombreInforme := 'ContratoBano.frf';
-                         else
+    entContratoArmarios : FNombreInforme := 'ContratoArmarios.frf';
-                            FNombreInforme := 'ContratoCocina.frf';
-    entContratoBano    : if FConLogo then
-                            FNombreInforme := 'ContratoBano(Con logo).frf'
-                         else
-                            FNombreInforme := 'ContratoBano.frf';
-    entContratoArmarios : if FConLogo then
-                             FNombreInforme := 'ContratoArmarios(Con logo).frf'
-                          else
-                             FNombreInforme := 'ContratoArmarios.frf';
-  else
-    if FConLogo then
-       FNombreInforme := 'ContratoCliente(Con logo).frf'
   else
     FNombreInforme := 'ContratoCliente.frf';
   end;

Informes/InformeFacturaCliente.dfm

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

Informes/InformeFacturaCliente.pas

@@ -15,7 +15,6 @@ type
     TablaDetallesFacturas: TIBQuery;
   private
     FCodigoFactura : Variant;
-    FConLogo: Boolean;
   protected
     procedure RellenarCabecera(Band: TfrBand); override;
     procedure PrepararConsultas; override;
@@ -33,23 +32,13 @@ implementation
 {$R *.dfm}
 
 uses
-  Mensajes, Literales, TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
+  TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
 
 { 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);
-     
-  if FConLogo then
-    FNombreInforme := 'FacturaCliente(Con logo).frf'
-  else
   FNombreInforme := 'FacturaCliente.frf';
 end;
 

Informes/InformeHistorialFacturacionClientes.pas

@@ -88,14 +88,14 @@ begin
     SQL.Add('COALESCE(C.CODIGOPOSTAL, FC.CODIGOPOSTAL) as CODIGOPOSTAL, ');
     SQL.Add('COALESCE(C.POBLACION, FC.POBLACION) as POBLACION ,');
     SQL.Add('COALESCE(C.PROVINCIA, FC.PROVINCIA) as PROVINCIA ,');    
-    SQL.Add('FC.IVA, FC.BASEIMPONIBLE AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
+    SQL.Add('FC.IVA, (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
     SQL.Add('from FACTURASCLIENTE FC left join sucursalescliente C');
     SQL.Add('on (FC.CODIGOCLIENTE = C.CODIGOCLIENTE) and (C.TIPO = ''P'')');
     SQL.Add('where FC.CODIGOEMPRESA = :CODIGOEMPRESA');
     SQL.Add('and upper(FC.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
     SQL.Add('and FC.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
     if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and FC.BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
     SQL.Add('order by FC.NOMBRE, FC.FECHAFACTURA');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
     ParamByName('NOMBREINI').AsString := FNombreIni;

Informes/InformeHistorialFacturacionProveedores.pas

@@ -87,7 +87,7 @@ begin
     SQL.Add('COALESCE(P.CODIGOPOSTAL, FP.CODIGOPOSTAL) as CODIGOPOSTAL, ');
     SQL.Add('COALESCE(P.POBLACION, FP.POBLACION) as POBLACION ,');
     SQL.Add('COALESCE(P.PROVINCIA, FP.PROVINCIA) as PROVINCIA ,');
-    SQL.Add('FP.IVA, FP.BASEIMPONIBLE AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
+    SQL.Add('FP.IVA, (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
     SQL.Add('from FACTURASPROVEEDOR FP left join PROVEEDORES P');
     SQL.Add('on FP.CODIGOPROVEEDOR = P.CODIGO');
     SQL.Add('left join TIPOSFACTURAS TF');
@@ -96,7 +96,7 @@ begin
     SQL.Add('and upper(FP.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
     SQL.Add('and FP.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
     if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and FP.BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
     SQL.Add('order by FP.NOMBRE, FP.FECHAFACTURA');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
     ParamByName('NOMBREINI').AsString := FNombreIni;

Informes/InformePagoCliente.pas

@@ -94,8 +94,6 @@ begin
       CadenaAux := 'Telf. ' + Telefono;
     if (not EsCadenaVacia(Fax)) then
       CadenaAux := CadenaAux + ' Fax ' + Fax;
-    if (not EsCadenaVacia(Correo)) then
-      CadenaAux := CadenaAux + #10 + Correo;
     Result := CadenaAux;
   end;
 end;
@@ -148,14 +146,12 @@ begin
             CadenaAux := '';
             if not EsCadenaVacia(EmpresaActiva.Web) then
               CadenaAux := EmpresaActiva.Web;
-{El correo será local a cada sucursal
             if not EsCadenaVacia(EmpresaActiva.Correo) then
             begin
               if not EsCadenaVacia(CadenaAux) then
                 CadenaAux := CadenaAux + ' · ';
               CadenaAux := CadenaAux + EmpresaActiva.Correo;
             end;
-}
             CadenaAux := '';
             if (not EsCadenaVacia(EmpresaActiva.NifCif)) then
               CadenaAux := '   NIF: ' + EmpresaActiva.NifCif;

Informes/InformePresupuestoCliente.dfm

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

Informes/InformePresupuestoCliente.pas

@@ -24,7 +24,6 @@ type
   private
     FCodigoPresupuesto : Variant;
     FEntidad: TRdxEntidad;
-    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
     procedure RellenarCabecera(Band: TfrBand); override;  
@@ -46,19 +45,14 @@ implementation
 {$R *.dfm}
 
 uses
-  Literales, StrFunc, Constantes, ShellAPI, Mensajes;
+  StrFunc, Constantes, ShellAPI, Mensajes;
 
 { TdmInformePresupuestoCliente }
 
 constructor TdmInformePresupuestoCliente.Create(AOwner: TComponent);
-var
-  i: Integer;
 begin
   inherited;
-  FConLogo := True;
+  //FNombreInforme := 'PresupuestoCliente.frf';
-
-  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
-     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
 end;
 
 procedure TdmInformePresupuestoCliente.ImprimirFinanciacion;
@@ -188,14 +182,12 @@ begin
             CadenaAux := '';
             if not EsCadenaVacia(EmpresaActiva.Web) then
               CadenaAux := EmpresaActiva.Web;
-{El correo sera propio a cada sucursal
             if not EsCadenaVacia(EmpresaActiva.Correo) then
             begin
               if not EsCadenaVacia(CadenaAux) then
                 CadenaAux := CadenaAux + ' · ';
               CadenaAux := CadenaAux + EmpresaActiva.Correo;
             end;
-}            
             Memo.Add(CadenaAux);
           end;
         end;
@@ -211,28 +203,16 @@ begin
   end;
 end;
 
-procedure TdmInformePresupuestoCliente.SetEntidad(const Value: TRdxEntidad);
+procedure TdmInformePresupuestoCliente.SetEntidad(
+  const Value: TRdxEntidad);
 begin
   if FEntidad = Value then
     Exit;
-
   FEntidad := Value;
   case FEntidad of
-    entPresupuestoCocina  : if FConLogo then
+    entPresupuestoCocina  : FNombreInforme := 'PresupuestoCocina.frf';
-                               FNombreInforme := 'PresupuestoCocina(Con logo).frf'
+    entPresupuestoBano    : FNombreInforme := 'PresupuestoBano.frf';
-                            else
+    entPresupuestoArmarios : FNombreInforme := 'PresupuestoArmarios.frf';
-                               FNombreInforme := 'PresupuestoCocina.frf';
-    entPresupuestoBano    : if FConLogo then
-                               FNombreInforme := 'PresupuestoBano(Con logo).frf'
-                            else
-                               FNombreInforme := 'PresupuestoBano.frf';
-    entPresupuestoArmarios : if FConLogo then
-                               FNombreInforme := 'PresupuestoArmarios(Con logo).frf'
-                             else
-                               FNombreInforme := 'PresupuestoArmarios.frf';
-  else
-    if FConLogo then
-      FNombreInforme := 'PresupuestoCliente(Con logo).frf'
   else
     FNombreInforme := 'PresupuestoCliente.frf';
   end;

Informes/InformeResumenFacturacionClientes.pas

@@ -84,13 +84,13 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select NOMBRE, BASEIMPONIBLE AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
     SQL.Add('from FACTURASCLIENTE ');
     SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
     SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
     SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
     if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
     SQL.Add('order by NOMBRE');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
     ParamByName('NOMBREINI').AsString := FNombreIni;

Informes/InformeResumenFacturacionProveedores.pas

@@ -82,13 +82,13 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select NOMBRE, BASEIMPONIBLE AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
     SQL.Add('from FACTURASPROVEEDOR ');
     SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
     SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) ');
     SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN ');
     if not VarIsNull(FImporteMinimo) then
-       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
+       SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
     SQL.Add('order by NOMBRE');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
     ParamByName('NOMBREINI').AsString := FNombreIni;

Informes/InformeTrimestralCompras.dfm

@@ -1,7 +1,7 @@
 inherited dmInformeTrimestralCompras: TdmInformeTrimestralCompras
   OldCreateOrder = True
   Left = 773
-  Top = 245
+  Top = 280
   Width = 344
   inherited FReport: TfrReport
     Dataset = TablaRes

Informes/InformeTrimestralCompras.pas

@@ -42,8 +42,6 @@ type
   private
     FTipo : TTipoFacturaProveedor;
     FCodigoTrimestre : Variant;
-    FFechaFin: TDateTime;
-    FFechaIni: TDateTime;
     FListaCodTiposOp : TStringList;
     FListaDesTiposOp : TStringList;
     function RellenarListaTipoOp : boolean;
@@ -58,8 +56,6 @@ type
   published
     property Tipo : TTipoFacturaProveedor read FTipo write FTipo;
     property CodigoTrimestre : variant read FCodigoTrimestre write FCodigoTrimestre;
-    property FechaIni : TDateTime read FFechaIni write FFechaIni;
-    property FechaFin : TDateTime read FFechaFin write FFechaFin;
   end;
 
 var
@@ -108,7 +104,7 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select EXTRACT (MONTH FROM FECHAFACTURA) as MES, EXTRACT (DAY FROM FECHAFACTURA) as DIA, REFERENCIA, CODIGO, ');
+    SQL.Add('select EXTRACT (MONTH FROM FECHAFACTURA) as MES, EXTRACT (DAY FROM FECHAFACTURA) as DIA, REFERENCIA, ');
     SQL.Add('NIFCIF, NOMBRE, ');
 
     if Tipo = tipGeneral
@@ -117,7 +113,7 @@ begin
     for i := 0 to ContAux do
     begin
       if i < FListaCodTiposOp.Count then
-        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then BASEIMPONIBLE else null end as OP' + IntToStr(i) + ', ')
+        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then (BASEIMPONIBLE - IMPORTEDESCUENTO) else null end as OP' + IntToStr(i) + ', ')
       else
         SQL.Add('0 as OP' + IntToStr(i) + ', ');
     end;
@@ -125,9 +121,7 @@ begin
     SQL.Add('IVA, IMPORTEIVA, IMPORTETOTAL ');
     SQL.Add('from FACTURASPROVEEDOR');
     SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA');
-//    SQL.Add('and CODIGOTRIMESTRE = :CODIGO ');
+    SQL.Add('and CODIGOTRIMESTRE = :CODIGO ');
-    SQL.Add('and FECHAFACTURA between :FECHAINI and :FECHAFIN ');
-
 
     if Tipo = tipGeneral
     then SQL.Add('and TIPOFACTURA between 0 and 13 ')
@@ -135,10 +129,7 @@ begin
 
     SQL.Add('order by FECHAFACTURA, NOMBRE');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-//    ParamByName('CODIGO').AsString := FCodigoTrimestre;
+    ParamByName('CODIGO').AsString := FCodigoTrimestre;
-    ParamByName('FECHAINI').AsDateTime := FFechaIni;
-    ParamByName('FECHAFIN').AsDateTime := FFechaFin;
-
     Prepare;
   end;
 
@@ -147,12 +138,11 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM(F.BASEIMPONIBLE) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
+    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM((F.BASEIMPONIBLE - F.IMPORTEDESCUENTO)) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
     SQL.Add('from FACTURASPROVEEDOR F, TIPOSFACTURAS T');
     SQL.Add('where F.TIPOFACTURA = T.CODIGO');
     SQL.Add('and F.CODIGOEMPRESA = :CODIGOEMPRESA');
-//    SQL.Add('and F.CODIGOTRIMESTRE = :CODIGO');
+    SQL.Add('and F.CODIGOTRIMESTRE = :CODIGO');
-    SQL.Add('and FECHAFACTURA between :FECHAINI and :FECHAFIN ');
 
     if Tipo = tipGeneral
     then SQL.Add('and TIPOFACTURA between 0 and 13 ')
@@ -161,10 +151,7 @@ begin
     SQL.Add('group by T.CODIGO, T.DESCRIPCION');
     SQL.Add('order by T.CODIGO, T.DESCRIPCION');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-//    ParamByName('CODIGO').AsString := FCodigoTrimestre;
+    ParamByName('CODIGO').AsString := FCodigoTrimestre;
-    ParamByName('FECHAINI').AsDateTime := FFechaIni;
-    ParamByName('FECHAFIN').AsDateTime := FFechaFin;
-
     Prepare;
   end;
 end;
@@ -198,12 +185,6 @@ begin
          if (FListaDesTiposOp.Count-1) >= i then
           (Objeto as TfrMemoView).Memo.Add(FListaDesTiposOp.Strings[i]);
       end;
-
-      if ((Objeto is TfrMemoView) and (Pos('RangoFechas', Objeto.Name) > 0)) then
-      begin
-         (Objeto as TfrMemoView).Memo.Clear;
-         (Objeto as TfrMemoView).Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
-      end;
     end;
   end;
 end;

Informes/InformeTrimestralVentas.dfm

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

Informes/InformeTrimestralVentas.pas

@@ -39,8 +39,6 @@ type
     TablaFacturas: TIBQuery;
   private
     FCodigoTrimestre : Variant;
-    FFechaFin: TDateTime;
-    FFechaIni: TDateTime;
     FListaIVA : TStringList;
     FListaRE : TStringList;
     function RellenarListaIVA : boolean;
@@ -53,8 +51,6 @@ type
     destructor Destroy; override;
   published
     property CodigoTrimestre : variant read FCodigoTrimestre write FCodigoTrimestre;
-    property FechaIni : TDateTime read FFechaIni write FFechaIni;
-    property FechaFin : TDateTime read FFechaFin write FFechaFin;
   end;
 
 var
@@ -131,19 +127,14 @@ begin
     end;
 
     //Para que el importe total de cada factura sea de 4 decimales y el total salga con exactitud
-    SQL.Add('BASEIMPONIBLE + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
+    SQL.Add('BASEIMPONIBLE - coalesce(importedescuento,0) + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
     SQL.Add('from FACTURASCLIENTE FC, TIPOSFACTURAS TF ');
     SQL.Add('where TIPOFACTURA = TF.CODIGO ');
     SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA');
-//    SQL.Add('and CODIGOTRIMESTRE = :CODIGO ');
+    SQL.Add('and CODIGOTRIMESTRE = :CODIGO ');
-    SQL.Add('and FECHAFACTURA between :FECHAINI and :FECHAFIN ');
-
     SQL.Add('order by FECHAFACTURA, FC.CODIGO');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
-//    ParamByName('CODIGO').AsString := FCodigoTrimestre;
+    ParamByName('CODIGO').AsString := FCodigoTrimestre;
-    ParamByName('FECHAINI').AsDateTime := FFechaIni;
-    ParamByName('FECHAFIN').AsDateTime := FFechaFin;
-
     Prepare;
   end;
 end;
@@ -184,12 +175,6 @@ begin
          if (FListaRE.Count-1) >= i then
           (Objeto as TfrMemoView).Memo.Add(FListaRE.Strings[i] + '%');
       end;
-
-      if ((Objeto is TfrMemoView) and (Pos('RangoFechas', Objeto.Name) > 0)) then
-      begin
-         (Objeto as TfrMemoView).Memo.Clear;
-         (Objeto as TfrMemoView).Memo.Add('Rango de fechas: ' + DateToStr(FFechaIni) + ' - ' + DateToStr(FFechaFin));
-      end;
     end;
   end;
 end;

Informes/PantallaInformesCompras.dfm

@@ -1,8 +1,8 @@
 object frInformesCompras: TfrInformesCompras
   Left = 0
   Top = 0
-  Width = 630
+  Width = 669
-  Height = 410
+  Height = 497
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -15,7 +15,7 @@ object frInformesCompras: TfrInformesCompras
   object BarraInformes: TRdxBarraSuperior
     Left = 0
     Top = 0
-    Width = 630
+    Width = 669
     Height = 25
     Caption = 'Informes de compras y gastos '
     Font.Charset = DEFAULT_CHARSET
@@ -34,7 +34,7 @@ object frInformesCompras: TfrInformesCompras
     object imgSombra: TImage
       Left = 0
       Top = 0
-      Width = 630
+      Width = 669
       Height = 8
       Align = alTop
     end
@@ -42,8 +42,8 @@ object frInformesCompras: TfrInformesCompras
   object pnlCuerpo: TPanel
     Left = 0
     Top = 25
-    Width = 630
+    Width = 669
-    Height = 385
+    Height = 472
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -52,8 +52,8 @@ object frInformesCompras: TfrInformesCompras
     object RdxPanel1: TRdxPanel
       Left = 10
       Top = 10
-      Width = 610
+      Width = 649
-      Height = 365
+      Height = 452
       BorderStyle = bsSingle
       Caption = ' '
       BorderWidth = 1
@@ -66,7 +66,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel1: TPanel
         Left = 1
         Top = 17
-        Width = 608
+        Width = 647
         Height = 92
         Align = alTop
         AutoSize = True
@@ -153,7 +153,7 @@ object frInformesCompras: TfrInformesCompras
         object Panel2: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 563
           Height = 72
           Align = alClient
           AutoSize = True
@@ -161,7 +161,7 @@ object frInformesCompras: TfrInformesCompras
           ParentColor = True
           TabOrder = 0
           object Panel3: TPanel
-            Left = 248
+            Left = 287
             Top = 0
             Width = 276
             Height = 72
@@ -209,7 +209,7 @@ object frInformesCompras: TfrInformesCompras
           object Panel4: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 287
             Height = 72
             Align = alClient
             AutoSize = True
@@ -219,7 +219,7 @@ object frInformesCompras: TfrInformesCompras
             object Label1: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 287
               Height = 20
               Align = alTop
               AutoSize = False
@@ -235,7 +235,7 @@ object frInformesCompras: TfrInformesCompras
             object Label2: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 287
               Height = 52
               Align = alClient
               Caption = 
@@ -266,7 +266,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel5: TPanel
         Left = 1
         Top = 1
-        Width = 608
+        Width = 647
         Height = 16
         Align = alTop
         BevelOuter = bvNone
@@ -276,7 +276,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel17: TPanel
         Left = 1
         Top = 109
-        Width = 608
+        Width = 647
         Height = 92
         Align = alTop
         AutoSize = True
@@ -363,7 +363,7 @@ object frInformesCompras: TfrInformesCompras
         object Panel18: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 563
           Height = 72
           Align = alClient
           AutoSize = True
@@ -371,7 +371,7 @@ object frInformesCompras: TfrInformesCompras
           ParentColor = True
           TabOrder = 0
           object Panel19: TPanel
-            Left = 248
+            Left = 287
             Top = 0
             Width = 276
             Height = 72
@@ -419,7 +419,7 @@ object frInformesCompras: TfrInformesCompras
           object Panel20: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 287
             Height = 72
             Align = alClient
             AutoSize = True
@@ -429,7 +429,7 @@ object frInformesCompras: TfrInformesCompras
             object Label7: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 287
               Height = 20
               Align = alTop
               AutoSize = False
@@ -445,7 +445,7 @@ object frInformesCompras: TfrInformesCompras
             object Label8: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 287
               Height = 52
               Align = alClient
               Caption = 'Informe con el importe por compras de un determinado trimestre'

Informes/PantallaInformesCompras.pas

@@ -71,7 +71,7 @@ implementation
 {$R *.dfm}
 
 uses
-  InformeTrimestral, ImprimirInformeTrimestral, HistorialFacturacionProveedores, Configuracion,
+  InformeTrimestral, HistorialFacturacionProveedores, Configuracion,
   TablaProveedores, StrFunc, Mensajes, Literales;
 
 procedure TfrInformesCompras.bSeleccionarClick(Sender: TObject);
@@ -87,14 +87,9 @@ end;
 
 procedure TfrInformesCompras.RdxBoton3Click(Sender: TObject);
 begin
-// Quitamos pantalla en la que se pueden modificar las facturas entre trimestres.
+  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido.Entidad := entInformeTrimestralCompras;
-//  Contenido.Modo := Consultar;
-
-  Contenido := TfrImprimirInformeTrimestral.Create(Self);
   Contenido.Entidad := entInformeTrimestralCompras;  
-  Contenido.Modo := Imprimir;
+  Contenido.Modo := Consultar;
 end;
 
 constructor TfrInformesCompras.Create(AOwner: TComponent);

Informes/PantallaInformesContabilidad.dfm

@@ -2,7 +2,7 @@ object frInformesContabilidad: TfrInformesContabilidad
   Left = 0
   Top = 0
   Width = 610
-  Height = 412
+  Height = 592
   Color = 16383743
   ParentColor = False
   TabOrder = 0
@@ -37,7 +37,7 @@ object frInformesContabilidad: TfrInformesContabilidad
     Left = 0
     Top = 25
     Width = 610
-    Height = 387
+    Height = 567
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -47,7 +47,7 @@ object frInformesContabilidad: TfrInformesContabilidad
       Left = 10
       Top = 10
       Width = 590
-      Height = 367
+      Height = 547
       BorderStyle = bsSingle
       Caption = ' '
       BorderWidth = 1

Informes/PantallaInformesContabilidad.pas

@@ -80,9 +80,9 @@ implementation
 {$R *.dfm}
 
 uses
-  Configuracion, InformeTrimestral, ImprimirInformeTrimestral, ImprimirLibro,
+  Configuracion, InformeTrimestral, ImprimirLibro, ImprimirBeneficiosAnuales,
-  ImprimirBeneficiosAnuales, ImprimirBeneficiosAnualesContratos,
+  ImprimirBeneficiosAnualesContratos, TablaFacturasCliente, TablaContratos,
-  TablaFacturasCliente, TablaContratos, Literales, Mensajes;
+  Literales, Mensajes;
 
 
 procedure TfrInformesContabilidad.RdxBoton1Click(Sender: TObject);
@@ -95,24 +95,16 @@ end;
 
 procedure TfrInformesContabilidad.RdxBoton3Click(Sender: TObject);
 begin
-//  Contenido := TfrInformeTrimestral.Create(Self);
+  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido.Entidad := entInformeTrimestralCompras;
-//  Contenido.Modo := Consultar;
-
-  Contenido := TfrImprimirInformeTrimestral.Create(Self);
   Contenido.Entidad := entInformeTrimestralCompras;
-  Contenido.Modo := Imprimir;
+  Contenido.Modo := Consultar;
 end;
 
 procedure TfrInformesContabilidad.bSeleccionarClick(Sender: TObject);
 begin
-//  Contenido := TfrInformeTrimestral.Create(Self);
+  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido.Entidad := entInformeTrimestralVentas;
-//  Contenido.Modo := Consultar;
-
-  Contenido := TfrImprimirInformeTrimestral.Create(Self);
   Contenido.Entidad := entInformeTrimestralVentas;
-  Contenido.Modo := Imprimir;
+  Contenido.Modo := Consultar;
 end;
 
 procedure TfrInformesContabilidad.RdxBoton2Click(Sender: TObject);

Informes/PantallaInformesVentas.dfm

@@ -1,15 +1,15 @@
 object frInformesVentas: TfrInformesVentas
   Left = 0
   Top = 0
-  Width = 630
+  Width = 713
-  Height = 410
+  Height = 624
   Color = 16383743
   ParentColor = False
   TabOrder = 0
   object BarraInformes: TRdxBarraSuperior
     Left = 0
     Top = 0
-    Width = 630
+    Width = 713
     Height = 25
     Caption = 'Informes de ventas e ingresos '
     Font.Charset = DEFAULT_CHARSET
@@ -28,7 +28,7 @@ object frInformesVentas: TfrInformesVentas
     object imgSombra: TImage
       Left = 0
       Top = 0
-      Width = 630
+      Width = 713
       Height = 8
       Align = alTop
     end
@@ -36,8 +36,8 @@ object frInformesVentas: TfrInformesVentas
   object pnlCuerpo: TPanel
     Left = 0
     Top = 25
-    Width = 630
+    Width = 713
-    Height = 385
+    Height = 599
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -46,8 +46,8 @@ object frInformesVentas: TfrInformesVentas
     object RdxPanel1: TRdxPanel
       Left = 10
       Top = 10
-      Width = 610
+      Width = 693
-      Height = 365
+      Height = 579
       BorderStyle = bsSingle
       Caption = ' '
       BorderWidth = 1
@@ -60,7 +60,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel1: TPanel
         Left = 1
         Top = 385
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -147,7 +147,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel2: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -155,7 +155,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel3: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -203,7 +203,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel4: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -213,7 +213,7 @@ object frInformesVentas: TfrInformesVentas
             object Label1: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -229,7 +229,7 @@ object frInformesVentas: TfrInformesVentas
             object Label2: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 
@@ -260,7 +260,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel5: TPanel
         Left = 1
         Top = 1
-        Width = 608
+        Width = 691
         Height = 16
         Align = alTop
         BevelOuter = bvNone
@@ -270,7 +270,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel17: TPanel
         Left = 1
         Top = 293
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -357,7 +357,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel18: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -365,7 +365,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel19: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -413,7 +413,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel20: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -423,7 +423,7 @@ object frInformesVentas: TfrInformesVentas
             object Label7: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -439,7 +439,7 @@ object frInformesVentas: TfrInformesVentas
             object Label8: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 
@@ -470,7 +470,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel22: TPanel
         Left = 1
         Top = 477
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -558,7 +558,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel23: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -566,7 +566,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel24: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -615,7 +615,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel25: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -625,7 +625,7 @@ object frInformesVentas: TfrInformesVentas
             object Label9: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -642,7 +642,7 @@ object frInformesVentas: TfrInformesVentas
             object Label10: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 'Informe con los ingresos por ventas de un determinado trimestre'
@@ -672,7 +672,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel7: TPanel
         Left = 1
         Top = 109
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -759,7 +759,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel8: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -767,7 +767,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel9: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -815,7 +815,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel10: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -825,7 +825,7 @@ object frInformesVentas: TfrInformesVentas
             object Label3: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -841,7 +841,7 @@ object frInformesVentas: TfrInformesVentas
             object Label4: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 
@@ -872,7 +872,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel12: TPanel
         Left = 1
         Top = 201
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -959,7 +959,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel13: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -967,7 +967,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel14: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -1015,7 +1015,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel15: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -1025,7 +1025,7 @@ object frInformesVentas: TfrInformesVentas
             object Label5: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -1041,7 +1041,7 @@ object frInformesVentas: TfrInformesVentas
             object Label6: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 
@@ -1072,7 +1072,7 @@ object frInformesVentas: TfrInformesVentas
       object Panel27: TPanel
         Left = 1
         Top = 17
-        Width = 608
+        Width = 691
         Height = 92
         Align = alTop
         AutoSize = True
@@ -1159,7 +1159,7 @@ object frInformesVentas: TfrInformesVentas
         object Panel28: TPanel
           Left = 74
           Top = 10
-          Width = 524
+          Width = 607
           Height = 72
           Align = alClient
           AutoSize = True
@@ -1167,7 +1167,7 @@ object frInformesVentas: TfrInformesVentas
           ParentColor = True
           TabOrder = 0
           object Panel29: TPanel
-            Left = 248
+            Left = 331
             Top = 0
             Width = 276
             Height = 72
@@ -1215,7 +1215,7 @@ object frInformesVentas: TfrInformesVentas
           object Panel30: TPanel
             Left = 0
             Top = 0
-            Width = 248
+            Width = 331
             Height = 72
             Align = alClient
             AutoSize = True
@@ -1225,7 +1225,7 @@ object frInformesVentas: TfrInformesVentas
             object Label11: TLabel
               Left = 0
               Top = 0
-              Width = 248
+              Width = 331
               Height = 20
               Align = alTop
               AutoSize = False
@@ -1241,7 +1241,7 @@ object frInformesVentas: TfrInformesVentas
             object Label12: TLabel
               Left = 0
               Top = 20
-              Width = 248
+              Width = 331
               Height = 52
               Align = alClient
               Caption = 

Informes/PantallaInformesVentas.pas

@@ -113,7 +113,7 @@ implementation
 uses
   Configuracion, ListadoPagosCliente, HistorialFacturacionClientes,
   ListadoFacturacionProcedencia, ListadoContratacionProcedencia,
-  ListadoPresupuestosProcedencia, ImprimirInformeTrimestral,
+  ListadoPresupuestosProcedencia,
   InformeTrimestral, TablaClientes, StrFunc, Mensajes, Literales;
 
 procedure TfrInformesVentas.RdxBoton3Click(Sender: TObject);
@@ -135,14 +135,9 @@ end;
 
 procedure TfrInformesVentas.RdxBoton4Click(Sender: TObject);
 begin
-// Quitamos pantalla en la que se pueden modificar las facturas entre trimestres.
+  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido := TfrInformeTrimestral.Create(Self);
-//  Contenido.Entidad := entInformeTrimestralVentas;
-//  Contenido.Modo := Consultar;
-
-  Contenido := TfrImprimirInformeTrimestral.Create(Self);
   Contenido.Entidad := entInformeTrimestralVentas;
-  Contenido.Modo := Imprimir;
+  Contenido.Modo := Consultar;
 end;
 
 constructor TfrInformesVentas.Create(AOwner: TComponent);

Libreria/Constantes.pas

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

Libreria/Literales.pas

@@ -25,23 +25,6 @@ unit Literales;
 
 interface
 
-const
-  CTE_COMPRAS = 'COMPRAS';
-  CTE_PROVEEDORES = 'PROVEEDORES';
-  CTE_FACTURAS_PROVEEDOR = 'FACTURAS_PROVEEDOR';
-  CTE_PAGOS_PROVEEDOR = 'PAGOS_PROVEEDOR';
-  CTE_VENTAS = 'VENTAS';
-  CTE_CLIENTES = 'CLIENTES';
-  CTE_PRESUPUESTOS = 'PRESUPUESTOS';
-  CTE_CONTRATOS = 'CONTRATOS';
-  CTE_ALBARANES = 'ALBARANES';
-  CTE_FACTURAS_CLIENTE = 'FACTURAS_CLIENTE';
-  CTE_PAGOS_CLIENTE = 'PAGOS_CLIENTE';
-  CTE_FACTURAS_PROFORMA = 'FACTURAS_PROFORMA';          
-  CTE_CONTABILIDAD = 'CONTABILIDAD';
-  CTE_INFORMES = 'INFORMES';
-  CTE_INFORMES_CONLOGO = 'INFORMES_SIEMPRE_CONLOGO';
-
 resourcestring
 ////////////////////////////////////////////////////////////////////////////////
 // Mensajes
@@ -399,9 +382,6 @@ resourcestring
   msgInfTri0 = 'No ha sido asignada la lista de tipos de operación al informe';
   msgInfTri1 = 'Existen más tipos de operacion que los iniciales 14!';
 
-//Informes
-  msgConLogo = '¿Desea imprimir el documento con logotipo?';
-
 implementation
 
 end.

Libreria/RdxEmpresaActiva.pas

@@ -58,7 +58,6 @@ type
     function GetIntervaloPagosCli: Real;
     function GetWeb: String;
     procedure SetCodigo(const Value: Integer);
-    function GetRestricciones: TStringList;
   public
     property Codigo : Integer read GetCodigo write SetCodigo;
     property FechaAlta : String read GetFechaAlta;
@@ -75,7 +74,6 @@ type
     property LibroDefecto : String read GetLibroDefecto;
     property Logotipo : TPicture read GetLogotipo;
     property Direcciones : TListaObjetos read GetDirecciones;
-    property Restricciones : TStringList read GetRestricciones;    
     class function NewInstance: TObject; override;
     procedure FreeInstance; override;
     procedure Refrescar;
@@ -200,14 +198,6 @@ begin
     Result := '';
 end;
 
-function TEmpresaSingleton.GetRestricciones: TStringList;
-begin
-  if Assigned(FDatosEmpresa) then
-    Result := (FDatosEmpresa as TDatosEmpresa).Restricciones
-  else
-    Result := NIL;
-end;
-
 function TEmpresaSingleton.GetUsuario: String;
 begin
   if Assigned(FDatosEmpresa) then

PantallaAcceso.dfm

@@ -2084,7 +2084,8 @@ object fPantallaAcceso: TfPantallaAcceso
     AppStoragePath = '\'
     Options = []
     StoredProps.Strings = (
-      'Usuario.Text')
+      'Usuario.Text'
+      'Clave.Text')
     StoredValues = <
       item
         Name = 'Ruta'

Principal.dfm

@@ -1,7 +1,7 @@
 object frPrincipal: TfrPrincipal
   Left = 0
   Top = 0
-  Width = 443
+  Width = 778
   Height = 270
   Align = alClient
   Color = 14280169
@@ -11,7 +11,7 @@ object frPrincipal: TfrPrincipal
   object BarraEstado: TStatusBar
     Left = 0
     Top = 251
-    Width = 443
+    Width = 778
     Height = 19
     Panels = <
       item
@@ -21,7 +21,7 @@ object frPrincipal: TfrPrincipal
   object pnlBarraSuperior: TRdxGradientePanel
     Left = 0
     Top = 0
-    Width = 443
+    Width = 778
     Height = 70
     Align = alTop
     BevelOuter = bvNone
@@ -34,7 +34,7 @@ object frPrincipal: TfrPrincipal
     ColorShadow = clNone
     ColorStart = 7884880
     object imgFondo: TImage
-      Left = -1557
+      Left = -1222
       Top = 0
       Width = 2000
       Height = 70
@@ -361,7 +361,7 @@ object frPrincipal: TfrPrincipal
     object actVentas: TAction
       Caption = 'Ventas'
       OnExecute = actVentasExecute
-      OnUpdate = actVentasUpdate
+      OnUpdate = actDatosUpdate
     end
     object actContabilidad: TAction
       Caption = 'Contabilidad'

Principal.pas

@@ -107,7 +107,6 @@ type
     procedure actActualizarExecute(Sender: TObject);
     procedure actContabilidadUpdate(Sender: TObject);
     procedure actInformesUpdate(Sender: TObject);
-    procedure actVentasUpdate(Sender: TObject);
   private
   public
     Version : String;
@@ -352,36 +351,13 @@ begin
 end;
 
 procedure TfrPrincipal.actContabilidadUpdate(Sender: TObject);
-var
- i: Integer;
 begin
-  inherited;
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_CONTABILIDAD, i)
-  else
-     (Sender as TAction).Enabled := True;
 end;
 
 procedure TfrPrincipal.actInformesUpdate(Sender: TObject);
-var
- i: Integer;
 begin
-  inherited;
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_INFORMES, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrPrincipal.actVentasUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_VENTAS, i)
-  else
-     (Sender as TAction).Enabled := True;
 end;
 
 end.

Proveedores/BarraProveedores.dfm

@@ -73,11 +73,6 @@ object frBarraProveedores: TfrBarraProveedores
         FontDown.Height = -11
         FontDown.Name = 'Tahoma'
         FontDown.Style = []
-        FontDisabled.Charset = DEFAULT_CHARSET
-        FontDisabled.Color = clWindowText
-        FontDisabled.Height = -11
-        FontDisabled.Name = 'MS Sans Serif'
-        FontDisabled.Style = []
         Glyph.Data = {
           B6100000424DB610000000000000B60000002800000020000000200000000100
           2000000000000010000000000000000000001000000000000000000000000000
@@ -242,11 +237,6 @@ object frBarraProveedores: TfrBarraProveedores
         FontDown.Height = -11
         FontDown.Name = 'Tahoma'
         FontDown.Style = []
-        FontDisabled.Charset = DEFAULT_CHARSET
-        FontDisabled.Color = clWindowText
-        FontDisabled.Height = -11
-        FontDisabled.Name = 'MS Sans Serif'
-        FontDisabled.Style = []
         Glyph.Data = {
           36180000424D3618000000000000360800002800000020000000200000000100
           2000000000000010000000000000000000000001000000000000000000000000
@@ -441,11 +431,6 @@ object frBarraProveedores: TfrBarraProveedores
         FontDown.Height = -11
         FontDown.Name = 'Tahoma'
         FontDown.Style = []
-        FontDisabled.Charset = DEFAULT_CHARSET
-        FontDisabled.Color = clWindowText
-        FontDisabled.Height = -11
-        FontDisabled.Name = 'MS Sans Serif'
-        FontDisabled.Style = []
         Glyph.Data = {
           36100000424D3610000000000000360000002800000020000000200000000100
           2000000000000010000000000000000000000000000000000000FF00FF00FF00
@@ -623,19 +608,16 @@ object frBarraProveedores: TfrBarraProveedores
       Caption = 'Proveedores'
       ImageIndex = 0
       OnExecute = actProveedoresExecute
-      OnUpdate = actProveedoresUpdate
     end
     object actFacturas: TAction
       Caption = 'Facturas de proveedores'
       ImageIndex = 1
       OnExecute = actFacturasExecute
-      OnUpdate = actFacturasUpdate
     end
     object actPagos: TAction
       Caption = 'Pagos de proveedores'
       ImageIndex = 2
       OnExecute = actPagosExecute
-      OnUpdate = actPagosUpdate
     end
   end
 end

Proveedores/BarraProveedores.pas

@@ -49,9 +49,6 @@ type
     procedure actFacturasExecute(Sender: TObject);
     procedure actProveedoresExecute(Sender: TObject);
     procedure actPagosExecute(Sender: TObject);
-    procedure actFacturasUpdate(Sender: TObject);
-    procedure actPagosUpdate(Sender: TObject);
-    procedure actProveedoresUpdate(Sender: TObject);
   public
     constructor Create (AOwner: TComponent); override;
   end;
@@ -62,8 +59,7 @@ var
 implementation
 {$R *.DFM}
 uses
-  RdxEmpresaActiva, Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion,
+  Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion;
-  BaseDatos, Literales;
 
 constructor TfrBarraProveedores.Create (AOwner: TComponent);
 begin
@@ -88,37 +84,4 @@ begin
   Contenido := TfrPagosProveedores.Create(Self);
 end;
 
-procedure TfrBarraProveedores.actFacturasUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_FACTURAS_PROVEEDOR, i)
-  else
-     (Sender as TAction).Enabled := True;
-end;
-
-procedure TfrBarraProveedores.actPagosUpdate(Sender: TObject);
-var
- i: Integer;
-begin
-  inherited;
-  if (EmpresaActiva.Restricciones.Count > 0) then
-     (Sender as TAction).Enabled := not EmpresaActiva.Restricciones.Find(CTE_PAGOS_PROVEEDOR, i)
-  else
-     (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,14 +1508,12 @@ object frFacturaProveedor: TfrFacturaProveedor
           Width = 74
           Height = 13
           Caption = 'Descuento(%):'
-          Enabled = False
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
           ParentFont = False
-          Visible = False
         end
         object Label8: TLabel
           Left = 157
@@ -1550,11 +1548,9 @@ object frFacturaProveedor: TfrFacturaProveedor
           Top = 38
           DataBinding.DataField = 'DESCUENTO'
           DataBinding.DataSource = dsFactura
-          Enabled = False
           ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
           TabOrder = 1
-          Visible = False
           Width = 57
         end
         object IVA: TcxDBTextEdit

Proveedores/HistorialFacturacionProveedores.dfm

@@ -186,33 +186,41 @@ object frHistorialFacturacionProveedores: TfrHistorialFacturacionProveedores
       object cbCantidadMin: TcxCheckBox
         Left = 72
         Top = 64
+        Width = 161
+        Height = 21
         Caption = 'S'#243'lo facturas que superen:'
         ParentColor = False
-        ParentFont = False
         Properties.ImmediatePost = True
         Properties.OnChange = cbCantidadMinPropertiesChange
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
         TabOrder = 0
         OnClick = cbCantidadMinClick
-        Width = 161
       end
       object CantidadMinima: TcxSpinEdit
         Left = 227
         Top = 64
+        Width = 110
+        Height = 21
         Enabled = False
-        ParentFont = False
         Properties.ImmediatePost = True
         Properties.Increment = 100.000000000000000000
         Properties.ValueType = vtInt
         Properties.OnValidate = CantidadMinimaPropertiesValidate
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 1
         Value = 3000
-        Width = 110
       end
       object NombreProvIni: TcxButtonEdit
         Left = 152
         Top = 37
+        Width = 185
+        Height = 21
         ParentFont = False
         Properties.Buttons = <
           item
@@ -266,13 +274,17 @@ object frHistorialFacturacionProveedores: TfrHistorialFacturacionProveedores
         Properties.OnButtonClick = NombreProvIniPropertiesButtonClick
         Properties.OnValidate = NombreProvIniPropertiesValidate
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 2
         Text = 'NombreProvIni'
-        Width = 185
       end
       object NombreProvFin: TcxButtonEdit
         Left = 450
         Top = 37
+        Width = 185
+        Height = 21
         ParentFont = False
         Properties.Buttons = <
           item
@@ -326,9 +338,11 @@ object frHistorialFacturacionProveedores: TfrHistorialFacturacionProveedores
         Properties.OnButtonClick = NombreProvFinPropertiesButtonClick
         Properties.OnValidate = NombreProvFinPropertiesValidate
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 3
         Text = 'NombreProvFin'
-        Width = 185
       end
       object rbTrimestre: TRdxRadioButton
         Left = 48
@@ -349,13 +363,17 @@ object frHistorialFacturacionProveedores: TfrHistorialFacturacionProveedores
       object cbxTrimestres: TcxComboBox
         Left = 196
         Top = 109
+        Width = 275
+        Height = 21
         ParentFont = False
         Properties.DropDownListStyle = lsFixedList
         Properties.ReadOnly = False
         Properties.OnEditValueChanged = cbxTrimestresPropertiesEditValueChanged
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 5
-        Width = 275
       end
       object rbFechas: TRdxRadioButton
         Left = 48
@@ -374,36 +392,47 @@ object frHistorialFacturacionProveedores: TfrHistorialFacturacionProveedores
       object FechaInicial: TcxDateEdit
         Left = 196
         Top = 133
+        Width = 121
+        Height = 21
         Enabled = False
         ParentFont = False
         Properties.ImmediatePost = True
         Properties.OnValidate = FechaIniPropertiesValidate
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 7
-        Width = 121
       end
       object FechaFinal: TcxDateEdit
         Left = 350
         Top = 133
+        Width = 121
+        Height = 21
         Enabled = False
         ParentFont = False
         Properties.ImmediatePost = True
         Properties.OnValidate = FechaFinPropertiesValidate
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
         TabOrder = 8
-        Width = 121
       end
       object cbAgrupar: TcxCheckBox
         Left = 347
         Top = 64
+        Width = 161
+        Height = 21
         Caption = 'Desglosar por proveedor'
         ParentColor = False
-        ParentFont = False
         Properties.OnChange = cbAgruparPropertiesChange
         State = cbsChecked
         Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
+        StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro
         TabOrder = 9
-        Width = 161
       end
     end
   end

Proveedores/HistorialFacturacionProveedores.pas

@@ -36,7 +36,7 @@ uses
   cxContainer, cxEdit, cxTextEdit, StdCtrls, AdvPanel, ExtCtrls, Configuracion,
   cxCheckBox, cxSpinEdit, InformeHistorialFacturacionProveedores, VistaPrevia,
   TablaProveedores, TablaTrimestres, RdxRadioButton, RdxShape, Entidades,
-  InformeResumenFacturacionProveedores, cxGraphics;
+  InformeResumenFacturacionProveedores;
 
 type
   TfrHistorialFacturacionProveedores = class(TRdxFrame)

Temp/FACTUGES.INI

@@ -1,6 +1,6 @@
 [BD]
-ABETO ARMARIOS SERVIDOR=localhost:C:\FactuGES (Abeto)\BD\abeto.gdb
+ABETO ARMARIOS SERVIDOR=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
 ABETO ARMARIOS DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb
-ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo\bd\abeto.gdb
+ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo Abeto\bd\abeto.gdb
 ABETO ARMARIOS DAVID T=david:T:\Codigo Abeto\bd\abeto.gdb