Usuarios ansiosos !!
Posted: Wed May 16, 2018 10:58 pm
Saludos amigos,
¡¡ Me han tocado unos usuarios ansiosos !! - Tengo asignada la tecla F3 para grabar una operación, pero estos usuarios cuando la pulsan para grabar (en esta caso la proforma) la pulsan repetidas veces de forma muy rápida (no usan mouse) y me estuvieron generando doble grabado. Como puedo limpiar el buffer del teclado para que ignore las pulsaciones extras al final del proceso.
A continuación el fragmento de código que graba la operación:
Agradeceré su ayuda.
Saludos cordiales,
¡¡ Me han tocado unos usuarios ansiosos !! - Tengo asignada la tecla F3 para grabar una operación, pero estos usuarios cuando la pulsan para grabar (en esta caso la proforma) la pulsan repetidas veces de forma muy rápida (no usan mouse) y me estuvieron generando doble grabado. Como puedo limpiar el buffer del teclado para que ignore las pulsaciones extras al final del proceso.
A continuación el fragmento de código que graba la operación:
Code: Select all
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
*>----------------------------------------------------------------------<*
PROC VentasGrabar
LOCAL cNewProforma
FOR nLap = 1 TO 1000000
NEXT
IF FILE(PRF_GRABA)
RETURN
ENDIF
Win_Ventas.VentasBarra.Enabled := .F.
DO EVENTS
MEMOWRIT( PRF_GRABA , 'Grabando' )
IF CheckLiceOk()
IF VentasHayItems()
IF VentasControl()
IF LENNOSPC(Win_Ventas.TxtClieDes.Value) = 0
VentaFijaCliente()
ENDIF
cNewProforma := GrabaProforma()
IF VAL(cNewProforma) > 0
IF LEN(VH_DATCON) > 0
RegControlProf( cNewProforma ) // VentControl.prg
ENDIF
VentProforma( VAL(cNewProforma) )
VentasIniciar()
ENDIF
ENDIF
ELSE
MsgExclamation('No hay artículos para grabar')
ENDIF
ENDIF
Win_Ventas.VentasBarra.Enabled := .T.
DO EVENTS
DELETE FILE (PRF_GRABA)
CLEAR TYPEAHEAD // <-- Aqui trato de limpiar pero no resulta, igual almacena las pulsaciones.
RETURN
Saludos cordiales,