Alguém me ajude, aonde esta errado?

Delphi

05/07/2003

CREATE TRIGGER Entradas FOR TabEntrada ACTIVE
BEFORE INSERT POSITION 0
AS
BEGIN
 update TABMOVIMENTACAO
 set  QUANTENTRADA = QUANTENTRADA + NEW.QUANTENTRADA
 where CODPRODUTO = NEW.CODPRODUTO;
END



Peninha

Peninha

Curtidas 0

Respostas

Cruz

Cruz

05/07/2003

Visite: [url=http://www.ictec.kit.net]IC Tec Informática[/url]

Vc não diz qual é o erro gerado. O que posso dizer no momento é isso:
Set Term !!;
CREATE TRIGGER Entradas FOR TabEntrada ACTIVE 
BEFORE INSERT POSITION 0 
AS 
BEGIN 
update TABMOVIMENTACAO 
set  QUANTENTRADA = QUANTENTRADA + NEW.QUANTENTRADA 
where TABMOVIMENTACAO.CODPRODUTO = TABENTRADA.CODPRODUTO; 
END !!
set term ; !!



GOSTEI 0
POSTAR