Version 3.3.1 Se establecen pribilegios por empresa, modulo y apartado

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

BaseDatos/BaseDatos.dfm

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

BaseDatos/BaseDatos.pas

@@ -36,8 +36,9 @@ uses
   Entidades, Contadores, RdxGestorContadores;
 
 Const
-  CTE_PRIVILEGIO_TOTAL = 'TOTAL';
-  CTE_PRIVILEGIO_1 = 'PRIVILEGIO1';
+  CTE_PRIVILEGIO_TIENDA = 'TIENDA';
+  CTE_PRIVILEGIO_TIENDAPARCIAL = 'TIENDAPARCIAL';
+  CTE_PRIVILEGIO_FABRICA = 'FABRICA';
 
 ////////////////////////////////////////////////////////////////////////////////
 // COMUNES
@@ -159,7 +160,7 @@ type
     function DarUsuario : string;
     function GetRutaBD: String;
     function GetNombreServidor: String;
-    function validarPrivilegios: Boolean;
+    function validarUsuario: Boolean;
 
   public
     procedure Commit;
@@ -513,7 +514,7 @@ begin
       Screen.Cursor := crHourGlass;
       Connected := True;
       FTransaccionBD.StartTransaction;
-      if (ValidarPrivilegios) then
+      if (ValidarUsuario) then
       begin
         GestorContadores.BD := FBD;
         GestorContadores.Transaccion := FTransaccionBD;
@@ -594,12 +595,10 @@ begin
   end;
 end;
 
-function TdmBaseDatos.validarPrivilegios: Boolean;
+function TdmBaseDatos.validarUsuario: 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);
@@ -607,7 +606,7 @@ begin
   begin
     Database := dmBaseDatos.BD;
     Transaction := dmBaseDatos.Transaccion;
-    SQL.Add('select perfil ');
+    SQL.Add('select usuario ');
     SQL.Add('from usuarios ');
     SQL.Add('where UPPER(usuario) = UPPER(:usuario) ');
     ParamByName('usuario').AsString := Usuario;
@@ -616,10 +615,7 @@ 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,7 +1,6 @@
 object dmTablaContratos: TdmTablaContratos
   OldCreateOrder = True
-  Left = 215
-  Top = 538
+  Top = 526
   Height = 200
-  Width = 741
+  Width = 640
 end

BaseDatos/TablaContratos.pas

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

BaseDatos/TablaEmpresas.pas

@@ -48,6 +48,8 @@ type
     Provincia : String;
     Telefono : String;
     Fax : String;
+    Correo : String;
+    Web: String;
     procedure SalvarDatos;
     procedure Eliminar;
   end;
@@ -68,8 +70,10 @@ type
   TDatosEmpresa = class(TObjeto)
   private
     FDirecciones : TListaDireccionesEmpresa;
+    FRestricciones: TStringList;
   protected
     procedure ObtenerDatos; override;
+    procedure ObtenerRestricciones;
   public
     Codigo : Integer;
     FechaAlta : String;
@@ -86,6 +90,7 @@ 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;
@@ -116,7 +121,7 @@ implementation
 {$R *.DFM}
 
 uses
-  Literales;
+  Literales, Dialogs;
 
 constructor TdmTablaEmpresas.Create (AOwner : TComponent);
 begin
@@ -192,6 +197,7 @@ 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;
 
@@ -272,6 +278,11 @@ 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;
@@ -280,6 +291,8 @@ constructor TDatosEmpresa.Create;
 begin
   inherited Create;
   FDirecciones := TListaDireccionesEmpresa.Create(Codigo);
+  FRestricciones := TStringList.Create;
+  FRestricciones.Sorted := true;  
 end;
 
 destructor TDatosEmpresa.Destroy;
@@ -289,6 +302,13 @@ begin
     FDirecciones.Free;
     FDirecciones := NIL;
   end;
+
+  if Assigned(FRestricciones) then
+  begin
+    FRestricciones.Free;
+    FRestricciones := NIL;
+  end;
+
   inherited;
 end;
 
@@ -327,7 +347,7 @@ begin
         NombreComercial := FieldByName('NOMBRECOMERCIAL').AsString;
         CodigoTrimestre := FieldByName('CODIGOTRIMESTRE').AsString;
         IvaDefecto := FieldByName('IVADEFECTO').AsString;
-        LibroDefecto := FieldByName('LIBRODEFECTO').AsString;        
+        LibroDefecto := FieldByName('LIBRODEFECTO').AsString;
         ValidezDefecto := FieldByName('VALIDEZDEFECTO').AsString;
         IntervaloPagosCli := FieldByName('INTERVALOPAGOSCLI').AsFloat;
 
@@ -349,6 +369,38 @@ 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;
@@ -434,12 +486,12 @@ begin
         Add('insert into SUCURSALESEMPRESA ( ');
         Add('CODIGOEMPRESA, CODIGO, FECHAALTA, USUARIO, ');
         Add('CALLE, NUMERO, CODIGOPOSTAL, POBLACION, ');
-        Add('PROVINCIA, TELEFONO, FAX) ');
+        Add('PROVINCIA, TELEFONO, FAX, CORREO, WEB) ');
         Add('values ( ');
         Add(':CODIGOEMPRESA, :CODIGO, CURRENT_DATE, ');
         Add('CURRENT_USER, :CALLE, :NUMERO, ');
         Add(':CODIGOPOSTAL, :POBLACION, :PROVINCIA, ');
-        Add(':TELEFONO, :FAX) ');
+        Add(':TELEFONO, :FAX, :CORREO, :WEB) ');
       end
       else begin
         Add('update SUCURSALESEMPRESA set ');
@@ -450,6 +502,7 @@ begin
         Add('PROVINCIA = :PROVINCIA, ');
         Add('TELEFONO = :TELEFONO, ');
         Add('FAX = :FAX ');
