Триггер OnModify

[Kadawrik]

ПОдскажите, плиз, как обойти след. проблему:
Имеем таблицу 37. Когда в Заказе меняем поле "No", срабатывает триггер OnValidate(), в которорм есть след. строки:

T50022.TechNo := "No.";
T50022.Modify(TRUE);

После этого Modify попадаем в триггер OnModify() таблицы 50022.
В нем прописано следующее:

IF Rec.TechNo <> xRec.TechNo THEN
   выполнить какие-то действия

Но проблема в том что на этом этапе Rec и xRec абсолютно одинаковые, в результате чего IF дает FALSE и действия не выполняются.
Как с этим бороться?

[Fly]

Цитата:

Сообщение от Kadawrik

ПОдскажите, плиз, как обойти след. проблему:
Имеем таблицу 37. Когда в Заказе меняем поле "No", срабатывает триггер OnValidate(), в которорм есть след. строки:

T50022.TechNo := "No.";
T50022.Modify(TRUE);

После этого Modify попадаем в триггер OnModify() таблицы 50022.
В нем прописано следующее:

IF Rec.TechNo <> xRec.TechNo THEN
   выполнить какие-то действия

Но проблема в том что на этом этапе Rec и xRec абсолютно одинаковые, в результате чего IF дает FALSE и действия не выполняются.
Как с этим бороться?

Эээм, а почему логику обработки поля надо вешать на MODIFY? Почему нельзя повесить на VALIDATE TechNo?

Тогда код будет такой:

T50022.VALIDATE(TechNo,"No.");
T50022.Modify(TRUE);

[Kadawrik]

Цитата:

Сообщение от Fly

Эээм, а почему логику обработки поля надо вешать на MODIFY? Почему нельзя повесить на VALIDATE TechNo?

Дело в том, что в Т50022 таких полей штук 10, при изменении которых нужно выполнять эту последовательность действий. Менять для каждого поля его OnValidate() было влом. И еще одно...

Цитата:

Тогда код будет такой:

T50022.VALIDATE(TechNo,"No.");
T50022.Modify(TRUE);

Изменение значений полей в Т50022 происходит в нескольких местах программы (в совершенно разных модулях), причем не через T50022.VALIDATE(...), а через простое присваивание T50022.Поле := ххх
Честно говоря, ну ооочень не хотелось бы всё это сейчас переделывать.
Если длугих, менее трудозатратныых вариантов нет, то придется делать так, как Вы предлагаете.

[alexb_imported]

Цитата:

Сообщение от Kadawrik

T50022.TechNo := "No.";
T50022.Modify(TRUE);

IF Rec.TechNo <> xRec.TechNo THEN
   выполнить какие-то действия

Но проблема в том что на этом этапе Rec и xRec абсолютно одинаковые, в результате чего IF дает FALSE и действия не выполняются.

А не стоит ли задуматься, почему Rec равен xRec?
Если вы в T50022.TechNo присваиваете "No.", который ничем не отличается TechNo то зачем делать MODIFY?

[Kadawrik]

Цитата:

Сообщение от AlexB

А не стоит ли задуматься, почему Rec равен xRec?
Если вы в T50022.TechNo присваиваете "No.", который ничем не отличается TechNo то зачем делать MODIFY?

В том-то и дело, что ДО присвоения эти значения разные (к примеру, до выполнения команды T50022.TechNo := "No." , поля содержали след. значения: T50022.TechNo = RI265,а "No." равнялось AM378

[Fly]

Цитата:

В том-то и дело, что ДО присвоения эти значения разные (к примеру, до выполнения команды T50022.TechNo := "No." , поля содержали след. значения: T50022.TechNo = RI265,а "No." равнялось AM378

Ну и как тогда могло получиться, что xRec.TechNo и Rec.TechNo одинаковые? Они же менялись. Условие должно быть выполниться. Что-то Вы не договариваете

[Kadawrik]

Цитата:

Сообщение от Fly

Ну и как тогда могло получиться, что xRec.TechNo и Rec.TechNo одинаковые? Они же менялись. Условие должно быть выполниться. Что-то Вы не договариваете

Расскажу как на духу, что я делаю. Итак, имеем 2 строки кода:

T50022.TechNo := "No.";   //строка 1
T50022.Modify(TRUE);      //строка 2

Прохожу еще раз с дебагером, в окошке Watch которого выведены для контроля след. переменные:
T50022.Zoom.TechNo
Rec.Zoom.TechNo
xRec.Zoom.TechNo

Курсор стоит на стороке 1 (т.е. как я понимаю строка эта еще не выполнилась), переменные имеют след. значения:
T50022.Zoom.TechNo - старое значение
Rec.Zoom.TechNo - Error: Symbol Rec was not found
xRec.Zoom.TechNo - Error: Symbol xRec was not found

Нажимаем F8. Курсор переходит в строку 2. Наши переменные:
T50022.Zoom.TechNo - НОВОЕ значение
Rec.Zoom.TechNo - Error: Symbol Rec was not found
xRec.Zoom.TechNo - Error: Symbol xRec was not found

Еще раз F8 - попадаем в триггер OnModify таблицы 50022. Переменные становятся:
T50022.Zoom.TechNo - Error: Symbol TechNo was not found
Rec.Zoom.TechNo - НОВОЕ значение
xRec.Zoom.TechNo - НОВОЕ значение

ПАЧИМУУУУ!?!?!?
Это какой-то глюк в программе или у меня уже в голове глючит и я за деревьями не вижу леса?