Fórum relatório repetido 2 #155426

procedure TfrmEntRelPagar.BotaoOKClick(Sender: TObject);
begin
QueItPagar.Close;
if (DateEditFinal.Text = ´ / / ´) then
begin
QueItPagar.Sql.Clear;
QueItPagar.Sql.Add(´Select * from ItPagar where Pagamento = ´´+FormatDateTime(´MM/DD/YYYY´,30/12/1899)+´´ and Vencimento >= ´´+FormatDateTime(´MM/DD/YYYY´,DateEditInicial.Date)+´´ order by Vencimento´);
QueItPagar.Open;
end
else
begin
QueItPagar.Sql.Clear;
QueItPagar.Sql.Add(´Select * from ItPagar where Pagamento = ´´+FormatDateTime(´MM/DD/YYYY´,30/12/1899)+´´ and Vencimento >= ´´+FormatDateTime(´MM/DD/YYYY´,DateEditInicial.Date)+´´ and Vencimento <= ´´+FormatDateTime(´MM/DD/YYYY´,DateEditFinal.Date)+´´ order by Vencimento´);
QueItPagar.Open;
end;
if QueItPagar.Eof then
begin
ShowMessage(´Não existe Contas à Pagar para este período´);
LabelMensagem.Font.Color := clWindowText;
LabelMensagem.Caption := ´Tecle F3 para Limpar os Dados, ESC para Fechar a Tela´;
exit;
end;
QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Delete from Relacao´);
QueRelacao.ExecSQL;

QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Select * from Relacao´);
QueRelacao.Open;
QueItPagar.First;
while not QueItPagar.Eof do
begin
QueRelacao.Insert;
QueRelacaoCodPagar.Value := QueItPagarCodPagar.Value;
QueRelacaoCodFornecedor.Value := QueItPagarCodFornecedor.Value;
QueRelacaoParcela.Value := QueItPagarParcela.Value;
QueRelacaoVencimento.Value := QueItPagarVencimento.Value;
QueRelacaoBruto.Value := QueItPagarBruto.Value;
QueRelacao.Post;
QueItPagar.Next;
end;
if EditFornecedor.Text = ´´ then
begin
QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Select * from Relacao order by Vencimento´);
QueRelacao.Open;

end
else
begin
QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Select * from Relacao where CodFornecedor = ´´+EditFornecedor.Text+´´ order by Vencimento´);
QueRelacao.Open;

end;
Application.CreateForm(TfrmRelPagarGeral, frmRelPagarGeral);
frmRelPagarGeral.Visible := False;
frmRelPagarGeral.QuickRep1.Preview;
frmRelPagarGeral.QuickRep1.Refresh;

QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Delete from Relacao´);
QueRelacao.ExecSQL;

QueRelacao.Sql.Clear;
QueRelacao.Sql.Add(´Select * from Relacao´);
QueRelacao.Open;
close;
end;