SET SQL DIALECT 3;
SET TERM ^ ;
CREATE OR ALTER TRIGGER TVENPEDIDO_1000 FOR TVENPEDIDO
ACTIVE BEFORE INSERT OR UPDATE POSITION 9
AS
begin
/* Trigger text */
if (new.tipooperacao in ('02','99')) then
begin
new.valorbruto = new.valorliquido;
new.percdesc = 0;
new.valordesconto = 0;
new.tipodesconto = null;
end
end
^
SET TERM ; ^
-----------------------------------------------------------
SET SQL DIALECT 3;
SET TERM ^ ;
CREATE OR ALTER TRIGGER TVENPRODUTO_1000 FOR TVENPRODUTO
ACTIVE BEFORE INSERT OR UPDATE POSITION 9
AS
DECLARE Variable IdOperacao varchar(02);
begin
/* Trigger text */
select a.tipooperacao
from tvenpedido a
where a.empresa = new.empresa and
a.codigo = new.pedido
into :idoperacao;
if (idoperacao in('02','99')) then
begin
new.percdesc = 0;
new.vlrdesc = 0;
new.preditado = new.vendido;
new.prvendido = new.vendido;
new.prpauta = new.vendido;
end
end
^
SET TERM ; ^
