Contactos: Iconos en listas y repaso a los hints.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@204 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Cliente/Cliente_Group.groupproj

@@ -0,0 +1,44 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{479c3dbc-7c2f-4cf8-8123-57cc8ee5f174}</ProjectGuid>
+  </PropertyGroup>
+  <ItemGroup />
+  <ItemGroup>
+    <Projects Include="..\Base\Base.dproj" />
+    <Projects Include="FactuGES.dproj" />
+  </ItemGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Default.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+  <BorlandProject xmlns=""> <Default.Personality> </Default.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Target Name="Base">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="" />
+  </Target>
+  <Target Name="Base:Clean">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Base:Make">
+    <MSBuild Projects="..\Base\Base.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FactuGES">
+    <MSBuild Projects="FactuGES.dproj" Targets="" />
+  </Target>
+  <Target Name="FactuGES:Clean">
+    <MSBuild Projects="FactuGES.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FactuGES:Make">
+    <MSBuild Projects="FactuGES.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Build">
+    <CallTarget Targets="Base;FactuGES" />
+  </Target>
+  <Target Name="Clean">
+    <CallTarget Targets="Base:Clean;FactuGES:Clean" />
+  </Target>
+  <Target Name="Make">
+    <CallTarget Targets="Base:Make;FactuGES:Make" />
+  </Target>
+  <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
+</Project>

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -193,7 +193,7 @@
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
-EurekaLog Version=6006
+EurekaLog Version=6011
 Activate=0
 Activate Handle=1
 Save Log File=1

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -5,7 +5,7 @@ inherited fEditorClientes: TfEditorClientes
   ClientHeight = 519
   ClientWidth = 786
   ExplicitWidth = 794
-  ExplicitHeight = 546
+  ExplicitHeight = 553
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -52,7 +52,7 @@ inherited fEditorClientes: TfEditorClientes
     Width = 786
     ExplicitWidth = 786
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 632
+      ExplicitWidth = 474
     end
     inherited tbxMenu: TTBXToolbar
       ExplicitWidth = 786
@@ -127,10 +127,15 @@ inherited fEditorClientes: TfEditorClientes
           end
         end
       end
+      inherited PngImageList: TPngImageList
+        Left = 408
+        Top = 80
+      end
     end
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 372
       ExplicitTop = 372
+      ExplicitWidth = 786
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 786
         ExplicitWidth = 786
@@ -159,6 +164,10 @@ inherited fEditorClientes: TfEditorClientes
         BuiltInStyle = True
       end
     end
+    inherited PngImageList: TPngImageList
+      Left = 120
+      Top = 56
+    end
   end
   inherited EditorActionList: TActionList [4]
     Left = 56

Source/Modulos/Contactos/Views/uEditorContactos.dfm

@@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
   Left = 285
   Top = 448
   Caption = 'Lista de contactos'
+  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13

Source/Modulos/Contactos/Views/uViewClientes.dfm

@@ -6,6 +6,8 @@ inherited frViewClientes: TfrViewClientes
   inherited cxGrid: TcxGrid
     Width = 793
     Height = 464
+    ExplicitWidth = 793
+    ExplicitHeight = 464
     inherited cxGridView: TcxGridDBTableView
       DataController.Summary.FooterSummaryItems = <
         item
@@ -14,6 +16,7 @@ inherited frViewClientes: TfrViewClientes
           Column = cxGridViewNIF_CIF
         end>
       inherited cxGridViewICONO: TcxGridDBColumn
+        OnGetCellHint = cxGridViewICONOGetCellHint
         BestFitMaxWidth = 22
         MinWidth = 22
         Options.HorzSizing = False
@@ -21,22 +24,12 @@ inherited frViewClientes: TfrViewClientes
       end
       object cxGridViewBLOQUEADO: TcxGridDBColumn [1]
         DataBinding.FieldName = 'BLOQUEADO'
-        PropertiesClassName = 'TcxImageComboBoxProperties'
-        Properties.Images = PngImageList
-        Properties.Items = <
-          item
-            Value = 0
-          end
-          item
-            Description = 'Bloqueado'
-            ImageIndex = 1
-            Tag = 1
-            Value = 1
-          end>
-        Properties.ShowDescriptions = False
+        PropertiesClassName = 'TcxTextEditProperties'
+        Visible = False
         BestFitMaxWidth = 22
         MinWidth = 22
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 22
       end
       object cxGridViewTiendaWeb: TcxGridDBColumn [2]
