Галактика в вопросах и ответах

Итак, валидность подцепленной таблицы НУЖНО проверять. И так было всегда.

edward_K писал(а): 2. В общем случае хватит
if isValid(#table)
{ вывод
}
else { вывод 0 }
но никак не continue;
[/code]

Алексей писал(а):в какой этой? _loop по корневой таблицы, после невалидного листа continue переведёт корневую на следующую запись.

Алексей писал(а): Set нужен, потому что цикл делаем по одной таблице, со своими ограничениями, и взяв nrec позиционируемся в другой таблице (синоним), к которой как раз подцеплены все остальные таблицы с нужными мне данными (в основном атрибуты объекта ремонта).

  create view 
    var
      LnkVar: comp;
    from RootTable, LeafTable where ((LnkVar == LeafTable.RootRef));
  ...
  _loop RootTable {
    ...
    LnkVar := RootTable.Nrec;
    if getfirst LeafTable = tsOk {
      ...
    }
    ...
    // или так
    LnkVar := RootTable.NRec;
    FixRelations(LnkVar); // а вот так упадёт: FixRelations(#LnkVar);
    if IsValid(tnLeafTable) {
      ...
    }   

m0p3e писал(а):

Алексей писал(а):в какой этой? _loop по корневой таблицы, после невалидного листа continue переведёт корневую на следующую запись.

Издеваемся?

Screw писал(а):

Алексей писал(а): Set нужен, потому что цикл делаем по одной таблице, со своими ограничениями, и взяв nrec позиционируемся в другой таблице (синоним), к которой как раз подцеплены все остальные таблицы с нужными мне данными (в основном атрибуты объекта ремонта).

Set для позиционирования не нужен, он вообще не для того предназначен. Особенно если навигация выполняется с помощью модификатора.
Если для подцепки используется переменная и вызов IsValid, то Атлантису не помешает маякнуть о том, что текущую запись в подцепленной таблице (если она есть) следует считать невалидной из-за изменения значения переменной. Делается это с помощью вызова FixRelations, которой в качестве параметра передаётся упомянутая переменная (Внимание! Передаётся сама переменная, а не номер поля, как в большинстве других методов интерфейса или ЛТ).

Код: Выделить всё

  create view 
    var
      LnkVar: comp;
    from RootTable, LeafTable where ((LnkVar == LeafTable.RootRef));
  ...
  _loop RootTable {
    ...
    LnkVar := RootTable.Nrec;
    if getfirst LeafTable = tsOk {
      ...
    }
    ...
    // или так
    LnkVar := RootTable.NRec;
    FixRelations(LnkVar); // а вот так упадёт: FixRelations(#LnkVar);
    if IsValid(tnLeafTable) {
      ...
    }   

Хотя особого смысла в использовании переменной нет: подцепки вида RootTable.NRec == LeafTable.RootRef вполне достаточно.

Оператор set в полной форме действует как обычный оператор присваивания и, кроме того, если <имя> - это поле таблицы, делается следующее:
эта таблица помечается как модифицированная, выполняется актуализация (изменение) всех таблиц, реляционно связанных с данным полем, и происходит перерисовка данного поля