From 0fba92559e284c7ae7791c1aa55d9f2e32c148bf Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 3 Dec 2008 18:53:48 +0000
Subject: [PATCH] Se cambia el orden por defecto de la lista de facturas por
 fechaArreglo de informes para que salga la fecha de vencimiento en el informe

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@353 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Reports/uRptRecibosProveedor_Server.pas        |  2 +-
 .../Views/uViewRecibosProveedor.dfm                | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas
index b5efee19..63d9c277 100644
--- a/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas	
+++ b/Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas	
@@ -189,7 +189,7 @@ begin
 
     tbl_InformeListadoRecibos.Active := True;
 
-    AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, tbl_InformeListadoRecibos.FieldByName('ID_EMPRESA').AsString);
+    AInforme := DarRutaFichero(DarRutaInformes, TipoInforme, IntToStr(IdEmpresa));
     if VarIsNull(AInforme) then
        raise Exception.Create (('Error Servidor: _GenerarInforme, no encuentra informe' + TipoInforme));
 
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
index 280387a9..a4d6c8c6 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm	
@@ -95,6 +95,8 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
       object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn
         Caption = 'Fecha vencimiento'
         DataBinding.FieldName = 'FECHA_VENCIMIENTO'
+        SortIndex = 0
+        SortOrder = soDescending
         Width = 61
       end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
@@ -165,15 +167,27 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
         Width = 531
         ExplicitWidth = 531
         inherited txtFiltroTodo: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 434
           Width = 434
         end
         inherited edtFechaIniFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 130
           Width = 130
         end
         inherited edtFechaFinFiltro: TcxDateEdit
           Left = 234
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 234
           ExplicitWidth = 287
           Width = 287