Fórum dificuldade com SP #52049

Colegas,

Estou com um problema e gostaria de saber o q estou fazendo de errado.

Tenho a seguinte SP que seleciona os cupons emitidos em uma determinada data e que estejam entre os valores passados.


begin
FOR SELECT DATA, GERFCE, DOCUMENTO, SUM(SUBTOTAL), COUNT(PRODUTO)
FROM MOVIMENTO
WHERE DATA BETWEEN :DATA_INICIAL AND :DATA_FINAL AND
GERFCE = :ECF AND FLAG = 0
GROUP BY DATA, GERFCE, DOCUMENTO
HAVING SUM(SUBTOTAL) BETWEEN :VALOR1 AND :VALOR2
ORDER BY DOCUMENTO
INTO :data, :gerfce, :documento, :totalcupom, :qtditems DO
suspend;
end

Passo os parametros: 17-numero da ecf
25/05/2005 - data inicial/final
139,24-(0,03) - valor inicial
139,24+(0,03) - valor final

* os tres centavos equivalem a diferença de
arredondamento para menos ou para mais.

A dificuldade que estou tendo é a seguinte:

executando a SP pelo IBExpert ela me retorna:

DATA GERFCE DOCUMENTO TOTALCUPOM QTDITEMS
25/05/2005 17 9978 139,24 46

isso é o correto.

Executando pela minha aplicação tenho:

dmMaster.IBSPSelecionaCupom.ParamByName(´ECF´).Value :=
dmMaster.IBDNFSaidaECF.Value;
dmMaster.IBSPSelecionaCupom.ParamByName(´DATA_INICIAL´).Value:=
dmMaster.IBDNFSaidaDATACUPOMFISCAL.Value;
dmMaster.IBSPSelecionaCupom.ParamByName(´DATA_FINAL´).Value:=
dmMaster.IBDNFSaidaDATACUPOMFISCAL.Value;
dmMaster.IBSPSelecionaCupom.ParamByName(´VALOR1´).Value :=
(dmMaster.IBDNFSaidaVALORCUPOMFISCAL.Value - 0.03);
dmMaster.IBSPSelecionaCupom.ParamByName(´VALOR2´).Value :=
(dmMaster.IBDNFSaidaVALORCUPOMFISCAL.Value + 0.03);


dmMaster.IBSPSelecionaCupom.Prepare; //ja tentei sem essa instrução
tambem
dmMaster.IBSPSelecionaCupom.ExecProc;

if not dmMaster.IBSPSelecionaCupom.IsEmpty then
.....instruções
else
MessageBox(application.handle, pchar(dmDBEXMaster.sUsuario +
´, não foi encontrado registros com esse cupom!´ + #13 +
´Favor verificar importação de venda´), ´Informação´, mb_ok +
MB_ICONINFORMATION);

dmMaster.IBSPSelecionaCupom.UnPrepare;

não esta retornando nenhum registro ou pelo menos parece não
retornar.

neste exemplo estou usando IBX mas já fiz testes com
DBExpress e acontece a mesma coisa.
uso D7+FB 1.5

Desde já agradeço a ajuda.

[color=green:2281059030]Movido de Delphi para Interbase/Firebird[/color:2281059030]