FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Un raro problema (SOLUCIONADO)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Un raro problema (SOLUCIONADO)
Posted: Tue Nov 12, 2024 03:55 PM
Amigos del foro:

Tratar茅 de explicar el problema, no lo puse en el header porque es extenso

Tengo el siguiente c贸digo, al cual llego desde un GET, si el usuario utiliza las
tecla FLECHA ARRIBA o SHIFT + TAB, al salir del GET debe regresar al GET
anterior. pero si utiliza la tecla RETURN debe seguir a mostrar el MSGINFO()
y m谩s c贸digo
Code (fw): Select all Collapse
聽 聽 聽 聽 REDEFINE GET aGets2[08] VAR oWrk:COS ID 306 OF oDlg UPDATE;
聽 聽 聽 聽 聽 聽 PICTURE "@Z 9,999,999,999.99";
聽 聽 聽 聽 聽 聽 VALID UpdWrk(oDlg,aGets2,oBrx,2);
聽 聽 聽 聽 聽 聽 MESSAGE "Costo de adquisici贸n (S/IVA)"
...
...
STATIC FUNCTION UpdWrk(oDlg,aGets2,oBrx,nDesde)
聽 聽 IF GetAsyncKey(VK_UP) .OR.;
聽 聽 聽 聽 GetAsyncKey(VK_SHIFT,VK_TAB)
聽 聽 聽 聽 RETURN (.T.)
聽 聽 ENDIF
聽 聽 聽 聽
聽 聽 聽 聽MsgInfo("AQU脥 VOY")
....
....
....
Este c贸digo funciona de 100 en mi PC de desarrollo pero en la red local de mi cliente
no llega al MsgInfo() aunque se utiliza la tecla RETURN para salir del GET, tal parece
que la tecla RETURN la "confunde" con la tecla VK_UP o VK_SHIFT + VK_TAB

Tengo la impresi贸n que es problema de configuraci贸n, pero donde?

Gracias por el apoyo
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 04:39 PM
Code (fw): Select all Collapse
聽 聽 聽 聽 REDEFINE GET aGets2[08] VAR oWrk:COS ID 306 OF oDlg UPDATE 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽PICTURE "@Z 9,999,999,999.99" 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽VALID UpdWrk(oDlg,aGets2,oBrx,2) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽MESSAGE "Costo de adquisici贸n (S/IVA)"
...
...
STATIC FUNCTION UpdWrk(oDlg,aGets2,oBrx,nDesde)

聽 聽IF GetAsyncKey( VK_UP ) .OR. GetAsyncKey( VK_SHIFT, VK_TAB ) .AND. .NOT. 聽;
聽 聽 聽 GETKEYSTATE( VK_RETURN )

聽 聽 聽 RETURN( .T. )

聽 聽ENDIF
聽 聽 聽 聽
聽 聽MsgInfo("AQU脥 VOY")
....
....
....
Regards, saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 05:40 PM

Karinha:

Gracias por la sugerencia, as铆 lo he resuelto, pero mi duda es por qu茅 en mi PC funciona de

una forma y en la red local de mi cliente no funciona igual?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 05:50 PM

Armando, no estoy seguro, pero creo que es la arquitectura de cada versi贸n de Windows y el procesador. Por ejemplo: hay un c贸digo que escribo en Windows 7 de 32 bits, que funciona muy bien en Windows 7 de 32 bits, pero cuando lo instalo en Windows 10 de 64 bits, tiene efectos secundarios extra帽os. Y tambi茅n, actualizaciones de Windows.

Regards, saludos.

Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 06:11 PM

Karinha:

Creo que por ah铆 van los tiros, a ver si alguien m谩s nos da su luz?

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 06:41 PM
Quizas tengas que limpiar el buffer
:roll:
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 07:29 PM
Paisano:

Expl铆camelo con piedritas y palitos, por favor :D

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Un raro problema
Posted: Tue Nov 12, 2024 07:57 PM

*Paisano es una ventana donde capturan mucho?

//al entrar al dialogo

HB_GCALL( .f.)

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Un raro problema
Posted: Wed Nov 13, 2024 06:02 PM

C茅sar:

Pues en realidad no, son pocos los GETs.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Un raro problema
Posted: Thu Nov 14, 2024 02:25 AM
Amigos:

D谩ndole otra vuelta a la tuerca, tengo los siguientes resultados:
Code (fw): Select all Collapse
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽En mi PC 聽 聽 聽 聽 聽 聽 聽 En el servidor de mi cliente
聽 聽? GetAsyncKey( VK_UP ) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽.F. 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 .T.
聽 聽? GetAsyncKey( VK_SHIFT, VK_TAB ) 聽 聽 聽.F. 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 .F.
聽 聽? GetKeyState( VK_RETURN ) 聽 聽 聽 聽 聽 聽 聽 聽.T. 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 .T.
Evidentemente hay una diferencia en el c贸digo GetAsyncKey( VK_UP )

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions