moj on Validate

IF Status <> Status::Cancelled THEN BEGIN
  IF CONFIRM(SeminarPriceConfirm, TRUE) THEN BEGIN
    IF SeminarRegLine.FINDFIRST THEN
      REPEAT
        IF SeminarRegLine.Registered = FALSE THEN
          SeminarRegLine."Seminar Price" := "Seminar Price"
      UNTIL SeminarRegLine.NEXT = 0;
      SeminarRegLine.MODIFY;
    END ELSE BEGIN
      ERROR(ErrorMessageAbort);
  END;
END;