Fórum Impressao com Filtro no Rave. #246457

{******** CODIGO ABAIXO FILTRA NO BANCO DE DADOS SEM REPETIR OS NOMES ********}
var
 VControle : String;
begin
dm.SQLconexao.First;
while not dm.SQLconexao.Eof do
begin
  If (VControle <> dm.SQLconexao.fieldbyname(´MUNICIPI´).asstring) Then
   Begin
    ComboBox1.items.Add(dm.SQLconexao.fieldbyname(´MUNICIPI´).asstring);
    VControle := dm.SQLconexao.fieldbyname(´MUNICIPI´).asstring;
    dm.SQLconexao.Next;
   End
  Else
    dm.SQLconexao.Next;
End;
End;
{------------------------------------------------------------------------------}

{******** CODIGO ABAIXO ABRE O RAVE REPORT PARA IMPRESSAO  *******}
begin
  RvProject1.Engine := nil;
  RvProject1.Execute;

end;
{------------------------------------------------------------------------------}