[Sintaxis] 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
OO.CBL - Google Drive


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