Se arregla los informes para que la base imponible siempre sea (BASEIMPONIBLE - IMPORTE DESCUENTO)

git-svn-id: https://192.168.0.254/svn/Proyectos.Miguelo_FactuGES/trunk@15 172823e9-465a-9d4b-80ba-0a9f016f4eb1

Factuges.dpr

@@ -28,7 +28,7 @@ program FactuGES;
 {%ToDo 'Factuges.todo'}
 
 uses
-  ExceptionLog,
+//  ExceptionLog,
   Forms,
   Windows,
   Mensajes,

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;

Informes/InformeHistorialFacturacionProveedores.pas

@@ -87,14 +87,14 @@ 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('where FP.CODIGOEMPRESA = :CODIGOEMPRESA');
     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;

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;

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;

Temp/FACTUGES.INI

@@ -1,7 +1,8 @@
 [BD]
+MIGUELO ROBERTO=xp_vm:c:\Codigo Miguelo\bd\miguelo.gdb
 MIGUELO RIVAS=david:D:\Proyectos\FactuGES (Miguelo)\Codigo\bd\miguelo.gdb
 ACANA DAVID=david:D:\Proyectos\FactuGES 2000 v2 (Acana)\Codigo\bd\acana.gdb
-MIGUELO ROBERTO=roberto:T:\Miguelo\bd\miguelo.gdb
+
 
 
 

Temp/update/versionlocal.ini

@@ -1,19 +1,6 @@
 [Version]
-Count=1
-CurrentProductionProgramVersion=3.0.5.0
+Count=0
+CurrentProductionProgramVersion=
 CurrentBetaProgramVersion=
 CurrentAlphaProgramVersion=
 
-[Program Version 0]
-DownloadPasswordRequired=FALSE
-LocalInstallerParams=
-ProgramLocationPath=files
-ProgramLocationFileName=instalar.exe
-ProgramVersion=3.0.5.0
-ProgramReleaseType=prtProduction
-ProgramSize=1000000
-ProgramReleaseDate=29/06/2007
-
-[Program Version 0\VersionDescription]
-Count=0
-