36 lines
1.1 KiB
Plaintext
36 lines
1.1 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
FORMULARIO : COFMWD001
|
|
OBJETIVO : Desplegar los empleados que solicitan Requisiciones
|
|
PROGRAMADOR : Ing. Juan Soto.
|
|
FECHA REALIZACION : Septiembre 1, 1992.
|
|
-----------------------------------------------------------------------------
|
|
}
|
|
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de Empleados
|
|
\g------------------------------------------\g
|
|
Codigo Nombre
|
|
\g------------------------------------------\g
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
adtb00003
|
|
attributes
|
|
f1 = formonly.codigo,noentry,
|
|
comments = "Elija Este Registro Con La Tecla <Esc";
|
|
f3 = formonly.nom_emp,upshift,comments = "<Esc> Busca Todos Los Empleados";
|
|
instructions
|
|
screen record s_desp[6] (codigo,nom_emp)
|
|
delimiters " "
|
|
end
|
|
|