@@ -53,9 +46,11 @@ inherited frViewClientes: TfrViewClientes
             Value = 1
           end>
         Properties.ShowDescriptions = False
+        Visible = False
         BestFitMaxWidth = 22
         MinWidth = 22
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 22
       end
       object cxGridViewNOMBRE_COMERCIAL: TcxGridDBColumn [6]
@@ -66,9 +61,12 @@ inherited frViewClientes: TfrViewClientes
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Width = 793
+    ExplicitWidth = 793
     inherited TBXDockablePanel1: TTBXDockablePanel
+      ExplicitWidth = 793
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 793
+        ExplicitWidth = 793
         inherited txtFiltroTodo: TcxTextEdit
           ExplicitWidth = 273
           Width = 273
@@ -86,19 +84,25 @@ inherited frViewClientes: TfrViewClientes
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 793
+        ExplicitWidth = 793
         inherited tbxBotones: TTBXToolbar
           Width = 783
+          ExplicitWidth = 783
         end
       end
     end
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 566
+    ExplicitTop = 566
+    ExplicitWidth = 793
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel
       Width = 793
+      ExplicitWidth = 793
       inherited TBXToolbar1: TTBXToolbar
         Width = 783
         Visible = False
+        ExplicitWidth = 783
       end
     end
   end
