diff --git a/Clientes/HistorialFacturacionClientes.dfm b/Clientes/HistorialFacturacionClientes.dfm index f25ed7b..c611dfc 100644 --- a/Clientes/HistorialFacturacionClientes.dfm +++ b/Clientes/HistorialFacturacionClientes.dfm @@ -186,41 +186,33 @@ object frHistorialFacturacionClientes: TfrHistorialFacturacionClientes object cbCantidadMin: TcxCheckBox Left = 72 Top = 64 - Width = 161 - Height = 21 Caption = 'S'#243'lo facturas que superen:' ParentColor = False + ParentFont = False Properties.OnChange = cbCantidadMinPropertiesChange Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro - StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro - StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro - StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoClaro TabOrder = 2 OnClick = cbCantidadMinClick + Width = 161 end object CantidadMinima: TcxSpinEdit Left = 227 Top = 64 - Width = 110 - Height = 21 Enabled = False + ParentFont = False Properties.Alignment.Horz = taLeftJustify 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 = 3 Value = 3000 + Width = 110 end object NombreCliIni: TcxButtonEdit Left = 152 Top = 37 - Width = 185 - Height = 21 ParentFont = False Properties.Buttons = < item @@ -274,17 +266,13 @@ object frHistorialFacturacionClientes: TfrHistorialFacturacionClientes Properties.OnButtonClick = NombreCliIniPropertiesButtonClick Properties.OnValidate = NombreCliIniPropertiesValidate Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 0 Text = 'NombreCliIni' + Width = 185 end object NombreCliFin: TcxButtonEdit Left = 440 Top = 37 - Width = 185 - Height = 21 ParentFont = False Properties.Buttons = < item @@ -338,11 +326,9 @@ object frHistorialFacturacionClientes: TfrHistorialFacturacionClientes Properties.OnButtonClick = NombreCliFinPropertiesButtonClick Properties.OnValidate = NombreCliFinPropertiesValidate Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleDisabled.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleFocused.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro - StyleHot.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro TabOrder = 1 Text = 'NombreCliFin' + Width = 185 end object rbTrimestre: TRdxRadioButton Left = 48 @@ -363,17 +349,13 @@ object frHistorialFacturacionClientes: TfrHistorialFacturacionClientes 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 frHistorialFacturacionClientes: TfrHistorialFacturacionClientes 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 cliente' 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/Clientes/HistorialFacturacionClientes.pas b/Clientes/HistorialFacturacionClientes.pas index c28c98a..8e117f2 100644 --- a/Clientes/HistorialFacturacionClientes.pas +++ b/Clientes/HistorialFacturacionClientes.pas @@ -38,7 +38,7 @@ uses cxContainer, cxEdit, cxTextEdit, StdCtrls, AdvPanel, ExtCtrls, Configuracion, cxCheckBox, cxSpinEdit, InformeHistorialFacturacionClientes, VistaPrevia, TablaClientes, RdxRadioButton, RdxShape, TablaTrimestres, Entidades, - InformeResumenFacturacionClientes; + InformeResumenFacturacionClientes, cxGraphics; type TfrHistorialFacturacionClientes = class(TRdxFrame) diff --git a/Factuges.dof b/Factuges.dof index 8bda88d..c46b338 100644 --- a/Factuges.dof +++ b/Factuges.dof @@ -114,7 +114,7 @@ IncludeVerInfo=1 AutoIncBuild=0 MajorVer=3 MinorVer=2 -Release=1 +Release=2 Build=0 Debug=0 PreRelease=0 @@ -126,7 +126,7 @@ CodePage=1252 [Version Info Keys] CompanyName= FileDescription= -FileVersion=3.2.1.0 +FileVersion=3.2.2.0 InternalName= LegalCopyright= LegalTrademarks= diff --git a/Factuges.res b/Factuges.res index da67e5c..3ff41ca 100644 Binary files a/Factuges.res and b/Factuges.res differ diff --git a/Informes/InformeHistorialFacturacionClientes.pas b/Informes/InformeHistorialFacturacionClientes.pas index 01a46ac..8bbd57b 100644 --- a/Informes/InformeHistorialFacturacionClientes.pas +++ b/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.IMPORTEIVA, FC.IMPORTETOTAL'); + SQL.Add('FC.IVA, (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL'); SQL.Add('from FACTURASCLIENTE FC left join sucursalescliente C'); SQL.Add('on (FC.CODIGOCLIENTE = C.CODIGOCLIENTE) and (C.TIPO = ''P'')'); SQL.Add('where FC.CODIGOEMPRESA = :CODIGOEMPRESA'); SQL.Add('and upper(FC.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) '); SQL.Add('and FC.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN '); if not VarIsNull(FImporteMinimo) then - SQL.Add('and FC.BASEIMPONIBLE >= :BASEIMPONIBLE '); + SQL.Add('and (FC.BASEIMPONIBLE - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE '); SQL.Add('order by FC.NOMBRE, FC.FECHAFACTURA'); ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo; ParamByName('NOMBREINI').AsString := FNombreIni; diff --git a/Informes/InformeHistorialFacturacionProveedores.pas b/Informes/InformeHistorialFacturacionProveedores.pas index 04d7571..df6caca 100644 --- a/Informes/InformeHistorialFacturacionProveedores.pas +++ b/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.IMPORTEIVA, FP.IMPORTETOTAL'); + SQL.Add('FP.IVA, (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL'); SQL.Add('from FACTURASPROVEEDOR FP left join PROVEEDORES P'); SQL.Add('on FP.CODIGOPROVEEDOR = P.CODIGO'); SQL.Add('left join TIPOSFACTURAS TF'); @@ -96,7 +96,7 @@ begin SQL.Add('and upper(FP.NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) '); SQL.Add('and FP.FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN '); if not VarIsNull(FImporteMinimo) then - SQL.Add('and FP.BASEIMPONIBLE >= :BASEIMPONIBLE '); + SQL.Add('and (FP.BASEIMPONIBLE - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE '); SQL.Add('order by FP.NOMBRE, FP.FECHAFACTURA'); ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo; ParamByName('NOMBREINI').AsString := FNombreIni; diff --git a/Informes/InformeResumenFacturacionClientes.pas b/Informes/InformeResumenFacturacionClientes.pas index 4df8feb..4478cf8 100644 --- a/Informes/InformeResumenFacturacionClientes.pas +++ b/Informes/InformeResumenFacturacionClientes.pas @@ -84,13 +84,13 @@ begin Database := FBaseDatos; Transaction := FTransaccion; SQL.Clear; - SQL.Add('select NOMBRE, BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL '); + SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL '); SQL.Add('from FACTURASCLIENTE '); SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA'); SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) '); SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN '); if not VarIsNull(FImporteMinimo) then - SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE '); + SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE '); SQL.Add('order by NOMBRE'); ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo; ParamByName('NOMBREINI').AsString := FNombreIni; diff --git a/Informes/InformeResumenFacturacionProveedores.pas b/Informes/InformeResumenFacturacionProveedores.pas index a0772b5..8637b32 100644 --- a/Informes/InformeResumenFacturacionProveedores.pas +++ b/Informes/InformeResumenFacturacionProveedores.pas @@ -82,13 +82,13 @@ begin Database := FBaseDatos; Transaction := FTransaccion; SQL.Clear; - SQL.Add('select NOMBRE, BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL '); + SQL.Add('select NOMBRE, (BASEIMPONIBLE - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL '); SQL.Add('from FACTURASPROVEEDOR '); SQL.Add('where CODIGOEMPRESA = :CODIGOEMPRESA'); SQL.Add('and upper(NOMBRE) between upper(:NOMBREINI) and upper(:NOMBREFIN) '); SQL.Add('and FECHAFACTURA between :FECHAFACINI and :FECHAFACFIN '); if not VarIsNull(FImporteMinimo) then - SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE '); + SQL.Add('and (BASEIMPONIBLE - IMPORTEDESCUENTO) >= :BASEIMPONIBLE '); SQL.Add('order by NOMBRE'); ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo; ParamByName('NOMBREINI').AsString := FNombreIni; diff --git a/Temp/FACTUGES.INI b/Temp/FACTUGES.INI index 092c705..8c6f7b1 100644 --- a/Temp/FACTUGES.INI +++ b/Temp/FACTUGES.INI @@ -1,6 +1,6 @@ [BD] ABETO ARMARIOS SERVIDOR=servidor:E:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb ABETO ARMARIOS DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Abeto)\Codigo\BD\abeto.gdb -ABETO ARMARIOS ROBERTO=xp_vm:C:\Abeto\bd\abeto.gdb +ABETO ARMARIOS ROBERTO=xp_vm:C:\Codigo Abeto\bd\abeto.gdb ABETO ARMARIOS DAVID T=david:T:\Codigo Abeto\bd\abeto.gdb diff --git a/Temp/Factuges.exe b/Temp/Factuges.exe index b0b3746..94b2c61 100644 Binary files a/Temp/Factuges.exe and b/Temp/Factuges.exe differ diff --git a/Temp/Informes/HistorialFacturacionClientes.frf b/Temp/Informes/HistorialFacturacionClientes.frf index 9c8324d..6648271 100644 Binary files a/Temp/Informes/HistorialFacturacionClientes.frf and b/Temp/Informes/HistorialFacturacionClientes.frf differ diff --git a/bd/ABETO.GDB b/bd/ABETO.GDB index 271c371..df31468 100644 Binary files a/bd/ABETO.GDB and b/bd/ABETO.GDB differ