Erro ao utilizar parametros para um intervalo de datas

Estou tentando gerar um relatório com intervalo de datas, quando coloco a data na Query tudo certo, mas quando utilizo parametros com Edits dá erro, veja abaixo o código:   dmGeral.QryQuantExames2.ParamByName('datai').AsDate := StrToDate(datai.text);
dmGeral.QryQuantExames2.ParamByName('dataf').AsDate := StrToDate(dataf.text);
qrExamesQuantidade.Preview;   O erro está descrito na primeira interação desse chamado.   Aguardo resposta, lembrando que estou utilizando DBExpress e Firebird

Olá amigo,
   Tenta passar os parametros com asString, ao inves de asDate. Pois firebird trabalha com data 11-01-2010, senão estou enganado, tente usar o asString, caso contrario tente fazer um

dmGeral.QryQuantExames2.ParamByName('datai').AsString :=  Formatdatetime('dd-mm-yyyy', DateToStr(EdtDataini.Text));

 Veja se isso não irá resolver teu problema.

Um abraço

Wesley Y

Wesley   Grato pela atenção no atendimento   Tentei fazer como disse, veja abaixo:   dmGeral.QryQuantExames2.ParamByName('datai').AsString :=  Formatdatetime('dd-mm-yyyy', DateToStr(datai.Text));
dmGeral.QryQuantExames2.ParamByName('dataf').AsString :=  Formatdatetime('dd-mm-yyyy', DateToStr(dataf.Text));   Deu o seguinte erro:   [Error] ufrmIntQuantExames.pas(34): There is no overloaded version of 'DateToStr' that can be called with these arguments
[Error] ufrmIntQuantExames.pas(35): There is no overloaded version of 'DateToStr' that can be called with these arguments
[Fatal Error] raiox.dpr(17): Could not compile used unit 'ufrmIntQuantExames.pas'

Wesley   Fiz um teste, em vez de:   dmGeral.QryQuantExames2.ParamByName('datai').AsString :=  Formatdatetime('dd-mm-yyyy', DatetoStr(datai.Text));
dmGeral.QryQuantExames2.ParamByName('dataf').AsString :=  Formatdatetime('dd-mm-yyyy', DatetoStr(dataf.Text));   Uitlizei:   dmGeral.QryQuantExames2.ParamByName('datai').AsString :=  Formatdatetime('dd-mm-yyyy', StrToDate(datai.Text));
dmGeral.QryQuantExames2.ParamByName('dataf').AsString :=  Formatdatetime('dd-mm-yyyy', StrToDate(dataf.Text));     Deu o seguinte erro quando chamo o relatório:   ---------------------------
Debugger Exception Notification
---------------------------
Project raiox.exe raised exception class EAccessViolation with message 'Access violation at address 00578F8B in module 'raiox.exe'. Read of address 000000B0'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help  
---------------------------

Olá amigo,
   Fiz um teste aqui com FB, e consegui da seguinte forma.

  SQLQuery1.Params.ParamByName('DATA_PGTO').AsDate := StrToDate(Edit1.Text);
  SQLQuery1.Open;

  Esta funcionando sem problemas, agora access violation, só acontece quando o objeto não esta criado, ou já foi destruído, veja se este DM que você esta usando não esta criado.

  Um abraço

Wesley Y

Wesley   Criei o DM no form que insere as datas:   procedure TfrmIntQuantExames.FormCreate(Sender: TObject);
begin
dmgeral := Tdmgeral.Create(Self); end; end.   E usei o seguinte código no botão que chama o relatório:   procedure TfrmIntQuantExames.Button1Click(Sender: TObject);
begin dmGeral.QryQuantExames2.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
dmGeral.QryQuantExames2.ParamByName('dataf').AsDate :=  StrtoDate(datai.Text);
dmgeral.cdsQuantExames2.Open;
qrExamesQuantidade.Preview;
end;     Não dá erro algum, somente não retorna nenhum resultado no relatório, se eu colocar a data direto na Query retorna normalmente, veja minha query com os parâmetros:   SELECT DISTINCT a.CODTIPOEXAME, count(*) as total, b.nome,b.numero FROM CHAPAS a, TIPOEXAMES b WHERE a.DATA BETWEEN :datai AND :dataf and a.CODTIPOEXAME = b.COD GROUP BY a.CODTIPOEXAME, b.NOME, b.numero ORDER BY count(*) DESC

Olá amigo,

 Faça as seguintes alterações, e me diga os resultados, caso ocorra erro me avise o mesmo.


