Sub KeepTables (Table2Keep)
////////////////Kill Tables Start
//Удаляет из модели все таблицы кроме одной, которая указанна в переменной vTableToKeep
unqualify *;
let vTableToKeep=Table2Keep; //Вместо НазваниеТаблицы пишем имя таблицы, которую хотим сохранить
tablemap:
mapping load
subfield('$(vTableToKeep)',';'),
1
AutoGenerate 1;
For t = 0 to NoOfTables() - 1
KillTables:
Load
TableName($(t)) as KillTables
Autogenerate 1 where applymap('tablemap',TableName($(t)))<>1;
Next t;
KillTablesConcat: load Concat(distinct '['&KillTables&']',',') as KillTablesConcat resident KillTables;
let vTables2Kill='drop tables '&peek('KillTablesConcat',0,'KillTablesConcat')&';';
drop tables KillTablesConcat, KillTables;
$(vTables2Kill)
////////////////Kill Tables Stop
end Sub