Доброго времени суток!

Обработку ЗагрузкаданныхизТабличногоДокументаконечно должен знать каждый 1С-ник. И сколько бы обработок такого плана не появлялось, эта остается классикой. Даже претензии можно предъявлять если вы в ней что-то не понимаете к самой 1С. Хотя какие претензии, исходный код открыть – изучай, не хочу…

Еще чем мне нравится эта обработка – тем что вы читаете данные из внешнего источника, показываете их с помощью объекта табличное поле и только затем выбираете алгоритм загрузки в 1С. При чем загрузка у Вас происходит в среде 1С без привлечения дополнительных компонентов. Без всяких выпадов в неизвестный объект OLE, полей которые не прочитались в обработке загрузки. Если вы видете данные в табличном поле, то они и будут грузиться по вашему алгоритму.

Но что-то в ней не хватает. Конечно стандарта офисных документов ODF (Open Document Format и между прочим ГОСТ Р ИСО/МЭК 26300-2010). Как говаривал мой начальник – есть чем себя занять. Из всех внешних загрузок, которые сейчас есть к сожалению самыми распостраненными являются OLE(Com+) технологии. Возможно что-то еще появиться, но пока примемся за них.

Залезаем в код и видим несколько однотипных функуций

Функция мПрочитатьТабличныйДокументИзExcel(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт

Функция мПрочитатьТабличныйДокументИзТекста(ТабличныйДокумент, ИмяФайла, НомерЛистаExcel = 1) Экспорт

Пора добавить свою:

Код 1C v 8.х

 

// Функция считывает в табличный документ данные из файла в формате ODF Calc(ods)

//

// Параметры:

// ТабличныйДокумент – ТабличныйДокумент, в который необходимо прочитать данные

// ИмяФайла – имя файла в формате ODF, из которого необходимо прочитать данные

// НомерЛистаCalc – номер листа книги Calc, из которого необходимо прочитать данные

//

// Возвращаемое значение:

// Истина, если файл прочитан, Ложь – иначе

//

Функция мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент, ИмяФайла, НомерЛистаCalc = 1) Экспорт



ВыбФайл = Новый Файл(ИмяФайла);

Если НЕ ВыбФайл.Существует() Тогда

Сообщить(“Файл не существует!”);

Возврат Ложь;

КонецЕсли;



Попытка

ServiceManager = Новый COMОбъект(“com.sun.star.ServiceManager”);

Desktop = ServiceManager.CreateInstance(“com.sun.star.frame.Desktop”);

Desktop.getCurrentFrame().getContainerWindow().setVisible(Ложь); //сделаем невидимым основное окно.



//установим параметры – не показывать таблицу Calc

Параметры = Новый COMSafeArray(“VT_DISPATCH”, 1);

Свойство = ServiceManager.Bridge_GetStruct(“com.sun.star.beans.PropertyValue”);

Свойство.Name = “Hidden”;

Свойство.Value = true;

Параметры.SetValue(0,Свойство);



Document = Desktop.LoadComponentFromURL(“file:///” + ИмяФайла, “_blank”, 0, Параметры);

Состояние(“Обработка файла Office Calc …”);

Листы = Document.getSheets();

Лист = Листы.getByIndex(НомерЛистаCalc-1);

Исключение

Сообщить(“Ошибка загрузки данных. Возможно неверно указан номер листа книги Calc.”);

Возврат ложь;

КонецПопытки;



ТабличныйДокумент.Очистить();



//Определение максимум ячейки с данными…

НульЯчейка = Лист.GetCellbyPosition(0,0);

НульКурсор = Лист.createCursorByRange(НульЯчейка);

НульКурсор.GotoEndOfUsedArea(1);

НульАдрес = НульКурсор.RangeAddress;

ПослСтрока = НульАдрес.EndRow;

ПослКолонка = НульАдрес.EndColumn;



//Для Column = 1 По ПослКолонка + 1 Цикл

// ТабличныйДокумент.Область(“C” + Формат(Column, “ЧГ=”)).ШиринаКолонки = Лист.getColumns.getByIndex(Column-1).Width;

//КонецЦикла;



Для Row = 1 По ПослСтрока + 1 Цикл



Если Лист.getCellByPosition(Column-1,Row-1).getType() = 0 Или Лист.getCellByPosition(Column-1,Row-1).getType() = 1 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).value;

