Uecko/AbetoArmarios_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@33 0a814768-cfdd-9c42-8d01-223fcc10da9d
This commit is contained in:
roberto 2009-09-28 17:23:49 +00:00
parent fcc8f0ed90
commit cf0f268c5a
18 changed files with 251 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
BaseDatos/BaseDatos.pas
View File

@ -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

2
BaseDatos/TablaEmpresas.pas
View File

@ -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;

71
Contabilidad/ImprimirInformeTrimestral.dfm
View File

@ -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

74
Contabilidad/ImprimirInformeTrimestral.pas
View File

@ -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.

21
Informes/InformeTrimestralCompras.pas
View File

@ -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;

13
Informes/InformeTrimestralVentas.pas
View File

@ -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;

13
Informes/PantallaInformesCompras.pas
View File

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

22
Informes/PantallaInformesContabilidad.pas
View File

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

11
Informes/PantallaInformesVentas.pas
View File

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

3
PantallaAcceso.dfm
View File

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

8
Principal.dfm
View File

@ -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

4
Principal.pas
View File

@ -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.

17
Proveedores/BarraProveedores.dfm
View File

@ -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

17
Proveedores/BarraProveedores.pas
View File

@ -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.

51
Proveedores/HistorialFacturacionProveedores.dfm
View File

@ -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

2
Proveedores/HistorialFacturacionProveedores.pas
View File

@ -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)

BIN
Temp/Factuges.exe
View File

Binary file not shown.

BIN
bd/ABETO.GDB
View File

Binary file not shown.