Estimados, necesito que me den una mano, he tratado de hacer algo y no lo "veo".. como hacer.. el tema es el siguiente..
como hay en ciertos locales de atencion de publico, una persona se va acercar a un pc que tiene una pistola de codigo bidireccional, para leer
cedulas de indentidad con formato PDF417 o QR, la idea es tener un campo Get, que capture el dato, que me de de forma automatica el enter, para
evaluar el dato recibido, entregar un comprobante de ingreso de registro y el get, se quede en blanco esperando a otra persona.. la pistola no es automatica, es como pistola..
tengo esto.. pero no me resulta, ya que el enter automatico no se como llamarlo, luego de pistolear la cedula.
Function Carga_Lector(cEmpresa,cUsuario)
Local cGet
LOCAL oGet
Local oBtns:= Array( 2 )
Local oBmp,oDlg1,oFont1
Local aCampos,aValues,aWhere
LOCAL lAceptar := .F.
Local Dato:=" "
Local Rut:=" "
cGet:=Space(70)
Define Font oFont1 Name "Tahoma" Size 0,-11 Bold
DEFINE DIALOG oDlg1 RESOURCE "Captura_Barra"
REDEFINE GET cGet PICTURE "@!" ID 1000 OF oDlg1 Valid(Leercodigo(@cGet,odlg1)) UPDATE FONT oFont1 COLOR Rgb( 064, 0, 0 ), Rgb(255,255,200)
ACTIVATE DIALOG oDlg1 CENTERED
**** si no coloco esto no me resulta.. y la idea es no tener estos botones, si no que con solo pistolear el valid, lo procese
REDEFINE BUTTONBMP oBtns[1] ID 201 OF oDlg1 PROMPT "&Grabar" ;
ACTION ( lAceptar := .T., oDlg1:End() ) BITMAP "Grabar" TEXTRIGHT
REDEFINE BUTTONBMP oBtns[2] ID 202 OF oDlg1 PROMPT "&Salir";
ACTION ( oDlg1:End() ) BITMAP "Cancelar" TEXTRIGHT cancel
ACTIVATE DIALOG oDlg30 CENTERED
IF lAceptar == .T.
Endif
Return Nil
Function LeerCodigo(cGet,oDlg1)
Local Dato:=" "
Local Rut:=" "
Dato:=substr(cGet,1,5)
If "HTTPS" = Alltrim(Dato)
MsgInfo("rut nuevo")
Rut:=Substr(cGet,53,8)+"-"+Substr(cGet,62,1)
MsgInfo(rut)
cGet:=Space(70)
return .t.
Else
Msginfo("no carga")
cGet:=Space(70)
Return .f.
Endif
Return .f.
