/* tr-u-com.p - Update trigger for component */
TRIGGER PROCEDURE FOR WRITE OF component.

/* Include commons */
{common.i}

/* Update related calls */
FOR EACH call-log WHERE call-log.product-id = component.product-id
                    AND call-log.component-id = component.component-id NO-LOCK:
  RUN callbrws.p (INPUT call-log.call-log-id).
END.

ASSIGN
  component.upd-date      = TODAY
  component.upd-time      = STRING(TIME, 'HH:MM:SS')
  component.upd-user-name = menu-user.

RETURN.