database marmotech 
screen
{
               Ano           [k       ]
               Tipo Reporte  [l       ]

               Tipo Presup.  [t]
               Codigo        [a][b][c ][d  ]
}
end
tables
cttb00003
attributes
k   = formonly.p_ano;
l   = formonly.decide type char,upshift,include = ("C","V"),
      comments= "C = CANTIDAD         V = VALOR  ";
t   = formonly.ventas type char,comments =
         " 1 = Presupuesto Local     2 = Presupuesto Exportacion";
a  = formonly.cod_n,comments = "Digite 3,6,9 O En Blanco Para Todos";
b  = formonly.cod_grupo,comments = "Digite Codigo del Producto";
c  = formonly.cod_tipo,comments = "Digite Codigo del Producto";
d  = formonly.cod_sec,comments = "Digite Codigo del Producto";
instructions delimiters " "
end