Texto inicial en un Textbox

[dmosca]

Hola foro

consulta: como hago para volver un textbox al valor inicial en powercobol 9.

cuando ingreso en el textbox un valor que no existe en la base, quiero volver a ingresar el dato y que se vea el texto que esta definido en las propiedades del textbox...

muchas gracias

[Hrmcobol]

Hola DMOSCA, Linda Pregunta la Tuya !!!
A mi no se me ocurre como, pero en este foro hay varios genios, así que la respuesta no tardara en aparecer.
Saludos.
H

[Fito]

Hola:

Lo único que se me ocurre es volver a mover el texto a la propiedad "Text".

Saludos.

Fito.

[Eslopes]

Olá,

o código em anexo mostra como limpar um form de maneira automática. O exemplo mostra como limpar campos TEXT e LISTVIEW, mas pode ser usado para qualquer tipo de campo.

Saludos!

Como usar:

CALL "POWERCONVTOCOM" USING POW-SELF RETURNING FORMOBJECT
INVOKE OO-CLASS "MT-CLEAR" USING FORMOBJECT
SET FORMOBJECT TO NULL


FORMOBJECT -> REPRESENTA SEU FORM

With_oo.ppj - Google Drive (https://drive.google.com/open?id=0B4TTAKMQekDFTTZuZXlGY1NhSVE)
OO.CBL - Google Drive (https://drive.google.com/open?id=0B4TTAKMQekDFdF9WTkh6b3pycTQ)


O crédito é do Evandro Andersen.

[Kuk]

dmosca, también puedes hacerlo en el evento LostFocus:


IF POW-TEXT OF CmText1 = SPACES
MOVE "Texto inicial" TO POW-TEXT OF CmText1
END-IF