{
-------------------------------------------------------------------------------
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