q1w1e1осталось понять почему нельзя устанавливать релэйшин двум разным таблицам на одну и ту же таблицу... ну и обойти проблему...
Вполне логично что ошибка происходит, хуже было бы если такое было возможным.
Связка по set relation означает что при перемещении по родительской таблице автоматом перемещается указатель текущей записи в дочерней.
Соответственно при наличии двух родительских указатель должен стоять одновременно на двух разных записях, что в принципе невозможно.
Зачем вообще тебе SET RELATION ? От него польза только в одном месте - если исходные таблицы в гриде показываешь, в остальных случаях можно без него обойтись.
При установленной SET RELATION надо следить чтобы текущий индекс не менялся, сменить его тоже нельзя.
Далеко не всегда нужно перемещение указателя в привязанной таблице, чаще это неважно, просто код выполняет некоторые бесполезные действия, а иногда это мешает и приходится изобретать обход этого эффекта.
Гораздо удобнее непосредственно перед расчетом установить все указатели в справочниках. Примерно так:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
lcErr = ''
do case
Case !IndexSeek(MyTable.nSpr1Id, .T., 'Spr1', 'nSpr1Id')
lcErr = 'Отсутствует Spr1.nSpr1Id = ' + str(MyTable.nSpr1Id)
Case !IndexSeek(MyTable.nSpr2Id, .T., 'Spr2', 'nSpr2Id')
lcErr = 'Отсутствует Spr2.nSpr2Id = ' + str(MyTable.nSpr2Id)
Case !IndexSeek(MyTable.nSpr3Id, .T., 'Spr3', 'nSpr3Id')
lcErr = 'Отсутствует Spr3.nSpr3Id = ' + str(MyTable.nSpr3Id)
otherwise
* Тут пишем полезный код, все указатели в справочниках установлены
endcase
if !empty(lcErr)
? 'Ошибка: ' + lcErr
endif
return empty(lcErr)