procedure TfrmIntQuantExames.FormCreate(Sender: TObject);
begin
  Try
    dmgeral := Tdmgeral.Create(Self);
  Except
    on e : Exception do
    begin 
          ShowMessage('Ao Criar DataModule ' + #13 +
                               E.Message + #13 +)
                               E.ClassName + #13 +
    end;
  End;

end;

end.   E usei o seguinte código no botão que chama o relatório:   procedure TfrmIntQuantExames.Button1Click(Sender: TObject);
begin
 Try
    dmGeral.QryQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
    dmGeral.QryQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);

    dmgeral.cdsQuantExames2.Open;
    ShowMessage('Qtd de Registros Encontradosm : ' + IntToStr(dmgeral.cdsQuantExames2.RecordCount) );

    qrExamesQuantidade.Preview; {Pq isso ? Preview ? Que query é esta qrExamesQuantidade? Você esta dando que comando nesta query }


  Except
    on e : Exception do
    begin 
          ShowMessage('Erro ao abrir SQL ' + #13 +
                               E.Message + #13 +)
                               E.ClassName + #13 +
    end;
  End;
end;


Um abraço

Wesley Y

Wesley   Primeiro peço desculpas pela minha inesperiência, por isso contratei esse serviço.   Fiz o que você disse e du vários erros, não se se estou fazendo algo errado. Veja abaixo, numerei as linhas pra você ver os erros. sobre a "qrExamesEfetuados", não é uma Query é o relatório o QReport que chamo pra gerar o relatório.     31 procedure TfrmIntQuantExames.FormCreate(Sender: TObject);
32  begin
33    Try
34    dmgeral := Tdmgeral.Create(Self);
35    Except
36    on e : Exception do
37    begin 
38          ShowMessage('Ao Criar DataModule ' + #13 +
39                               E.Message + #13 +)
40                               E.ClassName + #13 +
41    end;
42    End;
43    end;
44
45    procedure TfrmIntQuantExames.Button1Click(Sender: TObject);
46   begin
47   Try
48
49    dmGeral.QryQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
50    dmGeral.QryQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);
51
52    dmgeral.cdsQuantExames2.Open;
53    ShowMessage('Qtd de Registros Encontradosm : ' + IntToStr(dmgeral.cdsQuantExames2.RecordCount) );
54
55    qrExamesQuantidade.Preview; {Pq isso ? Preview ? Que query é esta qrExamesQuantidade? Você esta dando que comando nesta query }
56
57
58  Except
59    on e : Exception do
60    begin 
61          ShowMessage('Erro ao abrir SQL ' + #13 +
62                               E.Message + #13 +)
63                               E.ClassName + #13 +
64    end;
65  End;
66  end;
67
68
69    end.         veja os erros:       [Error] ufrmIntQuantExames.pas(39): Expression expected but ')' found
[Error] ufrmIntQuantExames.pas(40): Missing operator or semicolon
[Error] ufrmIntQuantExames.pas(41): Expression expected but 'END' found
[Error] ufrmIntQuantExames.pas(62): Expression expected but ')' found
[Error] ufrmIntQuantExames.pas(63): Missing operator or semicolon
[Error] ufrmIntQuantExames.pas(64): Expression expected but 'END' found
[Fatal Error] ufrmPrincipal.pas(79): Could not compile used unit 'ufrmIntQuantExames.pas'

Olá amigo, primeiramente gostaria de lhe falar que não precisa pedir desculpas, nós estamos aqui para ajudar seja de forma simples ou não, não importa o erro ou se você esta ou não entendendo, o que fazemos é lhe ajudar, ok ?
  Agora eu que peço desculpas pois o código não esta correto. veja as alterações.


procedure TfrmIntQuantExames.FormCreate(Sender: TObject);
begin
  Try
    dmgeral := Tdmgeral.Create(Self);
  Except
    on e : Exception do
    begin 
          ShowMessage('Ao Criar DataModule ' + #13 +
                               E.Message + #13 +
                               E.ClassName );
    end;
  End;

end;

end.   E usei o seguinte código no botão que chama o relatório:   procedure TfrmIntQuantExames.Button1Click(Sender: TObject);
begin
 Try
    dmGeral.QryQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
    dmGeral.QryQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);

    dmgeral.cdsQuantExames2.Open;
    ShowMessage('Qtd de Registros Encontradosm : ' + IntToStr(dmgeral.cdsQuantExames2.RecordCount) );

    qrExamesQuantidade.Preview; {Dúvida, o seu Quick reports esta apontando para o CDSQuantExames2 certo ? Pois se estiver apontando para Query não ira funcionar}

  Except
    on e : Exception do
    begin 
          ShowMessage('Erro ao abrir SQL ' + #13 +
                               E.Message + #13 +
                               E.ClassName );
    end;
  End;
end;

Um Abraço

Wesley Y

Wesley   Funcionou perfeitamente, grato pela atenção.   Para finalizarmos esse suporte, só me tira duas dúvidas:   01- Porque só funciona com o ClientDataSet e a Query desativada, se colocar como true não retorna resultado nenhum?   02 - Porque se gero um relatório agora, se só gera outro reletório com intervalo de datas diferentes se eu fechar a aplicação e abrir novamente?   Agraço. Um abraço.    

Olá amigo em resposta as suas pergunta.
  01- Porque só funciona com o ClientDataSet e a Query desativada, se colocar como true não retorna resultado nenhum?

R : Você esta falando ativar na hora que estiver desenvolvendo, se for isso, é por que você não tem valor nos paremtros da sua query.
  02 - Porque se gero um relatório agora, se só gera outro reletório com intervalo de datas diferentes se eu fechar a aplicação e abrir novamente?

R : Antes de executar teu comando manda dar um CDSCliente.Close, antes de tudo para poder fechar o dataset sacou ?
  Um abraço

Wesley Y

Wesley   Não consegui resolver o problema que te falei sobre não retornar dados na segunda vez que peço o relatório:   Quando coloco o intervalo de datas e peço pra gerar, gera normalmente, de mudo intervalo, gera o mesmo resultado do relatório anterior, mesmo mudando as datas.   Se fecho o form de inserir as datas e abro novamente, aí independente da data não retorna dados nenhum, preciso fechar a aplicação e abrir novamente.   Onde fecho o CDs como você disse?   Fechei no botão de chamar o relatório:       dmgeral.cdsQuantExames2.Close;
    dmGeral.QryQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
    dmGeral.QryQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);
    dmgeral.cdsQuantExames2.Open;
    qrExamesQuantidade.Preview;     Mas parece que é quando fecha o form de inserir as datas, depois reabri-lo que dá o problema.

