Табличная форма. Подскажите как мне пере позиционировать запись в форме

[besenok]

Собственно сабж ! Пользователь в других окнах формы ввел какие то данные, как мне пере позиционировать текущую запись формы ?
Пробовал вызвать Get(NewBumber) или "No." := NewNumber; Find, выдает ошибку с фразой типа объект "Имя таблицы основания" не может быть изменен !

[Dzemon]

Несовсем понял, но может достаточно CurrForm.UPDATE(FALSE)?

[rootadmin]

besenok, разобрался с проблемой?

[VasVovec]

Столкнулся с похожей проблемой. Делаю форму типа 703. Тобишь записи на форму подставляются из Temporary таблицы. Необходимо еще сделать фильтрацию по одному полю с датой. На форму положил Textbox и на онвалидейт вызываю из функцию, в которой убираю/добавляю записи во временную таблицу согласно условия фильтра и в конце этой функции вызываю CurrForm.UPDATE. При выполнении ругается "CurrForm.UPDATE не может быть вызван отсюда". Изза чего появляется данная ошибка?

[TRIgor]

Цитата:

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

Столкнулся с похожей проблемой. Делаю форму типа 703. Тобишь записи на форму подставляются из Temporary таблицы. Необходимо еще сделать фильтрацию по одному полю с датой. На форму положил Textbox и на онвалидейт вызываю из функцию, в которой убираю/добавляю записи во временную таблицу согласно условия фильтра и в конце этой функции вызываю CurrForm.UPDATE. При выполнении ругается "CurrForm.UPDATE не может быть вызван отсюда". Изза чего появляется данная ошибка?

Все правильно пишет ошибку!!! UPDATE можно вызывать не из всех тригеров. уберите его там и попробуйте поставить свойство формы UpdateOnActivate в Yes. Должно сработать. Потом результат отпишите

[VasVovec]

Спасибо хитро придумано. Теперь там, где надо обновится, вызываю CurrForm.Activate, а в OnActivate вызывается CurrForm.UPDATE.
Срабатывает хорошо. Сейчас мелкие баги поотлавливаю и будет любо-дорого - TreeView c фильтрацией по полю.
Интересует еще такой момент. При редактировании записи понятное дело сделал переброс изменений в реальную таблицу (в триггере OnBeforePutRecord). Но этот триггер постоянно вызывается при переходе курсора с записи на запись (даже если запись совсем и не редактировалась). Это, наверно, не есть хорошо. Есть ли какие-то другие выходы, кроме как завести булинскую переменную и на триггере каждого контрола OnValidate присваивать ей TRUE, как флаг того, что были внесены изменения, и проверять это флаг в OnBeforePutRecord?

[TRIgor]

Цитата:

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

Спасибо хитро придумано. Теперь там, где надо обновится, вызываю CurrForm.Activate, а в OnActivate вызывается CurrForm.UPDATE.
Срабатывает хорошо. Сейчас мелкие баги поотлавливаю и будет любо-дорого - TreeView c фильтрацией по полю.
Интересует еще такой момент. При редактировании записи понятное дело сделал переброс изменений в реальную таблицу (в триггере OnBeforePutRecord). Но этот триггер постоянно вызывается при переходе курсора с записи на запись (даже если запись совсем и не редактировалась). Это, наверно, не есть хорошо. Есть ли какие-то другие выходы, кроме как завести булинскую переменную и на триггере каждого контрола OnValidate присваивать ей TRUE, как флаг того, что были внесены изменения, и проверять это флаг в OnBeforePutRecord?

а триггер OnModify на таблице не помогает? или я что-то не правильно понял?

[VasVovec]

Кстати может кто-нибудь разъяснит механизм, что происходит при вызове Form.UPDATE? Какой код надо написать, чтоб произошел последовательный вызов OnAfterGetRecord для всех записей на форме?

IF Rec.FIND('-') THEN
  WHILE Rec.NEXT <> 0 DO

?

[VasVovec]

Цитата:

а триггер OnModify на таблице не помогает?

Желательно чтоб весь код был в форме, а то в таблицу ведь могут и другие объекты писать.

[RedFox]

Цитата:

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

Кстати может кто-нибудь разъяснит механизм, что происходит при вызове Form.UPDATE? Какой код надо написать, чтоб произошел последовательный вызов OnAfterGetRecord для всех записей на форме?

IF Rec.FIND('-') THEN
  WHILE Rec.NEXT <> 0 DO

А чем стандарный вариант не подходит то?
IF Rec.FINDFIRST THEN REPEAT
...
UNTIL Rec.NEXT = 0
Почему не использовить вариации Rec.хххFILTERS() чтобы работало так же, как в 703 форме?
И чего просто не вынести код в отдельную функцию и вызвать 1 раз?

