{
-------------------------------------------------------------------------------
 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