From 4bad9e753d5f96183252f274102644be17ecb068 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Fri, 28 Jan 2011 16:46:36 +0000
Subject: [PATCH] =?UTF-8?q?Se=20a=C3=B1ade=20persona=20de=20contacto=20a?=
 =?UTF-8?q?=20las=20columnas=20del=20cliente?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@546 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Modulos/Contactos/Views/uViewClientes.dfm | 36 ++++++++++++++-----
 .../Modulos/Contactos/Views/uViewClientes.pas |  3 +-
 2 files changed, 29 insertions(+), 10 deletions(-)

diff --git a/Source/Modulos/Contactos/Views/uViewClientes.dfm b/Source/Modulos/Contactos/Views/uViewClientes.dfm
index 03020d36..af54edc8 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.dfm
+++ b/Source/Modulos/Contactos/Views/uViewClientes.dfm
@@ -6,7 +6,8 @@ inherited frViewClientes: TfrViewClientes
   inherited cxGrid: TcxGrid
     Width = 633
     Height = 376
-    ExplicitWidth = 758
+    ExplicitWidth = 633
+    ExplicitHeight = 376
     inherited cxGridView: TcxGridDBTableView
       DataController.Summary.FooterSummaryItems = <
         item
@@ -48,26 +49,42 @@ inherited frViewClientes: TfrViewClientes
         DataBinding.FieldName = 'NOMBRE_COMERCIAL'
         Width = 164
       end
+      object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn [8]
+        Caption = 'Persona contacto'
+        DataBinding.FieldName = 'PERSONA_CONTACTO'
+      end
     end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Width = 633
-    ExplicitWidth = 758
+    ExplicitWidth = 633
     inherited TBXDockablePanel1: TTBXDockablePanel
-      ExplicitWidth = 758
+      ExplicitWidth = 633
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 633
-        ExplicitWidth = 758
+        ExplicitWidth = 633
         inherited txtFiltroTodo: TcxTextEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 661
           Width = 661
         end
         inherited edtFechaIniFiltro: TcxDateEdit
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitWidth = 217
           Width = 217
         end
         inherited edtFechaFinFiltro: TcxDateEdit
           Left = 271
+          Style.LookAndFeel.SkinName = ''
+          StyleDisabled.LookAndFeel.SkinName = ''
+          StyleFocused.LookAndFeel.SkinName = ''
+          StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 271
           ExplicitWidth = 427
           Width = 427
@@ -75,23 +92,24 @@ inherited frViewClientes: TfrViewClientes
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 633
-        ExplicitWidth = 758
+        ExplicitWidth = 633
         inherited tbxBotones: TTBXToolbar
           Width = 623
-          ExplicitWidth = 748
+          ExplicitWidth = 623
         end
       end
     end
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 478
-    ExplicitWidth = 758
+    ExplicitTop = 478
+    ExplicitWidth = 633
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       Width = 633
-      ExplicitWidth = 758
+      ExplicitWidth = 633
       inherited TBXToolbar1: TTBXToolbar
         Width = 623
-        ExplicitWidth = 748
+        ExplicitWidth = 623
       end
     end
   end
diff --git a/Source/Modulos/Contactos/Views/uViewClientes.pas b/Source/Modulos/Contactos/Views/uViewClientes.pas
index 2a714168..64ca7041 100644
--- a/Source/Modulos/Contactos/Views/uViewClientes.pas
+++ b/Source/Modulos/Contactos/Views/uViewClientes.pas
@@ -14,7 +14,7 @@ uses
   dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
   dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
   uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
-  uDAInterfaces, cxTextEdit;
+  uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
 
 type
   IViewClientes = interface(IViewContactos)
@@ -25,6 +25,7 @@ type
     cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn;
     cxGridViewBLOQUEADO: TcxGridDBColumn;
     cxGridViewTiendaWeb: TcxGridDBColumn;
+    cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);