Quickreport

[Eder]

Ola..pessoal..

Montei um relatorio aparentemente simples porem o relatorio duplica informação ou seja dados

Por favor veja o código:

procedure TFormRCompra1.EncartaButton1Click(Sender: TObject);

var Txt:String;

begin

If DateTimePicker2.Date < DateTimePicker1.Date Then

begin

ShowMessage('Intervalo de datas Inválido, a data Inicial é maior que a data Final!');

DateTimePicker2.Date := DateTimePicker1.Date;

exit;

end;

Txt := 'select * from LANCA, CLIENTES, UNIFORME where '+

'(DATA between :datai and :dataf) '+

'AND ((LANCA.CODFUN IS NULL) OR (LANCA.CODFUN = CLIENTES.CODIGO)) '+

'AND (LANCA.CODUNI = UNIFORME.CODIGO) '+

'AND (LANCA.CV LIKE ''COMPRA'') order by CLIENTES.NOME, LANCA.DATA, LANCA.CODIGO';

formRCompra.Query1.Close;

formRCompra.Query1.SQL.Text := Txt;

formRCompra.Query1.ParamByName('datai').AsDate := DateTimePicker1.Date;

formRCompra.Query1.ParamByName('dataf').AsDate := DateTimePicker2.Date;

formRCompra.Query1.Open;

//

if FormRCompra.Query1.IsEmpty Then

begin

ShowMessage('Nenhum Registro Encontrado!');

exit;

end;

//

formRCompra.quickrep1.Preview;

end;

Para entender melhor coloquei a imagem do relatorio aqui logo abaixo:

IMAGEM DO RELATORIO DUPLICADO

[Progr'amador]

Olá eder,

Deva está faltando relacionar alguna tabela, não consegui entender direito sua select,

mas tenta usar o distinct

assim:

select distinct * from...

o problema deve estar nessa linha:

'AND ((LANCA.CODFUN IS NULL) OR (LANCA.CODFUN = CLIENTES.CODIGO)) '+

{a imagem do seu relatório não abriu aqui, deu erro: página fora do ar}

Abs. Progr'amador.

[Eder]

amigo..deu certo. retirei a referencia do arquivo de clientes da select (não precisava dele)....ai funcionou...

muito grato...t+

:D