@@ -158,19 +162,114 @@ inherited frViewClientes: TfrViewClientes
       item
         PngImage.Data = {
           89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
-          610000000970485973000017120000171201679FD252000001664944415478DA
-          63FCFFFF3F0325801164002323235CE05023A73990D266E3FF3E1726F6EB2367
-          3290BA6A57FFFD244C0C66318A0130CDD679E7E622DBF2FB6627C3DCB9AB8EEA
-          CAFC2F861982CB802490E6DF2F0F32CCE8C8801B90919100A6418664CFFE6683
-          D380131318FE9BC65F67985CA8C960A4C86901B20DE42AA0774E18582430CC98
-          B180A1600103235106C014C2C4F11A70B8890B6C0BB1210F0C540BDBBA6F27E1
-          069C9CC8F8DFC0630603ABB83D41CDB0F0C99FFF9F11C50090D3FFBDD9C7F0FF
-          EF2F04FE87603380D93F18AE9C9ECB70E202037603FEBEDC01D770ECC67D86A6
-          69F718EAB29418CCE538C19AFFFFF9CE70F5FC32DC06FC79B6096EB367C161B8
-          B3B7B42A8335FFFBF383E1FAE575B80DF8FD780D8AB3BDCBCEA368FE0FC437AE
-          6FC36DC0AFFB8BE1066C3EFD8C61C69A370CD1EEAC0C61269C60038004C3CDDB
-          FBB01B008A850B3B3208C602385DA01B004A07E7EE139F0E40A914251D500200
-          A1723AF0CAFCCBE70000000049454E44AE426082}
+          61000000097048597300000AC400000AC401666D82D400000A4F694343505068
+          6F746F73686F70204943432070726F66696C65000078DA9D53675453E9163DF7
+          DEF4424B8880944B6F5215082052428B801491262A2109104A8821A1D91551C1
+          114545041BC8A088038E8E808C15512C0C8A0AD807E421A28E83A3888ACAFBE1
+          7BA36BD6BCF7E6CDFEB5D73EE7ACF39DB3CF07C0080C9648335135800CA9421E
+          11E083C7C4C6E1E42E40810A2470001008B3642173FD230100F87E3C3C2B22C0
+          07BE000178D30B0800C04D9BC0301C87FF0FEA42995C01808401C07491384B08
+          801400407A8E42A600404601809D98265300A0040060CB6362E300502D006027
+          7FE6D300809DF8997B01005B94211501A09100201365884400683B00ACCF568A
+          450058300014664BC43900D82D00304957664800B0B700C0CE100BB200080C00
+          305188852900047B0060C8232378008499001446F2573CF12BAE10E72A000078
+          99B23CB9243945815B082D710757572E1E28CE49172B14366102619A402EC279
+          99193281340FE0F3CC0000A0911511E083F3FD78CE0EAECECE368EB60E5F2DEA
+          BF06FF226262E3FEE5CFAB70400000E1747ED1FE2C2FB31A803B06806DFEA225
+          EE04685E0BA075F78B66B20F40B500A0E9DA57F370F87E3C3C45A190B9D9D9E5
+          E4E4D84AC4425B61CA577DFE67C25FC057FD6CF97E3CFCF7F5E0BEE22481325D
+          814704F8E0C2CCF44CA51CCF92098462DCE68F47FCB70BFFFC1DD322C44962B9
+          582A14E35112718E449A8CF332A52289429229C525D2FF64E2DF2CFB033EDF35
+          00B06A3E017B912DA85D6303F64B27105874C0E2F70000F2BB6FC1D428080380
+          6883E1CF77FFEF3FFD47A02500806649927100005E44242E54CAB33FC7080000
+          44A0812AB0411BF4C1182CC0061CC105DCC10BFC6036844224C4C24210420A64
+          801C726029AC82422886CDB01D2A602FD4401D34C051688693700E2EC255B80E
+          3D700FFA61089EC128BC81090441C808136121DA8801628A58238E08179985F8
+          21C14804128B2420C9881451224B91354831528A542055481DF23D720239875C
+          46BA913BC8003282FC86BC47319481B2513DD40CB543B9A8371A8446A20BD064
+          74319A8F16A09BD072B41A3D8C36A1E7D0AB680FDA8F3E43C730C0E8180733C4
+          6C302EC6C342B1382C099363CBB122AC0CABC61AB056AC03BB89F563CFB17704
+          128145C0093604774220611E4148584C584ED848A8201C243411DA0937090384
+          51C2272293A84BB426BA11F9C4186232318758482C23D6128F132F107B8843C4
+          37241289433227B9900249B1A454D212D246D26E5223E92CA99B34481A2393C9
+          DA646BB20739942C202BC885E49DE4C3E433E41BE421F25B0A9D624071A4F853
+          E22852CA6A4A19E510E534E5066598324155A39A52DDA8A15411358F5A42ADA1
+          B652AF5187A81334759A39CD8316494BA5ADA295D31A681768F769AFE874BA11
+          DD951E4E97D057D2CBE947E897E803F4770C0D861583C7886728199B18071867
+          197718AF984CA619D38B19C754303731EB98E7990F996F55582AB62A7C1591CA
+          0A954A9526951B2A2F54A9AAA6AADEAA0B55F355CB548FA95E537DAE46553353
+          E3A909D496AB55AA9D50EB531B5367A93BA887AA67A86F543FA47E59FD890659
+          C34CC34F43A451A0B15FE3BCC6200B6319B3782C216B0DAB86758135C426B1CD
+          D97C762ABB98FD1DBB8B3DAAA9A13943334A3357B352F394663F07E39871F89C
+          744E09E728A797F37E8ADE14EF29E2291BA6344CB931655C6BAA96979658AB48
+          AB51AB47EBBD36AEEDA79DA6BD45BB59FB810E41C74A275C2747678FCE059DE7
+          53D953DDA70AA7164D3D3AF5AE2EAA6BA51BA1BB4477BF6EA7EE989EBE5E809E
+          4C6FA7DE79BDE7FA1C7D2FFD54FD6DFAA7F5470C5806B30C2406DB0CCE183CC5
+          35716F3C1D2FC7DBF151435DC34043A561956197E18491B9D13CA3D5468D460F
+          8C69C65CE324E36DC66DC6A326062621264B4DEA4DEE9A524DB9A629A63B4C3B
+          4CC7CDCCCDA2CDD699359B3D31D732E79BE79BD79BDFB7605A785A2CB6A8B6B8
+          6549B2E45AA659EEB6BC6E855A3959A558555A5DB346AD9DAD25D6BBADBBA711
+          A7B94E934EAB9ED667C3B0F1B6C9B6A9B719B0E5D806DBAEB66DB67D61676217
+          67B7C5AEC3EE93BD937DBA7D8DFD3D070D87D90EAB1D5A1D7E73B472143A563A
+          DE9ACE9CEE3F7DC5F496E92F6758CF10CFD833E3B613CB29C4699D539BD34767
+          1767B97383F3888B894B82CB2E973E2E9B1BC6DDC8BDE44A74F5715DE17AD2F5
+          9D9BB39BC2EDA8DBAFEE36EE69EE87DC9FCC349F299E593373D0C3C843E051E5
+          D13F0B9F95306BDFAC7E4F434F8167B5E7232F632F9157ADD7B0B7A577AAF761
+          EF173EF63E729FE33EE33C37DE32DE595FCC37C0B7C8B7CB4FC36F9E5F85DF43
+          7F23FF64FF7AFFD100A78025016703898141815B02FBF87A7C21BF8E3F3ADB65
+          F6B2D9ED418CA0B94115418F82AD82E5C1AD2168C8EC90AD21F7E798CE91CE69
+          0E85507EE8D6D00761E6618BC37E0C2785878557863F8E7088581AD131973577
+          D1DC4373DF44FA449644DE9B67314F39AF2D4A352A3EAA2E6A3CDA37BA34BA3F
+          C62E6659CCD5589D58496C4B1C392E2AAE366E6CBEDFFCEDF387E29DE20BE37B
+          17982FC85D7079A1CEC2F485A716A92E122C3A96404C884E3894F041102AA816
+          8C25F21377258E0A79C21DC267222FD136D188D8435C2A1E4EF2482A4D7A92EC
+          91BC357924C533A52CE5B98427A990BC4C0D4CDD9B3A9E169A76206D323D3ABD
+          31839291907142AA214D93B667EA67E66676CBAC6585B2FEC56E8BB72F1E9507
+          C96BB390AC05592D0AB642A6E8545A28D72A07B267655766BFCD89CA3996AB9E
+          2BCDEDCCB3CADB90379CEF9FFFED12C212E192B6A5864B572D1D58E6BDAC6A39
+          B23C7179DB0AE315052B865606AC3CB88AB62A6DD54FABED5797AE7EBD267A4D
+          6B815EC1CA82C1B5016BEB0B550AE5857DEBDCD7ED5D4F582F59DFB561FA869D
+          1B3E15898AAE14DB1797157FD828DC78E51B876FCABF99DC94B4A9ABC4B964CF
+          66D266E9E6DE2D9E5B0E96AA97E6970E6E0DD9DAB40DDF56B4EDF5F645DB2F97
+          CD28DBBB83B643B9A3BF3CB8BC65A7C9CECD3B3F54A454F454FA5436EED2DDB5
+          61D7F86ED1EE1B7BBCF634ECD5DB5BBCF7FD3EC9BEDB5501554DD566D565FB49
+          FBB3F73FAE89AAE9F896FB6D5DAD4E6D71EDC703D203FD07230EB6D7B9D4D51D
+          D23D54528FD62BEB470EC71FBEFE9DEF772D0D360D558D9CC6E223704479E4E9
+          F709DFF71E0D3ADA768C7BACE107D31F761D671D2F6A429AF29A469B539AFB5B
+          625BBA4FCC3ED1D6EADE7AFC47DB1F0F9C343C59794AF354C969DAE982D39367
+          F2CF8C9D959D7D7E2EF9DC60DBA2B67BE763CEDF6A0F6FEFBA1074E1D245FF8B
+          E73BBC3BCE5CF2B874F2B2DBE51357B8579AAF3A5F6DEA74EA3CFE93D34FC7BB
+          9CBB9AAEB95C6BB9EE7ABDB57B66F7E91B9E37CEDDF4BD79F116FFD6D59E393D
+          DDBDF37A6FF7C5F7F5DF16DD7E7227FDCECBBBD97727EEADBC4FBC5FF440ED41
+          D943DD87D53F5BFEDCD8EFDC7F6AC077A0F3D1DC47F7068583CFFE91F58F0F43
+          058F998FCB860D86EB9E383E3939E23F72FDE9FCA743CF64CF269E17FEA2FECB
+          AE17162F7EF8D5EBD7CED198D1A197F29793BF6D7CA5FDEAC0EB19AFDBC6C2C6
+          1EBEC97833315EF456FBEDC177DC771DEFA3DF0F4FE47C207F28FF68F9B1F553
+          D0A7FB93199393FF040398F3FC63332DDB000002DF4944415478DA7D937B4853
+          511CC7BFE7DE6D6E6B730F73D35596591A3DCC0C6305450F2418416214094191
+          547FF44F12414511917FE67F192C56EB8F1EF4B0591151C6D48AB0B0700A153D
+          B7C856D3B63B1FBBBB8FDDDBDD966989FDE0C039E7777E9FDFF3105996911642
+          08C6E4ED8DBD3B80D4C11833648B0CC67BFA3E864F1DF3F475A57563EFC784FC
+          0BE8BBB4B3DE5E6039974824A9582C8E9F3106033F87121D3D3F6ADC773FB4FD
+          1770BDC1A92BAD2C09E97539F91C2F60787814E10106A2C0233CC8BE3DD0FCB2
+          4A793F3235E0E49A6A87DDFA90A668B09C80AF915114E4E5C2A005DE852272E3
+          A5BE8DEFBFC4DBA6043C69DE5C1F1DE13D82486031E7A27496194412C1734924
+          58164D57BA775F7810F44E0978E1DEBC6546A1FDA64AADCEDCA544118212BEC0
+          71E0B8A47CC2F3A2FEE6D3AFDE89C5FC0BD0D2B8BA7059E99C905AA3C9102449
+          52F2173235F83C48A7FCD199C9A1D0F0348661028A7AD7D5D6AB3D93BAF0CA53
+          7BCD64D46FCB785100A9543A0A012DC145527F38B2C5ED76B7D6D5D4552449B2
+          D5E7F3CD9904B8D8E09CB178A1BDDB90A32E90145D3A8D687C84F7F6CED278BD
+          DE3FC3E25CE794BBDABBC85F8005871D79B4C371D64AC8D6066E1E3142998151
+          820D1533B356BAEC62C24CE64851B1F11A941F996DA1ACC54FA57C79A1684960
+          BBB809B565B5F07DF7615FA21FB67217A0FDED3EC964F6DDFEE67140E5F1B567
+          8845B75F508C450B0B6D0EE0CAAF46CBC85D740EAD846D85026083409C012F24
+          A031EAF1E8DEE57140D5515748365345A2998568629132709072441081C66355
+          156C4B5CE0DF3DC39DDB5E943BD761EE5C136EDDEF9C0038B4E91331AA8A4553
+          326BACE721AB24651808FC794B609BBF0AFCC06B743CEFC0FA954BC17C63E00F
+          0426D4608F73176D309EA6F3D456C92091B477D08A4E2278B8B804B9F6E5A0B8
+          8F08BE09C26A95A1CC02FCFEC0A4DF385D5BA42A3314E88BA0A30DB2044AE644
+          E14D53DDF9DEE7ED88B2D92E525C0CD16876FF0BB9A57DB17BDAA3CE00000000
+          49454E44AE426082}
         Name = 'PngImage1'
         Background = clWindow
       end

