36 lines
1.3 KiB
Plaintext
36 lines
1.3 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
FORMULARIO : COFMWD003
|
|
OBJETIVO : Desplegar los bienes y/o servicos de la empresa
|
|
PROGRAMADOR : Ing. Juan Soto.
|
|
FECHA REALIZACION : Septiembre 1, 1992.
|
|
-----------------------------------------------------------------------------
|
|
}
|
|
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda De Bienes/Servicios
|
|
\g------------------------------------------------------\g
|
|
Codigo Nombre
|
|
\g------------------------------------------------------\g
|
|
[f1 ] [f2 ][n1 ]
|
|
[f1 ] [f2 ][n1 ]
|
|
[f1 ] [f2 ][n1 ]
|
|
[f1 ] [f2 ][n1 ]
|
|
[f1 ] [f2 ][n1 ]
|
|
[f1 ] [f2 ][n1 ]
|
|
}
|
|
end
|
|
tables
|
|
intb00001
|
|
attributes
|
|
f1 = formonly.codigo,noentry,
|
|
comments = "Elegir Este Registro Con La Tecla <Esc>";
|
|
f2 = formonly.descrip_esp,upshift,
|
|
comments = "<Esc> Busca Todos Los Bienes/Servicios";
|
|
n1 = formonly.unidad_med,noentry;
|
|
instructions
|
|
screen record s_desp2(codigo,descrip_esp,unidad_med)
|
|
delimiters " "
|
|
end
|