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