ИначеЕсли Лист.getCellByPosition(Column-1,Row-1).getType() = 2 Тогда ТабличныйДокумент.Область(“R” + Формат(Row, “ЧГ=”) +”C” + Формат(Column, “ЧГ=”)).Текст = Лист.getCellByPosition(Column-1,Row-1).string;

КонецЕсли;

КонецЦикла;



//ServiceManager.quit();

Document.Dispose();

Document = 0;

Параметры = 0;

Desktop = 0;

ServiceManager = 0;



Возврат Истина;



КонецФункции   

И добавим в форму выбора файла ods по тексту.

Код 1C v 8.х

 ДиалогВыбораФайла.Фильтр = “Табличный документ (*.mxl)|*.mxl|Лист Calc (*.ods)|*.ods|Лист Excel (*.xls)|*.xls|Текстовый документ (*.txt)|*.txt|dBase III (*.dbf)|*.dbf|”;   

И выбор функции для ods

ИначеЕсли нРег(ФайлНаДиске.Расширение) = “.ods” Тогда
мПрочитатьТабличныйДокументИзCalc(ТабличныйДокумент,ДиалогВыбораФайла.ПолноеИмяФайла);

Вот так лучше.

Сайт sikuda.ru

 // Сформировать почтовый профиль.

// При отправке нет необходимости указывать настройки, связанные с POP сервером.

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераSMTP = Константы.АдресСервераSMTP.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.ПарольSMTP = Константы.ПарольSMTP.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПользовательSMTP = Константы.ПользовательSMTP.Получить();

ИПП.ПортSMTP = Константы.ПортSMTP.Получить();



// Создать сообщение.

Сообщение = Новый ИнтернетПочтовоеСообщение;

Сообщение.Получатели.Добавить("file@server.ru");

Сообщение.Отправитель.Адрес = "test@serv.ru";

Сообщение.Тема = "Срочно в номер!";

Сообщение.Тексты.Добавить("Доброе время суток!");



Вложение = Новый ДвоичныеДанные(ПутьКФайлуВложения);

Сообщение.Вложения.Добавить(Вложение,"attach.txt");



// Подключиться и отправить.

Почта = Новый ИнтернетПочта;

Почта.Подключиться(ИПП);

Почта.Послать(Сообщение);

Почта.Отключиться();



// Формирование почтового профиля.

// При получении нет необходимости указывать настройки, связанные с SMTP сервером.

СостояниеПриема = "Подключение к серверу";

ИПП = Новый ИнтернетПочтовыйПрофиль;

ИПП.АдресСервераPOP3 = Константы.АдресСервераPOP3.Получить();

ИПП.ВремяОжидания = Константы.ВремяОжидания.Получить();

ИПП.Пароль = Константы.Пароль.Получить();

ИПП.Пользователь = Константы.Пользователь.Получить();

ИПП.ПортPOP3 = Константы.ПортPOP3.Получить();



Соединение = Новый ИнтернетПочта;

Соединение.Подключиться(ИПП);

СостояниеПриема = "Получение выборки писем";

Выборка = Соединение.Выбрать(ЗабиратьССервера);

СостояниеПриема = "Создание документов - писем";

КоличествоВВыборке = Выборка.Количество();

Индекс = 1;



Для Каждого Письмо Из Выборка Цикл

ТекПозиция = Окр(Индекс * 100/КоличествоВВыборке);

Если ТекПозиция <> Позиция Тогда

Позиция = ТекПозиция;

КонецЕсли;



Док = Документы.Письмо.СоздатьДокумент();

Док.Тема = Письмо.Тема;

