Lector óptico y Enter

[Arturo.Molina]

Empezado por mRoman

Bueno hasta el momento funciona asi: (UNA SOLUCION NO MUY OPTIMA Y MUCHO MENOS PROFESIONAL!!)

Código Delphi [-] if qryValidaInv.fieldByName('KAR_M_EXISTENCIAS').AsInteger<=qryValidaInv.FieldByName('KAR_M_STOCK_MINIM O').AsInteger then begin Application.MessageBox('Este producto esta por acabarse, favor de realizar pedido','Advertencia',mb_Ok+mb_IconExclamation); Application.MessageBox('Este producto esta por acabarse, favor de realizar pedido','Advertencia',mb_Ok+mb_IconExclamation); end;


Repitiendo 2 veces la linea de código....solo asi me muestra el mensaje...pero cuando se usa el teclado lo muestra -obvio- 2 VECES!!!...q joda!

Hola mRoman,
otra posible solución menos "repetitiva" podría ser insertar un retardo justo al principio del procedimiento, tal que así:

Código Delphi [-]
procedure TfrmVentas.mskCodProdExit(Sender: TObject);
begin
  sleep( 500 );   <--- Esto le da medio segundo al procedimiento para limpiar la cola de mensajes de windows
  if NOT(mskCodProd.Text='') then

[mRoman]

Empezado por Arturo.Molina

Hola mRoman,
otra posible solución menos "repetitiva" podría ser insertar un retardo justo al principio del procedimiento, tal que así:

Código Delphi [-]
procedure TfrmVentas.mskCodProdExit(Sender: TObject);
begin
  sleep( 500 );   <--- Esto le da medio segundo al procedimiento para limpiar la cola de mensajes de windows
  if NOT(mskCodProd.Text='') then

Ok...lo intento.

[mRoman]

Empezado por Arturo.Molina

Hola mRoman,
otra posible solución menos "repetitiva" podría ser insertar un retardo justo al principio del procedimiento, tal que así:

Código Delphi [-]
procedure TfrmVentas.mskCodProdExit(Sender: TObject);
begin
  sleep( 500 );   <--- Esto le da medio segundo al procedimiento para limpiar la cola de mensajes de windows
  if NOT(mskCodProd.Text='') then

Lo siento amigo Arturo, no me funcionó, siguió teniendo el mismo comportamiento.

De todas maneras gracias.

[mRoman]

Hola...que tal.

Solo para no dejar sin conclusión este hilo....resulta que el problema del DOBLE ENTER del lector óptico, estaba en la propia configuración del lector. Utilice el manual de códigos de barra que viene junto con el dispositivo y escanea el que reinicia a la configuración de fábrica...y listo!, quedó solucionado.

Saludos.