database marmotech
screen size 24 by 80
{

         Ano Presupuesto    [f1  ]
         Mes a Procesar     [f2  ]
         Tipo de Venta      [t]
         Producto Terminado [b]-[c]-[d ]-[e  ] 

}
end
tables
vetb00017 
attributes
f1  = formonly.ano type smallint, autonext, 
      comments="Digite el ano del Presupuesto"; 
f2  = formonly.mes type smallint, autonext, 
      comments="Digite el mes a procesar. Use el formato: aamm"; 
t   = formonly.ventas,autonext,
      comments="1 - Ventas Locales      2 - Ventas Exportacion      <ENTER> - Ambas";
b   = vetb00017.cod_n;
c   = vetb00017.cod_grupo;
d   = vetb00017.cod_tipo;
e   = vetb00017.cod_sec;

instructions
delimiters " "
end