not-remember
8/13/2019 - 11:57 AM

BinaryLoad

Выгрузка данных из уже готового приложения

//Внесите данный скрипт в самое начало секции "Main"
//Не забывайте, что для загрузки Binary этот оператор должен быть САМЫМ ПЕРВЫМ
//Настройте новое соединение выбрав "Create new connection"
//Выберите директорию, где лежит исходный файл. Назовите новое соединение "Source"
Binary [lib://qvf/Вертекс (Пилот) v2.qvf]; //введите имя исходного файла


for i=0 to NoOfTables() - 1 //получаем кол-во таблиц
	LET [vTable] = TableName(i); //имя очередной таблицы
    LET [vTable1] = 'lib://data/' & [vTable] & '.qvd'; //формируем путь, куда записываем данные из исходного файла. Пожалуйста, называйте директорию с данными "Data"
    STORE [$(vTable)] INTO [$(vTable1)]; //Сохраняем...
  
next
//exit Script; //раскомментируйте, если хотите оставить таблицы в новом файле
//иначе - удаляем таблицы 
	LET j = NoOfTables();
    
do while j > 0

	LET [vTable] = TableName(0);
    drop table '$(vTable)';
    LET j = NoOfTables();
loop 



exit Script;
//вот - начало старой секции Main. Скрипт должен вставляться ДО 
//SET ThousandSep=' ';
//SET DecimalSep=',';
//SET MoneyThousandSep=' ';
//SET MoneyDecimalSep=',';
//SET MoneyFormat='# ##0,00 ₽;-# ##0,00 ₽';
//...