Impedir que se pueda salir de un DBGrid con el mouse

[Oscar Guzmán]

Hola a todos los del foro y gracias de antemano

tengo un dbgrid donde se van cargando registros para una factura y la única columna que se puede modificar es la de cantidad de forma que el usuario pueda alterar el valor y yo hago una actualización inmediata del costo y precio y hasta ahí todo perfecto. El problema viene cuando el usuario esta editando una celda para cambiar por ejemplo de 12 a 24 pero antes de validar con enter se va con el mouse a otro edit del formulario (fuera del dbgrid), dejando a la celda con el valor 24 y los datos correspondientes al costo y precio no se actualizan, de forma que lo que necesito es que si el usuario está alterando la cantidad en cualquier celda de la columna de cantidades que no pueda hacer click con el mouse en otro sitio del formulario o que se si se sale del dbgrid de esa manera el sistema lo asuma con si fuera un evento de la tecla escape o #27 con lo cual el sistema coloca de nuevo automaticamente la cantidad 12 que tenía en principio.

Espero haberme explicado bien
Gracias

[[newtron]]

Hola.

Impedir que salga del grid lo veo engorroso. ¿Te has planteado la posibilidad de ir recalculando los demás campos según va escribiendo sin necesidad de pulsar Enter?.

[Neftali [Germán.Estévez]]

Lo de impedirlo me parece difícil.
Prueba con el evento OnExit de DBGrid a ver si puedes detectar la salida y enviar o simular el ESCAPE.

[Oscar Guzmán]

Hola y gracias por responder tanto a Newtron como a naftali, si, ciertamente puede ser muy difícil y no es fundamental que el sistema valide eso.

Explico de todas formas con más detalle lo que sucede.

Un usuario va agregando ítems en un dbgrid que tiene varias columnas, entre ellas, código, descripción, cantidad, precio unit y precio total y lo único que se puede modificar es la columna de cantidad.
Para validar la cantidad el usuario debe presionar enter para que se recalcule la columna de precio total.

Digamos que el usuario ya ha agregado 5 líneas de productos diferentes con sus respectivas cantidades y todo está re calculado sin problema, pero de pronto se da cuenta que en la tercera línea del dbgrid no eran 12 productos sino 24; de forma que va con el Mouse y hace click sobre la celda cantidad y después de escribir 24 no presiona enter para validar sino que con el Mouse vuelve al edit donde se escribe el próximo código que va a ser agregado al dbgrid dejando la celda en el gris con un 24 que no se ha validado y por ende no se ha refrescado la celda de precio global del ítem, de forma que cuando se manda a imprimir la factura, el registro indica 24 pero el cálculo real está basado en 12 productos que era la cifra inicial.

Actualmente bloqueo en las celdas de cantidad cualquier tecla excepto enter, no hay forma de salir de la celda si el usuario no presiona enter para validar o escape con lo cual dejo la cantidad original, pero no logró hacer que se quede la cantidad original si el usuario se sale del dbgrid con Mouse llevando el focos a otro botón o a otro edit.

Como podría validar ese evento o como dejar la cantidad original si se sale del dbgrid con el Mouse y no con enter o con escape como ya está establecido?

[Casimiro Notevi]

Debes consultar, en todo caso, en el onExit de la celda hacer lo que quieres.

[Oscar Guzmán]

Casimiro, ya he consultado y he tratado de hacerlo por mi mismo, incluso en el onexit del dbgrid pero no encuentro la manera

[Casimiro Notevi]

Debes tener eventos para controlar cuando se entra y cuando se sale de cada celda, ¿es el dbgrid estándar?

[ecfisa]

Hola Oscar.

¿ Que evento estás utilizando para realizar el cálculo ?

Saludos.

[Oscar Guzmán]

hola, Si, supongo, que es el dbgrid estandard, pero no logro evitar que el mouse me deje modificada la celda con una nueva cantidad sin validar, he trabajado con onmousemove, oncolexit, oncellclik,onexit, aunque claro, a lo mejor no he hecho algo en esos eventos que me haga funcionar lo que necesito, que es que el mouse no me pueda sacarme del dbgrid sin que se haya terminado de validar la cantidad que ingresa el usuario, lo cual debería ser solo con enter y que de hecho funciona así, pero el usuario que le gusta el mouse para trabajar me está dañando las facturas.

