33 lines
945 B
Plaintext
33 lines
945 B
Plaintext
{
|
|
========================================================================
|
|
FORMULARIO : ACFMWD001
|
|
OBJETIVO : Desplegar los departamnetos que existe en la maestra
|
|
del mismo, usado por ACPRMT001
|
|
AUTOR : Tadeo A. Ferreras
|
|
FECHA : Sept. 29, 1993
|
|
========================================================================
|
|
}
|
|
database eurostone
|
|
screen
|
|
{
|
|
\g--------------------------------------\g
|
|
Dpto. Nombre
|
|
\g--------------------------------------\g
|
|
[f000][f001 ]
|
|
[f000][f001 ]
|
|
[f000][f001 ]
|
|
[f000][f001 ]
|
|
[f000][f001 ]
|
|
[f000][f001 ]
|
|
|
|
}
|
|
end
|
|
tables
|
|
adtb00001
|
|
attributes
|
|
f000 = adtb00001.departamento,noentry;
|
|
f001 = adtb00001.nom_dpto;
|
|
instructions delimiters " "
|
|
screen record dpto1[6](departamento,nom_dpto)
|
|
end
|