Progress 4GL СБОЙ КОПИРОВАНИЯ БУФЕРА

Поскольку вы действительно не знаете, какие ошибки возникают - вам нужно начинать с этого.

Чтобы отслеживать общие ошибки после оператора NO-ERROR, вы можете сделать что-то вроде:

IF ERROR-STATUS:ERROR THEN DO:
  DO i = 1 TO ERROR-STATUS:NUM-MESSAGES:
    /* Replace MESSAGE with some kind of logging */
    MESSAGE 
      "Error number " i 
      " error no " ERROR-STATUS:GET-NUMBER(i) 
      " txt: " ERROR-STATUS:GET-MESSAGE(i) VIEW-AS ALERT-BOX.
  END.
END.

Если у вас есть конкретные номера ошибок, вы можете поискать дополнительную информацию в базе знаний о ходе выполнения.

Я бы написал следующий код. Если вы используете режим без ошибок, всегда обрабатывайте ошибку. При назначении / копировании буфера проверьте, нет ли ошибок, затем выполните проверку, чтобы убедиться, что триггеры срабатывают правильно. Код обработки ошибок можно поместить в отдельную процедуру, а затем просто вызывать каждый раз, когда вы хотите обрабатывать сообщения об ошибках. (немного изменил его, как я бы написал, я не всегда улавливаю все ошибки, но обработка ошибок зависит от разных вещей, но это хороший способ во время тестирования убедиться, что код настроен правильно. После этого можно удалить обработку ошибок там, где нет необходимо перед развертыванием.)

FIND FIRST STUDENT NO-LOCK WHERE ST-ID = "TEST" NO-ERROR.
IF AVAILABLE STUDENT THEN    
DO:
  CREATE SCHOOL.
  BUFFER-COPY STUDENT EXCEPT STUDENT.Location
           TO SCHOOL ASSIGN   SCHOOL.Location = "MY LOCATION" 
  NO-ERROR.
  IF ERROR-STATUS:ERROR THEN 
  DO:
    /* insert error handling - for example as as per @Jensd */
    /* this is in case there is something wrong with buffer copy */
    /* maybe a required field is left empty? */
  END.
  ELSE DO:
      VALIDATE SCHOOL NO-ERROR. /* good idea as it raises any issues with triggers */
      IF ERROR-STATUS:ERROR THEN 
      DO:
        /* insert error handling - for example as as per @Jensd */
      END.
  END.
END.    

Я не буду делать буферную копию из одной таблицы в другую, у вас могут быть проблемы с индексом, как я думаю, у вас есть.

Лучше определите временную таблицу, такую ​​как целевая таблица.

Затем сделайте буферную копию во временную таблицу.

Вставьте правый ключ в временный стол.

Затем сделайте буферную копию из временной таблицы с правильными ключевыми полями в целевую таблицу.

Попробуйте следующее:

Определите временную школу как школу.

найти первого ученика без блокировки и так далее.

буферная копия ученика в t-школу.

Назначьте t-school.location = "something".

буферная копия т-школы в школу.

Вуаля!

Один из возможных способов отладки проблемы - использовать «Недавние сообщения» в справке в AppBuilder при условии, что вы можете запускать код прямо из него.