-----x----- Cristiano Rodrigo Gomes escreveu: (...) AGORA, se no Segundo SQL eu passar algum parametro está dando erro, por exemplo.
........................... DM.SQLQ_Lancamentos.Close; DM.SQLQ_Lancamentos.SQL.Clear; DM.SQLQ_Lancamentos.SQL.Add('SELECT * FROM TABE_LANC WHERE (LANC_DATA < :PARAM1 AND CONT_CODI = :PARAM2) ORDER BY LANC_DATA'); DM.SQLQ_Lancamentos.ParamByName('PARAM1').AsDate := EditDATA_INIC.Date; DM.SQLQ_Lancamentos.ParamByName('PARAM2').AsInteger := EditCONT_CODI.AsInteger; DM.SQLQ_Lancamentos.Open; saldo := 0; While not DM.SQLQ_Lancamentos.Eof do begin saldo := saldo + (DM.SQLQ_LancamentosLANC_RECE.AsCurrency - DM.SQLQ_LancamentosLANC_PAGA.AsCurrency); DM.SQLQ_Lancamentos.Next; end; DM.SQLQ_Lancamentos.Close; DM.SQLQ_Lancamentos.SQL.Clear; DM.SQLQ_Lancamentos.SQL.Add('SELECT * FROM TABE_LANC WHERE (LANC_DATA >= :PARAM1 AND LANC_DATA <= :PARAM2 AND CONT_CODI = :PARAM3) ORDER BY LANC_DATA'); DM.SQLQ_Lancamentos.ParamByName('PARAM1').AsDate := EditDATA_INIC.Date; DM.SQLQ_Lancamentos.ParamByName('PARAM2').AsDate := FormLancamentosPar001.EditDATA_FINA.Date; DM.SQLQ_Lancamentos.ParamByName('PARAM3').AsInteger := FormLancamentosPar001.EditCONT_CODI.AsInteger; DM.SQLQ_Lancamentos.Open; Application.CreateForm(TFormLancamentosRel001, FormLancamentosRel001); FormLancamentosRel001.RlReport1.Preview(); FormLancamentosRel001.Release; ........................... -----x----- [Welson] Já tentou rodar essa segunda query direto no banco de dados ?! Pode ser que vc esteja fazendo a query errada, saca ?! E mais, ao inves de usar os operadores ">=", "<=" para comparar datas, procure usar sempre o "BETWEEN". Um abraço... até a vista. ================================= "Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram." Alexander Graham Bell ================================= Welson de Avelar Soares Filho Programador Delphi Gemini Sistemas <www.geminisistemas.com.br> Juiz de Fora - Minas Gerais ================================= --------------------------------- Yahoo! Search Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil. [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] 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