Fórum Valor null em trigger não está funcionando. #54820

CREATE TRIGGER ESANFF_AU0 FOR ESANFF
ACTIVE AFTER UPDATE POSITION 0
AS
begin
  if (NEW.VL1DPL <> OLD.VL1DPL) then
  begin
    if (NEW.VL1DPL is null) then
    begin
      delete from esadup
      where ESADUP.clidup=ESANFF.FORNFF and esadup.numdup=ESANFF.NUMNFF and esadup.serdup=ESANFF.SERNFF and ESADUP.pardup=1;
    end
    else
    begin
      if (NEW.VL1DPL<OLD.VL1DPL) then
      begin
        update esadup set VENDUP=new.dt1dpl, VALDUP=new.vl1dpl
        where ESADUP.clidup=ESANFF.FORNFF and esadup.numdup=ESANFF.NUMNFF and esadup.serdup=ESANFF.SERNFF and ESADUP.pardup=1;
      end
      else
      begin
        if (NEW.VL1DPL>OLD.VL1DPL) then
        begin
          if (OLD.VL1DPL is null) then
          begin
            insert into ESADUP (CLIDUP, NUMDUP, SERDUP, PARDUP, PLADUP, EMIDUP, VENDUP, VALDUP, EMITIDO)
            values (ESANFF.FORNFF, ESANFF.NUMNFF, ESANFF.SERNFF, 1, 1, ESANFF.DATNFF, new.DT1DPL, new.VL1DPL, ´N´);
          end
          else
          begin
            update esadup set VENDUP=new.dt1dpl, VALDUP=new.vl1dpl
            where ESADUP.clidup=ESANFF.FORNFF and esadup.numdup=ESANFF.NUMNFF and esadup.serdup=ESANFF.SERNFF and ESADUP.pardup=1;
          end
        end
        else
        begin
          if (NEW.DT1DPL<>OLD.DT1DPL) then
          begin
            update esadup set VENDUP=new.dt1dpl, VALDUP=new.vl1dpl
            where ESADUP.clidup=ESANFF.FORNFF and esadup.numdup=ESANFF.NUMNFF and esadup.serdup=ESANFF.SERNFF and ESADUP.pardup=1;
          end
        end
      end
    end
  end
end