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

[Forum]

Segue...

Project PJSAF.exe raised exception class EIBInterBaseError with message
'Dynamic SQL Error
SQL erro code= -104
token Unknown - lin12 , char 103
?'. Process stopped User Step or Run to continue


----- Original Message -----
From: "Jeter Rabelo Ferreira" <jeter.rabelo em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Tuesday, October 04, 2005 9:20 AM
Subject: Re: [firebase-br] Fw: Ajuda com trigger no Delphi


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_ARQ
UIVO)
> 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
>

______________________________________________
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


--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.344 / Virus Database: 267.11.9/116 - Release Date: 30/09/2005