СтрПолучатели = "";



Для Каждого Адрес Из Письмо.Получатели Цикл

СтрПолучатели = СтрПолучатели + Адрес.Адрес + ",";

КонецЦикла;



Док.Получатели = СтрПолучатели;

Если ТипЗнч(Письмо.Отправитель) = Тип("Строка") Тогда

Отправитель = Письмо.Отправитель;

Иначе

Отправитель = Письмо.Отправитель.Адрес;

КонецЕсли;



Док.Отправитель = Отправитель;

Содержание = "";



Для Каждого ТекстСообщения Из Письмо.Тексты Цикл

Содержание = Содержание + ТекстСообщения.Текст + Символы.ПС;

КонецЦикла;



Док.Содержание = Содержание;

Индекс = Индекс + 1;

Док.Записать();

КонецЦикла;



Соединение.Отключиться();    

Режим предназначен для выполнения конфигуратором административных функций без участия пользователя. Данный режим применяется в специальных случаях. Например, с его помощью можно организовать специальный ярлык на рабочем столе Windows для создания резервной копии информационной базы 1С:Предприятия. При этом пользователю не нужно будет выполнять никаких действий по выбору необходимой функции в конфигураторе и указанию параметров необходимых для сохранения информационной базы. Данный режим может использоваться для организации автоматического выполнения административных функций в определенный момент времени. Для этого используется любое программное обеспечение, имеющее возможность планирования и запуска задач в определенное время. Например, может быть организовано автоматическое создание резервной копии в ночное время суток

Пакетный режим предназначен для выполнения следующих действий:
-тестирование и исправление информационной базы;
-выгрузка данных;
-сохранение данных;
-автообмен распределенной информационной базы (режим доступен, если установлена компонента «Управление распределенными информационными базами»).

Запуск Конфигуратора в пакетном режиме
Для работы Конфигуратора в пакетном режиме следует в командной строке запуска 1С:Предприятия, кроме параметра CONFIG, указывающего на то, что система 1С:Предприятие запускается в режиме «Конфигуратор», указать параметр /@ФайлПакетногоРежима. ФайлПакетногоРежима - это имя файла, содержащего параметры пакетного запуска. Все необходимые функции, которые должны быть выполнены Конфигуратором в пакетном режиме, описываются в этом файле.
Имя файла может задаваться как абсолютным путем, так и относительным.
В случае задания относительным путем файл ищется программой сначала в рабочем каталоге пользователя, затем в каталоге информационной базы, а затем в том каталоге, из которого запускается 1С:Предприятие.Для того, чтобы при пакетном режиме не выдавался диалог запуска 1С:Предприятия и диалог авторизации, в строке запуска должны быть указаны все необходимые параметры:
-параметр CONFIG;
-каталог информационной базы (параметр /D);
-имя пользователя, если для данной информационной базы ведется список пользователей (параметр /N);
-пароль пользователя, если для пользователя задан пароль (параметр /Р).

Файл пакетного режима имеет по умолчанию расширение .prm, если используется другое расширение, то оно должно явно указываться в имени файла.
Ниже приведен пример строки запуска Конфигуратора в пакетном режиме:
c:\1cv7\bin\1cv7.exe CONFIG /Dc:\1cv7\db /NПопов /PSekret /@C:\lCV7\CMD\Backup

Структура файла пакетного режима.
Файл пакетного режима является текстовым файлом и может создаваться и модифицироваться любым текстовым редактором. Структура файла включает секции и параметры, определенные для каждой секции. Секция задается отдельной строкой с именем секции в прямоугольных скобках. Параметры задаются отдельными строками после строки соответствующей секции с указанием имени параметра и значением, отделенным знаком «=». Основная секция General, описывает общие параметры пакетного режима и необходимость выполнения отдельных функций пакетного режима. Остальные секции содержат параметры, описывающие особенности выполнения конкретных функций.

Секция General [General]

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

Output=Имя_файла

