Presupuestos: Iconos en listas y repaso a los hints.

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

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk

@@ -30,7 +30,7 @@ requires
   PresupuestosCliente_model,
   PresupuestosCliente_controller,
   Articulos_view;
-
+  
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
   uEditorPresupuestosCliente in 'uEditorPresupuestosCliente.pas' {fEditorPresupuestosCliente: TfEditorPedidosCliente},
@@ -41,6 +41,7 @@ contains
   uEditorElegirPresupuestosCliente in 'uEditorElegirPresupuestosCliente.pas' {fEditorElegirPresupuestosCliente: TfEditorElegirPedidosCliente},
   uViewElegirArticulosPresupuestosCliente in 'uViewElegirArticulosPresupuestosCliente.pas' {frViewElegirArticulosPresupuestosCliente: TFrame},
   uEditorElegirArticulosPresupuestoCliente in 'uEditorElegirArticulosPresupuestoCliente.pas' {fEditorElegirArticulosPresupuestoCliente: TfEditorElegirArticulosPedidoCliente},
-  uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview};
+  uEditorPresupuestosClienteReport in 'uEditorPresupuestosClienteReport.pas' {fEditorPresupuestosClientePreview: TfEditorPedidosClientePreview},
+  uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas';
 
 end.

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -1,4 +1,5 @@
-<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+<?xml version="1.0" encoding="utf-8"?>
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <PropertyGroup>
     <ProjectGuid>{9e558626-cf49-4cff-a178-e12c186758ac}</ProjectGuid>
     <MainSource>PresupuestosCliente_view.dpk</MainSource>
@@ -42,6 +43,32 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">Intraweb 8.0 Design Package for Borland Development Studio 2006</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">PresupuestosCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>
@@ -50,48 +77,54 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Contactos\Views\Articulos_view.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\Base.dcp" />
+    <DCCReference Include="Articulos_viewvclrtl.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\GUIBase.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="..\..\Contactos\Views\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="rtlcontainsuPresupuestosClienteViewRegisterin.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
-      <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
+      <Form>fEditorElegirArticulosPresupuestoCliente</Form>
     </DCCReference>
     <DCCReference Include="uEditorElegirPresupuestosCliente.pas">
-      <Form>fEditorElegirPresupuestosCliente</Form>
       <DesignClass>TfEditorElegirPedidosCliente</DesignClass>
+      <Form>fEditorElegirPresupuestosCliente</Form>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestoCliente.pas">
-      <Form>fEditorPresupuestoCliente</Form>
       <DesignClass>TfEditorPedidoCliente</DesignClass>
+      <Form>fEditorPresupuestoCliente</Form>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosCliente.pas">
-      <Form>fEditorPresupuestosCliente</Form>
       <DesignClass>TfEditorPedidosCliente</DesignClass>
+      <Form>fEditorPresupuestosCliente</Form>
     </DCCReference>
     <DCCReference Include="uEditorPresupuestosClienteReport.pas">
-      <Form>fEditorPresupuestosClientePreview</Form>
       <DesignClass>TfEditorPedidosClientePreview</DesignClass>
+      <Form>fEditorPresupuestosClientePreview</Form>
     </DCCReference>
     <DCCReference Include="uPresupuestosClienteViewRegister.pas" />
     <DCCReference Include="uViewDetallesPresupuestoCliente.pas">
+      <DesignClass>TFrame</DesignClass>
       <Form>frViewDetallesPresupuestoCliente</Form>
-      <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewDireccionEntregaPresupuestoCliente.pas" />
     <DCCReference Include="uViewElegirArticulosPresupuestosCliente.pas">
-      <Form>frViewElegirArticulosPresupuestosCliente</Form>
       <DesignClass>TFrame</DesignClass>
+      <Form>frViewElegirArticulosPresupuestosCliente</Form>
     </DCCReference>
     <DCCReference Include="uViewPresupuestoCliente.pas">
-      <Form>frViewPresupuestoCliente</Form>
       <DesignClass>TFrame</DesignClass>
+      <Form>frViewPresupuestoCliente</Form>
     </DCCReference>
     <DCCReference Include="uViewPresupuestosCliente.pas">
