diff --git a/BaseDatos/BaseDatos.pas b/BaseDatos/BaseDatos.pas index fbf63a4..7740e15 100644 --- a/BaseDatos/BaseDatos.pas +++ b/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 diff --git a/BaseDatos/TablaEmpresas.pas b/BaseDatos/TablaEmpresas.pas index 2cd3ed2..0ed635f 100644 --- a/BaseDatos/TablaEmpresas.pas +++ b/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; diff --git a/Contabilidad/ImprimirInformeTrimestral.dfm b/Contabilidad/ImprimirInformeTrimestral.dfm index 509eee0..f3862e6 100644 --- a/Contabilidad/ImprimirInformeTrimestral.dfm +++ b/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 diff --git a/Contabilidad/ImprimirInformeTrimestral.pas b/Contabilidad/ImprimirInformeTrimestral.pas index 5653a10..c249c50 100644 --- a/Contabilidad/ImprimirInformeTrimestral.pas +++ b/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. diff --git a/Informes/InformeTrimestralCompras.pas b/Informes/InformeTrimestralCompras.pas index 3efbda0..1438498 100644 --- a/Informes/InformeTrimestralCompras.pas +++ b/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; diff --git a/Informes/InformeTrimestralVentas.pas b/Informes/InformeTrimestralVentas.pas index 5cc2d06..1263c85 100644 --- a/Informes/InformeTrimestralVentas.pas +++ b/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; diff --git a/Informes/PantallaInformesCompras.pas b/Informes/PantallaInformesCompras.pas index 0b4279d..c1fb226 100644 --- a/Informes/PantallaInformesCompras.pas +++ b/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); diff --git a/Informes/PantallaInformesContabilidad.pas b/Informes/PantallaInformesContabilidad.pas index afa089a..04058d2 100644 --- a/Informes/PantallaInformesContabilidad.pas +++ b/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); diff --git a/Informes/PantallaInformesVentas.pas b/Informes/PantallaInformesVentas.pas index 7c311a2..c46c430 100644 --- a/Informes/PantallaInformesVentas.pas +++ b/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); diff --git a/PantallaAcceso.dfm b/PantallaAcceso.dfm index ff10ebc..2eaa648 100644 --- a/PantallaAcceso.dfm +++ b/PantallaAcceso.dfm @@ -2084,8 +2084,7 @@ object fPantallaAcceso: TfPantallaAcceso AppStoragePath = '\' Options = [] StoredProps.Strings = ( - 'Usuario.Text' - 'Clave.Text') + 'Usuario.Text') StoredValues = < item Name = 'Ruta' diff --git a/Principal.dfm b/Principal.dfm index f461881..6bc770b 100644 --- a/Principal.dfm +++ b/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 diff --git a/Principal.pas b/Principal.pas index 9e911b0..b012e56 100644 --- a/Principal.pas +++ b/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. diff --git a/Proveedores/BarraProveedores.dfm b/Proveedores/BarraProveedores.dfm index 5fc924a..e0967f6 100644 --- a/Proveedores/BarraProveedores.dfm +++ b/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 diff --git a/Proveedores/BarraProveedores.pas b/Proveedores/BarraProveedores.pas index 139ac68..54515f6 100644 --- a/Proveedores/BarraProveedores.pas +++ b/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. diff --git a/Proveedores/HistorialFacturacionProveedores.dfm b/Proveedores/HistorialFacturacionProveedores.dfm index a5df445..991e338 100644 --- a/Proveedores/HistorialFacturacionProveedores.dfm +++ b/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 diff --git a/Proveedores/HistorialFacturacionProveedores.pas b/Proveedores/HistorialFacturacionProveedores.pas index a45c6c1..87dcc4e 100644 --- a/Proveedores/HistorialFacturacionProveedores.pas +++ b/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) diff --git a/Temp/Factuges.exe b/Temp/Factuges.exe index 891bef3..bef3073 100644 Binary files a/Temp/Factuges.exe and b/Temp/Factuges.exe differ diff --git a/bd/ABETO.GDB b/bd/ABETO.GDB index aec9713..deb3484 100644 Binary files a/bd/ABETO.GDB and b/bd/ABETO.GDB differ