Указывает файл, в который будет дополнительно направляться вывод записей о выполняемых действиях в пакетном режиме. Имя файла может указываться как абсолютным путем, так и относительно каталога, в котором расположен файл параметров. Формат файла дополнительного вывода совпадает с форматом вывода в журнал регистрации. Если параметр не указан, то дополнительный вывод производиться не будет. В любом случае вывод производится в журнал регистрации


Quit=Значение

Указывает, нужно ли завершать выполнение Конфигуратора после выполнения действий пакетного режима.

Если задано Y или 1, после выполнения действий пакетного режима, программа будет завершена, а если 0 или N, то нет.

Если параметр не задан, то программа будет завершена.


CheckAndRepair=Значение

Указывает, нужно ли выполнять тестирование и исправление информационной базы.

Если задано Y или 1, тестирование и исправление будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то тестирование и исправление выполняться не будет.


UnloadData =3начение

Указывает, нужно ли выполнять выгрузку информационной базы.

Если задано Y или 1, выгрузка будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то выгрузка выполняться не будет.

SaveData=Значение

Указывает, нужно ли выполнять сохранение информационной базы.

Если задано Y или 1, сохранение будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то сохранение выполняться не будет.


AutoExchange=Значение

Указывает, нужно ли выполнять автообмен в распределенной информационной базе.

Если задано Y или 1, автообмен будет выполняться, а если 0 или N, то нет.

Если параметр не задан, то автообмен выполняться не будет.

Подробное описание работы с распределенными информационными базами приведено в книге «Управление распределенными информационными базами».

Секция CheckAndRepair [CheckAndRepair]

Данная секция предназначена для описания выполнения тестирования и исправления информационной базы.

Repair=Значение

Параметр указывает, должно ли выполняться исправление информационной базы.

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

Если задано значение N или 0, то будет производиться только тестирование.

Если параметр не задан, то будет производиться тестирование и исправление.


PhysicalIntegrity=Значение

Параметр указывает, следует ли производить проверку физической целостности таблиц информационной базы.

Если задано Y или 1, проверка будет производиться, если N или 0, то нет.

Если параметр не задан, проверка будет производиться.


Reindex=Значение

Параметр указывает, следует ли производить реиндексацию таблиц информационной базы.

Если задано Y или 1, реиндексация будет производиться, если N или 0, то нет.

Если параметр не задан, реиндексация будет производиться.

Если установлен режим исправления, то рекомендуется установить и режим реиндексации.


LogicalIntegrity=Значение

Параметр указывает, следует ли производить проверку логической целостности таблиц информационной базы.

Если задано Y или 1, проверка будет производиться, если N или 0, то нет.

Если параметр не задан, проверка будет производиться.


RecalcSecondaries=Значение

Параметр указывает, следует ли производить обновление (пересчет) вторичных данных информационной базы, то есть служебных данных, которые могут быть рассчитаны на основании другой информации, хранящейся в информационной базе.

Если задано Y или 1, обновление будет производиться, если N или 0 - то нет.

Если параметр не задан, обновление будет производиться.


RecalcTotals=Значение

Параметр указывает, следует ли производить пересчет итогов бухгалтерского и оперативного учета.

Если задано Y или 1, пересчет будет производиться, если N или 0 - то нет.

Если параметр не задан, пересчет будет производиться.


Pack=3начение

Параметр указывает, следует ли производить упаковку таблиц информационной базы, то есть освобождать место занятое удаленными записями.

Если задано Y или 1, упаковка будет производиться, если N или 0, то нет.

Если параметр не задан, упаковка не будет производиться.

Данный параметр имеет смысл, только если данные хранятся в формате DBF/CDX.


SkipUnresolved=Значение

Параметр указывает, следует ли пропускать неразрешенные ссылки, или их следует исправлять.

Если задано Y или 1, неразрешенные ссылки будет только диагностироваться, если N или 0, то ссылки будут разрешаться способом, задаваемым параметром CreateForUnresolved (см. ниже).

