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

FUNCTION opciones_inmnmt003()
  DEFINE opt CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

    OPTIONS
       PROMPT LINE 8,
       ERROR LINE 24

    CALL pantalla()
    DISPLAY "inmnmt003"                          AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY "Mantenimientos (Ley-69)" AT 6,28
    DISPLAY "1- Formula Produccion de Pilas (INDOTEC) inprmt017" AT  9,6
    DISPLAY "2- Solicitud de Exoneracion              inprmt011" AT 10,6
    DISPLAY "3- Aprobacion de Solicitud (Resolucion)  inprmt012" AT 11,6
    DISPLAY "4- Fianzas                               inprmt014" AT 12,6
    DISPLAY "5- Verificacion de Exportacion de Pilas  inprmt015" AT 13,6
    DISPLAY "6- Catalogo Bienes y Servicios (Ley-69)  inprmt018" AT 14,6
    DISPLAY "7- Internamiento de Materiales Locales   inprmt010" AT 15,6
    DISPLAY "8- Datos Adicionales A Las Fianzas       infmmt024" AT 16,6
    DISPLAY "S- Retorna Menu Anterior                  " AT 18,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,"inmnmt003") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  inprmt017()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "2"
          CALL  inprmt011()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "3"
          CALL  inprmt012()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "4"
          CALL  inprmt014()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "5"
          CALL  inprmt015()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "6"
          CALL  inprmt018()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "7"
          CALL  inprmt010()
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "8"
          RUN "sperform infmmt024"
          CLEAR SCREEN
          CALL  opciones_inmnmt003()
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_inmnmt003()       
    END CASE
END FUNCTION