Claudemir, obrigado pela ajuda. Fiquei com uma dúvida, se puder complementar eu
agradeço novamente.
Veja: eu tenho um Form chamado SELECAO, onde as variáveis globais são setadas e
onde os vários relatórios são chamados.
Pergunto se a sua dica fica no Form SELECAO no click de chamada do preview ou
no form do relatório junto com a Query?
----- Original Message -----
From: José Claudemir Costa
To: delphi-br@yahoogrupos.com.br
Sent: Friday, June 03, 2005 10:39 PM
Subject: [delphi-br] Res: QuickReport - Como Usar no SQL uma variável global
Espero Ajudar com essa dica;
With qrpRelatorio do begin
Query.Close;
with Query.Sql do begin
Add(' SELECT COUNT (Distinct CSCod) FROM APURAC.db');
Add(' WHERE APCONTROLE = '+ QuotedStr('ATIVO '));
Add(' AND APFases = '+ QuotedStr('F9-FECHADA');
Add(' AND APDtApu >= :QDtDe ');
Add(' AND APDtApu <= :QDtAte');
end;
Query.ParamByName('QDtDe').AsDate := QDtDe;
Query.ParamByName('QDtDe').AsDate := QDtAte;
Query.Open;
PreviewModal;
Free;
end;
-------Mensagem original-------
De: Roberto Wazen
Data: 06/03/05 22:03:39
Para: delphi-br@yahoogrupos.com.br
Assunto: QuickReport - Como Usar no SQL uma variável global
1 - SELECT COUNT (Distinct CSCod) FROM APURAC.db
2- WHERE APCONTROLE = 'ATIVO '
3 - AND APFases = 'F9-FECHADA'
4- AND APDtApu >= QDtDe
5- AND APDtApu <= QDtAte
No QuickReport, até a linha 3, tudo bem, está operativo. Pergunto como é a
sintaxe, para aceitar como parametro QDtDe e QDtAte, que são variáveis
globais de seleção de relatório e que foram setadas em outra unit. No caso
são datas
Obrigado desde já pela ajuda.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço
do Yahoo!.
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 267.3.0 - Release Date: 30/05/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
