25 lines
665 B
Plaintext
25 lines
665 B
Plaintext
|
|
database rayovac
|
|
screen size 24 by 80
|
|
{
|
|
Maestra de Procedencia de Depositos
|
|
\g----------------------------------------------
|
|
Procedencia Descripcion
|
|
\g----------------------------------------------
|
|
[f0 ] [f002 ]
|
|
[f0 ] [f002 ]
|
|
[f0 ] [f002 ]
|
|
[f0 ] [f002 ]
|
|
}
|
|
end
|
|
tables
|
|
tetb00002
|
|
attributes
|
|
f0 = tetb00002.procedencia,
|
|
comments = "<Esc> Asigna el valor encontrado al valor deseado";
|
|
f002 = tetb00002.descripcion,noentry;
|
|
instructions
|
|
screen record s_procedencia[4] (procedencia,descripcion)
|
|
delimiters " "
|
|
end
|