Sign in to follow this  
Eder

Quickreport

Recommended Posts

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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

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

muito grato...t+

:D

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this