{
-------------------------------------------------------------------------------
 PROGRAMA          : NOMNRP002
 OBJETIVO          : Sub-menu de Reportes del Sistema de Nomina.
 PROGRAMADOR       : Juan Soto  
 FECHA REALIZACION : Agosto 6, 1995.      
-------------------------------------------------------------------------------
}

GLOBALS "noprgb000.4gl"

FUNCTION nomnrp002() 
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()

  DISPLAY " Reportes" AT 6,36
  DISPLAY " nomnrp002"                          AT 4,3 ATTRIBUTE(YELLOW)
  DISPLAY " 1-Movimiento Totalizado       noprrp031" AT 10,1 
  DISPLAY " 2-Proyecciones de Nomina      noprrp032" AT 11,1 
  DISPLAY " 3-Proyecciones /Bonificacion  noprrp033" AT 12,1 
  DISPLAY " 4-Formulario Horas Extras     noprrp034" AT 13,1 
  DISPLAY " S-Retorna al Menu Anterior             " AT 14,1 ATTRIBUTE(YELLOW) 

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

       IF opt != "S" THEN
           SELECT unique usuario INTO p_user FROM seg0001
           WHERE usuario = user
           CALL seg000(p_user,opt,"nomnrp002") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE
       WHEN OPT =  "1"           
           CALL noprrp031()
           CLEAR SCREEN
           CALL nomnrp002()
       WHEN OPT =  "2"           
           CALL noprrp032()
           CLEAR SCREEN
           CALL nomnrp002()
       WHEN OPT =  "3"           
           CALL noprrp033()
           CLEAR SCREEN
           CALL nomnrp002()
       WHEN OPT =  "4"           
           CALL noprrp034()
           CLEAR SCREEN
           CALL nomnrp002()
       WHEN OPT = "S" or OPT = "s"
          CLEAR SCREEN
          RETURN
     OTHERWISE 
          CALL nomnrp002()
     END CASE

END FUNCTION