Как правильно выгрузить табличные данные из 1С в формат DBF?

Программист 1С v8.3 (Управляемые формы) IT и автоматизация бизнеса
← На главную

При работе с системой 1С часто возникает необходимость обмениваться данными с другими программами, которые используют формат DBF. Однако, попытки использовать стандартную функцию "Сохранить как" в 1С для выгрузки табличных частей в DBF-файл часто приводят к некорректным результатам: данные выгружаются не полностью, а структура файла оказывается неверной. В этой статье мы подробно рассмотрим, почему так происходит и как правильно реализовать программную выгрузку данных в формат DBF в 1С.

Почему встроенная функция "Сохранить как DBF" работает некорректно?

Прежде всего, давайте выясним, почему стандартный механизм сохранения таблиц в 1С (например, через сочетание клавиш Ctrl+S или пункт меню "Файл" -> "Сохранить как") не подходит для создания полноценных DBF-файлов. Когда мы выбираем тип файла "Таблица DBF (*.dbf)" в диалоге сохранения, система 1С выполняет не экспорт в полноценный DBF-формат, а скорее создает файл для просмотра данных, который по своей сути может быть более похож на текстовый файл с разделителями или специфический формат, не полностью соответствующий структуре DBF.

Такой "квази-DBF" файл не содержит необходимой заголовочной информации о типах полей, их длине и кодировке, что критически важно для корректной работы с ним в других приложениях. В результате, при попытке открыть такой файл во внешнем DBF-редакторе мы видим искаженные данные, неполные записи или ошибки чтения. Для полноценной и корректной выгрузки данных в DBF нам потребуется использовать программные средства 1С.

Способ 1: Программная выгрузка данных в CSV с последующим преобразованием в DBF

Один из самых простых и доступных способов получить данные в формате, который легко может быть прочитан большинством DBF-редакторов или конвертеров, это сначала выгрузить их в формат CSV (Comma Separated Values). CSV-файл представляет собой текстовый файл, где значения разделены определенным символом (чаще всего запятой или точкой с запятой), а строки соответствуют записям.

Преимущество этого метода заключается в его простоте и отсутствии необходимости использовать внешние компоненты или сложные COM-объекты. Мы можем использовать встроенный в 1С объект Текст для создания такого файла. Полученный CSV-файл затем можно вручную импортировать в большинство DBF-редакторов.

Давайте рассмотрим подробный пример кода, который позволяет выгрузить табличную часть документа в CSV-файл. Этот подход включает формирование заголовка с именами колонок и последующую запись данных каждой строки табличной части, учитывая различные типы значений.


