Hola Foro:
sigo teniendo consultas: tengo un textbox, el evento return ejecuta bien, pero se repite 1 vez.
copio el codigo.
como hago para salir?, está mal el exit program?.
powercobol V9
Código COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 CARTEL PIC X(200) VALUE SPACES.
PROCEDURE DIVISION.
MOVE "Text" OF CLAVE TO WTEXT.
IF WTEXT NOT = WCLAVE GO ERROR-1.
MOVE WNOMAPE TO "Text" OF CartelOK.
Move "Bienvenido:" To "Caption" of CmStatic3.
MOVE 1 TO "Enabled" OF ButtonOK.
INVOKE ButtonOK "SetFocus".
EXIT PROGRAM.
ERROR-1.
MOVE "Clave no habilitada..." TO "TEXT" OF CartelOK.
ADD POW-DMICONERROR POW-DMOK GIVING ESTILO.
STRING "Error: Clave no corresponde..."
SALTO
"[" WTEXT (1:I) "]"
SALTO DELIMITED BY SIZE INTO CARTEL.
INVOKE POW-SELF "DisplayMessage" USING CARTEL WS-ATENCION ESTILO.
MOVE "Password..." TO POW-TEXT OF CLAVE.
INVOKE ButtonFin "SetFocus".
EXIT PROGRAM.