Пример работы с OpenOffice.org Writer & MS Word

10.12.11

Интеграция - Внешние источники данных

Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word.

Скачать файлы

Наименование Файл Версия Размер
-
.1175492790 11,24Kb
2275
.1175492790 11,24Kb 2275 Скачать

Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном с ней каталоге.

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

Для работы необходим OpenOffice.org версии 2.0 и старше. Желательно, чтобы путь к файлу не содержал пробелов.

См. также

Загрузка электронных листов нетрудоспособности (ЭЛН) в ЗиК 7.7

Зарплата Внешние источники данных Расчет 7.7 1С:Зарплата и кадры 7.7 Россия Бухгалтерский учет Абонемент ($m)

Загрузка электронных листов нетрудоспособности (электронных больничных) в ЗиК 7.7 из файлов, например, из СБИС. Не нашел похожих разработок, может, плохо искал, для 1С 7.7 ЗиК.

1 стартмани

14.04.2020    8480    4    hvv2002    2    

2

JSON: Туда и Обратно

Внешние источники данных Платформа 1С v7.7 Конфигурации 1cv7 Украина Абонемент ($m)

Рабочий механизм чтения/записи строк в формате JSON для 1С 7.7. Тестировалось на релизах 7.70.25 и 27.

1 стартмани

16.12.2019    21887    59    Volvo32    33    

25

Интеграция с системой управления складом WMS Exceed-4000 (exceed-infor.ru) XML-обмен для комплексной конфигурации 1С 7.7

Внешние источники данных Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v7.7 1С:Комплексная 7.7 Оптовая торговля, дистрибуция, логистика Управленческий учет Абонемент ($m)

Обработки обмена номенклатурой (SKU), дополнительными штрихкодами (AltSku), приемкой (AdvancedShipNotice), подтверждением приема (ASNClosed), выдачей (ShipmentOrder), подтверждением выдачи (CustomerOrderLoaded) для учетной системы 1С 7.7. Здесь выгрузка и загрузка для 1C 7.7.

1 стартмани

21.10.2019    15419    1    ksnik    0    

2

Универсальная выгрузка данных из 1С 7.7 в JSON

Внешние источники данных Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Обработка для универсальной выгрузки данных из конфигурации 7.7 в JSON. Может быть полезна для задач переноса данных из различных конфигураций в другие конфигурации, для перехода на другие версии 1С, для перехода на 8.3, для переноса данных в другие системы учета, для организации онлайн выгрузки с целью синхронизации разных систем учета. Выгрузка справочников, документов, результатов запросов, остатков по планам счетов.

2 стартмани

09.10.2019    16731    71    Malice    16    

12

Обмен с SalesWorks в 1С 7.7

Внешние источники данных Оптовая торговля Файловый обмен (TXT, XML, DBF), FTP Платформа 1С v7.7 Россия Управленческий учет Абонемент ($m)

Обработка позволяет реализовать обмен данными между решением SalesWorks и 1c 7.7.

5 стартмани

16.07.2019    15906    6    vv-adm    2    

2

Выгрузка контактных данных контрагентов и формирование файла vcf. 1С 7.7

Внешние источники данных Оперативный учет 7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Обработка выгружает данные контрагентов и создает два файла: один текстовый со всеми данными, другой формата vcards.vcf для загрузки контактных данных в андроид.

1 стартмани

10.05.2019    9440    4    rid636674    1    

0
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. CheBurator 3119 18.04.07 05:56 Сейчас в теме
выдает
> Не удалось скопировать шаблон во временный файл.
2. CheBurator 3119 18.04.07 05:58 Сейчас в теме
строка команды получается такой
"copy C:\1Copen\OOoWriter&1C\Primer.doc C:\DOCUME~1\9335~1\LOCALS~1\Temp\doc.tmp"
3. CheBurator 3119 18.04.07 06:05 Сейчас в теме
Получилось...
В ОО сначала получается видимым документ, потом идет замена - имхо лучше сразу показать готовый.. (если такая возможность есть). В ворде - нормально...
4. Loshko_WR 27.09.07 15:41 Сейчас в теме
Очень полезная обработка!!! Иногда пользователи составляют "психоделические" формы документов, Кащенко отдыхает! А т.к. в 1С нет путного редактора, то СПАСИБО АВТОРУ, будем поступать нестандартным образом.
Уважаю, Рулез!
5. damacon 4 25.10.07 11:45 Сейчас в теме
А можно из 1с заполнять пользовательские поля во Writer? Ну чтобы не искать по ключевым полям и заменять их, а заполнять именованные поля, предназначенные для ввода данных.
6. Леший1975 09.07.08 16:06 Сейчас в теме
Очень нужная обработка. Оказывается сидел занимался изобретением велосипеда. Автору респект. !!!
7. vau 18.11.08 11:35 Сейчас в теме
Подскажите, как в OpenOffice после заполнения сразу отправить на печать на заданный принтер и закрыть документ. !!! очень надо !!! БОЛЬШОЕ СПАСИБО !!!


