database smarmotech
screen size 24 by 80
{
         Ano           [an  ]
         Ventas        [f]
         Codigo        [a]-[b]-[c ]-[d  ]
}
end
tables
intb00001
attributes
f   = formonly.p_venta type char,comments =
"1- Local      2-  Exportacion",include=("1","2");
an = formonly.p_ano;
a   = intb00001.cod_n;
b   = intb00001.cod_grupo;
c   = intb00001.cod_tipo;
d   = intb00001.cod_sec;
  instructions
     delimiters " "
end