INTO :IdFio, :KodDiv, :KodDisc, :KodSGroup
    do
  BEGIN

    IF (OldIdFio <> -1 AND ((IdFio<>OldIdFio) OR (KodDiv <>OldKodDiv) OR (KodDisc <>OldKodDisc) OR (Z(KodSGroup) <> Z(OldKodSGroup)))) THEN BEGIN

      ID_FIO = OldIdFio;
      KOD_DIV  = OldKodDiv;
      KOD_DISC = OldKodDisc;
      KOD_SGRP = OldKodSGroup;
      suspend;
      HOUR_SUM = 0;
    END
    OldIdFio = IdFio;
    OldKodDiv = KodDiv;
    OldKodDisc = KodDisc;
    OldKodSGroup = KodSGroup;
    HOUR_SUM = HOUR_SUM + 2;
  END

  ID_FIO = IdFio;
  KOD_DIV  = KodDiv;
  KOD_DISC = KodDisc;
  KOD_SGRP = KodSGroup;
  suspend;
END^