Como harían Uds. si tuvieran que validar que el mouse no pudiera modificar el una celda, o tal vez como deshabilitar el mouse mientras que estoy dentro del dbgrid? cualquier solución es válida mientras el mouse no me altere lo que tengo en el dbgrid

[ecfisa]

Empezado por Oscar Guzmán

...
Como harían Uds. si tuvieran que validar que el mouse no pudiera modificar el una celda, o tal vez como deshabilitar el mouse mientras que estoy dentro del dbgrid? cualquier solución es válida mientras el mouse no me altere lo que tengo en el dbgrid

Hola Oscar.

Un modo puede ser usar el evento OnSetText del campo en cuestión.

Un ejemplo rápido, supongamos que tenemos cuatro campos: Descripcion, Precio, Cantidad y Subtotal.
Y en el TDBGrid las columnas relacionadas a Descripcion, Precio y Subtotal con su propiedad ReadOly = True, de modo que sólo sea posible ingresar datos en la columna asociada al campo Cantidad.

Si nos interesara que el campo Subtotal sea igual a Cantidad * Precio luego de ingresada la cantidad, podemos hacer:

Código Delphi [-]
...
implementation

// Esto lo podes realizar desde el Object Inspector
// si has creado los campos persistentes en el TDataSet
procedure TForm1.DataSetCantidadSetText(Sender: TField;
  const Text: String);
begin
  with DataSet do
  begin
    FieldByName('Cantidad').AsFloat := StrToFloat(Text);
    FieldByName('Subtotal').AsFloat := FieldByName('Cantidad').AsFloat *
      FieldByName('Precio').AsFloat;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  // Siguiente línea innecesaria si el evento fue asignado desde el Object Inspector
  DataSet.FieldByName('Cantidad').OnSetText := DataSetCantidadSetText;
  ...
end;

...

De este modo cuando se abandone una celda de la columna "cantidad" por el motivo que sea, se realizará el cálculo.

Saludos.

[Oscar Guzmán]

Ecfisa muchas gracias por responder, me parece excelente el código que me indicas aquí pero lo que necesito precisamente es que no se recalcule si una celda es abandonada, a menos que sea a través de enter, lo cual ya hace a la perfección, pero lo que me está descuadrando las facturas son los movimientos del mouse, ya que el usuario hace click en la celda de "cantidad" y coloca un número diferente al que estaba previamente digamos que si estaba 12 y el usuario hace click en esa celda para colocar 24, que cuando vaya a hacer click en otra celda o fuera del grid, la celda vuelva a quedar en 12 ya que la validación solo procede cuando se hace con enter, pero no encuentro ni la manera de deshabilitar el mouse en el dbgrid, ni de que se quede la cantidad anterior si el usuario sale del grid sin validar con enter.

Gracias por tu ayuda Ecfisa, no sé si tengas una idea diferente

[ASAPLTDA]

No se si te sirva la idea pero en el componente datasource existen unos eventos cuando uno cambia de registro

[Oscar Guzmán]

Hola a todos de nuevo.

Solo escribo para decirles que finalmente lo pude solucionar, tomando en cuenta la posición que tenía en el dbgrid justo antes de que sacara el focus del dbgrid con el mouse en el evento OnExit de la siguiente manera

Código Delphi [-]
procedure TTForm_ventas.DBGrid1Exit(Sender: TObject);
Var Key: Char;
begin
  If (DBGrid1.SelectedIndex = 4) and (DBgrid1.FieldCount>0)  then begin
    if Key <>#13 then begin
      DetTempVenta.Close;
      DetTempVenta.Open;
// a Continuació es opcional, solo por si quieren que el focus se quede en el grid justo donde estaba antes, pero al final yo no lo usé.
   (*   DBGrid1.SelectedIndex:=4;
      DBGrid1.SetFocus;*)

Quiero agradecer a los que me ofrecieron alguna clase de solución que aunque no fue lo más adecuado igual valoro sus respuestas y su tiempo

Saludos

[ecfisa]

Hola Oscar.

Y también gracias a vos por publicar como lo solucionaste

Saludos