Не сохраняет значение при lookup на поле таблицы

[Yermek]

Доброе время суток.
У меня следующая проблема: На лукапе текстового поля таблицы, нужное значение из другой таблице подтягивается правильно, но в данном поле значение не сохранятся Что может быть не так?
Заранее спасибо.

[randrews]

Цитата:

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

Доброе время суток.
У меня следующая проблема: На лукапе текстового поля таблицы, нужное значение из другой таблице подтягивается правильно, но в данном поле значение не сохранятся Что может быть не так?
Заранее спасибо.

А lookup случайно не прописан кодом на тригере вашего поля? Если прописан, то напишите код

[kas1]

А сам код можно посмотреть?

[Yermek]

2 randrews да прописан. Не совсем понял что вы имели ввиду.
вот код
Name DataType Subtype Length
Qualification1 Record Qualification
Qualification_Form1 Form Qualifications

testfield - OnLookup()
Qualification1.RESET;
Qualification1.SETRANGE("Record Type",Qualification1."Record Type"::"Educational Institution");
Qualification_Form1.EDITABLE := FALSE;
Qualification_Form1.SETTABLEVIEW(Qualification1);
Qualification_Form1.LOOKUPMODE := TRUE;
IF Qualification_Form1.RUNMODAL = ACTION::LookupOK THEN BEGIN
Qualification_Form1.GETRECORD(Qualification1);
testfield := Qualification1.Description;
END;

[grif]

а modify?

[Yermek]

Цитата:

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

а modify?

Ставил, не помогает

[grif]

а приведи код в том виде, как когда modify ставил

а так это в таблице

[artkashin]

Цитата:

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

а приведи код в том виде, как когда modify ставил

а так это в таблице

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

[kas1]

Да, а зачем это на таблице делать я не совсем понял?
Можно на форме сделать, все должно без поблем работать.

[NeNavision_imported]

Цитата:

testfield - OnLookup()
Qualification1.RESET;
Qualification1.SETRANGE("Record Type",Qualification1."Record Type"::"Educational Institution");
Qualification_Form1.EDITABLE := FALSE;
Qualification_Form1.SETTABLEVIEW(Qualification1);
Qualification_Form1.LOOKUPMODE := TRUE;
IF Qualification_Form1.RUNMODAL = ACTION::LookupOK THEN BEGIN
Qualification_Form1.GETRECORD(Qualification1);
testfield := Qualification1.Description;
END;

Сотрите эту ботву.

напишите

Qualification1.RESET;
Qualification1.SETRANGE("Record Type",Qualification1."Record Type"::"Educational Institution");
IF FORM.RUNMODAL(0,Qualification1) = Action::LookUpOk THEN
   testfield := Qualification1.Description;

[grif]

Вобще кажется это будет работать если сделать в конце
MODIFY;
COMMIT;

Правда после этого придётся шагнуть на другую запись и вренуться обратно чтоб перерисовалось

ИМХО это изврат. Нужно либо делать лукап без прописывания руками кода, либо переность код на форму. По сути тулить какой-то подобный код в триггера таблицы это не есть правильно. Либо сделать TableRelation на ту другую таблицу, либо седалть код лукапа на форме

[NeNavision_imported]

Цитата:

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

Все работает!
Никакие модифаи и коммиты тем более не нужны.
Код лукапа пишем на таблице, а работать ест-но он будет только на форме. (Но на форме его писать не надо).

[grif]

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

[apanko]

См. также тему
LookUp из поля таблицы

[grif]

Не знаю как с перерисовкой в этмо примере
<div class='CALtop'>C/AL</div><div class='CAL'>
CLEAR(FieldList); // не забываем очищать по указателю
FieldList.LOOKUPMODE := TRUE;
IF FieldList.RUNMODAL = ACTION::LookupOK THEN
BEGIN
FieldList.GETRECORD(Fields);
loca_rec_current.LOCKTABLE; // это переменная той же записи что и //REC, лочим таблицу
loca_rec_current.GET(line); //выставляем нужную запись
loca_rec_current.Fieldno:= Fields."No.";//дальше понятно.
loca_rec_current.MODIFY;
COMMIT;
END;
</div>
Но можно сделать проще - присвоить в rec и также сделать modify + commit и будет работать. Только что проверил

[romeo]

Цитата:

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

Не знаю как с перерисовкой в этмо примере
<div class='CALtop'>C/AL</div><div class='CAL'>
CLEAR(FieldList); // не забываем очищать по указателю
FieldList.LOOKUPMODE := TRUE;
IF FieldList.RUNMODAL = ACTION::LookupOK THEN
BEGIN
FieldList.GETRECORD(Fields);
loca_rec_current.LOCKTABLE; // это переменная той же записи что и //REC, лочим таблицу
loca_rec_current.GET(line); //выставляем нужную запись
loca_rec_current.Fieldno:= Fields."No.";//дальше понятно.
loca_rec_current.MODIFY;
COMMIT;
END;
</div>
Но можно сделать проще - присвоить в rec и также сделать modify + commit и будет работать. Только что проверил

Ой, мама ... ((

[grif]

Что значит "Ой, мама"?

[NeNavision_imported]

То, что за это можно "респект на стол положить"

[grif]

Цитата:

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

То, что за это можно "респект на стол положить"

за что именно? я кажется выше насписал своё мнение относительно этого метода, но всё же интереса ради накопал решение, если вдруг кому-то приспичило именно так. или я не о том?

[randrews]

Цитата:

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

2 randrews да прописан. Не совсем понял что вы имели ввиду.
вот код

Это и имел ввиду Так как lookup мог вызывтаься кодом, а могла lookup форма вызваться из-за сво-ва TableRelation.



Стер пока не увидели
???



Или ваш код работает, как сказал NeNavision

Цитата:

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

Все работает!
Никакие модифаи и коммиты тем более не нужны.
Код лукапа пишем на таблице, а работать ест-но он будет только на форме. (Но на форме его писать не надо).