{
----------------------------------------------------------------------------
 PROGRAMA          : INMNMT006
 OBJETIVO          : Sub Menu Mantenimiento Movimientos 
                     Inventario de Materia Prima.
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Agosto 06, 1992.
 MODIFICACION      : Aceptar Mas de 9 opciones.
 FECHA MODIFICACION: Octubre 22, 1992.
 MODIFICADO POR    : Juan Fco. Soto.
----------------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"

FUNCTION inmnmt006()
   CLEAR SCREEN 
   CALL opciones_inmnmt006()
END FUNCTION

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

     OPTIONS 
       PROMPT LINE 8,
       ERROR LINE 24

   CALL pantalla()
    LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
    DISPLAY "Movimientos De Almacen          " AT 6,29
    DISPLAY "inmnmt006"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Materiales Devueltos al Suplidor   inprmt016"  AT 10,6
    DISPLAY "2- Materiales Devueltos de Produccion inprmt026"  AT 11,6
    DISPLAY "3- Requisicion Materiales             inprmt036"  AT 12,6
    DISPLAY "4- Otros Movimientos de Materia Prima inprmt046"  AT 13,6
  #  DISPLAY "5- Actualizacion de Documentos        inprmt056"  AT 14,6
    DISPLAY "6- Anular Documentos                  inprmt066"  AT 15,6
    #DISPLAY "7- Reporte de Entrada                 inprmt006"  AT 16,6
    DISPLAY "S- Retornar Menu Anterior                      "  AT 17,6
    ATTRIBUTE (blue)

    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,"inmnmt006") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  inprmt016()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
       WHEN OPT = "2"
          CALL  inprmt026()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
       WHEN OPT = "3"
          CALL  inprmt036()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
       WHEN OPT = "4"
          CALL  inprmt046()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
       WHEN OPT = "5"
  #        CALL  inprmt056()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
       WHEN OPT = "6"
          CALL  inprmt066()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
{
       WHEN OPT = "7"
          CALL  inprmt006()
          CLEAR SCREEN
          CALL  opciones_inmnmt006()
}
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_inmnmt006()       
    END CASE
END FUNCTION