+        Add('CORREO = :CORREO ');
         Add('WHERE (CODIGOEMPRESA = :CODIGOEMPRESA) AND (CODIGO = :CODIGO) ');
       end;
     end;
@@ -462,6 +515,8 @@ begin
     ParamByName('PROVINCIA').AsString := Provincia;
     ParamByName('TELEFONO').AsString := Telefono;
     ParamByName('FAX').AsString := Fax;
+    ParamByName('CORREO').AsString := Correo;
+    ParamByName('WEB').AsString := Web;
 
     try
       Prepare;
@@ -508,7 +563,7 @@ begin
     Database := dmBaseDatos.BD;
     Transaction := dmBaseDatos.Transaccion;
     SQL.Add('select CODIGO, CALLE, NUMERO, CODIGOPOSTAL, POBLACION, ');
-    SQL.Add('PROVINCIA, TELEFONO, FAX ');
+    SQL.Add('PROVINCIA, TELEFONO, FAX, CORREO, WEB ');
     SQL.Add('from SUCURSALESEMPRESA ');
     SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
     SQL.Add('order by CODIGO');
@@ -533,6 +588,8 @@ 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 = 503
-  Top = 222
+  Left = 507
+  Top = 81
   Height = 408
   Width = 123
 end

BaseDatos/TablaFacturasCliente.pas

@@ -146,8 +146,10 @@ type
     function ValidarCodigo(Codigo : String) : Boolean;
     function FormatearCodigo(Codigo : String) : String;
 
-    function CrearFactura(CodigoContrato, TipoFactura: String) : String;
+    function CrearFacturaContrato(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;
@@ -535,6 +537,12 @@ 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;
@@ -674,7 +682,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 ');
+    Add('FAC.CODIGOCONTRATO, FAC.CODIGOALBARAN ');
     Add('from FACTURASCLIENTE FAC, DOCUMENTOS DOC ');
     Add('WHERE (FAC.CODIGOEMPRESA = :CODIGOEMPRESA) AND  ');
     Add('(DOC.CODIGO = FAC.CODIGODOCUMENTO)');
@@ -1617,7 +1625,7 @@ begin
   end;
 end;
 
-function TdmTablaFacturasCliente.CrearFactura(CodigoContrato, TipoFactura: String): String;
+function TdmTablaFacturasCliente.CrearFacturaContrato(CodigoContrato, TipoFactura: String): String;
 var
   oSQL : TIBSQL;
   oSQL2 : TIBSQL;
@@ -1862,6 +1870,35 @@ 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;
@@ -2184,4 +2221,103 @@ 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,7 +1,6 @@
 object dmTablaPresupuestos: TdmTablaPresupuestos
   OldCreateOrder = True
-  Left = 251
-  Top = 416
+  Top = 423
   Height = 200
-  Width = 741
+  Width = 640
 end

BaseDatos/TablaPresupuestos.pas

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

Clientes/AlbaranesClientes.dfm

@@ -671,6 +671,15 @@ 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
@@ -715,6 +724,50 @@ 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
@@ -818,5 +871,9 @@ 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,6 +82,9 @@ 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);
@@ -95,6 +98,7 @@ type
     procedure actRefrescarDatosExecute(Sender: TObject);
     procedure BuscarPropertiesChange(Sender: TObject);
     procedure bLimpiarClick(Sender: TObject);
+    procedure actFacturarAlbaranExecute(Sender: TObject);
   private
     procedure ActualizarBotones;
   protected
@@ -114,8 +118,9 @@ implementation
 {$R *.DFM}
 uses
   BaseDatos, IBDatabase, Literales, IBCustomDataSet, Mensajes, Entidades,
-  Variants, Constantes,
-  TablaEmpresas, TablaAlbaranesCliente, ImprimirAlbaranCliente, AlbaranCliente;
+  Variants, Constantes, FacturarAlbaran,
+  TablaEmpresas, TablaAlbaranesCliente, ImprimirAlbaranCliente, AlbaranCliente,
+  TablaFacturasCliente;
 
 procedure TfrAlbaranesClientes.BuscarAlbaran;
 begin
@@ -239,6 +244,13 @@ 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;
@@ -291,4 +303,31 @@ 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,16 +827,19 @@ object frBarraClientes: TfrBarraClientes
       Caption = 'Clientes'
       ImageIndex = 0
       OnExecute = actClientesExecute
+      OnUpdate = actClientesUpdate
     end
     object actPresupuestos: TAction
       Caption = 'Presupuestos de clientes'
       ImageIndex = 1
       OnExecute = actPresupuestosExecute
+      OnUpdate = actPresupuestosUpdate
     end
     object actContratos: TAction
       Caption = 'Contratos de clientes'
       ImageIndex = 2
       OnExecute = actContratosExecute
+      OnUpdate = actContratosUpdate
     end
     object actObras: TAction
       Caption = 'Obras de clientes'
@@ -846,20 +849,24 @@ object frBarraClientes: TfrBarraClientes
       Caption = 'Facturas de clientes'
       ImageIndex = 2
       OnExecute = actFacturasExecute
+      OnUpdate = actFacturasUpdate
     end
     object actPagos: TAction
       Caption = 'Cobros de cliente'
       ImageIndex = 3
       OnExecute = actPagosExecute
+      OnUpdate = actPagosUpdate
     end
     object actFacturasP: TAction
       Caption = 'Facturas proforma'
       ImageIndex = 2
       OnExecute = actFacturasPExecute
+      OnUpdate = actFacturasPUpdate
     end
     object actAlbaranes: TAction
       Caption = 'Albaranes de cliente'
       OnExecute = actAlbaranesExecute
+      OnUpdate = actAlbaranesUpdate
     end
   end
 end

Clientes/BarraClientes.pas

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

Clientes/ContratoCliente.dfm

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

Clientes/ContratoCliente.pas

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

