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

Se arreglan los informes para que la base imponible siempre sea (BASEIMPONIBLE - IMPORTEDESCUENTO)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoArmarios_FactuGES/trunk@29 0a814768-cfdd-9c42-8d01-223fcc10da9d
This commit is contained in:
roberto 2009-03-10 14:06:15 +00:00
parent e28cb68055
commit 143c42dee2
12 changed files with 23 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
Clientes/HistorialFacturacionClientes.dfm
View File

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

2
Clientes/HistorialFacturacionClientes.pas
View File

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

4
Factuges.dof
View File

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

BIN
Factuges.res
View File

Binary file not shown.

4
Informes/InformeHistorialFacturacionClientes.pas
View File

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

4
Informes/InformeHistorialFacturacionProveedores.pas
View File

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

4
Informes/InformeResumenFacturacionClientes.pas
View File

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

4
Informes/InformeResumenFacturacionProveedores.pas
View File

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

2
Temp/FACTUGES.INI
View File

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

BIN
Temp/Factuges.exe
View File

Binary file not shown.

BIN
Temp/Informes/HistorialFacturacionClientes.frf
View File

Binary file not shown.

BIN
bd/ABETO.GDB
View File

Binary file not shown.