Olá pessoal, estou tentando criar meu primeiro relatório pelo Fortes e está dando o seguinte erro:
DBExpress Error: Operation Not Supported Se eu deixar os comandos como estão abaixo dão certo, mas se eu passar parametros pro SQL dá erro então deixei das duas formas a primeira sem passar parametro e a segund com parametro. Se alguém puder me ajudar. =============================================== 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 ORDER BY LANC_DATA'); DM.SQLQ_Lancamentos.Open; Application.CreateForm(TFormLancamentosRel001, FormLancamentosRel001); FormLancamentosRel001.RlReport1.Preview(); FormLancamentosRel001.Release; =============================================== 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; ..................................................................................................... [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