database marmotech
screen
{
               Fecha Inicial [k       ]
               Fecha Final   [p       ]
               Tipo Reporte  [r       ]
               Codigo        [a][b][c ][d  ]
}
end
tables
iptb00002
attributes
k   = formonly.fecha1 type date,format = "dd/mm/yy";
p   = formonly.fecha2 type date,format = "dd/mm/yy";
r   = formonly.decide type char,upshift,include = ("D","R"),comments =
      "     D = Detallado       R = Resumido ";
a  = formonly.cod_n,comments = "Digite Codigo del Producto";
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