Clientes/FacturaCliente.dfm

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

Clientes/FacturaCliente.pas

@@ -167,6 +167,8 @@ type
     cbxTrimestres: TcxComboBox;
     eTrimestreCerrado: TLabel;
     cbComisiones: TcxDBCheckBox;
+    Label4: TLabel;
+    ImporteRE: TcxDBTextEdit;
     procedure bCancelarClick(Sender: TObject);
     procedure bSalirClick(Sender: TObject);
     procedure bGuardarClick(Sender: TObject);
@@ -740,6 +742,7 @@ end;
 
 procedure TfrFacturaCliente.CalcularTotalFactura;
 var
+  ImporteNeto,
   BaseImponible,
   ImporteRE,
   ImporteIVA,
@@ -747,7 +750,8 @@ var
   ImporteTotal : Double;
   FDetallesBookmark : string;
 begin
-  BaseImponible := 0;
+  ImporteNeto := 0; //Total de los articulos
+  BaseImponible := 0; //Importe neto una vez aplicado el dto
   ImporteTotal := 0;
   with TablaDetallesMem do
   begin
@@ -756,15 +760,16 @@ begin
     try
       First;
       while not EOF do begin
-        BaseImponible := BaseImponible + FieldByName('IMPORTETOTAL').AsFloat;
+        ImporteNeto := ImporteNeto + FieldByName('IMPORTETOTAL').AsFloat;
         Next;
       end;
 
+      ImporteDto := ImporteNeto * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
+      BaseImponible := ImporteNeto - ImporteDto;
+
       ImporteRE := BaseImponible * (TablaFacturas.FieldByName('RE').AsFloat/100);
-      ImporteDto := BaseImponible * (TablaFacturas.FieldByName('DESCUENTO').AsFloat/100);
-      ImporteTotal := BaseImponible - ImporteDto;
-      ImporteIVA := ImporteTotal * (TablaFacturas.FieldByName('IVA').AsFloat/100);
-      ImporteTotal := ImporteTotal + ImporteIVA + ImporteRE;
+      ImporteIVA := BaseImponible * (TablaFacturas.FieldByName('IVA').AsFloat/100);
+      ImporteTotal := BaseImponible + ImporteIVA + ImporteRE;
 
       TablaFacturas.FieldByName('BASEIMPONIBLE').AsFloat := BaseImponible;
       TablaFacturas.FieldByName('IMPORTEDESCUENTO').AsFloat := ImporteDto;

Clientes/FacturaProforma.dfm

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

Clientes/FacturaProforma.pas

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

Clientes/FacturarAlbaran.dfm

@@ -0,0 +1,268 @@
+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

@@ -0,0 +1,112 @@
+{
+===============================================================================
+  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 = 479
-  Top = 236
+  Left = 480
+  Top = 272
   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.CrearFactura(FCodigoContrato, TipoAux);
+    FCodigoFactura := dmTablaFacturasCliente.CrearFacturaContrato(FCodigoContrato, TipoAux);
   end;
   if EsCadenaVacia(FCodigoFactura) then
   begin

Clientes/ImprimirFacturasCliente.dfm

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

Clientes/PresupuestoCliente.dfm

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

Clientes/PresupuestoCliente.pas

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

Contabilidad/ImprimirInformeTrimestral.dfm

@@ -3,7 +3,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
   Left = 0
   Top = 0
   Width = 617
-  Height = 416
+  Height = 412
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -30,9 +30,9 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
   end
   object pnlVistaPrevia: TPanel
     Left = 0
-    Top = 156
+    Top = 197
     Width = 617
-    Height = 260
+    Height = 215
     Align = alClient
     BevelOuter = bvNone
     Color = 16383743
@@ -42,7 +42,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
     Left = 0
     Top = 22
     Width = 617
-    Height = 134
+    Height = 175
     Align = alTop
     AutoSize = True
     BevelOuter = bvNone
@@ -142,6 +142,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
         BorderWidth = 10
         Color = 16383743
         TabOrder = 0
+        Visible = False
         object eTrimestre: TLabel
           Left = 70
           Top = 12
@@ -159,14 +160,13 @@ 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,6 +181,7 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
       BorderWidth = 10
       Color = 16383743
       TabOrder = 1
+      Visible = False
       object rbGeneral: TRdxRadioButton
         Left = 129
         Top = 10
@@ -212,5 +213,65 @@ 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;
+  TablaTrimestres, cxDropDownEdit, cxGraphics, cxCalendar;
 
 type
   TfrImprimirInformeTrimestral = class(TRdxFrame)
@@ -46,11 +46,22 @@ 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;
@@ -76,8 +87,8 @@ implementation
 {$R *.DFM}
 
 uses
-  Variants, BaseDatos, Clientes, Mensajes, StrFunc,
-  TablaFacturasCliente, TablaFacturasProveedor;
+  Literales, Mensajes, Variants, BaseDatos, Clientes, StrFunc, DateFunc,
+  TablaFacturasCliente, TablaFacturasProveedor, cxDateUtils;
 
 constructor TfrImprimirInformeTrimestral.Create(AOwner : TComponent);
 var
@@ -91,6 +102,13 @@ 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);
@@ -156,12 +174,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;
 
@@ -176,4 +194,50 @@ 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 = 928
-  Height = 554
+  Width = 630
+  Height = 410
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,8 +18,8 @@ object frInformeTrimestral: TfrInformeTrimestral
   object pnlCuerpo: TRdxPanel
     Left = 0
     Top = 0
-    Width = 928
-    Height = 504
+    Width = 630
+    Height = 360
     Caption = ' '
     ParentColor = True
     ColorHighLight = 8623776
@@ -30,7 +30,7 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlTitulo: TRdxPanelTituloOperacion
       Left = 0
       Top = 0
-      Width = 928
+      Width = 630
       Height = 22
       Caption = ' '
       Color = 9685681
