travar teclado

[Mario Angelini]

Estou precisando desenvolver uma rotina para travar o teclado em uma
homologação do meu programa em Clipper (enquanto não passo para Xailer) na
emissão de documento fiscal por impressora fiscal.
Quando está imprimindo o documento fiscal o teclado tem que ficar travado.
Encontrei no fórum do xHarbour aqui do Brasil, uma rotina para fazer isto em
xHarbour.
http://www.pctoledo.com.br/forum/viewtopic.php?t=3414
Passei para o Xailer, conforme projeto anexo.
Se crio o arquivo TRAVATEC.TXT na pasta do TRAVATEC.EXE, trava o teclado, se
não tem o arquivo então destrava.
Mas funciona alguns segundos e pára de responder quando mudo o foco para
outro programa.
Porque pára de responder?
Será que poderiam dar uma examinada no que estou
fazendo errado?
Lo siento por mi Espanhol:
Tengo que desarrollar una rutina para bloquear el teclado de un aplobación
de mi programa en Clipper (aunque no paso a Xailer) na
emisión de documento fiscal para impresora fiscal.
Al imprimir el documento fiscal que tiene el teclado esté bloqueado.
Encontrado en el foro xHarbour aquí­, en Brasil, una rutina para hacer esto
en xHarbour.
http://www.pctoledo.com.br/forum/viewtopic.php?t=3414
Pasar a Xailer como anexo del proyecto.
Si crear el archivo TRAVATEC.TXT en la carpeta de TRAVATEC.EXE, bloquear el
teclado, si no tiene el archivo Desbloquear.
Pero funcionó unos segundos y deja de responder cuando se cambia el foco a
otro programa.
¿Por qué dejar de responder?
Que podrí­a considerarse como un me
haciendo mal?
Mário Angelini

--

Attached files TRAVATEC.zip (2.1 KB)Â

[Mario Angelini]

Lo siento por la falta de apoyo que se prometió!
Mário

[jfgimenez]

Mário,
prueba a cambiar antes el foco a tu formulario con SetActiveWindow(
::Handle )
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Mario Angelini]

Jose:
Pelo F9 funciona, mas se copiar para outra pasta continua
parando de responder.
Estou colocando as rotinas em FormShow. Está correto?
Por F9 funcionó, pero sigue a copiar a otra carpeta
detenerse a responder.
Puse en las rutinas FormShow. Correcto?
Mário
METHOD FormShow( oSender ) CLASS TForm5
LOCAL nCount:=0
SetActiveWindow(::Handle )
DO WHILE .T.
IF FILE("TRAVATEC.ON")
::olabel1:ctext:="teclado TRAVADO."
ERASE("TRAVATEC.ON")
TravaTec(.T.)
ENDIF
IF FILE("TRAVATEC.OFF")
::olabel1:ctext:="teclado DESTRAVADO."
ERASE("TRAVATEC.OFF")
TravaTec(.F.)
ENDIF
::olabel2:ctext:=STR(INT(++nCount))
::olabel1:show()
::olabel2:show()
F130(0.5) //wait 0.5 second
ENDDO
RETURN Nil
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escreveu na mensagem
news:4a21253b$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Mário,
>
> prueba a cambiar antes el foco a tu formulario con SetActiveWindow(
> ::Handle )
>
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
>
--

Attached files