{
----------------------------------------------------------------------------
 PROGRAMA          : ISMNMT06
 OBJETIVO          : Sub Menu Mantenimiento Movimientos 
                     Inventario de Suministro.   
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Octubre 22, 1993.
----------------------------------------------------------------------------
 PROGRAMADOR       : Lic. Abner Montalvo
 FECHA REALIZACION : Marzo 19, 1999. 

 OBJETIVO          : Utilizar COMMAND para los menues de este sistema.
                     Optimizar el procedimiento de llamadas de programas.
---------------------------------------------------------------------------
}
DATABASE rayovac    
DEFINE bandera,numero_msg INTEGER

FUNCTION ismnmt06()
   CLEAR SCREEN 
   CALL opciones_ismnmt006()
END FUNCTION    

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

     OPTIONS 
       PROMPT LINE 8,
       ERROR LINE 24
       CALL desplega_mnmt006()

    MENU "Mantenimientos: " 
       COMMAND "1"
          CALL seg000(1,"ismnmt006") RETURNING luz
          IF luz = "azul" THEN
             RUN "fglrun %FGLPROG%\\isprmt016()"
             CALL desplega_mnmt006()
          END IF 

       COMMAND "2"
          CALL seg000(2,"ismnmt006") RETURNING luz
          IF luz = "azul" THEN
             RUN "fglrun %FGLPROG%\\isprmt036()"
             CALL desplega_mnmt006()
          END IF 

       COMMAND "3"
          CALL seg000(3,"ismnmt006") RETURNING luz
          IF luz = "azul" THEN
             RUN "fglrun %FGLPROG%\\isprmt056()"
             CALL desplega_mnmt006()
          END IF 

       COMMAND KEY("R") "Retornar" "Retorna Menu Principal"
          EXIT MENU

    END MENU
END FUNCTION

FUNCTION desplega_mnmt006()
    CLEAR SCREEN 
    CALL pantalla()
    DISPLAY "     Movimientos De Almacen          " AT 6,22 ATTRIBUTE(BLACK)
    DISPLAY "ismnmt006"                          AT 4,3 ATTRIBUTE(RED)
    DISPLAY "1- Suministros Devueltos al Suplidor   isprmt016" AT 10,1
    DISPLAY "2- Requisicion Suministros             isprmt036"  AT 11,1
    DISPLAY "3- Actualizacion de Documentos         isprmt056"  AT 12,1
#   DISPLAY "R- Retornar Menu Anterior                      "  AT 15,1
#   ATTRIBUTE (BLACK)
END FUNCTION