40 lines
1.2 KiB
Plaintext
40 lines
1.2 KiB
Plaintext
|
|
|
|
{
|
|
=============================================================================
|
|
FORMULARIO : INFMWD003
|
|
OBJETIVO : Desplegar los codigos y nombres de la maestra de
|
|
suplidores
|
|
PROGRAMA Q. LO USA : INPRMT020
|
|
AUTOR : Tadeo A. Ferreras
|
|
FECHA : Agosto 30, 1993
|
|
=============================================================================
|
|
}
|
|
DATABASE exterior
|
|
SCREEN
|
|
{
|
|
\g-----------------------------------------------\g
|
|
Codigo Nombre
|
|
\g-----------------------------------------------\g
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
[sp]-[cod ] [nom ]
|
|
}
|
|
end
|
|
tables
|
|
cotb00001
|
|
attributes
|
|
sp = cotb00001.cod_sp,comments = "Digite tipo de Suplidor";
|
|
cod = cotb00001.cod_sp_sec,noentry;
|
|
nom = cotb00001.nom_sp,noentry;
|
|
instructions delimiters " "
|
|
screen record datos_sp1[8](cod_sp,cod_sp_sec,nom_sp)
|
|
end
|
|
|
|
|