{
---------------------------------------------------------------------------
 PROGRAMA          : INMNRP001
 OBJETIVO          : Menu de Reporte del Sistema de Inventario 
                     de Materia Prima para el manejo de Ley 69.
 PROGRAMADOR       : Tadeo A. Ferreras.
 FECHA REALIZACION : Julio 22, 1992. 
---------------------------------------------------------------------------
}
FUNCTION inmnrp001()
   CLEAR SCREEN 
   CALL opciones_inmnrp001()
   END FUNCTION

FUNCTION opciones_inmnrp001()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
  DEFINE opt CHAR(2),
         formulario CHAR(70)

    OPTIONS
       PROMPT LINE 8,
       ERROR LINE 24

    CALL pantalla()
    LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
    DISPLAY "inmnrp001"                          AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY "Reportes (Ley-69)" AT 6,31
    DISPLAY "1- Movimientos de las Resoluciones inprrp017" AT  9,6
    DISPLAY "2- Movimientos de las Fianzas      inprrp018" AT 10,6
    DISPLAY "3- Validacion de las Fianzas       inprrp019" AT 11,6
    DISPLAY "4- Validacion de las Resoluciones  inprrp020" AT 12,6
    DISPLAY "5- Validacion de Verif. de Factura inprrp021" AT 13,6
    DISPLAY "6- Solicitud de Exoneracion        inprrp022" AT 14,6
    DISPLAY "7- Validacion de la Formula        inprrp023" AT 15,6
    DISPLAY "8- Diferencia Invent. Real-Ley 69  inprrp025" AT 16,6
    DISPLAY "9- Resumen Mtos. Fianzas           inprrp040" AT 17,6
    DISPLAY "S- Retorna Menu Anterior                    " AT 20,6
             ATTRIBUTE(BOLD)
  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,"inmnrp001") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  inprrp017()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "2"
          CALL  inprrp018()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "3"
          CALL  inprrp019()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "4"
          CALL  inprrp020()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "5"
          CALL  inprrp021()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "6"
          CALL  inprrp022()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "7"
          CALL  inprrp023()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "8"
          CALL  inprrp025()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "9"
          CALL  inprrp040()
          CLEAR SCREEN
          CALL  opciones_inmnrp001()
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_inmnrp001()       
    END CASE
END FUNCTION