Source/Modulos/Contactos/Views/uViewProveedores.dfm

@@ -17,9 +17,11 @@ inherited frViewProveedores: TfrViewProveedores
           Column = cxGridViewNIF_CIF
         end>
       inherited cxGridViewICONO: TcxGridDBColumn
+        OnGetCellHint = cxGridViewICONOGetCellHint
         BestFitMaxWidth = 22
         MinWidth = 22
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 22
       end
       object cxGridViewTIENDA_WEB: TcxGridDBColumn [1]
@@ -38,8 +40,14 @@ inherited frViewProveedores: TfrViewProveedores
         BestFitMaxWidth = 22
         MinWidth = 22
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 22
       end
+      object cxGridViewHOMOLOGADO: TcxGridDBColumn [2]
+        DataBinding.FieldName = 'HOMOLOGADO'
+        Visible = False
+        VisibleForCustomization = False
+      end
     end
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
@@ -50,7 +58,17 @@ inherited frViewProveedores: TfrViewProveedores
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 483
         ExplicitWidth = 483
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 234
+          ExplicitLeft = 234
           ExplicitWidth = 228
           Width = 228
         end
@@ -224,6 +242,120 @@ inherited frViewProveedores: TfrViewProveedores
           97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
         Name = 'PngImage0'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AC400000AC401666D82D400000A4D694343505068
