Fórum problema ao criar trigger pelo delphi #388736

18/10/2010

0

Estou com problemas com a minha rotina para criar uma trigger.

código:

  qryAux.sql.clear;
  qryAux.SQL.Text:=' CREATE OR ALTER TRIGGER TRG_LANTEMP_CLI_INSERT FOR CADCLIENTES'
    +' ACTIVE BEFORE INSERT POSITION 0 '
    +' AS '
    +' declare variable wnrfil varchar(3); '
    +' declare variable wFilialLocal varchar(3); '
    +' declare variable wnrfilial integer; '
    +' declare variable wcodigo integer; '
    +' declare variable nextFil integer; '
    +' declare variable wnrctrFil integer; '
    +' declare variable wnome varchar(50); '
    +' declare variable wDsoper varchar(2000); '
    +' begin '
    +'    select  nrfilial from cadconfig into :wfiliallocal; '
    +'    if (new.nrfilialori = :wfiliallocal ) '
    +'    then begin '
    +'    select count(NRCTRFILIAL) from cadfiliais '
    +'    where ENVIARCADCLIENTES = '+QuotedStr('S')+' into :wnrfilial ; '
    +'    wDsoper = '+#39+#39+';'


    +'    end '
    +' end';


  qryAux.ExecSQL;
  ibtInd.CommitRetaining;

O erro ocorre no momento do "ExecSQL"

Não esta conseguindo interpretar o ":"  .
As instruções passadas para a Query são normalmente "Comitadas" pelo IBOconsole.

Obrigado.

Mais Dominio

Mais Dominio

Responder

Posts

18/10/2010

Wesley Yamazack

Olá amigo,

Haveria possibilidade de você enviar o teu exemplo do banco de dados e também do código fonte ?
Para ficar mais fácil de analisar teu problema.

Um abraço

Wesley Y
Responder

Gostei + 0

19/10/2010

Mais Dominio

segue o link dos fontes e o BD. estou usando o Firebird 2.1

http://www.4shared.com/file/3D9t2tG3/FONTES_E_BD.html

Obrigado Pela Atenção
Responder

Gostei + 0

19/10/2010

Wesley Yamazack

Olá amigo,

  Pelo que andei vendo realmente você não vai consegui, a um tempo atras tive o mesmo problema que você, até tentei com DBExpress, mas não consegui, hoje utilizo uma palheta de componente de terceiro free, que faz exatamente isso, veja o link para download da palheta

http://video.devmedia.com.br/discovirtual/192388/MDO-0.8.8.rar

Um abraço

Wesley Y
Responder

Gostei + 0

26/10/2010

Devmedia

Valter, a resposta do consultor solucionou a sua dúvida? podemos encerrar o chamado?
Responder

Gostei + 0

27/10/2010

Mais Dominio

Sim. A resposta solucionou meu problema!. Mto Obrigado.
Responder

Gostei + 0

27/10/2010

Wesley Yamazack

Ok Valter, estamos fechando o chamado.

Um abraço

Wesley Y
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar