Borrar contenido de un GET

[Willi Quintana]

Hola amigos....

cVar := "00000000 "
REDEFINE oVar VAR cVar PICTURE "@K!99999999999" ID 101 OF oDlg

Al hacer click en la variable cVar, en Clipper se borraba el contenido de la misma... como se hace con FW ?
Gracias
Salu2

[jrestojeda]

Hola Willi,
Prueba lo siguiente:

Code: Select all  Expand view  RUN

oVar:bGotFocus:={ || vVar:="",oVar:Refresh() } 

Espero te sirva.
Saludos,

[joseluisysturiz]

Hola amigos....

cVar := "00000000 "
REDEFINE oVar VAR cVar PICTURE "@K!99999999999" ID 101 OF oDlg

Al hacer click en la variable cVar, en Clipper se borraba el contenido de la misma... como se hace con FW ?
Gracias
Salu2

Willi, no se si lo que quieres hacer es que se vea un valor predeterminado como ejemplo en la VAR y cuando le hagas click se desaparezca para que el usuario escriba lo que quiera o es otra cosa...si es lo primero que dije...usa esto

REDEFINE GET aGet[1] VAR aVar[1] ID 4021 OF oDlg PICTURE "@!" UPDATE ;
CUEBANNER "Texto a mostrar"

[xmanuel]

Hola Willi...

Como tu lo haces debería de funcionar si no es así hay que corregir el error...

De cualquier modo, para qué usas "!" eso es para convertir en mayúsculas y si sólo vas a usar números...

Prueba a cambiar de:
REDEFINE oVar VAR cVar PICTURE "@K!99999999999" ID 101 OF oDlg
a
REDEFINE oVar VAR cVar PICTURE "@K 99999999999" ID 101 OF oDlg

Saludos Willi.

PD: Estaría muy feliz que fueras betatester de mi HDO

[Willi Quintana]

Gracias a todos,,
La clausula "@K" no funciona,,, oVar:bGotFocus:={ || vVar:="",oVar:Refresh() } va muy bien
Salu2

[Armando]

Willi y amigos:

Meto mi cuchara, posiblemente para el caso especial que ahora tienes la solución te funciona al 100,
pero que sucede cuando entras al get para solo corregir una letra, seguramente se borra
todo el contenido del get obligando al usuario a volver a registrar todo el contenido o valor.

Si no recuerdo mal, el funcionamiento debe ser que cuando el get toma el foco y no mueves
el cursor de su posición al momento de registrar el nuevo contenido el contenido anterior debe
borrarse, si mueves el cursor significa que solo quieres corregir o modificar parte del contenido
y el contenido anterior permanece, esto es lo correcto y así sucede cuando sales del get anterior
con RETURN, pero no sucede así cuando vas directo con el ratón.

Conclusión, creo que Antonio y demás expertos deberían revisar este detalle.

Saludos

[jrestojeda]

Willy,
Me alegro que haya funcionado mi propuesta.

Armando,
Entiendo perfectamente el planteo que haces al respecto, en este caso sólo me limite a responder la necesidad de Willy, pero bien dices, en otros casos puede ser muy penoso para el usuario querer editar el get y perder todo su contenido al tomar el foco. Obviamente pensé en tu planteo al responder, pero sin saber la necesidad concreta de Willy, sabía que funcionaría, pero en otros casos debe ser bastante desagradable perder todo el contenido de un get el tomar el foco.

Saludos,

[horacio]

Mi granito de arena

Code: Select all  Expand view  RUN

cVar := '0000000'

Redefine Get oGet Var cVar Id 101 Picture "@K!99999999999"
oGet : bGotFocus := { || oGet : SelectAll() }
 

Saludos