36 lines
1.1 KiB
Plaintext
36 lines
1.1 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
FORMULARIO : IRFMWD068
|
|
OBJETIVO : Desplegar las maquinas
|
|
PROGRAMADOR : Lic. Abner Montalvo
|
|
FECHA REALIZACION : Julio 14, 1998.
|
|
-----------------------------------------------------------------------------
|
|
}
|
|
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda De Maquinarias
|
|
\g-----------------------------------------\g
|
|
Codigo Descripcion
|
|
\g-----------------------------------------\g
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
}
|
|
end
|
|
tables
|
|
irtb00009
|
|
attributes
|
|
f1 = formonly.maquina,noentry,
|
|
comments = "Elegir Este Registro Con La Tecla <Esc>";
|
|
f2 = irtb00009.nombre,upshift,
|
|
comments = "<Esc> Busca Todos Las Maquinas";
|
|
instructions
|
|
screen record s_desp1[6] (maquina,nombre)
|
|
delimiters " "
|
|
end
|
|
|