Pesquisar na Comunidade
Showing results for tags 'trigger'.
Encontrado 1 registro
-
Criar/alterar Trigger No Firebird Pelo Delphi
um tópico no fórum postou sesistemas Object Pascal - Delphi & Lazarus
Bom dia pessoal, Gostaria da ajuda e opinião de vocês com relação a um problema que estou tendo. Sempre que tenho que fazer uma alteração em uma trigger ou criar uma trigger nova no Firebird diretamente pelo sistema, enfrento alguns problemas. Eu utilizo o componente TSqlQuery sempre que preciso fazer um acesso ao Firebird, seja pra consultas SQL, Insert, Update, etc... Recentemente tive que fazer uma alteração em uma trigger, onde a mesma tinha variáveis declaradas, e ao executar o 'ExecSql', ocorre um erro referente à variável :DATA . E executando o trecho de código no IBExpert funciona normalmente. Segue um exemplo do problema: CREATE TRIGGER TRG_ITENS_ENTRADA_MOVIMENTO FOR ITENS_ENTRADA ACTIVE AFTER INSERT POSITION 0 AS declare variable DATA date; declare variable DESCRICAO varchar(30); begin SELECT ENT_DATA FROM ENTRADAS WHERE ID_ENTRADA = NEW.ITE_ENT INTO :DATA; DESCRICAO = 'REFERENTE A ENTRADA: ' || NEW.ITE_ENT; EXECUTE PROCEDURE INSERE_MOVIMENTO( NULL, NEW.ITE_PRO, NEW.ITE_ENT, 'ENTRADA', :DATA, 'E', :DESCRICAO, 'E', NEW.ITE_QUANTIDADE); end Gostaria de saber como vocês contornam este problema, e como faço para resolver isto? Att,