Diferencias clase GET Harbour 9.01 y 8.03

[FiveWiDi]

Con la versión FWH 9.02 y su Harbour, estoy teniendo problemas en mi aplicaciòn al cambiar dinámicamente el valor de un GET numérico a alfanumérico y de picture '999999' a '!!!!!!'.

El error se da en:
Called from: => TCLIPGET:PUTMASK(1187)
Called from: => TCLIPGET:UPDATEBUFFER(244)
Called from: c:\desarrol\treball\Ampa0903\prg\TGET.PRG => (b)TGET(149)
Called from: => TJ02GET01:REFRESH(0)
Called from: => TJ02GET01:CTEXT(611)
Called from: c:\desarrol\treball\Ampa0903\prg\ChangGet.PRG => SETTOGET(307)

Yo no tengo los fuentes de la clase GET de Harbour (de hecho no se ni como conseguirlos).

Alguien me puede enviar la clase GET de Harbour actual para ver yo que está sucediendo y porqué? (carles_gp@telefonica.net)

Un Saludo y gracias
Carlos G.

[jmansur]

Estimado Carlos.

Tambien tengo el mismo problema.

De aqui te podes bajar los fuentes. http://sourceforge.net/project/showfile ... oup_id=681

Para generar un harbour nuevo create este bat

Abrazosss

SET LIB=c:\SYS\Y\lib ACA VAN LOS PATH DEL bcc5
SET INCLUDE=c:\SYS\Y\include
SET PATH=c:\SYS\Y\bin;%PATH%

SET HB_CC_NAME=b32
SET HB_ARCHITECTURE=w32
SET HB_GT_LIB=gtgui
SET HB_GT_DEFAULT=gui
SET HB_BUILD_MODE=c
SET C_USR= -DHARBOUR_MAIN_WIN -DHB_DYNLIB -DHB_FM_STATISTICS_OFF -d -a8 -OS -O2 -5 -6
SET HB_BUILD_DLL=no
SET HB_MAKE_PROGRAM=c:\SYS\Y\bin\make.exe

make_b32

[FiveWiDi]

Estimado Carlos.

Tambien tengo el mismo problema.

De aqui te podes bajar los fuentes. http://sourceforge.net/project/showfile ... oup_id=681

Para generar un harbour nuevo create este bat

Abrazosss

SET LIB=c:\SYS\Y\lib ACA VAN LOS PATH DEL bcc5
SET INCLUDE=c:\SYS\Y\include
SET PATH=c:\SYS\Y\bin;%PATH%

SET HB_CC_NAME=b32
SET HB_ARCHITECTURE=w32
SET HB_GT_LIB=gtgui
SET HB_GT_DEFAULT=gui
SET HB_BUILD_MODE=c
SET C_USR= -DHARBOUR_MAIN_WIN -DHB_DYNLIB -DHB_FM_STATISTICS_OFF -d -a8 -OS -O2 -5 -6
SET HB_BUILD_DLL=no
SET HB_MAKE_PROGRAM=c:\SYS\Y\bin\make.exe

make_b32

Muchas gracias por la información.

Ya he bajado Harbour, he mirado que hace la clase GET (vaya tela, no está protegida la ca@#€ona, no se deja meter mano por ningún lado).

En fin, al final creo que he encontrado la solución.

De momento lo haré así, antes de asignar mi valor cuyo 'Type' sea diferente al que tiene el GET en ese momento, le hago un:

- oCtrl:oGet:KillFocus()
- oCtrl:oGet:Varput( UNvalordelTypequequiero )

y despues realizo:

- oCtrl:cText( ELvalorquequieroasignar )

Parece ser que con esto resuelvo el problema.

Cómo lo resolvistes tu?
Yo no quería cambiar la clase ni de Harbour ni de FiveWin por eso opté por usar sus propios métodos.

un saludo
Carlos G.