44 lines
1.2 KiB
Plaintext
44 lines
1.2 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
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
|
|
|