[firebase-br] Meio Off

[Eduardo Jedliczka]

Como sua procedure retorna uma ResultSet (por causa do suspend), você
deve usar um componente Query fazendo "select * from
GRAVA_EDITA_DIFERENCA(:Data)"

abraço

Eduardo Jedliczka

Em Qui, 2009-07-30 às 09:13 -0300, Mazzola escreveu:

> 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
> 
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
> Para saber como gerenciar/excluir seu cadastro na lista, use: http://www.firebase.com.br/fb/artigo.php?id=1107
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa