Progress - Codigo

 
Vista:

Codigo

Publicado por Mario Lozano (1 intervención) el 15/11/2006 16:36:57
Hola que tal compañeros , quisiera saber si me podrian hechar la mano con este rollo , como puedo correr una ventana y que la otra ventana se cierre , como por ejemplo , en un password , tener la ventana de inicio de sesion y cuando la ejecute pasar al menu principal pero con la ventana de inicio de sesion ya cerrada.

gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Codigo

Publicado por Guillermo (6 intervenciones) el 13/12/2006 23:58:14
A ver yo hago precisamente ese rollo, no te puedo pasar todo el código pero si mostrarte algunos atributos que te pueden servir en ese frame:

DEFINE FRAME Dialog-Frame
v-nombre AT ROW 2.43 COL 26 COLON-ALIGNED NO-LABEL
v-pass AT ROW 3.86 COL 26 COLON-ALIGNED NO-LABEL
b-aceptar AT ROW 7.19 COL 15
b-salir AT ROW 7.19 COL 35
IMAGE-2 AT ROW 1.71 COL 4.4
RECT-1 AT ROW 1.38 COL 3
"Nombre Usuario:" VIEW-AS TEXT
SIZE 16 BY 1 AT ROW 2.43 COL 11
BGCOLOR 1 FGCOLOR 14
"Clave Usuario:" VIEW-AS TEXT
SIZE 14 BY 1 AT ROW 3.91 COL 13.2
BGCOLOR 1 FGCOLOR 14
SPACE(38.99) SKIP(3.60)
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE
TITLE "Seguridad".

/* *********** Runtime Attributes and AppBuilder Settings *********** */

&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR DIALOG-BOX Dialog-Frame
*/
ASSIGN
FRAME Dialog-Frame:SCROLLABLE = FALSE
FRAME Dialog-Frame:HIDDEN = TRUE.

/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME
/* ************************ Control Triggers ************************ */

&Scoped-define SELF-NAME Dialog-Frame
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL Dialog-Frame Dialog-Frame
ON END-ERROR OF FRAME Dialog-Frame /* Seguridad */
DO:
RETURN NO-APPLY.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

Ya lo demás que haces es si le das aceptar o salir, pero eso depende de lo que quieras hacer.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar