{
-----------------------------------------------------------------------------
 PROGRAMA          : IPMNCS001
 OBJETIVO          : Menu de Consultas Movimientos del 
                     Sistema de Inventario de Productos.
 PROGRAMADOR       : Juan Fco. Soto
 FECHA REALIZACION : AGOSTO 1997      
 ASESOR            : JOSE ALFREDO PAULINO
-----------------------------------------------------------------------------
}
FUNCTION ipmncs001() 
   CLEAR SCREEN 
   CALL pantalla() 
   CALL opciones_ipmncs001()
END FUNCTION

FUNCTION opciones_ipmncs001()
  DEFINE opt CHAR(2)
  OPTIONS 
    PROMPT LINE 8,
    ERROR LINE 24

    DISPLAY "    Consultas-Movimientos  de Almacen" AT 6,18
    DISPLAY "ipmncs001"                          AT 4,3 ATTRIBUTE(BLUE)
    DISPLAY "1- Movimientos de Inventario      ipprcs041" AT 10,6
    DISPLAY "S- Retorna Menu Anterior"                  AT 16,6 
                ATTRIBUTE(BOLD)

     PROMPT "OPCION: " attribute(BLUE) FOR OPT
      LET opt = UPSHIFT(opt)  clipped 

    CASE     
       WHEN OPT = "1"
          CALL  ipprcs041()
          CLEAR SCREEN
          CALL  ipmncs001()
       WHEN OPT = "S" 
          RETURN
       OTHERWISE
          CALL  ipmncs001()
   END CASE
END FUNCTION