/* tr-c-fcd.p - Update trigger for fringe-code */
TRIGGER PROCEDURE FOR WRITE OF fringe-code NEW fringe-code OLD old-fringe-code.

/* Include Commons */
{common.i}

ON WRITE OF fringe-code OVERRIDE DO: END.

/* Assign user, date & time of update */
ASSIGN
  fringe-code.upd-date        = TODAY
  fringe-code.upd-time        = STRING(TIME, "HH:MM:SS")
  fringe-code.upd-user-name   = menu-user.
  
IF fringe-code.deduct-id <> old-fringe-code.deduct-id
OR fringe-code.employer-cost <> old-fringe-code.employer-cost 
OR fringe-code.use-deduct    <> old-fringe-code.use-deduct THEN DO:

  ON WRITE OF fringe-period OVERRIDE DO: END.
  FIND fringe-period EXCLUSIVE-LOCK
    WHERE fringe-period.payroll-year = fringe-code.payroll-year
      AND fringe-period.fringe-period-id = fringe-code.fringe-period-id.
  
  ASSIGN
    fringe-period.needs-recalc = TRUE
    fringe-period.needs-repush = TRUE.

END.

/* Go back */
RETURN.