50 lines
1.9 KiB
Plaintext
50 lines
1.9 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
FORMULARIO : VEFMCS102
|
|
OBJETIVO : Consulta Ventas de Productos por Vendedor, Tipo de Venta y
|
|
Fecha (VEPRCS102)
|
|
PROGRAMADOR : Lic. Abner Montalvo Zapata
|
|
FECHA REALIZACION : Febrero 3, 1993
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Vendedor [b ][c ]
|
|
Ventas [e]
|
|
Fecha Inicial [f ] Fecha Final [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
|
|
|
|
attributes
|
|
b = vetb00002.sec_vend, autonext,
|
|
comments = "Digite el codigo del Vendedor o Ctrl-W para busqueda";
|
|
c = formonly.descrip6, noentry;
|
|
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";
|
|
g = formonly.fech_fi type date, format = "dd/mm/yy", autonext,
|
|
comments = "Digite la Fecha Final";
|
|
h = formonly.codigo1, noentry;
|
|
l = formonly.descrip1, noentry;
|
|
m = formonly.unidades1, noentry;
|
|
n = formonly.valor1, noentry;
|
|
|
|
instructions
|
|
screen record cs_102[4] (codigo1,descrip1, unidades1, valor1)
|
|
delimiters " "
|
|
|
|
end
|