@@ -44,8 +44,8 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlContenido: TRdxPanel
       Left = 0
       Top = 47
-      Width = 928
-      Height = 457
+      Width = 630
+      Height = 313
       Caption = ' '
       BorderWidth = 10
       ParentColor = True
@@ -57,13 +57,13 @@ object frInformeTrimestral: TfrInformeTrimestral
       object Splitter1: TSplitter
         Left = 160
         Top = 10
-        Height = 437
+        Height = 293
       end
       object pnlGrid: TRdxPanel
         Left = 163
         Top = 10
-        Width = 755
-        Height = 437
+        Width = 457
+        Height = 293
         Caption = ' '
         ParentColor = True
         ColorHighLight = 8623776
@@ -74,8 +74,8 @@ object frInformeTrimestral: TfrInformeTrimestral
         object gridFacturas: TcxGrid
           Left = 0
           Top = 0
-          Width = 755
-          Height = 437
+          Width = 457
+          Height = 293
           Align = alClient
           BevelInner = bvNone
           BevelKind = bkFlat
@@ -97,6 +97,7 @@ object frInformeTrimestral: TfrInformeTrimestral
             OnMouseDown = gridFacturasDBTableView1MouseDown
             OnStartDrag = gridFacturasDBTableView1StartDrag
             NavigatorButtons.ConfirmDelete = False
+            FilterBox.Visible = fvNever
             OnCustomDrawCell = gridFacturasDBTableView1CustomDrawCell
             DataController.DataSource = dsFacturas
             DataController.KeyFieldNames = 'CODIGO'
@@ -104,7 +105,6 @@ 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,6 +121,7 @@ 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
@@ -133,7 +134,7 @@ object frInformeTrimestral: TfrInformeTrimestral
         Left = 10
         Top = 10
         Width = 150
-        Height = 437
+        Height = 293
         Caption = ' '
         ParentColor = True
         ColorHighLight = 8623776
@@ -145,7 +146,7 @@ object frInformeTrimestral: TfrInformeTrimestral
           Left = 0
           Top = 0
           Width = 150
-          Height = 437
+          Height = 293
           Align = alClient
           Bands = <
             item
@@ -213,7 +214,7 @@ object frInformeTrimestral: TfrInformeTrimestral
     object pnlExtra: TRdxBarraSuperior
       Left = 0
       Top = 22
-      Width = 928
+      Width = 630
       Height = 25
       Caption = ' '
       BorderWidth = 1
@@ -385,7 +386,7 @@ object frInformeTrimestral: TfrInformeTrimestral
         Spacing = 2
       end
       object RdxPanel1: TRdxPanel
-        Left = 628
+        Left = 330
         Top = 1
         Width = 299
         Height = 23
@@ -414,17 +415,13 @@ 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
@@ -467,8 +464,8 @@ object frInformeTrimestral: TfrInformeTrimestral
   end
   object brSalir: TRdxBarraInferior
     Left = 0
-    Top = 504
-    Width = 928
+    Top = 360
+    Width = 630
     Height = 50
     Caption = ' '
     ParentColor = True

Empresas/ElegirEmpresa.pas

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

Empresas/Empresa.dfm

@@ -2,8 +2,8 @@ object frEmpresa: TfrEmpresa
   Tag = 1
   Left = 0
   Top = 0
-  Width = 497
-  Height = 658
+  Width = 665
+  Height = 773
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -18,7 +18,7 @@ object frEmpresa: TfrEmpresa
   object pnlTitulo: TRdxPanelTituloOperacion
     Left = 0
     Top = 0
-    Width = 497
+    Width = 665
     Height = 22
     Caption = ' '
     Color = 11590911
@@ -32,8 +32,8 @@ object frEmpresa: TfrEmpresa
   object pnlCuerpo: TPanel
     Left = 0
     Top = 22
-    Width = 497
-    Height = 536
+    Width = 665
+    Height = 651
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -42,8 +42,8 @@ object frEmpresa: TfrEmpresa
     object pnlDatos: TAdvPanel
       Left = 10
       Top = 10
-      Width = 477
-      Height = 192
+      Width = 645
+      Height = 167
       Align = alTop
       BevelOuter = bvNone
       Color = 16383743
@@ -196,7 +196,7 @@ object frEmpresa: TfrEmpresa
       end
       object eCorreo: TLabel
         Left = 54
-        Top = 131
+        Top = 158
         Width = 92
         Height = 13
         Alignment = taRightJustify
@@ -207,10 +207,11 @@ object frEmpresa: TfrEmpresa
         Font.Name = 'Tahoma'
         Font.Style = []
         ParentFont = False
+        Visible = False
       end
       object Label1: TLabel
         Left = 120
-        Top = 159
+        Top = 131
         Width = 26
         Height = 13
         Alignment = taRightJustify
@@ -239,85 +240,76 @@ 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 = 127
-        Width = 320
-        Height = 21
+        Top = 154
         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 = 155
-        Width = 320
-        Height = 21
+        Top = 127
         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 = 202
-      Width = 477
-      Height = 324
-      ActivePage = pagLogo
+      Top = 177
+      Width = 645
+      Height = 464
+      ActivePage = pagDirecciones
       Align = alClient
       TabOrder = 1
       TabWidth = 130
@@ -334,7 +326,7 @@ object frEmpresa: TfrEmpresa
           Left = 6
           Top = 8
           Width = 457
-          Height = 137
+          Height = 169
           Caption = 'Direcci'#243'n 1'
           TabOrder = 0
           object eDireccion: TLabel
@@ -435,108 +427,116 @@ 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
-            Width = 224
-            Height = 21
+            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 = 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
-            Width = 320
-            Height = 21
+            ParentFont = False
             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 = 152
+          Top = 180
           Width = 457
