wvwtools - gets com psay
Enviado: 04 Abr 2008 08:05
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
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