sub AllTableToQVD(dirToExtract, needDrop)
/*
Выгрузка всех таблиц в QVD в указанную папку
dirToExtract - путь к папке, в которой появятся QVD с именами таблиц.
needDrop - если установлено 1, то таблица будет удалена после сохранения на диск.
*/
//Iterate through the loaded tables
For t = 0 to NoOfTables() - 1
//Iterate through the fields of table
For f = 1 to NoOfFields(TableName($(t)))
scriptAppTables:
Load
TableName($(t)) as Table,
TableNumber(TableName($(t))) as TableNo,
NoOfRows(TableName($(t))) as TableRows,
FieldName($(f),TableName($(t))) as Field,
FieldNumber(FieldName($(f),TableName($(t))),TableName($(t))) as FieldNo
Autogenerate 1;
Next f
Next t;
//Обрабатываю по отдельности каждую таблицу
For Each scriptTableName in FieldValueList('Table')
if not Match('$(scriptTableName)','scriptAppTables', '') then
Store [$(scriptTableName)] into [$(dirToExtract)\$(scriptTableName).qvd] (qvd);