36 lines
1.2 KiB
Plaintext
36 lines
1.2 KiB
Plaintext
{
|
|
--------------------------------------------------------------------------
|
|
FORMULARIO : VEFMWD001
|
|
OBJETIVO : Desplegar los empleados (CCPRMT001)
|
|
REALIZADO POR : Lic. Abner Montalvo Z.
|
|
FECHA : Diciembre 7, 1992
|
|
--------------------------------------------------------------------------
|
|
}
|
|
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de Empleados
|
|
\g-----------------------------------------------------------\g
|
|
Codigo Nombre
|
|
\g-----------------------------------------------------------\g
|
|
[j ] [f2 ]
|
|
[j ] [f2 ]
|
|
[j ] [f2 ]
|
|
[j ] [f2 ]
|
|
[j ] [f2 ]
|
|
[j ] [f2 ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
adtb00003
|
|
attributes
|
|
j = adtb00003.num_emp,noentry;
|
|
f2 = formonly.descrip6, upshift,
|
|
comments = " <Esc> Busca todos los Empleados";
|
|
instructions
|
|
screen record s_empleados[6] (num_emp,descrip6)
|
|
delimiters " "
|
|
end
|
|
|