79 lines
2.7 KiB
Plaintext
79 lines
2.7 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : ADMNMT001
|
|
OBJETIVO : Sub-menu de Mantenimiento del Sistema de
|
|
Administracion de Personal (Solicitud de Empleo)
|
|
PROGRAMADOR : Ing. Betania Guerrero Perez
|
|
FECHA REALIZACION : Junio 01, 1993.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
|
|
GLOBALS "adprgb000.4gl"
|
|
|
|
FUNCTION admnmt001()
|
|
DEFINE p_user CHAR(9),
|
|
luz CHAR(4)
|
|
|
|
CALL opcion_pantalla1()
|
|
|
|
MENU "Mantenimientos:"
|
|
COMMAND "1"
|
|
CALL seg000(1,"admnmt001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprmt011()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "2"
|
|
CALL seg000(2,"admnmt001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprmt012()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "3"
|
|
CALL seg000(3,"admnmt001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprmt013()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "4"
|
|
CALL seg000(4,"admnmt001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprmt014()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "5"
|
|
CALL seg000(5,"admnmt001") RETURNING luz
|
|
IF luz = "azul" THEN
|
|
CALL adprmt015()
|
|
CALL opcion_pantalla1()
|
|
END IF
|
|
COMMAND "Retornar" "Retorna Menu Principal"
|
|
EXIT MENU
|
|
END MENU
|
|
END FUNCTION
|
|
|
|
FUNCTION opcion_pantalla1()
|
|
|
|
OPTIONS
|
|
PROMPT LINE 8
|
|
CLEAR SCREEN
|
|
CALL pantalla()
|
|
|
|
{ DISPLAY "Solicitud Empleo e Informacion Personal" AT 6,23 ATTRIBUTE(BLACK)
|
|
DISPLAY "admnmt001" AT 4,3 ATTRIBUTE(RED)
|
|
DISPLAY " 1- Datos Basicos adprmt011" AT 10,1
|
|
DISPLAY " 2- Referencias Personales adprmt012" AT 11,1
|
|
DISPLAY " 3- Datos Familiares y Dependientes adprmt013" AT 12,1
|
|
DISPLAY " 4- Educacion adprmt014" AT 13,1
|
|
DISPLAY " 5- Experiencia de Trabajo y Retiro adprmt015" AT 14,1
|
|
}
|
|
DISPLAY "Job Application Menu" AT 6,30 ATTRIBUTE(BLACK)
|
|
DISPLAY "admnmt001" AT 4,3 ATTRIBUTE(RED)
|
|
DISPLAY " 1- Basics Data adprmt011" AT 10,1
|
|
DISPLAY " 2- Personnel References adprmt012" AT 11,1
|
|
DISPLAY " 3- Family Data and Clerks adprmt013" AT 12,1
|
|
DISPLAY " 4- Education adprmt014" AT 13,1
|
|
DISPLAY " 5- Job Expirence & Resign Reson adprmt015" AT 14,1
|
|
# DISPLAY " S- Retorna Menu Anterior" AT 17,1 ATTRIBUTE(BLACK)
|
|
|
|
END FUNCTION |