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

MAIN
   DEFER INTERRUPT
   CALL opciones_irmncs000()
END MAIN 

FUNCTION opciones_irmncs000()
DEFINE p_user CHAR(9)
DEFINE luz CHAR(4)

  OPTIONS 
    PROMPT LINE 8,
    ERROR LINE 24

  CALL pantalla() 

    DISPLAY "            Consultas              " AT 6,22
    DISPLAY "irmncs000"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Movimientos De Repuestos      irmncs001" AT 10,6 
    DISPLAY "2- Maestra de Repuestos          irprcs004" AT 11,6
    DISPLAY "3- Balance - Repuestos           irprcs006" AT 12,6
    DISPLAY "4- Consumo de Repuesto x Maquina irprcs007" AT 13,6
    DISPLAY "S- Retorna Menu Anterior"                  AT 15,6
             ATTRIBUTE (BOLD) 
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,"irmncs000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  irmncs001()
          CLEAR SCREEN
          CALL  opciones_irmncs000()               
       WHEN OPT = "2"
          CALL  irprcs004()
          CLEAR SCREEN
          CALL  opciones_irmncs000()               
       WHEN OPT = "3"
          CALL  irprcs006()
          CLEAR SCREEN
          CALL  opciones_irmncs000()
       WHEN OPT = "4"
          CALL  irprcs007()
          CLEAR SCREEN
          CALL  opciones_irmncs000()
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
          CALL  opciones_irmncs000()
    END CASE
END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(8),
          hora char(5) 
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
    DISPLAY " M A R M O T E C H, S. A." AT 4,27
            ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema Inventario de Repuestos"     AT 5,24
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
#   CALL fgl_drawbox(1,79,22,1)
END FUNCTION  

FUNCTION integridad()
         IF sqlca.sqlcode < 0 THEN
             LET numero_msg = sqlca.sqlcode
             CALL msg(numero_msg)
              DISPLAY numero_msg AT 23,70
            LET bandera = 1    
            SLEEP 2
            RETURN
        END IF
END FUNCTION