Процедура ВыгрузитьВDBF(ТабличнаяЧасть, ИмяФайла)
    // Создаем новый текстовый файл для записи данных.
    Файл = Новый Текст;
    // Устанавливаем полное имя файла, включая путь.
    Файл.УстановитьИмяФайла(ИмяФайла);
    
    // Формируем строку заголовка файла. В ней будут перечислены имена колонок.
    СтрокаЗаголовка = "";
    Для Каждого Колонка Из ТабличнаяЧасть.Колонки Цикл
        // Каждое имя колонки заключаем в двойные кавычки и добавляем разделитель (точку с запятой).
        СтрокаЗаголовка = СтрокаЗаголовка + """" + Колонка.Имя + """;";
    КонецЦикла;
    // Удаляем последнюю точку с запятой и заменяем ее на закрывающую кавычку,
    // чтобы строка заголовка соответствовала CSV-формату.
    Файл.ДобавитьСтроку(СтрЗаменить(СтрокаЗаголовка, ";""", """,")); 
    
    // Перебираем все строки табличной части для записи данных.
    Для Каждого СтрокаТЧ Из ТабличнаяЧасть Цикл
        СтрокаДанных = "";
        // Для каждой строки перебираем все колонки.
        Для Каждого Колонка Из ТабличнаяЧасть.Колонки Цикл
            // Получаем значение текущей колонки из текущей строки табличной части.
            Значение = СтрокаТЧ[Колонка.Имя];
            
            // Определяем тип значения для правильного форматирования.
            Если ТипЗнч(Значение) = Тип("Строка") Тогда
                // Если значение - строка, заключаем его в двойные кавычки.
                // Также заменяем внутренние кавычки на двойные, чтобы избежать ошибок при парсинге CSV.
                СтрокаДанных = СтрокаДанных + """" + СтрЗаменить(Значение, """", """""") + """;";
            ИначеЕсли ТипЗнч(Значение) = Тип("Дата") Тогда
                // Если значение - дата, форматируем ее в удобный для импорта формат (ГГГГММДД)
                // и заключаем в двойные кавычки.
                СтрокаДанных = СтрокаДанных + """" + Формат(Значение, "ДФ=yyyyMMdd") + """;";
            Иначе
                // Для остальных типов (числа, булевы и т.д.) просто преобразуем в строку.
                СтрокаДанных = СтрокаДанных + "" + Строка(Значение) + ";";
            КонецЕсли;
        КонецЦикла;
        // Удаляем последнюю точку с запятой и заменяем ее на закрывающую кавычку.
        Файл.ДобавитьСтроку(СтрЗаменить(СтрокаДанных, ";""", ""","));
    КонецЦикла;
    
    // Записываем все сформированные строки в файл на диск.
    Файл.Записать();
КонецПроцедуры

// Пример использования функции:
// Предположим, у нас есть ссылка на документ "Реализация товаров и услуг"
// ДокументОбъект = СсылкаНаДокумент.ПолучитьОбъект();
// Вызываем процедуру, передавая табличную часть "Товары" и имя файла.
// ВыгрузитьВDBF(ДокументОбъект.Товары, "C:\temp\RealizaciaTovary.csv");

В этом примере мы используем объект Текст, который позволяет построчно записывать данные в файл. При формировании заголовка и строк данных мы заключаем строковые и датовые значения в двойные кавычки и используем точку с запятой как разделитель. Это стандартный подход для CSV-файлов, который гарантирует, что данные будут корректно интерпретированы при последующем импорте.

Обратите внимание, что мы специально обрабатываем в строках двойные кавычки, заменяя их на две кавычки подряд (""""), чтобы они воспринимались как часть значения, а не как конец поля.

Способ 2: Создание и заполнение "чистого" DBF файла через ADODB.Connection

Для создания полноценного и "чистого" DBF-файла, который будет полностью соответствовать стандарту и корректно открываться в любых DBF-редакторах, мы можем использовать технологию OLE DB и COM-объект ADODB.Connection. Этот метод более сложный, но он дает полный контроль над структурой создаваемого файла, включая типы данных, их длину и точность.

Суть подхода заключается в том, что мы рассматриваем каталог, в котором будет находиться DBF-файл, как базу данных, а сам DBF-файл как таблицу в этой базе. Мы подключаемся к этому каталогу с помощью OLE DB провайдера (например, Microsoft.Jet.OLEDB.4.0 или Microsoft.ACE.OLEDB.12.0) и выполняем SQL-запросы для создания таблицы и вставки данных.

Разберем процесс по шагам.

Шаг 1: Создание DBF-файла и определение его структуры

Первым делом нам необходимо создать сам DBF-файл и определить его структуру, то есть названия и типы колонок. Для этого мы будем использовать SQL-запрос CREATE TABLE через объект ADODB.Connection.


Функция СоздатьDBF(ИмяФайлаDBF, СтруктураПолей)
    Попытка
        // Определяем каталог, где будет создан DBF-файл.
        // Можно использовать КаталогВременныхФайлов() или любой другой, заранее созданный каталог.
        КаталогDBF = КаталогВременныхФайлов(); 
        
        // Формируем строку соединения для OLE DB провайдера.
        // Provider: 'Microsoft.Jet.OLEDB.4.0' - для 32-битных систем и старых версий MS Office.
        //           'Microsoft.ACE.OLEDB.12.0' - для 64-битных систем и новых версий MS Office.
        // Data Source: Указывает путь к каталогу, где находится или будет создан DBF-файл.
        // Extended Properties: Определяет версию DBF-формата (DBF IV, DBASE IV, DBF III).
        СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" + КаталогDBF + """;Extended Properties=DBF IV;";
        
        // Создаем COM-объект ADODB.Connection для управления подключением к источнику данных.
        Соединение = Новый COMОбъект("ADODB.Connection");
        // Открываем соединение.
        Соединение.Open(СтрокаСоединения);
        
        // Формируем SQL-запрос CREATE TABLE для создания DBF-файла.
        // ИмяФайлаDBF будет именем таблицы (т.е. именем файла без расширения, если в Data Source нет пути к файлу).
        SQL = "CREATE TABLE " + ИмяФайлаDBF + " (";
        // Перебираем элементы СтруктураПолей, чтобы добавить описания колонок.
        // СтруктураПолей должна быть массивом структур, где каждая структура содержит "Имя" и "Тип" поля.
        Для Каждого Поле Из СтруктураПолей Цикл
            SQL = SQL + Поле.Имя + " " + Поле.Тип + ", ";
        КонецЦикла;
        // Удаляем последнюю запятую и пробел из SQL-запроса.
        SQL = Лев(SQL, СтрДлина(SQL) - 2); 
        SQL = SQL + ")";
        
        // Выполняем SQL-запрос для создания таблицы (DBF-файла).
        Соединение.Execute(SQL);
        // Закрываем соединение.
        Соединение.Close();
        Возврат Истина;
    Исключение
        // В случае ошибки выводим сообщение и возвращаем Ложь.
        Сообщить("Ошибка при создании DBF: " + ОписаниеОшибки());
        Возврат Ложь;
    КонецПопытки;
КонецФункции

Шаг 2: Добавление данных в созданный DBF-файл

После того как DBF-файл создан со своей структурой, мы можем добавлять в него записи. Для этого мы будем использовать SQL-запрос INSERT INTO, также через ADODB.Connection. Важно правильно форматировать значения для вставки, особенно строки и даты, чтобы они соответствовали синтаксису SQL.


Функция ДобавитьДанныеВDBF(ИмяФайлаDBF, Данные)
    Попытка
        // Определяем тот же каталог, где лежит наш DBF-файл.
        КаталогDBF = КаталогВременныхФайлов(); 
        СтрокаСоединения = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" + КаталогDBF + """;Extended Properties=DBF IV;";
        
        Соединение = Новый COMОбъект("ADODB.Connection");
        Соединение.Open(СтрокаСоединения);
        
        // Перебираем массив Данные, где каждый элемент - это структура с полями и их значениями.
        Для Каждого СтрокаДанных Из Данные Цикл
            Поля = "";
            Значения = "";
            // Для каждой строки данных формируем списки полей и значений.
            Для Каждого КлючЗначение Из СтрокаДанных Цикл
                Поля = Поля + КлючЗначение.Ключ + ",";
                // Форматируем значения в зависимости от их типа.
                Если ТипЗнч(КлючЗначение.Значение) = Тип("Строка") Тогда
                    // Строки заключаем в одинарные кавычки, внутренние кавычки экранируем.
                    Значения = Значения + "'" + СтрЗаменить(КлючЗначение.Значение, "'", "''") + "',";
                ИначеЕсли ТипЗнч(КлючЗначение.Значение) = Тип("Дата") Тогда
                    // Даты заключаем в символы # и форматируем.
                    Значения = Значения + "#" + Формат(КлючЗначение.Значение, "ДФ=yyyy-MM-dd HH:mm:ss") + "#,";
                Иначе
                    // Остальные типы просто преобразуем в строку.
                    Значения = Значения + Строка(КлючЗначение.Значение) + ",";
                КонецЕсли;
            КонецЦикла;
            // Удаляем последние запятые.
            Поля = Лев(Поля, СтрДлина(Поля) - 1);
            Значения = Лев(Значения, СтрДлина(Значения) - 1);
            
            // Формируем SQL-запрос INSERT INTO.
            SQL = "INSERT INTO " + ИмяФайлаDBF + " (" + Поля + ") VALUES (" + Значения + ")";
            // Выполняем запрос для добавления одной записи.
            Соединение.Execute(SQL);
        КонецЦикла;
        
        Соединение.Close();
        Возврат Истина;
    Исключение
        Сообщить("Ошибка при добавлении данных в DBF: " + ОписаниеОшибки());
        Возврат Ложь;
    КонецИсключения;
КонецФункции

Пример использования функций СоздатьDBF и ДобавитьДанныеВDBF:

Давайте посмотрим, как можно объединить эти функции для полного цикла создания и заполнения DBF-файла.


// 1. Определяем структуру полей для нашего будущего DBF-файла.
// Каждый элемент массива - это структура с именем поля и его типом в формате DBF.
// N(длина, точность) - числовое поле, D - дата, C(длина) - строковое поле.
СтруктураПолей = Новый Массив;
СтруктураПолей.Добавить(Новый Структура("НОМЕР",    "N(10,0)"));   // Число, 10 знаков, 0 после запятой
СтруктураПолей.Добавить(Новый Структура("ДАТА",     "D"));         // Дата
СтруктураПолей.Добавить(Новый Структура("КОММЕНТ",  "C(255)"));    // Строка, максимальная длина 255 символов
СтруктураПолей.Добавить(Новый Структура("СУММА",    "N(15,2)"));   // Число, 15 знаков, 2 после запятой

// 2. Указываем имя DBF-файла, который мы хотим создать.
ИмяDBFФайла = "МоиДанные.dbf"; // Расширение .dbf можно указать, но не обязательно, ADODB его добавит.

// 3. Создаем DBF-файл с заданной структурой.
Если СоздатьDBF(ИмяDBFФайла, СтруктураПолей) Тогда
    Сообщить("DBF файл '" + ИмяDBFФайла + "' успешно создан.");
    
    // 4. Подготавливаем данные для вставки.
    // Это массив структур, где каждая структура представляет одну строку данных,
    // а ключи структуры соответствуют именам полей, определенным выше.
    ДанныеДляDBF = Новый Массив;
    ДанныеДляDBF.Добавить(Новый Структура("НОМЕР, ДАТА, КОММЕНТ, СУММА", 
                                          1, ТекущаяДата(), "Пример комментария 1", 100.50));
    ДанныеДляDBF.Добавить(Новый Структура("НОМЕР, ДАТА, КОММЕНТ, СУММА", 
                                          2, ТекущаяДата(), "Второй комментарий", 200.75));
    ДанныеДляDBF.Добавить(Новый Структура("НОМЕР, ДАТА, КОММЕНТ, СУММА", 
                                          3, ТекущаяДата() - 365, "Старые данные", 50.00));
    
    // 5. Добавляем подготовленные данные в созданный DBF-файл.
    Если ДобавитьДанныеВDBF(ИмяDBFФайла, ДанныеДляDBF) Тогда
        Сообщить("Данные успешно добавлены в файл '" + ИмяDBFФайла + "'.");
    Иначе
        Сообщить("Не удалось добавить данные в DBF файл.");
    КонецЕсли;
Иначе
    Сообщить("Не удалось создать DBF файл.");
КонецЕсли;

Важные нюансы при работе с DBF через ADODB

При использовании ADODB.Connection для работы с DBF-файлами крайне важно учитывать несколько ключевых моментов, которые могут существенно повлиять на успешность и корректность операции:

  1. Типы данных: Мы должны очень внимательно подходить к определению типов данных в структуре полей (СтруктураПолей) при создании DBF-файла. Несоответствие указанных типов и размеров полей реальным данным может привести к ошибкам во время записи или обрезке значений. Вот основные типы:
    • C(Длина): Символьное поле (строка). Например, C(255) для строки длиной до 255 символов.
    • N(Длина, Точность): Числовое поле. Например, N(10,0) для целого числа длиной до 10 знаков, N(15,2) для числа с двумя знаками после запятой и общей длиной до 15 знаков.
    • D: Поле даты (без времени).
    • L: Логическое поле (Булево).
    • M: Мемо-поле (для длинных текстовых данных).

    Выбирайте типы данных так, чтобы они могли вместить все ваши значения без потерь.

  2. Кодировка: OLE DB провайдеры (особенно Microsoft.Jet.OLEDB.4.0) обычно работают с системной кодировкой, которая для большинства русскоязычных Windows-систем является CP1251 (Windows-1251). Если данные в 1С хранятся в Юникоде (UTF-8 или UTF-16, что стандартно для 1С 8.х), при выгрузке кириллических символов могут возникнуть проблемы с их отображением во внешних программах.

    Для решения этой проблемы можно попробовать добавить параметр Collate=Russian_Russia.1251 в строку соединения, если провайдер его поддерживает, или же выполнить явное преобразование строк из Юникода в CP1251 перед записью в DBF. Однако, самый надежный способ — убедиться, что целевая программа, которая будет читать DBF, поддерживает правильную кодировку или умеет ее определять.

  3. Версии провайдеров OLE DB: В строке соединения мы указываем Provider.
    • Microsoft.Jet.OLEDB.4.0: Это устаревший провайдер, который поставлялся с Microsoft Access 2000-2003. Он является 32-битным и может не работать на 64-битных системах без дополнительных настроек или в 64-битной среде 1С.
    • Microsoft.ACE.OLEDB.12.0 или Microsoft.ACE.OLEDB.16.0: Это более новые провайдеры, поставляемые с Microsoft Access Database Engine (распространяется как компонент для Office 2007/2010/2013/2016/2019). Они доступны как в 32-битной, так и в 64-битной версиях. Мы должны убедиться, что на сервере 1С или клиентской машине установлен соответствующий пакет Access Database Engine, и выбрать провайдер, соответствующий разрядности приложения 1С.

    Выбор правильного провайдера критически важен для успешного подключения.

  4. Расположение файла (Data Source): Важно понимать, что в строке соединения Data Source указывает не на сам DBF-файл, а на каталог, в котором этот файл находится или будет создан. Имя файла DBF указывается в SQL-запросах CREATE TABLE и INSERT INTO как имя таблицы.
  5. Производительность для больших объемов данных: Метод записи через ADODB.Connection и SQL-запросы INSERT INTO построчно может быть неэффективным для очень больших объемов данных (десятки и сотни тысяч записей). Каждая операция Execute(SQL) является отдельной транзакцией, что может замедлять процесс. Для таких сценариев стоит рассмотреть пакетную вставку или использование внешних компонент, которые могут предложить более оптимизированные методы записи.

Альтернативные методы: Использование внешних компонент

Если работа с ADODB.Connection кажется слишком сложной, или вы сталкиваетесь с постоянными проблемами с провайдерами и кодировками, существует более простая и часто более производительная альтернатива – использование внешних компонент для работы с DBF. Эти компоненты представляют собой специализированные библиотеки, разработанные для 1С, которые предоставляют прямой и удобный программный интерфейс для создания, чтения и записи DBF-файлов, минуя сложности SQL-запросов и OLE DB провайдеров.

Мы можем найти такие компоненты на специализированных ресурсах, например, на сайте Инфостарт. Обычно они поставляются в виде файла .dll или .osd, который необходимо зарегистрировать в системе или подключить к 1С. После подключения мы получаем доступ к набору функций, которые позволяют создавать DBF-файлы, определять их структуру, добавлять записи и считывать данные более простым и интуитивно понятным способом, чем через ADODB.

Выбор метода зависит от ваших конкретных потребностей, квалификации и требований к проекту. Если вам нужна максимальная гибкость и контроль, или вы уже имеете опыт работы с SQL, ADODB – отличный выбор. Если же приоритет – простота и скорость разработки, внешние компоненты могут быть предпочтительнее.

← На главную