diff --git a/Source/Cliente/FactuGES.bdsproj b/Source/Cliente/FactuGES.bdsproj
index acc02027..e8116a92 100644
--- a/Source/Cliente/FactuGES.bdsproj
+++ b/Source/Cliente/FactuGES.bdsproj
@@ -125,7 +125,7 @@
 			<Directories Name="PackageDCPOutputDir">.\</Directories>
 			<Directories Name="SearchPath">..\Lib;..\Modulos\Lib</Directories>
 			<Directories Name="Packages">PluginSDK_D10R;GUISDK_D10;DataAbstract_D10;Base;GUIBase;Usuarios;Contactos_plugin;Empresas_plugin;Empresas_controller;Empresas_model;rtl</Directories>
-			<Directories Name="Conditionals">_VER6;</Directories>
+			<Directories Name="Conditionals">_VER6;EUREKALOG;EUREKALOG_VER5</Directories>
 			<Directories Name="DebugSourceDirs"></Directories>
 			<Directories Name="UsePackages">True</Directories>
 		</Directories>
@@ -180,7 +180,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=519
-Activate=0
+Activate=1
 Activate Handle=0
 Save Log File=1
 Foreground Tab=0
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index f9a5d38b..01cb7fad 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -1,6 +1,7 @@
 program FactuGES;
 
 uses
+  ExceptionLog,
   Forms,
   Windows,
   SysUtils,
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index ba02f955..5ed73614 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Lib/PedidosCliente_view.dcp b/Source/Modulos/Lib/PedidosCliente_view.dcp
index 998555c6..9ccce831 100644
Binary files a/Source/Modulos/Lib/PedidosCliente_view.dcp and b/Source/Modulos/Lib/PedidosCliente_view.dcp differ
diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm
index 4aa66cb3..9cb3ea70 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm	
+++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm	
@@ -163,9 +163,20 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
         ExplicitWidth = 596
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 592
+          ExplicitWidth = 592
+          inherited txtFiltroTodo: TcxTextEdit
+            ExplicitWidth = 273
+            Width = 273
+          end
+          inherited edtFechaIniFiltro: TcxDateEdit
+            ExplicitWidth = 121
+            Width = 121
+          end
           inherited edtFechaFinFiltro: TcxDateEdit
             Left = 367
             ExplicitLeft = 367
+            ExplicitWidth = 121
+            Width = 121
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas
index 0544188b..c9a589fb 100644
--- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas	
+++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas	
@@ -223,14 +223,13 @@ var
   R : TRect;
 begin
   inherited;
-
-  if not VarIsNull(  _FocusedView.DataController.Values[AViewInfo.RecordViewInfo.Index, AViewInfo.Item.Index]) then
-  begin
-    R := AViewInfo.ContentBounds;
-    ACanvas.FillRect(R);
-    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
-    ADone := True;
-  end;
+    if (AViewInfo.GridRecord.DisplayTexts[cxGridViewTIENDAWEB.Index] <> '') then
+    begin
+      R := AViewInfo.ContentBounds;
+      ACanvas.FillRect(R);
+      ACanvas.DrawImage(PngImageList, R.Left, R.Top, 4);
+      ADone := True;
+    end;
 end;
 
 function TfrViewPedidosCliente.GetPedidos: IBizPedidoCliente;