wvwtools - gets com psay

[FARLEY RIBEIRO]

Caros colegas,

Estou com um problema onde utilizo o comando Psay. De vez por outra o primeiro get é preenchido com uma letra Q. Ora é a letra T, ora é R, ora é D... e assim vai... como se essas teclas estivessem sendo pressionadas.

Alguém sabe o que pode ser????

Farley

Código: Selecionar todos

function fTela

local owindow2, oFontR := hfont():add("Times New Roman Negrito",10,40)
private nChoice

owindow2:=wndinit(03,01,If(Wvw_GetScreenWidth() > 800,23,20),79,"VENDA")

do while (.T.)
   cCodPro = space(20)
   nQtd    = 0
   nPrv    = 0

   @ 03, 03 say "Qtde*Produto:" get cCodPro picture "@S20" valid 
fCodPro(@cCodPro)
   @ 03, 60 get nQtd picture "999.99"     valid if(Lastkey() == K_UP, .T., 
nQtd >= 0)
   @ 03, 68 get nPrv picture "999,999.99" valid if(Lastkey() == K_UP, .T., 
nPrv >= 0)
  @ 15,58 PSAY "Total" TEXTCOLOR rgb(1,12,36) font 
oFontR:handle BOTTOM 15 RIGHT 50
  READ

   if Lastkey() = K_ESC
      exit
   endif
enddo
wndclose()
return NIL
 

[acelconsultoria]

Farley,


Eu compilei aqui a sua rotina, mas não tá dando problema algum.

Certeza que pode ser na função de verificação no primeiro GET... a fcodpro().

Poste-a aqui no forum.