49 lines
2.0 KiB
Plaintext
49 lines
2.0 KiB
Plaintext
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Ano Para Porcentajes [p1 ]
|
|
\g----------------------------------------------------------------------------\g
|
|
%
|
|
Ven Zona P I L A S Pres. Mes
|
|
\g----------------------------------------------------------------------------\g
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[z][k1 ][a][b][c ][d ][d2 ][b1 ][c1] [d1 ]
|
|
[a2 ]
|
|
[a3 ]
|
|
}
|
|
tables
|
|
vetb00016,vetb00002,
|
|
intb00001
|
|
attributes
|
|
a3 = formonly.descrip6,noentry;
|
|
p1 = formonly.ano1,autonext,comments =
|
|
"Digite Ano Ej. 1993";
|
|
z = vetb00016.ventas,autonext,comments =
|
|
"Digite 1- LOCAL 2- EXPORTACION";
|
|
a = vetb00016.cod_n,autonext, comments =
|
|
"Digite NIVEL codigo Pto. Terminado (3)";
|
|
b = vetb00016.cod_grupo,autonext,comments =
|
|
"Digite GRUPO codigo Pto. Terminado";
|
|
c = vetb00016.cod_tipo,autonext,comments =
|
|
"Digite TIPO codigo Pto. Terminado";
|
|
d = vetb00016.cod_sec,autonext,comments =
|
|
"Digite SECUENCIA codigo Pto. Terminado";
|
|
a2 = formonly.descrip1,noentry;
|
|
d2 = formonly.descrip,noentry;
|
|
b1 = vetb00016.porciento,autonext,comments =
|
|
"Introduzca el porciento de ventas";
|
|
k1 = vetb00002.zona,autonext,comments =
|
|
"Digite Zona Para El Porciento deseado";
|
|
c1 = vetb00016.mes,autonext;
|
|
d1 = formonly.desc_mes,noentry;
|
|
instructions
|
|
screen record scr_zona[7] (ventas,zona,descrip,cod_n,cod_grupo,cod_tipo,cod_sec,
|
|
porciento,mes,desc_mes)
|
|
delimiters " "
|
|
end
|