Files
MBS/PROYECTO/codir/cofmcs005.per
T

46 lines
1.8 KiB
Plaintext

database smarmotech
screen size 24 by 80
{
Codigo: [a ][b ][c ]
Direccion: [d ]
Ciudad: [e ]
Pais: [f ][p ]
Codigo Area: [g ] Telefono: [f003 ] Fax: [f004 ]
Contacto: [h ]
Terminos de Pago: [i ]
\g----------------------------------------------------------------------------\g
Codigo Descripcion Precio Unitario
\g----------------------------------------------------------------------------\g
[j][k][l ][m ][f001 ] [f002 ]
[j][k][l ][m ][f001 ] [f002 ]
[j][k][l ][m ][f001 ] [f002 ]
}
tables
cotb00001,
cotb00015,cotb00018,
intb00001,cotb00024
attributes
a = cotb00001.cod_sp,autonext;
b = cotb00001.cod_sp_sec,autonext;
c = cotb00001.nom_sp,noentry;
d = cotb00001.dir_sp,noentry ;
e = cotb00001.ciu_sp,noentry;
f = cotb00001.cod_pais,noentry;
p = cotb00018.nom_pais,noentry;
g = cotb00001.area_sp,noentry;
f003 = cotb00001.tel_sp,noentry;
f004 = cotb00001.fax_sp,noentry;
h = cotb00001.cont_sp,noentry;
i = cotb00024.descrip_term,noentry;
j = intb00001.cod_n,noentry;
k = intb00001.cod_grupo,noentry;
l = intb00001.cod_tipo,noentry;
m = intb00001.cod_sec,noentry;
f001 = intb00001.descrip_esp,noentry;
f002 = cotb00015.precio,noentry;
instructions
screen record consart[3] (cod_n,cod_grupo,cod_tipo,cod_sec,
descrip_esp,precio)
end