[TRIgor]

Цитата:

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

А чем стандарный вариант не подходит то?
IF Rec.FINDFIRST THEN REPEAT
...
UNTIL Rec.NEXT = 0
Почему не использовить вариации Rec.хххFILTERS() чтобы работало так же, как в 703 форме?
И чего просто не вынести код в отдельную функцию и вызвать 1 раз?

RedFox, Ты из далека пошел Мне никогда не приходит в голову, что-то передумывать когда у человека конкретные вопросы, значит ему так нравится реализовывать, а если вести дискусию как лучше, то так в посте и надо писать - КАК ЛУЧШЕ РЕШИТЬ ТАКУЮ-ТО ТАКУЮ-ТО ПРОБЛЕМУ?

[dmitryP]

Цитата:

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

IF Rec.FIND('-') THEN
  WHILE Rec.NEXT <> 0 DO

Цитата:

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

А чем стандарный вариант не подходит то?
IF Rec.FINDFIRST THEN REPEAT
...
UNTIL Rec.NEXT = 0

между этими двумя кострукциями есть разница, в первом случае будут обработаны все записи, кроме первой, во втором - все...

[TRIgor]

Цитата:

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

между этими двумя кострукциями есть разница, в первом случае будут обработаны все записи, кроме первой, во втором - все...

да как их обработать можно много конструкций придумать
Другой вопрос: зачем придумывать велосипед

[Fordewind]

Цитата:

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

RedFox, Ты из далека пошел Мне никогда не приходит в голову, что-то передумывать когда у человека конкретные вопросы, значит ему так нравится реализовывать, а если вести дискусию как лучше, то так в посте и надо писать - КАК ЛУЧШЕ РЕШИТЬ ТАКУЮ-ТО ТАКУЮ-ТО ПРОБЛЕМУ?

"Вы никогда не решите проблему, если будете думать так же как те, кто ее придумал" (с) Эйнштейн

[TRIgor]

Цитата:

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

"Вы никогда не решите проблему, если будете думать так же как те, кто ее придумал" (с) Эйнштейн

5 баллов за эту фразу - согласен полностью!
Но я немного не то имел ввиду) Человек разбил свою задачу на подзадачи и задает конкретные вопросы

[VasVovec]

Интересная дисскуссия получилась
Энштейн вообще был очень умный человек
Я разобрался где был баг, всетаки после UPDATE срабатывает OnAfterGetRecord. Все заработало.
На этой же форме правда столкнулся с еще 1 проблемой с которой сталкивался и раньше в других местах:
TempHRDep - переменная типа Record (Temporary = TRUE) на основе той же таблицы, что и у SourceTable формы.

Form - OnNextRecord(Steps : Integer) : Integer

TempHRDep.COPY(Rec);
ResultSteps := TempHRDep.NEXT(Steps);
Rec := TempHRDep;
EXIT(ResultSteps);

Form - OnModifyRecord() : Boolean

TempHRDep.TRANSFERFIELDS(Rec);
TempHRDep.MODIFY;

Вот значит запускаю форму. Редактирую какое-нибудь поле у записи, перехожу на другую запись - отредактированные изменения сохраняются. Перехожу на отредактированное поле записи, опять его редактирую, перехожу на другую запись - вылазит ошибка:
"Другой пользователь изменил запись НазваниеТаблицы после того, как она была прочитана из базы данных... и т.д."

[TRIgor]

Цитата:

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

Вот значит запускаю форму. Редактирую какое-нибудь поле у записи, перехожу на другую запись - отредактированные изменения сохраняются. Перехожу на отредактированное поле записи, опять его редактирую, перехожу на другую запись - вылазит ошибка:
"Другой пользователь изменил запись НазваниеТаблицы после того, как она была прочитана из базы данных... и т.д."

Обычно это лечится перезаходом в Navision

[VasVovec]

Нет. у меня чтото не лечится. Нид ё хелп, умные люди!

[TRIgor]

Цитата:

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

Нет. у меня чтото не лечится. Нид ё хелп, умные люди!

Вот и я не люблю такие ошибки!
Попробуй напиши COMIT после MODIFY, только перед этим внимательно почитай хелп по COMIT - не помешает

[VasVovec]

Вылечил следующим образом: в OnAfterGetCurrentRecord написал:

Form - OnAfterGetCurrRecord()

HRDep.GET(Rec.Code);
Rec:=HRDep;

При выборе записи получать ее еще раз из физической таблицы. И после этого все нормально модифит и не ругается (Очевидно у записи DataStamp еще подхватывается при получении записи из таблицы, и при запросе на модификацию сверяется с тем что в таблице).