problema ao criar trigger pelo delphi
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.
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
Curtidas 0
Respostas
Wesley Yamazack
18/10/2010
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
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
GOSTEI 0
Mais Dominio
18/10/2010
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
http://www.4shared.com/file/3D9t2tG3/FONTES_E_BD.html
Obrigado Pela Atenção
GOSTEI 0
Wesley Yamazack
18/10/2010
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
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
GOSTEI 0
Devmedia
18/10/2010
Valter,
a resposta do consultor solucionou a sua dúvida? podemos encerrar o chamado?
GOSTEI 0
Mais Dominio
18/10/2010
Sim. A resposta solucionou meu problema!. Mto Obrigado.
GOSTEI 0
Wesley Yamazack
18/10/2010
Ok Valter, estamos fechando o chamado.
Um abraço
Wesley Y
Um abraço
Wesley Y
GOSTEI 0