-          Height = 137
+          Height = 170
           Caption = 'Direcci'#243'n 1'
           TabOrder = 1
           object Label8: TLabel
@@ -637,101 +637,109 @@ 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
-            Width = 224
-            Height = 21
+            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 = 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
-            Width = 320
-            Height = 21
+            ParentFont = False
             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
@@ -851,83 +859,63 @@ 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
-          Width = 81
-          Height = 21
+          ParentFont = False
           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
@@ -972,26 +960,23 @@ 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 = 558
-    Width = 497
+    Top = 673
+    Width = 665
     Height = 50
     Caption = ' '
     ParentColor = True
@@ -1132,8 +1117,8 @@ object frEmpresa: TfrEmpresa
   end
   object brSimple: TRdxBarraInferior
     Left = 0
-    Top = 608
-    Width = 497
+    Top = 723
+    Width = 665
     Height = 50
     Caption = ' '
     ParentColor = True

Empresas/Empresa.pas

@@ -112,6 +112,10 @@ 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);
@@ -720,6 +724,7 @@ 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
@@ -731,6 +736,7 @@ begin
       CodigoPostal2.Text := Items[1].CodigoPostal;
       Telefono2.Text := Items[1].Telefono;
       Fax2.Text := Items[1].Fax;
+      Correo2.Text := Items[1].Correo;      
     end;
   end;
 end;
@@ -767,6 +773,7 @@ begin
       Dir1.CodigoPostal := CodigoPostal1.Text;
       Dir1.Telefono := Telefono1.Text;
       Dir1.Fax := Fax1.Text;
+      Dir1.Correo := Correo1.Text;      
       Dir1.SalvarDatos;
     end;
 
@@ -782,6 +789,7 @@ begin
       Dir2.CodigoPostal := CodigoPostal2.Text;
       Dir2.Telefono := Telefono2.Text;
       Dir2.Fax := Fax2.Text;
+      Dir2.Correo := Correo2.Text;      
       Dir2.SalvarDatos;      
     end;
 
@@ -808,6 +816,7 @@ begin
   CodigoPostal1.Text := '';
   Telefono1.Text := '';
   Fax1.Text := '';
+  Correo1.Text := '';
 
   Calle2.Text := '';
   Numero2.Text := '';
@@ -816,6 +825,7 @@ begin
   CodigoPostal2.Text := '';
   Telefono2.Text := '';
   Fax2.Text := '';
+  Correo2.Text := '';  
 end;
 
 function TfrEmpresa.EsVaciaDir1: Boolean;
@@ -823,7 +833,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) then
+      EsCadenaVacia(Fax1.Text) and EsCadenaVacia(Correo1.Text) then
     Result := True
   else
     Result := False;
@@ -834,7 +844,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) then
+      EsCadenaVacia(Fax2.Text) and EsCadenaVacia(Correo2.Text) then
     Result := True
   else
     Result := False;

Factuges.cfg

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

Factuges.dof

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

Factuges.dpr

@@ -204,7 +204,8 @@ 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

