database marmotech
screen size 24 by 80
{


Cliente        [c1][c12 ][des                             ]
Producto       [a]-[b]-[c ]-[d  ][l                                       ]
Ventas      [e]
Fecha Inicial  [f       ]              Fecha Final [g       ]
-------------------------------------------------------------------------------
                            Cantidad       Precio     Valor 
   Fecha    Factura         En Unidades    Unitario   Monetario 
-------------------------------------------------------------------------------
 [f1      ][f2     ]       [m             ][f3     ][n             ] 
 [f1      ][f2     ]       [m             ][f3     ][n             ] 
 [f1      ][f2     ]       [m             ][f3     ][n             ] 
 [f1      ][f2     ]       [m             ][f3     ][n             ] 
}
end
tables
vetb00002, 
vetb00003
attributes
c1   = vetb00002.tipo_cliente,required;
c12  = vetb00002.sec_cliente,required;
des  = formonly.nombre,noentry;
a    = vetb00003.cod_n, 
       comments = "Digite el codigo del producto";
b    = vetb00003.cod_grupo, 
       comments = "Digite el codigo del producto";
c    = vetb00003.cod_tipo, 
       comments = "Digite el codigo del producto";
d    = vetb00003.cod_sec, 
       comments = "Digite el codigo del producto";
e    = vetb00002.ventas, include = ("1","2","3"), autonext, 
       comments = "1 = Ventas Locales    2 = Ventas de Exportacion 3= Ventas Local USD$";
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"; 
f1   = vetb00002.fecha_factura,format="dd/mm/yy";
f2   = vetb00002.factura;
f3   = vetb00003.precio;
l    = formonly.descrip1, noentry; 
m    = formonly.unidades1, noentry; 
n    = formonly.valor1, noentry; 

instructions
     screen record cs_101[4] (fecha_factura, factura, unidades1, precio, valor1) 
     delimiters " "

end