Page 1 of 1

Un raro problema (SOLUCIONADO)

Posted: Tue Nov 12, 2024 3:55 pm
by 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

        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

Re: Un raro problema

Posted: Tue Nov 12, 2024 4:39 pm
by karinha

Code: Select all | Expand

        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.

Re: Un raro problema

Posted: Tue Nov 12, 2024 5:40 pm
by 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

Re: Un raro problema

Posted: Tue Nov 12, 2024 5:50 pm
by 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.

Re: Un raro problema

Posted: Tue Nov 12, 2024 6:11 pm
by Armando
Karinha:

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

Saludos

Re: Un raro problema

Posted: Tue Nov 12, 2024 6:41 pm
by sysctrl2
Quizas tengas que limpiar el buffer
:roll:

Re: Un raro problema

Posted: Tue Nov 12, 2024 7:29 pm
by Armando
Paisano:

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

Saludos

Re: Un raro problema

Posted: Tue Nov 12, 2024 7:57 pm
by sysctrl2
*Paisano es una ventana donde capturan mucho?

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

Re: Un raro problema

Posted: Wed Nov 13, 2024 6:02 pm
by Armando
César:

Pues en realidad no, son pocos los GETs.

Saludos

Re: Un raro problema

Posted: Thu Nov 14, 2024 2:25 am
by Armando
Amigos:

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

Code: Select all | Expand

                                                           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