Cobol Foro - [Sintaxis] Texto inicial en un Textbox

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Sintaxis] Texto inicial en un Textbox (https://www.cobolforo.es/showthread.php?t=688)

dmosca

21 de julio de 2017 02:45

Texto inicial en un Textbox

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

22 de julio de 2017 02:40

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	23 de julio de 2017 02:17

Hola:

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

Saludos.

Fito.

Eslopes

24 de julio de 2017 15:46

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:

Código COBOL:

 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	25 de julio de 2017 17:45

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

Código COBOL:

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

La franja horaria es GMT +2. Ahora son las 20:01.