{
-------------------------------------------------------------------------
 PROGRAMA          : IRMNMT006
 OBJETIVO          : Sub Menu Mantenimiento Movimientos 
                     Inventario de Repuesto.    
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Enero 29, 1993.   
-------------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

FUNCTION irmnmt006()
   CLEAR SCREEN 
   CALL pantalla()
   CALL opciones_irmnmt006()
   END FUNCTION

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

   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

    DISPLAY "   Movimientos De Repuestos       " AT 6,24
    DISPLAY "irmnmt006"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Reporte de Entrada                irprmt006" AT 10,6
    DISPLAY "2- Otros Movimientos de Repuestos    irprmt036" AT 11,6
    #DISPLAY "3- Actualizacion de Documentos       irprmt056" AT 12,6
    DISPLAY "4- Anular Documentos Mvtos Repuestos irprmt066" AT 12,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,"irmnmt006") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  irprmt006()
          CLEAR SCREEN
          CALL  irmnmt006()
       WHEN OPT = "2"
          CALL  irprmt036()
          CLEAR SCREEN
          CALL  irmnmt006()
{
       WHEN OPT = "3" 
          CALL  irprmt056()
          CLEAR SCREEN
          CALL  irmnmt006()
}
       WHEN OPT = "4" 
          CALL  irprmt066()
          CLEAR SCREEN
          CALL  irmnmt006()
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
          CALL  irmnmt006()
    END CASE
END FUNCTION