8. scape 282 21.01.09 23:00 Сейчас в теме
Спасибо! Сделал формирование на основании шаблона Word, а половина молодцов в организации, как выяснилось, работает в OpenOffice. Теперь все будут рады...
9. dds 12 13.04.09 11:50 Сейчас в теме
Спасибо, как раз искал хороший пример работы с Word.
10. Profcomp 19.05.09 14:49 Сейчас в теме
Спасибо полезная штука.. Подскажите еще примерчик работы с OpenOffice Электронные таблицы... ????
11. Pim 180 13.06.09 10:47 Сейчас в теме
Штука-то полезная, но как задать парметры печати в openoffice из 1с? У меня формируется табель в Calc и надо сразу задать формат А3 и пр...
(10) Вот примерчик:

BDPath = IBDir() + "ExtForms\PrnForms\табель.xls";
BDPath = "file:///" + StrReplace(BDPath, "\", "/");

scr = CreateObject("MSScriptControl.ScriptControl");
scr.language = "javascript";
scr.eval("Массив=new Array()");
Массив = scr.eval("Массив");
scr.AddCode("function SetItem(ind,val){Массив[ind]=val}");

ServiceManager = CreateObject("com.sun.star.ServiceManager");
scr.AddObject("ServiceManager", ServiceManager);

scr.eval("Массив[0]=ServiceManager.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
scr.eval("Массив[0].Name='AsTemplate'");
scr.eval("Массив[0].Value=true");

Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop");

Document = Desktop.LoadComponentFromURL(BDPath, "_blank", 0, Массив);
Sheets = Document.getSheets();

// Sheets.isVisible = 0;
Sheet = Sheets.getByIndex(0);
Sheet.getCellByPosition(1, 3).String = TrimAll(Константа.НазваниеОрганизации);
....



///=========================================================­====================
procedure FormatOOoRange(scr, Sheet, begCol, begRow, endCol, endRow, HoriJustify, Height, Type, Color, Merge = 0)

Range = Sheet.getCellRangeByPosition(begCol, begRow, endCol, endRow);
Range.merge(Merge);
Range.HoriJustify = HoriJustify; // 1 - left, 2 - center
range.CharHeight = Height; // размер шрифта
range.CharWeight = Type; // 100 - обычный, 150 - жирный
//Row = Sheet.Rows(5);
//Row.Height = 0; //автоподгон высоты строки
scr.eval("border=ServiceManager.Bridge_GetStruct('com.sun.star.table.BorderLine')");
Border = scr.eval("border");
Border.lineDistance = 0;
Border.innerLineWidth = 0;
Border.outerLineWidth = 1;
Range.SetPropertyValue("TopBorder", Border);
Range.SetPropertyValue("BottomBorder", Border);
Range.SetPropertyValue("LeftBorder", Border);
Range.SetPropertyValue("RightBorder", Border);
range.CellBackColor = Color;
endProcedure //FormatOOoRange
12. Трактор 1246 08.08.09 22:19 Сейчас в теме
(11) >> Штука-то полезная, но как задать парметры печати в openoffice из 1с?
тут пример http://infostart.ru/blogs/1141/ у calc'а посложнее, у writer'а попроще.
13. ulen 55 05.03.10 22:22 Сейчас в теме
14. Lua 28.04.10 11:07 Сейчас в теме
:{} Спасибо огромное))))))
15. NagNag 24.03.11 20:21 Сейчас в теме
Все очень красиво, но как автоматически записать готовый замененный файл? Никак не пойму!? Пробовал
ТекстовыйПроцессор.Documents.Save(ИмяФайлаВордКон);
и
ТекстовыйПроцессор.Save(ИмяФайлаВордКон);
Пишет
{Обработка.ЗаменаВВордФайлах.Форма.Модуль(126)}: Типы не совпадают

И почему-то открытый файл с атрибутом только чтение?!
16. NagNag 25.03.11 00:54 Сейчас в теме
Вообщем сам отвечаю на свой вопрос! Сделал
Doc=ТекстовыйПроцессор.Documents.Open(ИмяФайла,, -1);
........
Doc.Saveas(ИмяФайлаВордКон);
Doc.Close();
17. nanik 5 20.12.11 00:29 Сейчас в теме
Спасибо, очень хороший пример. Реализовал в ЗиК печать уведомлений по иностранцам и еще несколько печатных подобных форм для нашего отдела кадров.
18. romorozov 25.01.12 13:20 Сейчас в теме
19. N_aix 09.03.13 16:15 Сейчас в теме
20. GrafB 10 04.02.16 11:31 Сейчас в теме
а где нужно было увидеть что обработка для 1С 7.7, мне для 8ки нужен был пример, скачал потратил деньги, а тут сюрприз.
21. aldot 02.03.18 22:22 Сейчас в теме
Подскажите как что-то подобное реализовать в linux?
22. IvanDK 9 22.08.18 15:41 Сейчас в теме
Не указано для какой версии 1с обработка!!
Оставьте свое сообщение