diff --git a/Factuges.dof b/Factuges.dof
index 336bd89..467ba48 100644
--- a/Factuges.dof
+++ b/Factuges.dof
@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=3
 MinorVer=2
-Release=7
+Release=8
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=3.2.7.0
+FileVersion=3.2.8.0
 InternalName=
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=
-ProductVersion=3.2.7.0
+ProductVersion=3.2.8.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
diff --git a/Factuges.dsk b/Factuges.dsk
index a76dba6..5055ae5 100644
--- a/Factuges.dsk
+++ b/Factuges.dsk
@@ -8,37 +8,50 @@ File_5=SourceModule,'C:\Codigo Abeto\BaseDatos\TablaEmpresas.pas',0,1,379,1,390,
 File_6=SourceModule,'C:\Codigo Abeto\Informes\InformeAlbaranCliente.pas',0,1,51,38,68,0,0
 
 [Modules]
-Module0=C:\Codigo Abeto\Informes\InformeFacturaCliente.pas
-Module1=C:\Codigo Abeto\Clientes\ContratoCliente.pas
-Module2=C:\Codigo Abeto\Informes\InformeContratoCliente.pas
-Module3=C:\Codigo Abeto\Clientes\FacturaProforma.pas
-Module4=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
-Module5=C:\Codigo Abeto\Clientes\FacturaCliente.pas
-Module6=C:\Codigo Abeto\BaseDatos\TablaPresupuestos.pas
-Module7=C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas
-Module8=C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas
-Module9=C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas
-Module10=C:\Codigo Abeto\BaseDatos\TablaContratos.pas
-Module11=C:\Codigo Abeto\Factuges.dpr
-Count=12
+Module0=C:\Codigo Abeto\Proveedores\FacturaProveedor.pas
+Module1=C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas
+Module2=C:\Codigo Abeto\BaseDatos\TablaFacturasProveedor.pas
+Module3=C:\Codigo Abeto\Clientes\FacturaCliente.pas
+Module4=C:\Codigo Abeto\Clientes\ContratoCliente.pas
+Module5=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
+Module6=C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas
+Module7=C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas
+Module8=C:\Codigo Abeto\Informes\InformeResumenFacturacionProveedores.pas
+Module9=C:\Codigo Abeto\Informes\InformeResumenFacturacionClientes.pas
+Module10=C:\Codigo Abeto\Informes\InformeHistorialFacturacionProveedores.pas
+Module11=C:\Codigo Abeto\Informes\InformeHistorialFacturacionClientes.pas
+Module12=C:\Codigo Abeto\Clientes\AlbaranCliente.pas
+Module13=C:\Codigo Abeto\Informes\InformeFacturaCliente.pas
+Module14=C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas
+Module15=C:\Codigo Abeto\BaseDatos\TablaPresupuestos.pas
+Module16=C:\Codigo Abeto\Clientes\FacturaProforma.pas
+Module17=C:\Codigo Abeto\Informes\InformeContratoCliente.pas
+Module18=C:\Codigo Abeto\BaseDatos\TablaContratos.pas
+Module19=C:\Codigo Abeto\Factuges.dpr
+Count=20
 EditWindowCount=1
 
