Files
MBS/PROYECTOS/irdir/irfmcs004.per
T

53 lines
2.0 KiB
Plaintext

database smarmotech
screen size 24 by 80
{
Codigo: [e]-[f]-[g ]-[h ]Descripcion Espanol [k ]
Descripcion Ingles [k1 ]
\g------------------------------------------------------------------------------
C o d i g o Existencia Dia Llegada Precio Prom. Valor
\g-------------------------------------------------------------------------------\g
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
[a]-[b]-[c ]-[d ][a4 ] [m ] [a5 ] [a6 ]
Descrip Esp: [a2 ] Unidad: [a3 ]
Descrip Ing: [a7 ]
}
tables
irtb00002,
intb00002,
cotb00015
attributes
e = irtb00002.cod_n,autonext,
comments = "Digite el NIVEL";
f = irtb00002.cod_grupo,autonext,
comments = "Digite el GRUPO";
g = irtb00002.cod_tipo,autonext,
comments = "Digite el TIPO";
h = irtb00002.cod_sec,autonext,
comments = "Digite la SECUENCIA";
k = irtb00002.descrip_esp,upshift;
k1 = irtb00002.descrip_ing,upshift;
a = formonly.cod_n1,noentry;
b = formonly.cod_grupo1,noentry;
c = formonly.cod_tipo1,noentry;
d = formonly.cod_sec1,noentry;
a2 = formonly.descrip_esp1,noentry;
a3 = irtb00002.unidad_med,noentry;
a4 = intb00002.existencia,noentry;
m = intb00002.dia_llegada,noentry;
a5 = cotb00015.precio,noentry;
a6 = formonly.valor,noentry;
a7 = formonly.descrip_esp2,noentry;
instructions
delimiters " "
screen record consart[3] (cod_n1,cod_grupo1,cod_tipo1,cod_sec1,
descrip_esp1,unidad_med,existencia,dia_llegada,precio,
descrip_esp2,valor)
end