+          6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
+          F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
+          561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
+          7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
+          1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
+          01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
+          C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
+          00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
+          00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
+          CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
+          4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
+          48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
+          223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
+          560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
+          2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
+          FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
+          F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
+          4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
+          79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
+          812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
+          0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
+          170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
+          48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
+          90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
+          5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
+          5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
+          8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
+          272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
+          48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
+          6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
+          A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
+          2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
+          1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
+          192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
+          3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
+          09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
+          46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
+          EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
+          4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
+          EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
+          79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
+          3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
+          67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
+          6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
+          A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
+          5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
+          D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
+          743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
+          4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
+          D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
+          C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
+          3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
+          FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
+          0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
+          15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
+          476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
+          BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
+          F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
+          A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
+          6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
+          68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
+          949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
+          F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
+          DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
+          772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
+          A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
+          955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
+          EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
+          CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
+          26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
+          8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
+          B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
+          7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
+          EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
+          E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
+          5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
+          EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
+          EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
+          FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
+          CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
+          ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
+          CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
+          F73EE77CFEFC2FF784F3FB25D29F33000002F04944415478DA7DD16B48536118
+          07F0FF713BCE8DDDBD6C3A9D2B9B4209E96C54446641651769155DD0C0CCB448
+          28A502ADA49BF5A9A2202B53704105DDE843456111424117AC06FB9084D69633
+          F3D68ED35DCECEF19C8E834616F381032FEF79DE1FCFFBFE099EE731550441E0
+          4F75DFABDE014C1EF452BE94A1913187B377E0F4B136E75BFC55D173FF02CE9B
+          E5953ABDE67A20108AF37AC730EAA5303CEA0B743A066D2D8F7A9ECF08DCAD5B
+          24CDB664B9655249321D66303EEEC7C030059609636024D85DDBFCC12AB44EC4
+          064E16AE4CD3693B4471220469069E213FF4894AC813802FEE21BEE9A673754F
+          9FEF794CE055F386CA5F13E1368625A0512B919DA106C1B108D3210482419CBF
+          DDB5ABBDC3DD1E1378DFB261B32155775F4C9291BD499605238CCFD034683AC4
+          1F6F7B5F79FFB52736F0A069696A7EB6C94DC6C747048EE384FB339137F0F9FC
+          ACADF1C5CAFE51BA73C6143EB66DBAA352C8B6469A0460929B0407129F3D3FFA
+          664B5E667C9F48985D7234F8ED4F1AFF01F6BA4586DCB9BA2EB984D47353FFE2
+          24606406F65BCF25BEA8BC94B4D7DB61CE5169D7D653DE69C05435187212D3D2
+          C92B04AFDE62D8662414A010921840B0163E5DB38F985FEEC08D8A3CE8E6A5CC
+          293E34D83B0D68C8CCD568B3C4AF93796E6E32E2C1969503FDFB8110A0560379
+          DB6BA1CAB461CC7D020EBBF00C42B4AE9F7F018D2B2C973552A2461360902AD7
+          429FBF18324B169EDEA9C2CE6B9D50A9F2842E97F0150183142AB60385454BB7
+          448123EBAC6EB58837AA832C92C452A49B73A1B32E4640C9A3E3D9211CB85A0B
+          D0F6087252585AF2779F29A96EBD10050E9758BF2AC4C42C15CD4211E6A15568
+          9156B010A3F211C8A4AD58B647B8C7D85427851B17058B2EA8AA3EDBD51E05CA
+          96E7ED4C21897389A4482BE73942A3D4C2B460095CFDA760AB17C6A75CB05FA3
+          601346579B808B7B81E30F79625A0A4294490946718E5C2F3396146F3497AE29
+          B3DE6A58B53ED36CF22F5856EC99B7B0A6EFDDE3D68C21D713C9A777BDA6F637
+          3CF11B67B066C954E54E420000000049454E44AE426082}
+        Name = 'PngImage2'
+        Background = clWindow
       end>
     Bitmap = {}
   end

