[firebase-br] SOS - Store Procedure

[Hugo dos Santos Saraiva]

Caro Marcos,

    Em primeiro lugar, no FireBird o End não é sucedido por ; como acontece 
no Delphi.
    Em segundo lugar, apesar de que no IBExpert (que você deve estar 
utilizando) as porcedures podem ser terminadas com end;, procure utilizar a 
sintaxe correta ou seja:
1) Altere o terminador padrão do Firebird: Set Term ^ ; (por exemplo);
2) Crie a procedure e ao final coloque o novo terminador: ^ (em nosso 
exmplo);
3) Altere novamente o terminador para ; (Set Term ; ^).

P.S.: Quando o IBExpert executa a alteração de uma procedure ele se oferece 
para gerar um script seguindo a sintaxe acima.

Espero ter ajudado.

Hugo dos Santos Saraiva


----- Original Message ----- 
From: "Marcos Oliveira" <duarteol2000 em yahoo.com.br>
To: <lista em firebase.com.br>
Sent: Tuesday, December 28, 2004 10:58 AM
Subject: [firebase-br] SOS - Store Procedure


> Criei esta procedure, mas esta dando um erro...naum consegui resolver, ja 
> vai com um mes, alguem pode me ajudar....
>    CREATE PROCEDURE EMM_TRANSFTURMA (
>        VALU_COD INTEGER,
>        VMATR_ANOLETIVO INTEGER,
>        VMATR_NUMERO INTEGER,
>        VTUR_COD INTEGER,
>        VMATR_DATA DATE,
>        VMATR_DATASAIDA DATE)
>    AS
>     DECLARE VARIABLE VCODIGO_TURMA INTEGER;
>     DECLARE VARIABLE VANO_LETIVO INTEGER;
>     DECLARE VARIABLE VNOVA_TURMA INTEGER;
>    begin
>      For Select ALU_COD, MATR_ANOLETIVO, MATR_NUMERO, TUR_COD,
> MATR_DATA, MATR_DATASAIDA From emm_dadosmatr
>               Where TUR_COD = :VCODIGO_TURMA and MATR_DATA =
> :VANO_LETIVO Into
>               :valu_cod    , :vmatr_anoletivo,
>               :vmatr_numero, :vtur_cod,
>               :vmatr_data  , :vmatr_datasaida Do
>      Begin
>        Insert Into emm_dadosmatr(ALU_COD, MATR_ANOLETIVO, MATR_NUMERO,
> TUR_COD, MATR_DTA, MATR_DATASAIDA) Values (:valu_cod    , :VANO_LETIVO
> + 1, :vmatr_numero, :VNOVA_TURMA, :vmatr_data, :vmatr_datasaida)
>      End;   <===================dando erro neste
> ponto...........................
>    end;
>
>    naum entendi o porque dando erro no "End;"..........
>    se tiro o insert o erro some...o que poderia ser.......???
>
> __________________________________________________
> Converse com seus amigos em tempo real com o Yahoo! Messenger
> http://br.download.yahoo.com/messenger/
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>
>