49 lines
1.9 KiB
Plaintext
49 lines
1.9 KiB
Plaintext
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
|
|
Producto [a]-[b]-[c ]-[d ] Ventas [e]
|
|
Fecha Inicial [f ] Fecha Final [f1 ]
|
|
Zona o Pais [g ]
|
|
-------------------------------------------------------------------------------
|
|
Cantidad Valor
|
|
Producto Descripcion En Unidades Monetario
|
|
-------------------------------------------------------------------------------
|
|
[h ][l ][m ][n ]
|
|
[h ][l ][m ][n ]
|
|
[h ][l ][m ][n ]
|
|
[h ][l ][m ][n ]
|
|
}
|
|
end
|
|
tables
|
|
vetb00002,
|
|
vetb00003
|
|
attributes
|
|
a = vetb00003.cod_n, autonext,
|
|
comments = "Construya criterio de seleccion para el producto";
|
|
b = vetb00003.cod_grupo, autonext,
|
|
comments = "Construya criterio de seleccion para el producto";
|
|
c = vetb00003.cod_tipo, autonext,
|
|
comments = "Construya criterio de seleccion para el producto";
|
|
d = vetb00003.cod_sec, autonext,
|
|
comments = "Construya criterio de seleccion para el producto";
|
|
e = vetb00002.ventas, include = ("1","2"), autonext,
|
|
comments = "1 = Ventas Locales 2 = Ventas de Exportacion";
|
|
f = formonly.fech_in type date, format = "dd/mm/yy", autonext,
|
|
comments = "Digite la Fecha Inicial";
|
|
f1 = formonly.fech_fi type date, format = "dd/mm/yy", autonext,
|
|
comments = "Digite la Fecha Final";
|
|
g = vetb00002.zona, autonext,
|
|
comments = "Construya criterio de seleccion para Zona(s) o Pais(es)";
|
|
h = formonly.codigo1, noentry;
|
|
l = formonly.descrip1, noentry;
|
|
m = formonly.unidades1, noentry;
|
|
n = formonly.valor1, noentry;
|
|
|
|
instructions
|
|
screen record cs_103[4] (codigo1, descrip1, unidades1, valor1)
|
|
delimiters " "
|
|
|
|
end
|