CREATE TRIGGER TBMDF_LOTE_B09U FOR TBMDF_LOTE
ACTIVE BEFORE UPDATE POSITION 9
AS
DECLARE VARIABLE HISTORICO VARCHAR(500);
BEGIN

   HISTORICO = '';
   IF (OLD.LOTE <> NEW.LOTE) THEN BEGIN HISTORICO = HISTORICO||' LOTE '||OLD.LOTE||'->'||NEW.LOTE; END
   IF (OLD.RECIBO <> NEW.RECIBO) THEN BEGIN HISTORICO = HISTORICO||' RECIBO '||OLD.RECIBO||'->'||NEW.RECIBO; END
   IF (OLD.XML <> NEW.XML) THEN BEGIN HISTORICO = HISTORICO||' XML '||OLD.XML||'->'||NEW.XML; END
   IF (OLD.PROTOCOLO <> NEW.PROTOCOLO) THEN BEGIN HISTORICO = HISTORICO||' PROT '||OLD.PROTOCOLO||'->'||NEW.PROTOCOLO; END
   IF (OLD.PROTOCOLO_CANCELAMENTO <> NEW.PROTOCOLO_CANCELAMENTO) THEN BEGIN HISTORICO = HISTORICO||' PROT.CAN '||OLD.PROTOCOLO_CANCELAMENTO||'->'||NEW.PROTOCOLO_CANCELAMENTO; END

   IF (HISTORICO <> '') THEN
    BEGIN
        HISTORICO = 'LOTE '||OLD.LOTE||' ALTERADO: '||HISTORICO;

        EXECUTE PROCEDURE SPI_HISTORICO('TBMDF', OLD.MDF_ID, HISTORICO);
    END
END;