SET TERM ^ ;
CREATE OR ALTER TRIGGER TR_PARTS_QOH_LOG FOR PARTS 
ACTIVE AFTER UPDATE POSITION 0
AS 
  DECLARE VARIABLE USER_IP CHAR(15);
BEGIN 
  
  IF (NEW.QTY_ON_HAND <> OLD.QTY_ON_HAND) THEN
  BEGIN
    USER_IP = rdb$get_context('SYSTEM', 'CLIENT_ADDRESS'); 
 /* enter trigger code here */ 
    INSERT INTO PARTS_QOH_LOG (LOG_ID,
                          PART_NO,
                          USER_ID,
                          USER_IP,
                          TIME_STAMP,
                          OLD_QOH,
                          NEW_QOH)
    VALUES (CURRENT_TRANSACTION,
          OLD.PART_NO,
          CURRENT_USER,
          :USER_IP,
          CURRENT_TIMESTAMP,
          OLD.QTY_ON_HAND,
          NEW.QTY_ON_HAND);
    END
END^
SET TERM ; ^

SET TERM ^ ;
ALTER TRIGGER TR_PARTS_QOH_LOG ACTIVE
AFTER UPDATE POSITION 0
AS 
  DECLARE VARIABLE USER_HOST CHAR(15);
BEGIN 
  IF (NEW.QTY_ON_HAND <> OLD.QTY_ON_HAND) THEN
  BEGIN
 	SELECT ma.MON$REMOTE_HOST
    FROM MON$ATTACHMENTS ma
    join MON$TRANSACTIONS mt 
    on ma.MON$ATTACHMENT_ID = mt.MON$ATTACHMENT_ID
    where mt.MON$TRANSACTION_ID = CURRENT_TRANSACTION
      INTO :USER_HOST;
	/* enter trigger code here */ 
    INSERT INTO PARTS_QOH_LOG (LOG_ID,
                          PART_NO,
                          USER_ID,
                          USER_HOST,
                          TIME_STAMP,
                          OLD_QOH,
                          NEW_QOH)
    VALUES (CURRENT_TRANSACTION,
          OLD.PART_NO,
          CURRENT_USER,
          :USER_HOST,
          CURRENT_TIMESTAMP,
          OLD.QTY_ON_HAND,
          NEW.QTY_ON_HAND);
    END
END^
SET TERM ; ^