-      <Form>frViewPresupuestosCliente</Form>
       <DesignClass>TFrame</DesignClass>
+      <Form>frViewPresupuestosCliente</Form>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -161,6 +161,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
@@ -188,86 +192,60 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
             Wrap = False
           end
           inherited ToolButton4: TToolButton
-            Left = 278
+            ExplicitTop = 30
-            Top = 0
-            ExplicitLeft = 278
-            ExplicitTop = 0
-          end
-          inherited ToolButton14: TToolButton
-            Left = 334
-            Top = 0
-            Wrap = False
-            ExplicitLeft = 334
-            ExplicitTop = 0
-          end
-          inherited FontName: TJvFontComboBox
-            Left = 399
-            Top = 0
-            ExplicitLeft = 399
-            ExplicitTop = 0
-          end
-          inherited FontSize: TEdit
-            Left = 544
-            Top = 0
-            Width = 57
-            ExplicitLeft = 544
-            ExplicitTop = 0
-            ExplicitWidth = 57
-          end
-          inherited UpDown1: TUpDown
-            Left = 601
-            Top = 0
-            ExplicitLeft = 601
-            ExplicitTop = 0
-          end
-          inherited ToolButton13: TToolButton
-            Left = 0
-            Top = 0
-            Wrap = True
-            ExplicitLeft = 0
-            ExplicitTop = 0
-            ExplicitHeight = 30
           end
           inherited ToolButton6: TToolButton
-            Left = 0
+            Wrap = False
+          end
+          inherited FontSize: TEdit
+            Left = 332
             Top = 30
-            ExplicitLeft = 0
+            Width = 57
+            ExplicitLeft = 332
             ExplicitTop = 30
+            ExplicitWidth = 57
           end
           inherited ToolButton7: TToolButton
-            Left = 66
+            Left = 389
             Top = 30
-            ExplicitLeft = 66
+            ExplicitLeft = 389
-            ExplicitTop = 30
-          end
-          inherited ToolButton8: TToolButton
-            Left = 133
-            Top = 30
-            ExplicitLeft = 133
-            ExplicitTop = 30
-          end
-          inherited ToolButton12: TToolButton
-            Left = 216
-            Top = 30
-            ExplicitLeft = 216
-            ExplicitTop = 30
-          end
-          inherited ToolButton9: TToolButton
-            Left = 224
-            Top = 30
-            ExplicitLeft = 224
-            ExplicitTop = 30
-          end
-          inherited ToolButton10: TToolButton
-            Left = 369
-            Top = 30
-            ExplicitLeft = 369
             ExplicitTop = 30
           end
           inherited ToolButton11: TToolButton
-            Left = 494
+            Left = 456
             Top = 30
-            ExplicitLeft = 494
+            ExplicitLeft = 456
+            ExplicitTop = 30
+          end
+          inherited ToolButton10: TToolButton
+            Left = 597
+            Top = 30
+            Wrap = False
+            ExplicitLeft = 597
+            ExplicitTop = 30
+          end
+          inherited UpDown1: TUpDown
+            Left = 722
+            Top = 30
+            ExplicitLeft = 722
+            ExplicitTop = 30
+          end
+          inherited ToolButton9: TToolButton
+            Left = 738
+            Top = 30
+            ExplicitLeft = 738
+            ExplicitTop = 30
+          end
+          inherited ToolButton8: TToolButton
+            Left = 883
+            Top = 30
+            ExplicitLeft = 883
+            ExplicitTop = 30
+          end
+          inherited ToolButton12: TToolButton
+            Left = 966
+            Top = 30
+            ExplicitLeft = 966
             ExplicitTop = 30
           end
         end
@@ -293,6 +271,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagPortada: TTabSheet
       Caption = 'Portada'
       ImageIndex = 3
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel1: TPanel
         Left = 0
         Top = 0
@@ -424,6 +406,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagMemoria: TTabSheet
       Caption = 'Memoria'
       ImageIndex = 4
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel2: TPanel
         Left = 0
         Top = 0
@@ -726,6 +712,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas

