topic-44737

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Problema a investigar
Posted: Thu Aug 01, 2024 05:47 PM

Amigos del foro:

Tengo el siguiente código

      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 (fw): Select all Collapse

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 (fw): Select all Collapse

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

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

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: Problema a investigar
Posted: Thu Aug 01, 2024 07:10 PM

Se comprendo...

Code (fw): Select all Collapse

// 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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion