35 lines
1.1 KiB
Plaintext
35 lines
1.1 KiB
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : ADFMWD001
|
|
OBJETIVO : Pantalla que muestra los departamentos de la empresa
|
|
Es utilizada por: ADPRMT010,ADPRMT017,ADPRMT018
|
|
PROGRAMADOR : Ing. Betania Guerrero Perez
|
|
FECHA REALIZACION : Junio 24, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
SCHEMA smarmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de Departamentos
|
|
\g-----------------------------------------\g
|
|
Codigo Descripcion
|
|
\g-----------------------------------------\g
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
[f1 ] [f3 ]
|
|
}
|
|
end
|
|
tables
|
|
adtb00001
|
|
attributes
|
|
f1 = adtb00001.departamento,autonext;
|
|
f3 = adtb00001.nom_dpto,upshift,
|
|
comments = "<Esc> Busca Todos Los Departamentos";
|
|
instructions
|
|
screen record s_depto[6] (departamento,nom_dpto)
|
|
delimiters " "
|
|
end
|