47 lines
1.9 KiB
Plaintext
47 lines
1.9 KiB
Plaintext
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
Ano [a ]
|
|
Periodo Inicial [f1 ] Periodo Final [f2 ]
|
|
\g----------------------------------------------------------------------------\g
|
|
Ventas P I L A S Meses Cantidades Valor
|
|
\g----------------------------------------------------------------------------\g
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[m][p1 ][b][c][d ][e ][f0 ][h ][f6 ][f3 ]
|
|
[k ]
|
|
}
|
|
end
|
|
tables
|
|
vetb00017,vetb00018
|
|
attributes
|
|
a = formonly.ano2,autonext;
|
|
f1 = vetb00018.fecha_in,noentry;
|
|
f2 = vetb00018.fecha_fi,noentry;
|
|
m = vetb00017.ventas,autonext,
|
|
comments = "Digite 1 - Local, 2 - Exportacion";
|
|
b = vetb00017.cod_n,autonext,
|
|
comments = "Presione Ctrl-W o digite el nivel del producto terminado";
|
|
c = vetb00017.cod_grupo,autonext,
|
|
comments = "Presione Ctrl-W o digite el grupo del producto terminado";
|
|
d = vetb00017.cod_tipo,autonext,
|
|
comments = "Presione Ctrl-W o digite el tipo del producto terminado";
|
|
e = vetb00017.cod_sec,autonext,
|
|
comments = "Presione Ctrl-W o digite la secuencia del producto terminado";
|
|
k = formonly.descri_p,noentry;
|
|
f0 = vetb00017.mes,autonext;
|
|
h = formonly.descrip_mes,noentry;
|
|
f6 = vetb00017.cantidad,autonext;
|
|
f3 = vetb00017.valor;
|
|
p1 = formonly.descrip1,noentry;
|
|
instructions
|
|
screen record scr_pres[7] (ventas,descrip1,cod_n,cod_grupo,cod_tipo,cod_sec,mes,
|
|
descrip_mes,cantidad,valor)
|
|
|
|
delimiters " "
|
|
end
|