Source/Modulos/Contactos/Views/uViewProveedores.pas

@@ -21,10 +21,46 @@ type
 
   TfrViewProveedores = class(TfrViewContactos, IViewProveedores)
     cxGridViewTIENDA_WEB: TcxGridDBColumn;
+    cxGridViewHOMOLOGADO: TcxGridDBColumn;
+    procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure cxGridViewICONOGetCellHint(Sender: TcxCustomGridTableItem;
+      ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
+      const AMousePos: TPoint; var AHintText: TCaption;
+      var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
   end;
 
 implementation
 
 {$R *.dfm}
 
+procedure TfrViewProveedores.cxGridViewCODIGOCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  R := AViewInfo.ContentBounds;
+  ACanvas.FillRect(R);
+  if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+    cxGridViewHOMOLOGADO.Index] = '1') then
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2)
+  else
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
+  ADone := True;
+end;
+
+procedure TfrViewProveedores.cxGridViewICONOGetCellHint(
+  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
+  var AHintText: TCaption; var AIsHintMultiLine: Boolean;
+  var AHintTextRect: TRect);
+begin
+  inherited;
+  if (cxGridView.DataController.DisplayTexts[ARecord.Index, cxGridViewHOMOLOGADO.Index] = '1') then
+    AHintText := 'Proveedor homolado';
+end;
+
 end.