Problema a investigar

[Armando]

Amigos del foro:

Tengo el siguiente código

Code: Select all  Expand view  RUN

      REDEFINE DBCOMBO aGets[05] VAR oEve:TMP ID 106 OF oDlgEnt UPDATE;
         VALID CalPre(oDlgEnt,oBoton,aGets);
         ITEMS anTmp LIST acTmp
 

Desde este combobox voy a validar el precio en la función CalPre()

Code: Select all  Expand view  RUN

STATIC FUNCTION CalPre(oDlgEnt,oBoton,aGets)
    IF GetAsyncKey(VK_UP)
        RETURN (.T.)
    ENDIF
...
...
        RETURN(100.00)
 

Lo curioso que me ha costado muchos dolores de cabeza es lo siguiente:
En mi PC de desarrollo con Windows 11 Home a 64 bits funciona muy bien
y me devuelve el precio, en este ejemplo los 100.00

Pero en la pc usada como servidor LAN, con Windows 10 Pro a 64 bit
no devuelve los 100.00 como si en el combobox el usuario saliera con la tecla VK_UP,
el usuario sale con la tecla VK_TAB.

En resumen del problema, sí va a la función CALPRE pero inmediatamente se regresa
y no devuelve los 100.00

Alguna idea?, acabé por comentar el código

Code: Select all  Expand view  RUN

STATIC FUNCTION CalPre(oDlgEnt,oBoton,aGets)
    IF GetAsyncKey(VK_UP)
//      RETURN (.T.)
    ENDIF
 

Y así, sí funciona en la PC de mi cliente.

Saludos

[karinha]

Se comprendo...

Code: Select all  Expand view  RUN

// C:\FWH\SAMPLES\ARMANCMB.PRG

#include "Fivewin.ch"
#include "DbCombo.Ch"

FUNCTION Main()

   LOCAL oDlg, oBtnTestGet, oBtnTestDbCombo

   SetResDebug()

   DEFINE DIALOG oDlg TITLE "Test Resource Leak"

   oDlg:lHelpIcon := .F.

   @1, 1 BUTTON oBtnTestDbCombo PROMPT "Test DBCombo" ACTION TestDbCombo()

   @2, 1 BUTTON oBtnTestDbCombo PROMPT "Exit" ACTION( oDlg:End() )

   ACTIVATE DIALOG oDlg CENTERED

RETURN NIL

FUNCTION TestDbCombo()

   LOCAL oDlgEnt, oDbCmb1, oDbCmb2, oFont, aGets := ARRAY(5)
   LOCAL cCode1 := Space( 1 ), cCode2 := Space( 1 ), oBoton

   DEFINE FONT oFont NAME "Arial" SIZE 0, -14

   DEFINE DIALOG oDlgEnt TITLE "TEST DE DBCOMBO FOR ARMANDO"

   // If you use FONT oFont on DbCombo then leaksge is not there
   @1, 1 DBCOMBO aGets[1] VAR cCode1 ITEMS { "A", "B", "C" } ;
      SIZE 120, 200                                          ;
      LIST { "Location 1", "Location 2", "Location 3" }      ;
      VALID CalPre( oDlgEnt, oBoton, aGets )                 ;
      OF oDlgEnt

   @2, 1 DBCOMBO aGets[2] VAR cCode2 ITEMS { "A", "B", "C" } ;
      SIZE 120, 200                                          ;
      LIST { "Location 1", "Location 2", "Location 3" }      ;
      OF oDlgEnt

   ACTIVATE DIALOG oDlgEnt CENTERED

   oFont:End()

RETURN NIL

FUNCTION CalPre( oDlgEnt, oBoton, aGets )

    LOCAL nValArmando := "100.00"

    IF GetAsyncKey( VK_UP )

        RETURN (.T.)

    ENDIF

    oDlgEnt:SETTEXT( nValArmando )

RETURN( .T. ) // ES UN VALID ARMANDO.

// FIN / END
 

Regards, saludos.