{
---------------------------------------------------------------------------
 PROGRAMA          : IRMNRP001
 OBJETIVO          : Menu de Reportes del Sistema 
                     de Inventario de Repuestos (Continuacion).
 PROGRAMADOR       : Juan Fco. Soto.   
 FECHA REALIZACION : Febrero 20, 1995.
---------------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

FUNCTION irmnrp001() 
   CLEAR SCREEN 
   CALL opciones_irmnrp001()
END FUNCTION

FUNCTION opciones_irmnrp001()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

   CALL pantalla()

   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

    DISPLAY "             Reportes              " AT 6,22
    DISPLAY "irmnrp001"                        AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1-Formulaciones de Repuestos Nuevas  irprrp040" AT 10,1 
    DISPLAY " 2-Ranking de Uso de Repuestos        irprrp041" AT 11,1 
    DISPLAY " S-Retorna Menu Anterior      " AT 23,20 ATTRIBUTE(BOLD)

    LABEL vuelve:
     PROMPT "OPCION: " attribute(blue) 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,"irmnrp001") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF
  
    CASE     
       WHEN OPT = "1"
          CALL  irprrp040()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "2"
          CALL  irprrp041()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
{      WHEN OPT = "3"
          CALL  irprpc001()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "4"
          CALL  irprrp035()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "5"
          CALL  irprrp036()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "6"
          CALL  irprrp037()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "7"
          CALL  irprrp038()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
       WHEN OPT = "8"
          CALL  irprrp040()
          CLEAR SCREEN
          CALL  opciones_irmnrp001()
}      WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_irmnrp001()
    END CASE
END FUNCTION