-[C:\Codigo Abeto\Informes\InformeFacturaCliente.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=1
-
-[C:\Codigo Abeto\Clientes\ContratoCliente.pas]
+[C:\Codigo Abeto\Proveedores\FacturaProveedor.pas]
 ModuleType=SourceModule
 FormState=1
 FormOnTop=0
 
-[C:\Codigo Abeto\Informes\InformeContratoCliente.pas]
+[C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\BaseDatos\TablaFacturasProveedor.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Clientes\FacturaCliente.pas]
 ModuleType=SourceModule
 FormState=1
-FormOnTop=1
+FormOnTop=0
 
-[C:\Codigo Abeto\Clientes\FacturaProforma.pas]
+[C:\Codigo Abeto\Clientes\ContratoCliente.pas]
 ModuleType=SourceModule
 FormState=1
 FormOnTop=0
@@ -48,7 +61,47 @@ ModuleType=SourceModule
 FormState=1
 FormOnTop=0
 
-[C:\Codigo Abeto\Clientes\FacturaCliente.pas]
+[C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeResumenFacturacionProveedores.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeResumenFacturacionClientes.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeHistorialFacturacionProveedores.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeHistorialFacturacionClientes.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Clientes\AlbaranCliente.pas]
+ModuleType=SourceModule
+FormState=0
+FormOnTop=0
+
+[C:\Codigo Abeto\Informes\InformeFacturaCliente.pas]
+ModuleType=SourceModule
+FormState=1
+FormOnTop=0
+
+[C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas]
 ModuleType=SourceModule
 FormState=1
 FormOnTop=0
@@ -58,21 +111,16 @@ ModuleType=SourceModule
 FormState=1
 FormOnTop=0
 
-[C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas]
+[C:\Codigo Abeto\Clientes\FacturaProforma.pas]
 ModuleType=SourceModule
 FormState=1
 FormOnTop=0
 
-[C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas]
+[C:\Codigo Abeto\Informes\InformeContratoCliente.pas]
 ModuleType=SourceModule
 FormState=1
 FormOnTop=1
 
-[C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas]
-ModuleType=SourceModule
-FormState=1
-FormOnTop=0
-
 [C:\Codigo Abeto\BaseDatos\TablaContratos.pas]
 ModuleType=SourceModule
 FormState=0
@@ -87,6 +135,10 @@ FormOnTop=0
 FormState=0
 FormOnTop=0
 
+[C:\Codigo Abeto\Informes\InformeBase.pas]
+FormState=0
+FormOnTop=0
+
 [C:\Codigo Abeto\Libreria\Configuracion.pas]
 FormState=0
 FormOnTop=0
@@ -95,13 +147,9 @@ FormOnTop=0
 FormState=0
 FormOnTop=0
 
-[C:\Codigo Abeto\Informes\InformeBase.pas]
-FormState=0
-FormOnTop=0
-
 [EditWindow0]
-ViewCount=12
-CurrentView=7
+ViewCount=20
+CurrentView=5
 View0=0
 View1=1
 View2=2
@@ -114,6 +162,14 @@ View8=8
 View9=9
 View10=10
 View11=11
+View12=12
+View13=13
+View14=14
+View15=15
+View16=16
+View17=17
+View18=18
+View19=19
 CodeExplorer=CodeExplorer@EditWindow0
 MessageView=MessageView@EditWindow0
 Create=1
@@ -131,7 +187,7 @@ LeftPanelSize=140
 LeftPanelClients=CodeExplorer@EditWindow0
 LeftPanelData=000004000000000000000000000000000000000000000000000100000000000000000C000000436F64654578706C6F726572FFFFFFFF
 RightPanelSize=0
-BottomPanelSize=249
+BottomPanelSize=499
 BottomPanelClients=MessageView@EditWindow0
 BottomPanelData=000004000000000000000000000000000000000000000000000100000000000000000B0000004D65737361676556696577FFFFFFFF
 
@@ -151,8 +207,8 @@ LeftCol=1
 
 [View2]
 Module=C:\Codigo Abeto\Clientes\FacturaCliente.pas
-CursorX=67
-CursorY=776
+CursorX=7
+CursorY=768
 TopLine=764
 LeftCol=1
 
@@ -165,58 +221,114 @@ LeftCol=1
 
 [View4]
 Module=C:\Codigo Abeto\Informes\InformeTrimestralVentas.pas
-CursorX=70
+CursorX=27
 CursorY=134
 TopLine=119
 LeftCol=1
 
 [View5]
-Module=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
-CursorX=24
-CursorY=1023
-TopLine=1009
+Module=C:\Codigo Abeto\Proveedores\FacturaProveedor.pas
+CursorX=32
+CursorY=694
+TopLine=684
 LeftCol=1
 
 [View6]
+Module=C:\Codigo Abeto\BaseDatos\TablaFacturasProveedor.pas
+CursorX=1
+CursorY=1
+TopLine=91
+LeftCol=1
+
+[View7]
+Module=C:\Codigo Abeto\Clientes\PresupuestoCliente.pas
+CursorX=23
+CursorY=1013
+TopLine=1012
+LeftCol=1
+
+[View8]
 Module=C:\Codigo Abeto\Clientes\ImprimirFacturasCliente.pas
 CursorX=34
 CursorY=9
 TopLine=22
 LeftCol=1
 
-[View7]
+[View9]
 Module=C:\Codigo Abeto\Informes\InformeFacturaCliente.pas
-CursorX=1
-CursorY=1
-TopLine=1
+CursorX=60
+CursorY=18
+TopLine=85
 LeftCol=1
 
-[View8]
+[View10]
 Module=C:\Codigo Abeto\Informes\InformeContratoCliente.pas
 CursorX=87
 CursorY=14
 TopLine=217
 LeftCol=1
 
-[View9]
+[View11]
 Module=C:\Codigo Abeto\Clientes\ContratoCliente.pas
-CursorX=44
-CursorY=902
-TopLine=888
+CursorX=7
+CursorY=892
+TopLine=876
 LeftCol=1
 
-[View10]
+[View12]
 Module=C:\Codigo Abeto\BaseDatos\TablaContratos.pas
 CursorX=1
 CursorY=1
 TopLine=1
 LeftCol=1
 
-[View11]
+[View13]
 Module=C:\Codigo Abeto\BaseDatos\TablaFacturasCliente.pas
 CursorX=14
-CursorY=103
-TopLine=184
+CursorY=154
+TopLine=217
+LeftCol=1
+
+[View14]
+Module=C:\Codigo Abeto\Clientes\AlbaranCliente.pas
+CursorX=23
+CursorY=648
+TopLine=633
+LeftCol=1
+
+[View15]
+Module=C:\Codigo Abeto\Informes\InformeHistorialFacturacionClientes.pas
+CursorX=21
+CursorY=98
+TopLine=76
+LeftCol=1
+
+[View16]
+Module=C:\Codigo Abeto\Informes\InformeHistorialFacturacionProveedores.pas
+CursorX=37
+CursorY=99
+TopLine=75
+LeftCol=1
+
+[View17]
+Module=C:\Codigo Abeto\Informes\InformeResumenFacturacionClientes.pas
+CursorX=34
+CursorY=93
+TopLine=72
+LeftCol=1
+
+[View18]
+Module=C:\Codigo Abeto\Informes\InformeResumenFacturacionProveedores.pas
+CursorX=34
+CursorY=91
+TopLine=75
+LeftCol=1
+
+[View19]
+Module=C:\Codigo Abeto\Informes\InformeTrimestralCompras.pas
+CursorX=65
+CursorY=150
+TopLine=140
 LeftCol=1
 
 [Watches]
@@ -256,8 +368,8 @@ Left=0
 Top=0
 Width=1676
 Height=112
-MaxLeft=-4
-MaxTop=-4
+MaxLeft=-1
+MaxTop=-1
 MaxWidth=1684
 MaxHeight=112
 ClientWidth=1676
@@ -342,7 +454,7 @@ LRDockWidth=317
 Dockable=1
 SplitPos=201
 ArrangeBy=Name
-SelectedItem=Name
+SelectedItem=Visible
 ExpandedItems=ActiveTranslateStringEngine,Anchors,AppStorage,BevelEdges,Brush,Constraints,DataBinding,DataController,DataController.Filter,DataController.Options,DataController.Summary,DataController.Summary.Options,Filtering,HTTPOptions,LookAndFeel.AssignedValues,NavigatorButtons.Cancel,NavigatorButtons.Delete,NavigatorButtons.Edit,Options,OptionsBehavior,OptionsData,OptionsSelection,OptionsView,Preview,Properties,Properties.Alignment,Properties.SpinButtons,StorageOptions,Style,Styles,VertScrollBar
 HiddenCategories=
 
@@ -535,11 +647,11 @@ State=0
 Left=0
 Top=12
 Width=140
-Height=574
+Height=324
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=140
-ClientHeight=574
+ClientHeight=324
 TBDockHeight=305
 LRDockWidth=140
 Dockable=1
@@ -551,12 +663,12 @@ State=0
 Left=12
 Top=0
 Width=1224
-Height=249
+Height=499
 MaxLeft=-1
 MaxTop=-1
 ClientWidth=1224
-ClientHeight=249
-TBDockHeight=249
+ClientHeight=499
+TBDockHeight=499
 LRDockWidth=443
 Dockable=1
 
@@ -580,6 +692,6 @@ TBDockHeight=916
 LRDockWidth=325
 Dockable=1
 TabPosition=0
-ActiveTab=Object Inspector
+ActiveTab=Object TreeView
 TabDockClients=PropertyInspector,ObjectTree
 
diff --git a/Factuges.res b/Factuges.res
index 528307b..46c78c8 100644
Binary files a/Factuges.res and b/Factuges.res differ
diff --git a/Informes/InformeHistorialFacturacionClientes.pas b/Informes/InformeHistorialFacturacionClientes.pas
index 8bbd57b..a33ad13 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.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FC.IMPORTEIVA, FC.IMPORTETOTAL');
+    SQL.Add('FC.IVA, FC.BASEIMPONIBLE 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 - FC.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FC.BASEIMPONIBLE >= :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 df6caca..009f96b 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.IMPORTEDESCUENTO) AS BASEIMPONIBLE, FP.IMPORTEIVA, FP.IMPORTETOTAL');
+    SQL.Add('FP.IVA, FP.BASEIMPONIBLE 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 - FP.IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and FP.BASEIMPONIBLE >= :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 4478cf8..df959b5 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 - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE 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 - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :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 8637b32..3a199b7 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 - IMPORTEDESCUENTO) AS BASEIMPONIBLE, IMPORTEIVA, IMPORTETOTAL ');
+    SQL.Add('select NOMBRE, BASEIMPONIBLE 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 - IMPORTEDESCUENTO) >= :BASEIMPONIBLE ');
+       SQL.Add('and BASEIMPONIBLE >= :BASEIMPONIBLE ');
     SQL.Add('order by NOMBRE');
     ParamByName('CODIGOEMPRESA').AsInteger := EmpresaActiva.Codigo;
     ParamByName('NOMBREINI').AsString := FNombreIni;
diff --git a/Informes/InformeTrimestralCompras.pas b/Informes/InformeTrimestralCompras.pas
index 02afdb3..498db4e 100644
--- a/Informes/InformeTrimestralCompras.pas
+++ b/Informes/InformeTrimestralCompras.pas
@@ -117,7 +117,7 @@ begin
     for i := 0 to ContAux do
     begin
       if i < FListaCodTiposOp.Count then
-        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then (BASEIMPONIBLE - IMPORTEDESCUENTO) else null end as OP' + IntToStr(i) + ', ')
+        SQL.Add('case TIPOFACTURA when ' + FListaCodTiposOp.Strings[i] + ' then BASEIMPONIBLE else null end as OP' + IntToStr(i) + ', ')
       else
         SQL.Add('0 as OP' + IntToStr(i) + ', ');
     end;
@@ -147,7 +147,7 @@ begin
     Database := FBaseDatos;
     Transaction := FTransaccion;
     SQL.Clear;
-    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM((F.BASEIMPONIBLE - F.IMPORTEDESCUENTO)) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
+    SQL.Add('select T.CODIGO, T.DESCRIPCION, SUM(F.BASEIMPONIBLE) BASEIMPONIBLE, SUM(F.IMPORTEIVA) IMPORTEIVA, SUM(F.IMPORTETOTAL) IMPORTETOTAL');
     SQL.Add('from FACTURASPROVEEDOR F, TIPOSFACTURAS T');
     SQL.Add('where F.TIPOFACTURA = T.CODIGO');
     SQL.Add('and F.CODIGOEMPRESA = :CODIGOEMPRESA');
diff --git a/Informes/InformeTrimestralVentas.pas b/Informes/InformeTrimestralVentas.pas
index ae2cb16..7651f6a 100644
--- a/Informes/InformeTrimestralVentas.pas
+++ b/Informes/InformeTrimestralVentas.pas
@@ -131,7 +131,7 @@ begin
     end;
 
     //Para que el importe total de cada factura sea de 4 decimales y el total salga con exactitud
-    SQL.Add('BASEIMPONIBLE - coalesce(importedescuento,0) + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
+    SQL.Add('BASEIMPONIBLE + coalesce(importere,0) + coalesce(importeiva,0) as IMPORTETOTAL ');
     SQL.Add('from FACTURASCLIENTE FC, TIPOSFACTURAS TF ');
     SQL.Add('where TIPOFACTURA = TF.CODIGO ');
     SQL.Add('and CODIGOEMPRESA = :CODIGOEMPRESA');
diff --git a/Proveedores/FacturaProveedor.dfm b/Proveedores/FacturaProveedor.dfm
index 4e65216..6f94b39 100644
--- a/Proveedores/FacturaProveedor.dfm
+++ b/Proveedores/FacturaProveedor.dfm
@@ -1508,12 +1508,14 @@ object frFacturaProveedor: TfrFacturaProveedor
           Width = 74
           Height = 13
           Caption = 'Descuento(%):'
+          Enabled = False
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
           ParentFont = False
+          Visible = False
         end
         object Label8: TLabel
           Left = 157
@@ -1548,9 +1550,11 @@ object frFacturaProveedor: TfrFacturaProveedor
           Top = 38
           DataBinding.DataField = 'DESCUENTO'
           DataBinding.DataSource = dsFactura
+          Enabled = False
           ParentFont = False
           Style.StyleController = dmConfiguracion.cxEstiloEditoresFondoOscuro
           TabOrder = 1
+          Visible = False
           Width = 57
         end
         object IVA: TcxDBTextEdit
diff --git a/Temp/Factuges.exe b/Temp/Factuges.exe
index 84ce2de..baa5293 100644
Binary files a/Temp/Factuges.exe and b/Temp/Factuges.exe differ
diff --git a/bd/ABETO.GDB b/bd/ABETO.GDB
index b02b392..898a140 100644
Binary files a/bd/ABETO.GDB and b/bd/ABETO.GDB differ