Un raro problema (SOLUCIONADO)

[Armando]

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: Select all  Expand view

        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

[karinha]

Code: Select all  Expand view

        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.

[Armando]

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

[karinha]

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.

[Armando]

Karinha:

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

Saludos

[sysctrl2]

Quizas tengas que limpiar el buffer

[Armando]

Paisano:

Explícamelo con piedritas y palitos, por favor

Saludos

[sysctrl2]

*Paisano es una ventana donde capturan mucho?

//al entrar al dialogo
HB_GCALL( .f.)

[Armando]

César:

Pues en realidad no, son pocos los GETs.

Saludos

[Armando]

Amigos:

Dándole otra vuelta a la tuerca, tengo los siguientes resultados:

Code: Select all  Expand view

                                                           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