pegar valor dos caracteres lidos pelo leitor optico...help

[scom]

ola amigos.

é o seguinte alguem sabe como posso pegar os valores lidos pelo leitor optico e colocar em uma variavel sem precisar usar o GET...sera que tem como?


ROBSON

[juniorcamilo]

sim...
function XX()
ctecla := ""
nTecla:= 0
do while .t. .and. lastkey() # 27
nTecla := inkey(0)
cTecla += upper(chr(nTecla))
@ 10,10 say cTecla
enddo
return .t.

[scom]

obrigado junior.