30 lines
839 B
Plaintext
30 lines
839 B
Plaintext
schema smarmotech
|
|
SCREEN SIZE 24 by 80
|
|
{
|
|
Busqueda de Proveedor
|
|
\g--------------------------------------------\g
|
|
Codigo Nombre
|
|
\g--------------------------------------------\g
|
|
[i ][j ] [f2 ]
|
|
[i ][j ] [f2 ]
|
|
[i ][j ] [f2 ]
|
|
[i ][j ] [f2 ]
|
|
[i ][j ] [f2 ]
|
|
[i ][j ] [f2 ]
|
|
}
|
|
end
|
|
|
|
tables
|
|
cotb00001
|
|
attributes
|
|
i = cotb00001.cod_sp,noentry;
|
|
j = cotb00001.cod_sp_sec,noentry;
|
|
f2 = cotb00001.nom_sp,upshift,
|
|
comments = " <Esc> Busca todos los Clientes";
|
|
|
|
instructions
|
|
screen record s_suplid[6] (cod_sp,cod_sp_sec,nom_sp)
|
|
delimiters " "
|
|
end
|
|
|