/* tr-c-srp.p - Create trigger for state-version */
TRIGGER PROCEDURE FOR CREATE OF state-version.

/* Include commons */
{common.i}

/* Assign ID, creation/update info */
ASSIGN
  state-version.state-version-id = NEXT-VALUE(record-id)
  state-version.cre-date                = TODAY
  state-version.cre-time                = STRING(TIME, "HH:MM:SS")
  state-version.cre-user-name           = menu-user
  state-version.upd-date                = state-version.cre-date
  state-version.upd-time                = state-version.cre-time
  state-version.upd-user-name           = state-version.cre-user-name.

/* That's it */                              
RETURN.