[firebase-br] Meio Off

[Mazzola]

Bom dia Lista eu tenho uma procedure que roda perfeitamente no FB, porem
quando rodo ela dentro de meu aplicativo, ela me da a seguinte mensagem:

requeried param value not set .

 

CREATE PROCEDURE GRAVA_EDITA_DIFERENCA (

    DATAFILTRO DATE)

RETURNS (

    SEQUENCIA INTEGER,

    PREFIXO INTEGER,

    DATA DATE,

    HORA VARCHAR(5),

    TURNO VARCHAR(12),

    LINHA VARCHAR(13),

    GUIA VARCHAR(15),

    IMPORTACAO DATE,

    INICIAL NUMERIC(15,0),

    FINAL NUMERIC(15,0),

    DISC NUMERIC(15,0),

    DATAGUIA VARCHAR(20))

AS

BEGIN

     FOR

        SELECT
SEQUENCIA,PREFIXO,DATA,HORA,TURNO,LINHA,GUIA,IMPORTACAO,INICIAL,FINAL,

               CASE WHEN DISC < 0 THEN

                   (DISC * -1)

               ELSE

                   DISC

               END,

               DATAGUIA FROM MOVIMENTA_CATRACA

        WHERE  IMPORTACAO = :DATAFILTRO

        INTO
:SEQUENCIA,:PREFIXO,:DATA,:HORA,:TURNO,:LINHA,:GUIA,:IMPORTACAO,:INICIAL,:FI
NAL,:DISC,:DATAGUIA

     DO

        BEGIN

          IF (:DISC <> 0) THEN

             BEGIN

               IF  (NOT EXISTS(SELECT SEQUENCIA FROM
MOVIMENTA_CATRACA_GERADO WHERE SEQUENCIA = :SEQUENCIA)) THEN

                  BEGIN

                  INSERT INTO
MOVIMENTA_CATRACA_GERADO(SEQUENCIA,PREFIXO,DATA,HORA,TURNO,LINHA,GUIA,INICIA
L,FINAL,DISC,IMPORTACAO,MOTIVO,DATAGUIA,VALOR)

 
VALUES(:SEQUENCIA,:PREFIXO,:DATA,:HORA,:TURNO,:LINHA,:GUIA,:INICIAL,:FINAL,:
DISC,:IMPORTACAO,'PENDENTE',:DATAGUIA,(:DISC*(2.5)));

                  END

             END

        END

   SUSPEND;

END

 

No Delphi:

 

                        IBStoredProc4.Close;

                        IBStoredProc4.Params[0].AsDateTime :=
StrToDate(F_Divergencia.DateEdit1.Text);

                        IBStoredProc4.ExecProc;

 

 

Desculpe se o assunto não é para entrar na lista, mais fiquei curioso ao ver
que roda dentro do IBExpert e não no Delphi, e como sempre obtive ótimas
dicas por aqui, espero não atrapalhar

 

Grato 

Valdemar Salviato JR

Analista de Sistemas