@@ -164,6 +164,7 @@ end;
 procedure TfEditorPresupuestosCliente.actGenerarUpdate(Sender: TObject);
 begin
   inherited;
+  
   (Sender as TAction).Enabled := HayDatos and
                                  not (ViewGrid.NumSeleccionados > 1) and
                                  ViewGrid.esSeleccionCeldaDatos and

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -11,7 +11,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
     ExplicitWidth = 931
     ExplicitHeight = 351
     inherited cxGridView: TcxGridDBTableView
-      OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -37,9 +36,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       object cxGridViewID: TcxGridDBColumn
         DataBinding.FieldName = 'ID'
         OnCustomDrawCell = cxGridViewIDCustomDrawCell
+        OnGetCellHint = cxGridViewIDGetCellHint
         BestFitMaxWidth = 15
         MinWidth = 15
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 15
         IsCaptionAssigned = True
       end
@@ -61,10 +62,17 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           end>
         Properties.LargeImages = PngImageList
         Properties.ShowDescriptions = False
+        Visible = False
         BestFitMaxWidth = 20
         Options.HorzSizing = False
+        VisibleForCustomization = False
         Width = 20
       end
+      object cxGridViewINCIDENCIAS: TcxGridDBColumn
+        DataBinding.FieldName = 'INCIDENCIAS'
+        Visible = False
+        VisibleForCustomization = False
+      end
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
         BestFitMaxWidth = 25
@@ -130,7 +138,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <>
       DataController.Summary.SummaryGroups = <>
-      OptionsView.NewItemRowInfoText = 'Click here to add a new row'
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
@@ -271,6 +278,112 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           44AE426082}
         Name = 'PngImage0'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD25200000A4F694343505068
+          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
+          D0A7FB93199393FF040398F3FC63332DDB000001E64944415478DA63FCFFFF3F
+          C394C53BFE33900172623D18196106003958157D79F594E1EDFC1E860F1F3E30
+          000906B5C6A90C0CFCA20CD6FEF90CE7764C4335C065BF2D8AE63D8E87191E76
+          163208282830F0FFF8C0F0F1C103865DD76E33BCF4A96198B77413A601D8C0C5
+          CA44067DA0010C2736005DF080E1C8673E860BF133B11B80EE0210E85D25C2A0
+          AF0134E0C002868F405F6CF9F28FE17DDE4ADC06809C0D03FF807217FB6A1884
+          DE5C6390BF7080E123D01B9B1D2B183E28DAE33700E6926D3607181AE77932A4
+          DDE0061AB081E122D005DFFA0F329C7DFC0DBF01209BFFFCF9C7F0FBCF5F30BE
+          E8A7C560F0E301C3EC9F2C0C411B9F336C3B7006B701BB1C0E31B81DB003BB60
+          8DC92E8690336E0C4A47BF30746FBDC09060ABC4D091799C61F79173B80D0039
+          1B663308835CF2F3D71F868B39C10C93F3FE30F44AAE60387CFA32A60119516E
+          0C1E87EC51626081D66686846BBE6076F5CD108656F5350C1DA2CB184E9CBF8A
+          6940729833DC46101D7DC98B618EDA4630FBC7C5830C7CD78F32B4F21D6648B4
+          5CC370F6F20D4C03E2821C50020E663308CC3D65C2200F4C07131F3030182E3E
+          C370E9FA6D4C03A2FCEC50FC0D66FF86F0DF6E9BCB7079763F83727C11038F53
+          24C3959B77300D08F5B26658BDED28D13911C3009000A900640000B9248BF0E9
+          9199330000000049454E44AE426082}
+        Name = 'PngImage1'
+        Background = clWindow
       end>
     Left = 56
     Top = 48

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas

@@ -12,7 +12,7 @@ uses
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
   cxGrid,
   uBizPresupuestosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
-  TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces;
+  TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows;
 
 type
   IViewPresupuestosCliente = interface(IViewGrid)
@@ -48,6 +48,7 @@ type
     TBXItem3: TTBXItem;
     cxGridViewFECHA_DECISION: TcxGridDBColumn;
     cxGridViewNIF_CIF: TcxGridDBColumn;
