[firebase-br] SOS - Store Procedure

[Marcos Oliveira]

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/