73 lines
2.3 KiB
Plaintext
73 lines
2.3 KiB
Plaintext
{
|
|
----------------------------------------------------------------------------
|
|
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
|