35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
FORMULARIO : COFMWD002
|
|
OBJETIVO : Desplegar los departamentos que solicitan Requisiciones
|
|
PROGRAMADOR : Ing. Juan Soto.
|
|
FECHA REALIZACION : Septiembre 1, 1992.
|
|
-----------------------------------------------------------------------------
|
|
}
|
|
DATABASE marmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda De Departamentos
|
|
\g-----------------------------------------\g
|
|
Codigo Nombre
|
|
\g-----------------------------------------\g
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
[f1 ] [f2 ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00001
|
|
attributes
|
|
f1 = formonly.departamento,noentry,
|
|
comments = "Elegir Este Registro Con La Tecla <Esc>";
|
|
f2 = adtb00001.nom_dpto,upshift,
|
|
comments = "<Esc> Busca Todos Los Departamentos";
|
|
instructions
|
|
screen record s_desp1[6] (departamento,nom_dpto)
|
|
delimiters " "
|
|
end
|