Se activa en los grid de albaranes de cliente, proveedor y en pedidos de cliente/proveedor, los hint para poder ver las incidencias desde la lista de documentos

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@134 c93665c3-c93d-084d-9b98-7d5f4a9c3376

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -7,10 +7,11 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
     Width = 596
     Height = 351
     RootLevelOptions.DetailTabsPosition = dtpTop
-    OnActiveTabChanged = cxGridActiveTabChanged   
+    OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 596
     ExplicitHeight = 351
     inherited cxGridView: TcxGridDBTableView
+      OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -171,7 +172,17 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 596
         ExplicitWidth = 596
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 251
+          ExplicitLeft = 251
           ExplicitWidth = 294
           Width = 294
         end

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas

@@ -70,6 +70,8 @@ type
     procedure actClientesUpdate(Sender: TObject);
     procedure actAlmacenesExecute(Sender: TObject);
     procedure actAlmacenesUpdate(Sender: TObject);
+    procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
 
   private
     //Filtros relativos a la vista
@@ -211,6 +213,37 @@ begin
   ADone := True;
 end;
 
+procedure TfrViewAlbaranesCliente.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+var
+  Site     : TcxGridSite;
+  HitTest  : TcxCustomGridHitTest;
+  Item     : TcxCustomGridTableItem;
+  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}
+  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_AlbaranesClienteINCIDENCIAS_ACTIVAS).Index)
+    and (Rec.Selected)
+    and (Albaranes.DataTable.FieldByName(fld_AlbaranesClienteINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
+      sNewHint := Albaranes.DataTable.FieldByName(fld_AlbaranesClienteINCIDENCIAS).AsString;
+      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;
+
 procedure TfrViewAlbaranesCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.dfm

@@ -10,11 +10,12 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
     ExplicitWidth = 596
     ExplicitHeight = 351
     inherited cxGridView: TcxGridDBTableView
+      OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
         item
-          Format = ',0.00 '#8364';-,0.00 '#8364    
+          Format = ',0.00 '#8364';-,0.00 '#8364
           Kind = skSum
           Position = spFooter
           Column = cxGridViewIMPORTE_TOTAL
@@ -152,12 +153,19 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
           Width = 121
         end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 292
+          ExplicitLeft = 292
           ExplicitWidth = 217
           Width = 217
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
         Width = 596
+        ExplicitWidth = 596
+        inherited tbxBotones: TTBXToolbar
+          Width = 586
+          ExplicitWidth = 586
+        end
       end
     end
   end
@@ -171,8 +179,6 @@ inherited frViewAlbaranesProveedor: TfrViewAlbaranesProveedor
       ExplicitWidth = 596
       inherited TBXToolbar1: TTBXToolbar
         Width = 586
-        ExplicitLeft = 3
-        ExplicitTop = 6
         ExplicitWidth = 586
         object TBXSeparatorItem2: TTBXSeparatorItem
         end

Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesProveedor.pas

@@ -57,6 +57,8 @@ type
     procedure actProveedorUpdate(Sender: TObject);
     procedure actAlmacenExecute(Sender: TObject);
     procedure actAlmacenUpdate(Sender: TObject);
+    procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
 
   private
     //Filtros relativos a la vista
@@ -170,6 +172,37 @@ begin
   ADone := True;
 end;
 
+procedure TfrViewAlbaranesProveedor.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+var
+  Site     : TcxGridSite;
+  HitTest  : TcxCustomGridHitTest;
+  Item     : TcxCustomGridTableItem;
+  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}
+  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_AlbaranesProveedorINCIDENCIAS_ACTIVAS).Index)
+    and (Rec.Selected)
+    and (Albaranes.DataTable.FieldByName(fld_AlbaranesProveedorINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
+      sNewHint := Albaranes.DataTable.FieldByName(fld_AlbaranesProveedorINCIDENCIAS).AsString;
+      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;
+
 procedure TfrViewAlbaranesProveedor.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);

Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm

@@ -6,11 +6,12 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
   inherited cxGrid: TcxGrid
     Width = 596
     Height = 351
-    RootLevelOptions.DetailTabsPosition = dtpTop 
+    RootLevelOptions.DetailTabsPosition = dtpTop
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 596
     ExplicitHeight = 351
     inherited cxGridView: TcxGridDBTableView
+      OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -160,7 +161,17 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 596
         ExplicitWidth = 596
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 251
+          ExplicitLeft = 251
           ExplicitWidth = 294
           Width = 294
         end
@@ -170,6 +181,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
         ExplicitWidth = 596
         inherited tbxBotones: TTBXToolbar
           Width = 586
+          ExplicitWidth = 586
         end
       end
     end

Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas

@@ -67,6 +67,8 @@ type
     procedure actProveedorUpdate(Sender: TObject);
     procedure actAlmacenExecute(Sender: TObject);
     procedure actAlmacenUpdate(Sender: TObject);
+    procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
 
   private
     //Filtros relativos a la vista
@@ -194,6 +196,37 @@ begin
   ADone := True;
 end;
 
+procedure TfrViewPedidosProveedor.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+var
+  Site     : TcxGridSite;
+  HitTest  : TcxCustomGridHitTest;
+  Item     : TcxCustomGridTableItem;
+  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}
+  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_PedidosProveedorINCIDENCIAS_ACTIVAS).Index)
+    and (Rec.Selected)
+    and (Pedidos.DataTable.FieldByName(fld_PedidosProveedorINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
+      sNewHint := Pedidos.DataTable.FieldByName(fld_PedidosProveedorINCIDENCIAS).AsString;
+      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;
+
 procedure TfrViewPedidosProveedor.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.dfm

@@ -10,7 +10,8 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
     OnActiveTabChanged = cxGridActiveTabChanged
     ExplicitWidth = 596
     ExplicitHeight = 351
-    inherited cxGridView: TcxGridDBTableView  
+    inherited cxGridView: TcxGridDBTableView
+      OnMouseMove = cxGridViewMouseMove
       DataController.KeyFieldNames = 'ID'
       DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -161,7 +162,17 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 596
         ExplicitWidth = 596
+        inherited txtFiltroTodo: TcxTextEdit
+          ExplicitWidth = 273
+          Width = 273
+        end
+        inherited edtFechaIniFiltro: TcxDateEdit
+          ExplicitWidth = 121
+          Width = 121
+        end
         inherited edtFechaFinFiltro: TcxDateEdit
+          Left = 251
+          ExplicitLeft = 251
           ExplicitWidth = 294
           Width = 294
         end
@@ -171,6 +182,7 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
         ExplicitWidth = 596
         inherited tbxBotones: TTBXToolbar
           Width = 586
+          ExplicitWidth = 586
         end
       end
     end

Source/Modulos/Pedidos de cliente/Views/uViewPedidosCliente.pas

@@ -67,6 +67,8 @@ type
     procedure cxGridViewTIENDAWEBCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
+    procedure cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
 
   private
     //Filtros relativos a la vista
@@ -195,6 +197,37 @@ begin
   ADone := True;
 end;
 
+procedure TfrViewPedidosCliente.cxGridViewMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
+var
+  Site     : TcxGridSite;
+  HitTest  : TcxCustomGridHitTest;
+  Item     : TcxCustomGridTableItem;
+  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}
+  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_PedidosClienteINCIDENCIAS_ACTIVAS).Index)
+    and (Rec.Selected)
+    and (Pedidos.DataTable.FieldByName(fld_PedidosClienteINCIDENCIAS_ACTIVAS).AsInteger = 1) then begin
+      sNewHint := Pedidos.DataTable.FieldByName(fld_PedidosClienteINCIDENCIAS).AsString;
+      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;
+
 procedure TfrViewPedidosCliente.cxGridViewStylesGetContentStyle(Sender:
         TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem:
         TcxCustomGridTableItem; out AStyle: TcxStyle);