@@ -0,0 +1,473 @@
+[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,6 +38,7 @@ type
     TablaDetallesAlbaranes: TIBQuery;
   private
     FCodigo : Variant;
+    FConLogo: Boolean;
   protected
     procedure PrepararConsultas; override;
   public
@@ -50,15 +51,29 @@ var
   dmInformeAlbaranCliente: TdmInformeAlbaranCliente;
 
 implementation
-
 {$R *.dfm}
 
+uses Literales, Mensajes;
+
 { TdmInformeFacturaProforma }
 
 constructor TdmInformeAlbaranCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
   inherited;
-  FNombreInforme := 'InformeAlbaranCliente.frf';
+  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 = 75
-  Top = 491
+  Left = 840
+  Top = 410
   Height = 246
   Width = 321
   object FReport: TfrReport

Informes/InformeBase.pas

@@ -143,12 +143,15 @@ 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
@@ -217,6 +220,8 @@ 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 = 464
-  Top = 265
+  Left = 242
+  Top = 64
   Height = 416
   Width = 548
   inherited FReport: TfrReport

Informes/InformeContratoCliente.pas

@@ -26,11 +26,12 @@ type
     FCodigoContrato : Variant;
     FEntidad: TRdxEntidad;
     FDocumento : TDocumento;
+    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
     procedure PrepararInforme; override;
     procedure PrepararConsultas; override;
-    procedure RellenarBanda(Band: TfrBand); override;    
+    procedure RellenarBanda(Band: TfrBand); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -47,13 +48,20 @@ implementation
 {$R *.dfm}
 
 uses
-  StrFunc, Constantes, ComCtrls;
+  Literales, Mensajes, 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;
 
@@ -166,7 +174,7 @@ begin
           with (Objeto as TfrMemoView), EmpresaActiva do
           begin
             Memo.Clear;
-            Memo.Add('CONFORME ' + NombreComercial);
+            Memo.Add('CONFORME ' + Nombre);
           end;
         end;
 
@@ -194,18 +202,30 @@ 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  : FNombreInforme := 'ContratoCocina.frf';
-    entContratoBano    : FNombreInforme := 'ContratoBano.frf';
-    entContratoArmarios : FNombreInforme := 'ContratoArmarios.frf';
+    entContratoCocina  : if FConLogo then
+                            FNombreInforme := 'ContratoCocina(Con logo).frf'
+                         else
+                            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
-    FNombreInforme := 'ContratoCliente.frf';
+    if FConLogo then
+       FNombreInforme := 'ContratoCliente(Con logo).frf'
+    else
+       FNombreInforme := 'ContratoCliente.frf';
   end;
 end;
 

Informes/InformeFacturaCliente.dfm

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

Informes/InformeFacturaCliente.pas

@@ -15,6 +15,7 @@ type
     TablaDetallesFacturas: TIBQuery;
   private
     FCodigoFactura : Variant;
+    FConLogo: Boolean;
   protected
     procedure RellenarCabecera(Band: TfrBand); override;
     procedure PrepararConsultas; override;
@@ -32,14 +33,24 @@ implementation
 {$R *.dfm}
 
 uses
-  TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
+  Mensajes, Literales, TablaFacturasCliente, StrFunc, Constantes, BaseDatos, TablaEmpresas;
 
 { TdmInformeFacturaCliente }
 
 constructor TdmInformeFacturaCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
   inherited;
-  FNombreInforme := 'FacturaCliente.frf';
+  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;
 
 procedure TdmInformeFacturaCliente.PrepararConsultas;

Informes/InformeHistorialFacturacionClientes.pas

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

Informes/InformeHistorialFacturacionProveedores.pas

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

Informes/InformePagoCliente.pas

@@ -94,6 +94,8 @@ 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;
@@ -146,12 +148,14 @@ 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 = 519
-  Top = 288
+  Left = 522
+  Top = 292
   Height = 416
   Width = 548
   inherited FReport: TfrReport

Informes/InformePresupuestoCliente.pas

@@ -24,9 +24,10 @@ type
   private
     FCodigoPresupuesto : Variant;
     FEntidad: TRdxEntidad;
+    FConLogo: Boolean;
     procedure SetEntidad(const Value: TRdxEntidad);
   protected
-    procedure RellenarCabecera(Band: TfrBand); override;  
+    procedure RellenarCabecera(Band: TfrBand); override;
     procedure PrepararConsultas; override;
     procedure PrepararInforme; override;
   public
@@ -45,14 +46,19 @@ implementation
 {$R *.dfm}
 
 uses
-  StrFunc, Constantes, ShellAPI, Mensajes;
+  Literales, StrFunc, Constantes, ShellAPI, Mensajes;
 
 { TdmInformePresupuestoCliente }
 
 constructor TdmInformePresupuestoCliente.Create(AOwner: TComponent);
+var
+  i: Integer;
 begin
   inherited;
-  //FNombreInforme := 'PresupuestoCliente.frf';
+  FConLogo := True;
+
+  if not EmpresaActiva.Restricciones.Find(CTE_INFORMES_CONLOGO, i) then
+     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
 end;
 
 procedure TdmInformePresupuestoCliente.ImprimirFinanciacion;
@@ -182,12 +188,14 @@ 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;
@@ -203,18 +211,30 @@ begin
   end;
 end;
 
-procedure TdmInformePresupuestoCliente.SetEntidad(
-  const Value: TRdxEntidad);
+procedure TdmInformePresupuestoCliente.SetEntidad(const Value: TRdxEntidad);
 begin
   if FEntidad = Value then
-    Exit;
+     Exit;
+
   FEntidad := Value;
   case FEntidad of
-    entPresupuestoCocina  : FNombreInforme := 'PresupuestoCocina.frf';
-    entPresupuestoBano    : FNombreInforme := 'PresupuestoBano.frf';
-    entPresupuestoArmarios : FNombreInforme := 'PresupuestoArmarios.frf';
+    entPresupuestoCocina  : if FConLogo then
+                               FNombreInforme := 'PresupuestoCocina(Con logo).frf'
+                            else
+                               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
-    FNombreInforme := 'PresupuestoCliente.frf';
+    if FConLogo then
+      FNombreInforme := 'PresupuestoCliente(Con logo).frf'
+    else
+      FNombreInforme := 'PresupuestoCliente.frf';
   end;
 end;
 

Informes/InformeResumenFacturacionClientes.pas

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

Informes/InformeResumenFacturacionProveedores.pas

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

Informes/InformeTrimestralCompras.dfm

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

Informes/InformeTrimestralCompras.pas

@@ -42,6 +42,8 @@ type
   private
     FTipo : TTipoFacturaProveedor;
     FCodigoTrimestre : Variant;
+    FFechaFin: TDateTime;
+    FFechaIni: TDateTime;
     FListaCodTiposOp : TStringList;
     FListaDesTiposOp : TStringList;
     function RellenarListaTipoOp : boolean;
@@ -56,6 +58,8 @@ 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
@@ -104,7 +108,7 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select EXTRACT (MONTH FROM FECHAFACTURA) as MES, EXTRACT (DAY FROM FECHAFACTURA) as DIA, REFERENCIA, ');
+    SQL.Add('select EXTRACT (MONTH FROM FECHAFACTURA) as MES, EXTRACT (DAY FROM FECHAFACTURA) as DIA, REFERENCIA, CODIGO, ');
     SQL.Add('NIFCIF, NOMBRE, ');
 
     if Tipo = tipGeneral
@@ -113,7 +117,7 @@ begin
     for i := 0 to ContAux do
     begin
       if i < FListaCodTiposOp.Count then
-        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then (BASEIMPONIBLE - IMPORTEDESCUENTO) else null end as OP' + IntToStr(i) + ', ')
+        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then BASEIMPONIBLE else null end as OP' + IntToStr(i) + ', ')
       else
         SQL.Add('0 as OP' + IntToStr(i) + ', ');
     end;
@@ -121,7 +125,9 @@ 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 ')
@@ -129,7 +135,10 @@ 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;
 
@@ -138,11 +147,12 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM((F.BASEIMPONIBLE - F.IMPORTEDESCUENTO)) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
+    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM(F.BASEIMPONIBLE) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
     SQL.Add('from FACTURASPROVEEDOR F, TIPOSFACTURAS T');
     SQL.Add('where F.TIPOFACTURA = T.CODIGO');
     SQL.Add('and F.CODIGOEMPRESA = :CODIGOEMPRESA');
-    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 ')
@@ -151,7 +161,10 @@ 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;
@@ -185,6 +198,12 @@ 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 = 714
-  Top = 199
+  Left = 719
+  Top = 180
   Width = 344
   inherited FReport: TfrReport
     Dataset = TablaCab

Informes/InformeTrimestralVentas.pas

@@ -39,6 +39,8 @@ type
     TablaFacturas: TIBQuery;
   private
     FCodigoTrimestre : Variant;
+    FFechaFin: TDateTime;
+    FFechaIni: TDateTime;
     FListaIVA : TStringList;
     FListaRE : TStringList;
     function RellenarListaIVA : boolean;
@@ -51,6 +53,8 @@ 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
@@ -127,14 +131,19 @@ begin
     end;
 
     //Para que el importe total de cada factura sea de 4 decimales y el total salga con exactitud
-    SQL.Add('BASEIMPONIBLE - coalesce(importedescuento,0) + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
+    SQL.Add('BASEIMPONIBLE + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
     SQL.Add('from FACTURASCLIENTE FC, TIPOSFACTURAS TF ');
     SQL.Add('where TIPOFACTURA = TF.CODIGO ');
     SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA');
-    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;
@@ -175,6 +184,12 @@ 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 = 669
-  Height = 497
+  Width = 630
+  Height = 410
   Color = 16383743
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -15,7 +15,7 @@ object frInformesCompras: TfrInformesCompras
   object BarraInformes: TRdxBarraSuperior
     Left = 0
     Top = 0
-    Width = 669
+    Width = 630
     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 = 669
+      Width = 630
       Height = 8
       Align = alTop
     end
@@ -42,8 +42,8 @@ object frInformesCompras: TfrInformesCompras
   object pnlCuerpo: TPanel
     Left = 0
     Top = 25
-    Width = 669
-    Height = 472
+    Width = 630
+    Height = 385
     Align = alClient
     BevelOuter = bvNone
     BorderWidth = 10
@@ -52,8 +52,8 @@ object frInformesCompras: TfrInformesCompras
     object RdxPanel1: TRdxPanel
       Left = 10
       Top = 10
-      Width = 649
-      Height = 452
+      Width = 610
+      Height = 365
       BorderStyle = bsSingle
       Caption = ' '
       BorderWidth = 1
@@ -66,7 +66,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel1: TPanel
         Left = 1
         Top = 17
-        Width = 647
+        Width = 608
         Height = 92
         Align = alTop
         AutoSize = True
@@ -153,7 +153,7 @@ object frInformesCompras: TfrInformesCompras
         object Panel2: TPanel
           Left = 74
           Top = 10
-          Width = 563
+          Width = 524
           Height = 72
           Align = alClient
           AutoSize = True
@@ -161,7 +161,7 @@ object frInformesCompras: TfrInformesCompras
           ParentColor = True
           TabOrder = 0
           object Panel3: TPanel
-            Left = 287
+            Left = 248
             Top = 0
             Width = 276
             Height = 72
@@ -209,7 +209,7 @@ object frInformesCompras: TfrInformesCompras
           object Panel4: TPanel
             Left = 0
             Top = 0
-            Width = 287
+            Width = 248
             Height = 72
             Align = alClient
             AutoSize = True
@@ -219,7 +219,7 @@ object frInformesCompras: TfrInformesCompras
             object Label1: TLabel
               Left = 0
               Top = 0
-              Width = 287
+              Width = 248
               Height = 20
               Align = alTop
               AutoSize = False
@@ -235,7 +235,7 @@ object frInformesCompras: TfrInformesCompras
             object Label2: TLabel
               Left = 0
               Top = 20
-              Width = 287
+              Width = 248
               Height = 52
               Align = alClient
               Caption = 
@@ -266,7 +266,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel5: TPanel
         Left = 1
         Top = 1
-        Width = 647
+        Width = 608
         Height = 16
         Align = alTop
         BevelOuter = bvNone
@@ -276,7 +276,7 @@ object frInformesCompras: TfrInformesCompras
       object Panel17: TPanel
         Left = 1
         Top = 109
-        Width = 647
+        Width = 608
         Height = 92
         Align = alTop
         AutoSize = True
@@ -363,7 +363,7 @@ object frInformesCompras: TfrInformesCompras
         object Panel18: TPanel
           Left = 74
           Top = 10
-          Width = 563
+          Width = 524
           Height = 72
           Align = alClient
           AutoSize = True
@@ -371,7 +371,7 @@ object frInformesCompras: TfrInformesCompras
           ParentColor = True
           TabOrder = 0
           object Panel19: TPanel
-            Left = 287
+            Left = 248
             Top = 0
             Width = 276
             Height = 72
@@ -419,7 +419,7 @@ object frInformesCompras: TfrInformesCompras
           object Panel20: TPanel
             Left = 0
             Top = 0
-            Width = 287
+            Width = 248
             Height = 72
             Align = alClient
             AutoSize = True
@@ -429,7 +429,7 @@ object frInformesCompras: TfrInformesCompras
             object Label7: TLabel
               Left = 0
               Top = 0
-              Width = 287
+              Width = 248
               Height = 20
               Align = alTop
               AutoSize = False
@@ -445,7 +445,7 @@ object frInformesCompras: TfrInformesCompras
             object Label8: TLabel
               Left = 0
               Top = 20
-              Width = 287
+              Width = 248
               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, HistorialFacturacionProveedores, Configuracion,
+  InformeTrimestral, ImprimirInformeTrimestral, HistorialFacturacionProveedores, Configuracion,
   TablaProveedores, StrFunc, Mensajes, Literales;
 
 procedure TfrInformesCompras.bSeleccionarClick(Sender: TObject);
@@ -87,9 +87,14 @@ end;
 
 procedure TfrInformesCompras.RdxBoton3Click(Sender: TObject);
 begin
-  Contenido := TfrInformeTrimestral.Create(Self);
-  Contenido.Entidad := entInformeTrimestralCompras;  
-  Contenido.Modo := Consultar;
+// Quitamos pantalla en la que se pueden modificar las facturas entre trimestres.
+//  Contenido := TfrInformeTrimestral.Create(Self);
+//  Contenido.Entidad := entInformeTrimestralCompras;
+//  Contenido.Modo := Consultar;
+
+  Contenido := TfrImprimirInformeTrimestral.Create(Self);
+  Contenido.Entidad := entInformeTrimestralCompras;
+  Contenido.Modo := Imprimir;
 end;
 
 constructor TfrInformesCompras.Create(AOwner: TComponent);

Informes/PantallaInformesContabilidad.dfm

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

Informes/PantallaInformesContabilidad.pas

@@ -80,9 +80,9 @@ implementation
 {$R *.dfm}
 
 uses
-  Configuracion, InformeTrimestral, ImprimirLibro, ImprimirBeneficiosAnuales,
-  ImprimirBeneficiosAnualesContratos, TablaFacturasCliente, TablaContratos,
-  Literales, Mensajes;
+  Configuracion, InformeTrimestral, ImprimirInformeTrimestral, ImprimirLibro,
+  ImprimirBeneficiosAnuales, ImprimirBeneficiosAnualesContratos,
+  TablaFacturasCliente, TablaContratos, Literales, Mensajes;
 
 
 procedure TfrInformesContabilidad.RdxBoton1Click(Sender: TObject);
@@ -95,16 +95,24 @@ 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 := Consultar;
+  Contenido.Modo := Imprimir;
 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 := Consultar;
+  Contenido.Modo := Imprimir;
 end;
 
 procedure TfrInformesContabilidad.RdxBoton2Click(Sender: TObject);

Informes/PantallaInformesVentas.dfm

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

Informes/PantallaInformesVentas.pas

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

Libreria/Constantes.pas

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

Libreria/Literales.pas

@@ -25,6 +25,23 @@ unit Literales;
 
 interface
 
+const
+  CTE_COMPRAS = 'COMPRAS';
+  CTE_PROVEEDORES = 'PROVEEDORES';
+  CTE_FACTURAS_PROVEEDOR = 'FACTURAS_PROVEEDOR';
+  CTE_PAGOS_PROVEEDOR = 'PAGOS_PROVEEDOR';
+  CTE_VENTAS = 'VENTAS';
+  CTE_CLIENTES = 'CLIENTES';
+  CTE_PRESUPUESTOS = 'PRESUPUESTOS';
+  CTE_CONTRATOS = 'CONTRATOS';
+  CTE_ALBARANES = 'ALBARANES';
+  CTE_FACTURAS_CLIENTE = 'FACTURAS_CLIENTE';
+  CTE_PAGOS_CLIENTE = 'PAGOS_CLIENTE';
+  CTE_FACTURAS_PROFORMA = 'FACTURAS_PROFORMA';          
+  CTE_CONTABILIDAD = 'CONTABILIDAD';
+  CTE_INFORMES = 'INFORMES';
+  CTE_INFORMES_CONLOGO = 'INFORMES_SIEMPRE_CONLOGO';
+
 resourcestring
 ////////////////////////////////////////////////////////////////////////////////
 // Mensajes
@@ -382,6 +399,9 @@ 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,6 +58,7 @@ 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;
@@ -74,6 +75,7 @@ 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;
@@ -198,6 +200,14 @@ 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,8 +2084,7 @@ object fPantallaAcceso: TfPantallaAcceso
     AppStoragePath = '\'
     Options = []
     StoredProps.Strings = (
-      'Usuario.Text'
-      'Clave.Text')
+      'Usuario.Text')
     StoredValues = <
       item
         Name = 'Ruta'

Principal.dfm

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

Principal.pas

@@ -107,6 +107,7 @@ type
     procedure actActualizarExecute(Sender: TObject);
     procedure actContabilidadUpdate(Sender: TObject);
     procedure actInformesUpdate(Sender: TObject);
+    procedure actVentasUpdate(Sender: TObject);
   private
   public
     Version : String;
@@ -351,13 +352,36 @@ begin
 end;
 
 procedure TfrPrincipal.actContabilidadUpdate(Sender: TObject);
+var
+ i: Integer;
 begin
-  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
+  inherited;
+  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
-  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
+  inherited;
+  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,6 +73,11 @@ 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
@@ -237,6 +242,11 @@ 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
@@ -431,6 +441,11 @@ 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
@@ -608,16 +623,19 @@ 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,6 +49,9 @@ 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;
@@ -59,7 +62,8 @@ var
 implementation
 {$R *.DFM}
 uses
-  Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion;
+  RdxEmpresaActiva, Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion,
+  BaseDatos, Literales;
 
 constructor TfrBarraProveedores.Create (AOwner: TComponent);
 begin
@@ -84,4 +88,37 @@ 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,12 +1508,14 @@ object frFacturaProveedor: TfrFacturaProveedor
           Width = 74
           Height = 13
           Caption = 'Descuento(%):'
+          Enabled = False
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
           ParentFont = False
+          Visible = False
         end
         object Label8: TLabel
           Left = 157
@@ -1548,9 +1550,11 @@ object frFacturaProveedor: TfrFacturaProveedor
           Top = 38
           DataBinding.DataField = 'DESCUENTO'
           DataBinding.DataSource = dsFactura
+          Enabled = False
           ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
           TabOrder = 1
+          Visible = False
           Width = 57
         end
         object IVA: TcxDBTextEdit

Proveedores/HistorialFacturacionProveedores.dfm

@@ -186,41 +186,33 @@ 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
@@ -274,17 +266,13 @@ 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
@@ -338,11 +326,9 @@ 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
@@ -363,17 +349,13 @@ 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
@@ -392,47 +374,36 @@ 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;
+  InformeResumenFacturacionProveedores, cxGraphics;
 
 type
   TfrHistorialFacturacionProveedores = class(TRdxFrame)

Temp/FACTUGES.INI

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