Progress - como poner asteriscos a un fill es urgente que me

por favor es muy urgente la persona que me consteste se lo voy a agradecer

Si es para una clave solo debes colocar en el fill-in la opcion blank, y asi no se podra ver lo que estas escribiendo.

en la version 10.1a ya existe el atributo de password para los fill-ins, pero independientemente te envio codigo para que lo apliques al fill-in utilizando algunos eventos.



on any-key of fill-in-1

DO:

DEF VAR pword AS CHAR NO-UNDO.


CASE KEYFUNCTION(LASTKEY):

WHEN "DELETE-CHARACTER" THEN DO:
/* remueve el ultimo caracter del password y el ultimo "*" de fill-in. */
IF LENGTH(pword) > 0 THEN DO:
pword = SUBSTRING(pword,1,(LENGTH(pword) - 1)).
fill-in-1:SCREEN-VALUE =
SUBSTRING(fill-in-1:SCREEN-VALUE,1,
LENGTH(fill-in-1:SCREEN-VALUE) - 1).
fill-in-1:CURSOR-OFFSET = LENGTH(fill-in-1:SCREEN-VALUE) + 1.
RETURN NO-APPLY.
END.
END.

WHEN "BACKSPACE" THEN DO:
/* remueve el ultimo caracter del password y el ultimo "*" de fill-in. */

IF LENGTH(pword) > 0 THEN DO:
pword = SUBSTRING(pword,1,(LENGTH(pword) - 1)).
fill-in-1:SCREEN-VALUE =
SUBSTRING(fill-in-1:SCREEN-VALUE,1,
LENGTH(fill-in-1:SCREEN-VALUE) - 1).
fill-in-1:CURSOR-OFFSET = LENGTH(fill-in-1:SCREEN-VALUE) + 1.
RETURN NO-APPLY.
END.
END.

WHEN "RETURN" THEN DO:
/* para validacion de password si se usa
se incluira el codigo de validacion */

RETURN NO-APPLY.
END.

WHEN "TAB" THEN DO:
/* para validacion de password si se usa
se incluira el codigo de validacion */
RETURN NO-APPLY.
END.

WHEN "END-ERROR" THEN DO:
APPLY "CHOOSE" TO BtnDone IN FRAME {&FRAME-NAME}.
RETURN NO-APPLY.
END.

OTHERWISE DO:
/* chequea el valor de la tecla */
IF KEYCODE(KEYFUNCTION(LASTKEY)) > 0 AND
KEYCODE(KEYFUNCTION(LASTKEY)) < 200
THEN DO:
/* construye y despliega el "*" in fill-in. */
pword = pword + KEYFUNCTION(LASTKEY).
fill-in-1:SCREEN-VALUE = fill-in-1:SCREEN-VALUE + "*".
fill-in-1:CURSOR-OFFSET = fill-in-1:CURSOR-OFFSET + 1.
RETURN NO-APPLY.

END.
ELSE RETURN NO-APPLY. /* igonora las etiquetas de las teclas */
END.
END. END.