[firebase-br] Meio Off

[Felipe Aron]

no FROM do select da chama da procedure vc precisa passar uma data como
parametro "DATAFILTRO":

select *
from GRAVA_EDITA_DIFERENCA( <Paramentro> )

2009/7/30 Mazzola <valdemar.salviato em sbctrans.com.br>

> 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
>



-- 
Felipe Aron (felipearon.com.br)
Analista e Programador de Sistemas

http://br.groups.yahoo.com/group/xna-br/ --> Lista de Discussão sobre XNA