[firebase-br] Fw: Ajuda com trigger no Delphi

[Jeter Rabelo Ferreira]

Olá amigo,
voce poderia passar para a lista a mensagem de erro completa?

Jéter Rabelo Ferreira

Em 03/10/05, Eduardo Jedliczka (TeamFB)<jedyfb em gmail.com> escreveu:
> Alguém que entenda de DBX poderia dar alguma ajuda ao companheiro Neto ????
>
> =========================
> Eduardo Jedliczka
> (Membro do TeamFB)
> Apucarana - Pr
> =========================
>
> - - - -
>
> From: "Neto" <neto em prnet.com.br>
> To: Eduardo Jedliczka
> Sent: Monday, October 03, 2005 11:07 PM
> Subject: Ajuda com trigger no Delphi
>
> Eduardo, desculpe mandar este e-mail diretamente a você, mas não estou
> conseguindo enviar direto para a lista.
> Estou com um problema para criar uma trigger pelo delphi utilizando o ibsql
> do ibexpress.
> Adiciono no SQL a mesma sintaxe utilizada para criar a trigger pelo IBExpert
> mas o delphi da erro de token unknown.
> Segue abaixo código do delphi:
>
>   IBSQL.CLOSE;
>   IBSQL.SQL.CLEAR;
>   IBSQL.SQL.ADD ('CREATE TRIGGER TGSAFREGISTRO53 FOR TBSAFREGISTRO53');
>   IBSQL.SQL.ADD ('ACTIVE BEFORE INSERT OR UPDATE POSITION 0');
>   IBSQL.SQL.ADD ('AS');
>   IBSQL.SQL.ADD ('declare variable I_CODIGO INTEGER;');
>   IBSQL.SQL.ADD ('begin');
>   IBSQL.SQL.ADD ('  if (inserting) then');
>   IBSQL.SQL.ADD ('  begin');
>   IBSQL.SQL.ADD ('     new.dt_inclusao= current_timestamp;');
>   IBSQL.SQL.ADD ('     if (new.SEQUENCIA is null) then');
>   IBSQL.SQL.ADD ('     begin');
>   IBSQL.SQL.ADD ('        SELECT CODIGO FROM
> pcsafbusca_codigo('+#39+'TBSAFREGISTRO53'+#39+',new.COD_COMANDO||new.COD_ARQUIVO)
> INTO :i_codigo;');
>   IBSQL.SQL.ADD ('        new.SEQUENCIA= :i_codigo;');
>   IBSQL.SQL.ADD ('     end');
>   IBSQL.SQL.ADD ('  end');
>   IBSQL.SQL.ADD ('  if (updating) then');
>   IBSQL.SQL.ADD ('     new.dt_ult_alter= current_timestamp;');
>   IBSQL.SQL.ADD ('end');
>   IBSQL.ExecQuery;
>
> pcsafbusca_codigo é uma procedure já criada no banco.
>
> Você tem ideia do que devo fazer?
>
>
> ______________________________________________
> 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
> Para consultar mensagens antigas: http://firebase.com.br/pesquisa
>