Если параметр не задан, ссылки будут исправляться.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


CreateForUnresolved=Значение

Параметр указывает способ разрешения неразрешенных ссылок.

Если задано Y или 1, для неразрешенной ссылки будет создан объект соответствующего типа, если N или 0, то ссылка будет очищена.

Если параметр не задан, будет создан объект.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


Reconstruct=Значение

Параметр указывает способ исправления информационной базы в случае, когда данные объекта частично потеряны. Если задано Y или 1, будет создан объект, заполненный имеющимися данными, если N или 0, то данные объекта будут удалены.

Если параметр не задан, будет создан объект.

Параметр имеет смысл только, если проводится тестирование и исправление информационной базы.


Секция UnloadData [UnloadData]

Данная секция предназначена для описания выполнения выгрузки данных информационной базы.


UnloadToFile=Имя_Файла

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

Параметр должен быть задан обязательно.

IncludeUserDef=Значение

Параметр указывает должен ли в файл переноса данных включаться список пользователей.

Если задано Y или 1, то список пользователей будет включен в файл переноса, если 0 или N, то нет.

Если параметр не задан, то список будет включен в файл переноса.


Password=Пароль

Параметр задает пароль, которым будет закрыт файл переноса данных.

Если параметр не задан, то файл переноса не будет закрыт паролем.


Секция SaveData [SaveData]

Данная секция предназначена для описания выполнения сохранения данных информационной базы.

SaveToFile=Имя_Файла

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

Параметр должен быть задан обязательно.

FileList=Список сохраняемых файлов

Задается как перечисление имен файлов, разделенных пробелами или запятыми. Длинные имена файлов, содержащие пробелы должны заключаться в кавычки "". В именах файлов могут использоваться символы «*» для обозначения групп файлов.

Если параметр не задан, то список сохраняемых файлов будет взят из файла 1CV7FILE.LST, так же как и в случае выполнения сохранения из пункта меню «Администрирование».


Работа в пакетном режиме
Выполнение указанных действий в пакетном режиме производится всегда в строго определенной последовательности, вне зависимости от порядка следования секций и параметров в файле пакетного режима:
1. тестирование и исправление информационной базы;
2. выгрузка данных;
3. сохранение данных;
4. автообмен распределенной информационной базы.
При работе Конфигуратора в пакетном режиме не выполняется выдача предупреждений и запросов, требующих подтверждения пользователя. При возникновении критических ошибок выполнение пакетного режима прекращается. Результаты выполнения пакетного режима можно просмотреть в журнале регистрации и в файле дополнительного вывода, если он был определен в файле параметров пакетного режима.

Пример пакетного файла:

[General]
Output="D:\Типовые конфигурации\1SBBDemo\log.txt"
Quit=1
SaveData=1
[SaveData]
SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"

Ярлык для запуска базы и выполнения файла пакетного режима:

\\Server\1cv77\BIN\1cv7s.exe config /D "D:\Типовые конфигурации\1SBBDemo\" /@"D:\Типовые конфигурации\1SBBDemo\paket.txt"

Комментарий к файлу:
Во время работы будет сформирован лог-файл (Output="D:\Типовые конфигурации\1SBBDemo\log.txt"). Он будет здесь D:\Типовые конфигурации\1SBBDemo\log.tx.
Будет выполнено сохранение данных (SaveData=1) в файл arch.zip (SaveToFile="D:\Типовые конфигурации\1SBBDemo\arch.zip"). После выполения работы - конфигуратор будет закрыт (Quit=1). Информационная база хранится в D:\Типовые конфигурации\1SBBDemo\. Файл пакетного режима харанится в папке базы и называется paket.txt.

Пакетный режим является мощным инструментом. Чаще всего используется для создания архивных копий. Проблема только в том, что он архив делается всегда под одним именем. И чтобы не затирать старые архивы, требуется некоторая изворотливость с конфигурационным файлом пакетного режима. Но здесь огромное поле для фантазии, по этому предоставляю Вам возможность фантазировать.