Olá amigo, seguinte, pelo que estou notando, você usa os parametros da query, e manda abrir o clientdataset, você faz o seguinte, ao inves de passar os parametros pra query, passa para o CLientDataSet.

 - Vá no clientdataset, botão direito e fetchparams.
 -
    dmgeral.cdsQuantExames2.Close;
    dmGeral.cdsQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
    dmGeral.cdsQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);
    dmgeral.cdsQuantExames2.Open;
    qrExamesQuantidade.Preview;

Veja se isso irá resolver o teu problema.

Um abraço

Wesley Y
 

Fiz como você disse na última interação, não resolveu não, somente busou dados na primeira vez. Pra buscar novamente, tenho que fechar a aplicação e abrir novamente. 

OLá amigo, vamos separar os problemas, derrpente temos o problema no teu relatório, ao inves do clientdataset.

Depois do Open faça o seguinte
 
    dmgeral.cdsQuantExames2.Close;
    dmGeral.QryQuantExames2.Params.ParamByName('datai').AsDate :=  StrtoDate(datai.Text);
    dmGeral.QRYQuantExames2.Params.ParamByName('dataf').AsDate :=  StrtoDate(dataf.Text);
    dmgeral.cdsQuantExames2.Open;
     Showmessage('Total de Registro encontrados : ' + IntToStr(cdsQuantExames2.RecordCount));
     // e veja o que iá aparecer
    qrExamesQuantidade.Preview;

Um abraço

Wesley Y

Wesley   Dessa vez não retounou nenhum resultado.     ---------------------------
raiox
---------------------------
Total de Registro encontrados : 0
---------------------------
OK  
---------------------------

Olá amigo,
   Fiz uma aplicação exemplo, para você testar, aqui esta funcionando normalmente, eu usei delphi 2010 e Fb 2.0.

Veja o Link
 
  http://www.4shared.com/file/197849848/1909e65f/Chamado.html

Obs : C:\Chamado, esta é a pagina que tem que estar.

Um abraço

Wesley Y

A realidade da minha aplicação é totalmente diferente da sua. Deixa pra lá isso, futuramente descubro o erro. Obrigado.

Olá amigo,
  Eu fiz um exemplo normal, para você ver como funciona, o que você tem que ver é se o erro não esta em outro lugar, ao inves de estar no seu clientdataset. Por isso fez o exemplo.

Um abraço

Wesley Y