database rayovac   
screen
{
   Ano             [f1      ]
   Mes Inicial     [f3]
   Mes             [f2]
   Valor Desde     [v1          ] Valor Hasta [v2            ]
   Vendedor        [v   ]
   Cliente         [c ][d   ]
}
end 
tables 
vetb00002
attributes
v1    = formonly.valor_d;
v2    = formonly.valor_a;
f1    = formonly.p_ano type smallint;
f3    = formonly.p_mes_ini;
f2    = formonly.p_mes type smallint;
v     = vetb00002.sec_vend,comments="Digite Codigo de Vendedor";
c     = vetb00002.tipo_cliente,autonext;           
d     = vetb00002.sec_cliente;           
instructions delimiters " "
end