{
-------------------------------------------------------------------------------
 PROGRAMA          : ADMNRP001
 OBJETIVO          : Continuacion del menu de Reportes del Sistema de
                     Administracion de Personal
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Junio 24, 1993.      
-------------------------------------------------------------------------------
}

GLOBALS "adprgb000.4gl"

FUNCTION admnrp001() 
OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()

    DISPLAY "Continuacion de Reportes" AT 6,28 ATTRIBUTE(BLACK)
    DISPLAY "admnrp001"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1-Rotacion de Personal               adprrp023" AT 10,1 
    DISPLAY " 2-Entrada de Empleado                adprrp024" AT 11,1 
    DISPLAY " 3-Salida de Empleado                 adprrp025" AT 12,1 
    DISPLAY " 4-Ex-Empleados                       adprrp026" AT 13,1 
    DISPLAY " 5-Resumen Hijos Empleados            adprrp027" AT 14,1 
    DISPLAY " 6-Tardanza Empleados x Depto         adprrp030" AT 15,1 
    DISPLAY " 7-Historial de Empleados             adprrp031" AT 16,1 
    DISPLAY " 8-Maestra de Empleados c/Nacimiento  adprrp033" AT 17,1 
    DISPLAY " 9-Analisis De Beneficios X Empleado  adprrp037" AT 18,1 
    DISPLAY " S- Retorna Menu Anterior"  AT 20,1  ATTRIBUTE(BLACK)


    PROMPT "OPCION: " attribute(yellow) FOR OPT
    LET opt = UPSHIFT(opt) clipped

    CASE
       WHEN OPT =  "1"           
          CALL adprrp023()
          CLEAR SCREEN
          CALL admnrp001()
       WHEN OPT =  "2" 
           CALL adprrp024()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "3" 
           CALL adprrp025()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "4" 
           CALL adprrp026()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "5" 
           CALL adprrp027()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "6" 
           CALL adprrp030()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "7" 
           CALL adprrp031()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "8" 
           CALL adprrp033()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT =  "9" 
           CALL adprrp037()
           CLEAR SCREEN
           CALL admnrp001()
       WHEN OPT = "S" or OPT = "s"
          CLEAR SCREEN
          RETURN
     OTHERWISE 
          CALL admnrp001()
     END CASE

END FUNCTION