{
-----------------------------------------------------------------------------
 PROGRAMA          : IRMNCS001
 OBJETIVO          : Sub-Menu de Consultas Movimientos del 
                     Sistema de Inventario de Repuestos.
 PROGRAMADOR       : Ing. Juan Fco. Soto
 FECHA REALIZACION : Marzo 2, 1993.   
-----------------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

FUNCTION irmncs001() 
   CLEAR SCREEN 
   CALL pantalla() 
   CALL opciones_irmncs001()
END FUNCTION

FUNCTION opciones_irmncs001()
  OPTIONS
   PROMPT LINE 8,
   ERROR LINE 24

    DISPLAY " Movimientos De Repuestos" AT 6,33
    DISPLAY "irmncs001"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Reporte de Entrada                    irprcs001" AT 10,6 
    #DISPLAY "2- Otros Movimientos                     irprcs031" AT 11,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  irprcs001()
          CLEAR SCREEN
          CALL  irmncs001()
{
       WHEN OPT = "2"
          CALL  irprcs031()
          CLEAR SCREEN
          CALL  irmncs001()
}
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL irmncs001()       
    END CASE
END FUNCTION