+    cxGridViewINCIDENCIAS: TcxGridDBColumn;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
@@ -60,11 +61,13 @@ type
     procedure actClienteUpdate(Sender: TObject);
     procedure actProvinciaExecute(Sender: TObject);
     procedure actProvinciaUpdate(Sender: TObject);
-    procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
-      Y: Integer);
     procedure cxGridViewIDCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
+    procedure cxGridViewIDGetCellHint(Sender: TcxCustomGridTableItem;
+      ARecord: TcxCustomGridRecord; ACellViewInfo: TcxGridTableDataCellViewInfo;
+      const AMousePos: TPoint; var AHintText: TCaption;
+      var AIsHintMultiLine: Boolean; var AHintTextRect: TRect);
 
   private
     //Filtros relativos a la vista
@@ -82,7 +85,8 @@ type
 
 implementation
 
-uses SysUtils, variants, windows, uDataModulePresupuestosCliente, schPresupuestosClienteClient_Intf,
+uses
+  SysUtils, variants, uDataModulePresupuestosCliente, schPresupuestosClienteClient_Intf,
   uViewGridBase;
 
 {$R *.dfm}
@@ -191,10 +195,10 @@ var
   R: TRect;
 begin
   inherited;
-  R := AViewInfo.ContentBounds;
+{  R := AViewInfo.ContentBounds;
   ACanvas.FillRect(R);
   ACanvas.DrawImage(PngImageList, R.Left, R.Top, 2);
-  ADone := True;
+  ADone := True;}
 end;
 
 procedure TfrViewPresupuestosCliente.cxGridViewIDCustomDrawCell(
@@ -206,38 +210,27 @@ begin
   inherited;
   R := AViewInfo.ContentBounds;
   ACanvas.FillRect(R);
-  ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0);
+
+  if (cxGridView.DataController.DisplayTexts[AViewInfo.GridRecord.RecordIndex,
+    cxGridViewINCIDENCIASACTIVAS.Index] = 'Sin incidencias') then
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 0)
+  else
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 1);
   ADone := True;
 end;
 
-procedure TfrViewPresupuestosCliente.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+procedure TfrViewPresupuestosCliente.cxGridViewIDGetCellHint(
-var
+  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
-  Site     : TcxGridSite;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
-  HitTest  : TcxCustomGridHitTest;
+  var AHintText: TCaption; var AIsHintMultiLine: Boolean;
-  Item     : TcxCustomGridTableItem;
+  var AHintTextRect: TRect);
-  Rec      : TcxCustomGridRecord;
-  sNewHint : string;
 begin
-{Este método desaparecerá cuando se migre la aplicación, es para sacar la causa de la incidencia sin necesidad de entrar en el documento}
+  inherited;
-  Site := Sender as TcxGridSite;
-  HitTest := Site.GridView.ViewInfo.GetHitTest(X, Y);
-  if HitTest is TcxGridRecordCellHitTest then begin
-    Item := TcxGridRecordCellHitTest(HitTest).Item;
-    Rec := TcxGridRecordCellHitTest(HitTest).GridRecord;
 
-    if  (Item.Index = cxGridView.GetColumnByFieldName(fld_PresupuestosClienteINCIDENCIAS_ACTIVAS).Index)
+  if (cxGridView.DataController.DisplayTexts[ARecord.Index, cxGridViewINCIDENCIASACTIVAS.Index] <> 'Sin incidencias') then
-    and (Rec.Selected)
+  begin
-    and (Presupuestos.DataTable.FieldByName(fld_PresupuestosClienteINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
+    AIsHintMultiLine := True;
-      sNewHint := Presupuestos.DataTable.FieldByName(fld_PresupuestosClienteINCIDENCIAS).AsString;
+    AHintText := cxGridView.DataController.DisplayTexts[ARecord.RecordIndex, cxGridViewINCIDENCIAS.Index];
-      if (cxGrid.Hint <> sNewHint) then begin
-        cxGrid.ShowHint := false;
-        cxGrid.Hint     := sNewHint;
-      end
-      else cxGrid.ShowHint := true;
-    end
-    else begin
-      cxGrid.ShowHint := false;
-    end;
   end;
 end;