Files
MBS/PROYECTO/vedir/vefmmt302.per
T

51 lines
2.3 KiB
Plaintext

database marmotech
screen size 24 by 80
{
Ano Para Porcentajes [p1 ]
Fecha Inicial [f15 ] Fecha Inicial [f16 ]
\g------------------------------------------------------------------------------\g
Ven Zona P I L A S Mes %Pres
\g------------------------------------------------------------------------------\g
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[z][k1 ][a][b][c ][d ][d2 ][c1 ][d1 ][b1 ]
[a2 ][a3 ]
}
tables
vetb00016,vetb00002,
intb00001
attributes
a3 = formonly.descrip6,noentry;
f15 = formonly.fecha_in ,noentry;
f16 = formonly.fecha_fi ,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) o Presione Ctrl-W Para Ayuda";
b = vetb00016.cod_grupo,autonext,comments =
"Digite GRUPO codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
c = vetb00016.cod_tipo,autonext,comments =
"Digite TIPO codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
d = vetb00016.cod_sec,autonext,comments =
"Digite SECUENCIA codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
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 o Presione Ctrl-W Para Ayuda";
c1 = vetb00016.mes,autonext,comments =
"Digite Mes En Formato aamm. Ej. 9301";
d1 = formonly.desc_mes,noentry;
instructions
screen record scr_zona[7] (ventas,zona,descrip,cod_n,cod_grupo,cod_tipo,cod_sec,
mes,desc_mes,porciento)
delimiters " "
end