gFiltersMFilters и таблица MFiltersForInsert
Добавлено: 14 фев 2015, 19:33
Уважаемые форумчане,
Переходим на новые патчи. В одной из доработок используется макропеременная gFiltersMFilters.
В новом файле переписан код макропеременной и в нём используется таблица MFiltersForInsert. При компиляции возникает ошибка "Таблица MFiltersForInsert отсутствует в словаре".
Найти описание этой таблицы не удалось. Где можно его найти?
P.S.
Описание gFiltersMFilters в старом файле:
И в новом:
Переходим на новые патчи. В одной из доработок используется макропеременная 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