Power Builder - SetText no me funciona..!

hola, tengo lo sig.

string ls_proy, ls_nomproy

ls_proy = String( Integer(GetText()), "000")

select descripcion into :ls_nomproy
from proyectos
where cveproy = :ls_proy ;

if sqlca.SQLcode = 100 then
MessageBox("Aviso", "No existe Proyecto : "+ls_proy)
return 1
end if
SetItem( row, "proyecto", ls_nomproy )

/* ESTO ES LO QUE NO FUNCIONA */
SetText( ls_proy )

es para que si capturo un "1", me ponga "001", si pongo un "20", me ponga "020", ya intente ponerle AcceptText y no funciona..!

Hola que tal:

Duda: A que control le estas aplicando el GetText() ? al igual que el SetText( )

Saludos!

Hola Leonardo,

Si la columna de la datawindow es de tipo numérico, es normal lo que te ocurre. Aunque tú pongas ceros por delante con SetText, al salir del campo se quitan.

Para que aparezcan los ceros tienes que modificar en la datawindow las propiedades de la columna. Tienes dos opciones:

1. En Format poner 000. En este caso, los ceros de la izquierda aparecen al salir del campo, pero no cuando tiene el foco.

2. En Edit, cambiar el estilo de la columna a EditMask, y poner 000 como máscara. En este caso siempre aparecen los ceros de la izquierda.

Prueba las dos opciones, y quédate con la que más te guste.

Espero haberte ayudado.

Un saludo,

Pedro