Cambios varios para los informes trimestrales y orden de empresas inicial, no recordar contraseñas

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

BaseDatos/BaseDatos.pas

@@ -36,8 +36,9 @@ uses
   Entidades, Contadores, RdxGestorContadores;
 
 Const
-  CTE_PRIVILEGIO_TOTAL = 'TOTAL';
+  CTE_PRIVILEGIO_TIENDA = 'TIENDA';
-  CTE_PRIVILEGIO_1 = 'PRIVILEGIO1';
+  CTE_PRIVILEGIO_TIENDAPARCIAL = 'TIENDAPARCIAL';
+  CTE_PRIVILEGIO_FABRICA = 'FABRICA';
 
 ////////////////////////////////////////////////////////////////////////////////
 // COMUNES

BaseDatos/TablaEmpresas.pas

@@ -191,7 +191,7 @@ begin
   with sqlGrid do
   begin
     Add('select CODIGO, NIFCIF, LOGOTIPO, NOMBRECOMERCIAL');
-    Add('from EMPRESAS ');
+    Add('from EMPRESAS order by CODIGO ');
   end;
 end;
 

Contabilidad/ImprimirInformeTrimestral.dfm

@@ -30,9 +30,9 @@ object frImprimirInformeTrimestral: TfrImprimirInformeTrimestral
   end
   object pnlVistaPrevia: TPanel
     Left = 0
-    Top = 156
+    Top = 197
     Width = 617
-    Height = 260
+    Height = 219
     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,
+  Literales, Mensajes, Variants, BaseDatos, Clientes, StrFunc, DateFunc,
-  TablaFacturasCliente, TablaFacturasProveedor;
+  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.

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
@@ -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;
 
@@ -142,7 +151,8 @@ begin
     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;

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
@@ -131,10 +135,15 @@ begin
     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;

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);
+// 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 := Consultar;
+  Contenido.Modo := Imprimir;
 end;
 
 constructor TfrInformesCompras.Create(AOwner: TComponent);

Informes/PantallaInformesContabilidad.pas

@@ -80,9 +80,9 @@ implementation
 {$R *.dfm}
 
 uses
-  Configuracion, InformeTrimestral, ImprimirLibro, ImprimirBeneficiosAnuales,
+  Configuracion, InformeTrimestral, ImprimirInformeTrimestral, ImprimirLibro,
-  ImprimirBeneficiosAnualesContratos, TablaFacturasCliente, TablaContratos,
+  ImprimirBeneficiosAnuales, ImprimirBeneficiosAnualesContratos,
-  Literales, Mensajes;
+  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.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);

PantallaAcceso.dfm

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

Principal.dfm

@@ -1,7 +1,7 @@
 object frPrincipal: TfrPrincipal
   Left = 0
   Top = 0
-  Width = 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

Principal.pas

@@ -352,12 +352,12 @@ end;
 
 procedure TfrPrincipal.actContabilidadUpdate(Sender: TObject);
 begin
-  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND ((dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TIENDA) or (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_FABRICA));
 end;
 
 procedure TfrPrincipal.actInformesUpdate(Sender: TObject);
 begin
-  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TOTAL);
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND ((dmBaseDatos.Privilegios = CTE_PRIVILEGIO_TIENDA) or (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_FABRICA));
 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
@@ -613,11 +628,13 @@ object frBarraProveedores: TfrBarraProveedores
       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,8 @@ type
     procedure actFacturasExecute(Sender: TObject);
     procedure actProveedoresExecute(Sender: TObject);
     procedure actPagosExecute(Sender: TObject);
+    procedure actFacturasUpdate(Sender: TObject);
+    procedure actPagosUpdate(Sender: TObject);
   public
     constructor Create (AOwner: TComponent); override;
   end;
@@ -59,7 +61,8 @@ var
 implementation
 {$R *.DFM}
 uses
-  Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion;
+  RdxEmpresaActiva, Proveedores, FacturasProveedores, PagosProveedores, Entidades, Configuracion,
+  BaseDatos;
 
 constructor TfrBarraProveedores.Create (AOwner: TComponent);
 begin
@@ -84,4 +87,16 @@ begin
   Contenido := TfrPagosProveedores.Create(Self);
 end;
 
+procedure TfrBarraProveedores.actFacturasUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_FABRICA);
+end;
+
+procedure TfrBarraProveedores.actPagosUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (EmpresaActiva.Codigo <> -1) AND (dmBaseDatos.Privilegios = CTE_PRIVILEGIO_FABRICA);
+end;
+
 end.

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)