Skip to content

Instantly share code, notes, and snippets.

@reinaldorauch
Last active August 29, 2015 14:10
Show Gist options
  • Save reinaldorauch/abcb37acbddd4caf1f45 to your computer and use it in GitHub Desktop.
Save reinaldorauch/abcb37acbddd4caf1f45 to your computer and use it in GitHub Desktop.
procedure TFmRelChequesEmissao.FormCreate(Sender: TObject);
begin
with IbqChequeEmissao do
begin
Active := False;
With FmReports do
begin
ParamByName('st').Value := DtpInicio.Date;
ParamByName('ed').Value := DtpFim.Date;
end;
Active := True;
end;
end;
SELECT
cl.nome,
cl.cnpj,
c.banco,
c.agencia,
c.conta,
c.numero,
c.valor,
c.emissao,
c.alinea
FROM
cheques c
INNER JOIN
clientes cl ON c.cnpj = cl.cnpj
WHERE
c.emissao BETWEEN :st AND :ed
ORDER BY c.emissao;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment