{
-------------------------------------------------------------------------------
 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()
DEFINE luz CHAR(5)

     CALL opcion_pantalla1() 

MENU "Reportes:"
COMMAND "1"
       CALL seg000(1,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp023()
          CALL opcion_pantalla1() 
       END IF
COMMAND "2"
       CALL seg000(2,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp024()
          CALL opcion_pantalla1() 
       END IF
COMMAND "3"
       CALL seg000(3,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp025()
          CALL opcion_pantalla1() 
       END IF
COMMAND "4"
       CALL seg000(4,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp026()
          CALL opcion_pantalla1() 
       END IF
COMMAND "5"
       CALL seg000(5,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp027()
          CALL opcion_pantalla1() 
       END IF
COMMAND "6"
       CALL seg000(6,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp030()
          CALL opcion_pantalla1() 
       END IF
COMMAND "7"
       CALL seg000(7,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp031()
          CALL opcion_pantalla1() 
       END IF
COMMAND "8"
       CALL seg000(8,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp033()
          CALL opcion_pantalla1() 
       END IF
COMMAND "9"
       CALL seg000(9,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp037()
          CALL opcion_pantalla1() 
       END IF
COMMAND "10"
       CALL seg000(10,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp040()
          CALL opcion_pantalla1()
       END IF
COMMAND "11"
       CALL seg000(11,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp041()
          CALL opcion_pantalla1()
       END IF
COMMAND "12"
       CALL seg000(12,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp042()
          CALL opcion_pantalla1()
       END IF
COMMAND "13"
       CALL seg000(13,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp043()
          CALL opcion_pantalla1()
       END IF
COMMAND "14"
       CALL seg000(14,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp044()
          CALL opcion_pantalla1()
       END IF
COMMAND "15"
       CALL seg000(15,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp045()
          CALL opcion_pantalla1()
       END IF
COMMAND "16"
       CALL seg000(16,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp046()
          CALL opcion_pantalla1()
       END IF
COMMAND "17"
       CALL seg000(17,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          RUN "fglrun %FGLPROG%\\adprrp047"
          #CALL  adprrp047()
          CALL opcion_pantalla1()
       END IF
COMMAND "18"
       CALL seg000(18,"admnrp001") RETURNING luz
       IF luz = "azul" THEN
          CALL  adprrp044b()
          CALL opcion_pantalla1()
       END IF
COMMAND "Retornar"
      EXIT MENU
 END MENU
END FUNCTION

FUNCTION opcion_pantalla1()

OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()
   LET impresor = FGL_GETENV("IMP")

    DISPLAY "Continuacion de Reportes" AT 6,28 ATTRIBUTE(BLACK)
    DISPLAY "admnrp001"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1-Rotacion de Personal               adprrp023" AT 8,1 
    DISPLAY " 2-Entrada de Empleado                adprrp024" AT 9,1 
    DISPLAY " 3-Salida de Empleado                 adprrp025" AT 10,1 
    DISPLAY " 4-Ex-Empleados                       adprrp026" AT 11,1 
    DISPLAY " 5-Resumen Hijos Empleados            adprrp027" AT 12,1 
    DISPLAY " 6-Tardanza Empleados x Depto         adprrp030" AT 13,1 
    DISPLAY " 7-Historial de Empleados             adprrp031" AT 14,1 
    DISPLAY " 8-Maestra de Empleados c/Nacimiento  adprrp033" AT 15,1 
    DISPLAY " 9-Analisis De Beneficios X Empleado  adprrp037" AT 16,1 
    DISPLAY "10-Seguro Social                      adprrp040" AT 17,1 
    DISPLAY "11-Seguro De Vida                     adprrp041" AT 18,1 
    DISPLAY "12-Seguro Dental                      adprrp042" AT 19,1 
    DISPLAY "13-Empl. X Deptos. Coporativos        adprrp043" AT 20,1 
    DISPLAY "14-Empl. X Deptos. Rango de Fechas    adprrp044" AT 21,1 
    DISPLAY "15-Rango de Edades                    adprrp045" AT 22,1 
    DISPLAY "16-Rango de Tiempo en la Empresa      adprrp046" AT 23,1 
    DISPLAY "17-DGII Formato ASCII                 adprrp047" AT 24,1 
    DISPLAY "18-Beneficios Empleados    adprrp044b" AT 8,50 


END FUNCTION