gFiltersMFilters и таблица MFiltersForInsert

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Zver
Местный житель
Сообщения: 204
Зарегистрирован: 13 ноя 2012, 12:47
Откуда: СПб
Контактная информация:

gFiltersMFilters и таблица MFiltersForInsert

Сообщение Zver »

Уважаемые форумчане,
Переходим на новые патчи. В одной из доработок используется макропеременная gFiltersMFilters.

В новом файле переписан код макропеременной и в нём используется таблица MFiltersForInsert. При компиляции возникает ошибка "Таблица MFiltersForInsert отсутствует в словаре".

Найти описание этой таблицы не удалось. Где можно его найти?

P.S.
Описание gFiltersMFilters в старом файле:

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

#declare gFiltersMFilters
public function CopyDocument: comp;
{
  var SFiltersNRec : comp;
  SFiltersNRec := SFilters.NRec;
  SFilters.NRec := 0;
  insert current SFilters;
  CopyDocument := SFilters.NRec;
  _LOOP MFilters where (( SFiltersNRec == MFilters.cSFilters ))
    {
      MFilters.NRec := 0;
      insert current MFilters;
    }
}

public function NextDocument: comp;
{
  NextDocument := GetNextNRec(#SFilters, 0)
}

public procedure DeleteDocument(aDoc : comp);
{
  delete all MFilters where((aDoc  == MFilters.cSFilters));
  delete SFilters where((aDoc  == SFilters.NRec));
}
#end
И в новом:

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

#declare gFiltersMFilters
public function CopyDocument: comp;
{
//  Message('CopyDocument= '+SFilters.NRec,Information);
  var SFiltersNRec : comp;
  SFiltersNRec := SFilters.NRec;
  SFilters.NRec := 0;
  insert current SFilters;
  CopyDocument := SFilters.NRec;
//  _LOOP MFilters where (( SFiltersNRec == MFilters.cSFilters ))
  var i : word;
  for ( i := GetFirst MFilters where (( SFiltersNRec == MFilters.cSFilters ));
        i = tsOk;
        i := GetNext MFilters where (( SFiltersNRec == MFilters.cSFilters )))
   if ( GetFirst MFiltersForInsert where (( MFilters.NRec == MFiltersForInsert.NRec )) =tsOk )
    {
      MFiltersForInsert.NRec := 0;
      MFiltersForInsert.cSFilters := CopyDocument;
      insert current MFiltersForInsert;
//      Message('MFiltersInsert =   '+MFiltersForInsert.NRec+'   wType='+MFiltersForInsert.wType,Information);
    }
}

public function NextDocument: comp;
{
  NextDocument := GetNextNRec(#SFilters, 0)
}

public procedure DeleteDocument(aDoc : comp);
{
  delete all MFilters where((aDoc  == MFilters.cSFilters));
  delete SFilters where((aDoc  == SFilters.NRec));
}
#end 
Программист-самоучка
Den
Местный житель
Сообщения: 1844
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: gFiltersMFilters и таблица MFiltersForInsert

Сообщение Den »

MFiltersForInsert это, наверное, alias MFilters
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Re: gFiltersMFilters и таблица MFiltersForInsert

Сообщение Maverick »

MFiltersForIsert - это синоним таблицы MFilers. Инфа достоверная
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Zver
Местный житель
Сообщения: 204
Зарегистрирован: 13 ноя 2012, 12:47
Откуда: СПб
Контактная информация:

Re: gFiltersMFilters и таблица MFiltersForInsert

Сообщение Zver »

Спасибо, помогло.

Пересобрал ресурс.
Программист-самоучка
Ответить