Выгрузка в PDF из 1С (Средствами OpenOffice) Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается *08
Код 1C v 8.2 УП Процедура КнопкаВыполнитьНажатие(Кнопка) Если Письмо. Основание. Пустая( ) Тогда
Возврат
КонецЕсли ;
Попытка
ServiceManager = Новый COMОбъект( "com.sun.star.ServiceManager" ) ;
Исключение
Возврат
КонецПопытки ;
Заказ = Письмо. Основание. ПолучитьОбъект( ) ;
Расшифровка= Новый Структура;
Расшифровка. Вставить( "СсылкаНаВнешнююОбработку" , Константы. ПФСчетаДляКлиента. Получить( ) ) ;
Расшифровка. Вставить( "ВидПечатнойФормы" , Перечисления. ВидыДополнительныхВнешнихОбработок. ПечатнаяФорма) ;
Расшифровка. Вставить( "НомерСтроки" , 1 ) ;
тд = УниверсальныеМеханизмы. НапечататьВнешнююФорму( Заказ, Расшифровка) ;
ВременныйФайл = ПолучитьИмяВременногоФайла( ) ;
ВременныйФайлXLS = ВременныйФайл + ".xls" ;
ВременныйФайлPDF = ВременныйФайл + ".pdf" ;
тд. Записать( ВременныйФайлXLS, ТипФайлаТабличногоДокумента. XLS97) ;
Desktop = ServiceManager. createInstance( "com.sun.star.frame.Desktop" ) ;
НастройкиОткрытия = Новый COMSafeArray( "VT_VARIANT" , 1 ) ;
PropertyValue = ServiceManager. Bridge_GetStruct( "com.sun.star.beans.PropertyValue" ) ;
PropertyValue. Name = "Hidden" ;
PropertyValue. Value = Истина ;
НастройкиОткрытия. SetValue( 0 , PropertyValue) ;
ВременныйФайлXLS_какУРЛ = "file:///" + СтрЗаменить( ВременныйФайлXLS, "\" , "/" ) ;
ОпенОфис = Desktop. LoadComponentFromURL( ВременныйФайлXLS_какУРЛ, "_blank" , 0 , НастройкиОткрытия) ;
Стили = ОпенОфис. StyleFamilies. getByName( "PageStyles" ) ;
Для поз = 0 по Стили. count - 1 Цикл
МойСтиль = Стили. getByIndex( поз) ;
МойСтиль. ScaleToPagesX = 1 ;
КонецЦикла ;
НастройкиСохранения = Новый COMSafeArray( "VT_VARIANT" , 1 ) ;
PropertyValue = ServiceManager. Bridge_GetStruct( "com.sun.star.beans.PropertyValue" ) ;
PropertyValue. Name = "FilterName" ;
PropertyValue. Value = "calc_pdf_Export" ;
НастройкиСохранения. SetValue( 0 , PropertyValue) ;
ВременныйФайлPDF_какУРЛ = "file:///" + СтрЗаменить( ВременныйФайлPDF, "\" , "/" ) ;
ОпенОфис. storeToURL( ВременныйФайлPDF_какУРЛ, НастройкиСохранения) ;
ОпенОфис. close( - 1 ) ;
ОпенОфис = Неопределено ;
объектПисьмо = Письмо. ПолучитьОбъект( ) ;
стрВложение = объектПисьмо. Вложения. Добавить( ) ;
стрВложение. ИмяФайла = "Счёт " + Строка( Заказ. Номер) + ".pdf" ;
стрВложение. Файл = Новый ХранилищеЗначения( Новый ДвоичныеДанные( ВременныйФайлPDF) ) ;
объектПисьмо. Записать( ) ;
Попытка
УдалитьФайлы( ВременныйФайлXLS) ;
УдалитьФайлы( ВременныйФайлPDF) ;
Исключение
КонецПопытки ;
КонецПроцедуры
Автор:
Трактор
Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice
Код 1C v 8.х // Функция превращает табличный документ в PDF документtrue ");
Автор:
doom_2001 Категория:
Работа с Microsoft Office и OpenOffice 1C и Google Maps была поставлена задача отображения на географической карте медицинских учреждений. После обзора предлагаемых решений был выбран сервис google. Но так же подобного рода подход будет работать и с картами сервиса yandex. Во время решения задачи было решено использовать геокодирование сервиса Google и Google Visualization для отображение элементов на карте.
Геокодирование – процесс преобразования адресов·(Украина, Киевская область, Киев, Крещатик 20) в географические координаты (широта 37.423021 и долгота -122.083739), которые можно использовать для размещения маркеров или расположения карты. Подробно про геокодирование можно почитать
тут .
Для работы с геокодированием необходимо
зарегистрировать ключ API карт Google .
Важный момент: если у вас программа работает в локальной сети и в Internet, то вам необходимо регистрировать два ключа. В зависимости от того, с какого места подключается пользователь к базе подставлять тот или иной ключ.
И так, собственно программная реализация.
В конфигурации есть две общих формы:
* Форма подбора координат. Данная форма формирует запрос на геокодирование и обрабатывает результат.
* Форма отображения объектов. Данная форма использует
API визуализации Google . В частности данная форма использует визуализацию
Map .
Запрос и обработка результата геокодирования.
Формирование запроса происходит с ключом output=csv, для вывода результата запроса в csv файл. После выполнения запроса проверяется код результата запроса и разбор csv файла на широту и долготу.
Код 1C v 8.2 УП #НаСервере
Процедура ОтправитьЗапросНаПоискКоординат() = Параметры. ОбъектПодбора. Город. Наименование;
Страна = Параметры. ОбъектПодбора. Город. Владелец. Владелец. Наименование;
Адрес = Параметры. ОбъектПодбора. Адрес;
ПараметрПоиска = Страна + " " + Город + " " + Адрес;
АдресOutput = ПолучитьИмяВременногоФайла( ) ;
Ключ = Константы. КлючКарта. Получить( ) ;
ТекстСсылки = "maps/geo?q=" + EncodeURL( ПараметрПоиска) + "&output=csv&oe=utf8&sensor=false&key=" + Ключ;
ПроксиСервер = Неопределено ;
HTTPСервис = Новый HTTPСоединение( "maps.google.com" , , , , ПроксиСервер, Ложь ) ;
ПравильностьВыполнения = Истина ;
Попытка
HTTPСервис. Получить( ТекстСсылки, АдресOutput) ;
Исключение
Сообщить( ОписаниеОшибки( ) , СтатусСообщения. Важное) ;
ПравильностьВыполнения = Ложь ;
КонецПопытки ;
Если ПравильностьВыполнения Тогда
Текст = Новый ТекстовыйДокумент;
Текст. Прочитать( АдресOutput) ;
РезультатПоиска = Текст. ПолучитьСтроку( 1 ) ;
КодРезультата = Лев( РезультатПоиска, 3 ) ;
РезультатПоиска = Сред( РезультатПоиска, 7 , СтрДлина( РезультатПоиска) ) ;
Если КодРезультата <> "200" Тогда
Возврат ;
КонецЕсли ;
Широта = Число( Сред( РезультатПоиска, 0 , 10 ) ) ;
Долгота = Число( Сред( РезультатПоиска, 12 , 10 ) ) ;
КонецЕсли ;
КонецПроцедуры
Формирование карты отображения
При формировании отображения объекта на карте к стандартному коду визуализации добавлен следующий:
Код 1C v 8.х if( !google. visualization) setTimeout( checkIfGoogleLoad, 1000 ) ;
else drawMap( ) ;
Это связано с тем, что платформа не хочет сразу обновлять фрейм поля html документа.
Код 1C v 8.2 УП #НаСервереtrue , mapType: 'normal'});Андрей Данилюк Категория:
COM-объекты, WMI, WSH Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitTrue Then ' проверим доступно ли местоTrue True True True
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Прямое подключение к сторонним Базам Данных Иногда необходимо подключиться к другим (не 1С-ным) БД на том же SQL.
Вот примерный код такого подключения:
Код 1C v 8.х Connection = Новый COMОбъект("ADODB.Connection");True ;User ID=" + Здесь имя пользователя + ";Initial Catalog=" + Здесь имя БД + "; Data Source=" + Здесь имя сервера + ";"; Категория:
COM-объекты, WMI, WSH Печать в PDF Столкнулся с вопросом печати счета на оплату сразу в pdf.
Решение: установка виртуального принтера
bioPDF скачать можно тут. И прописывание в 1с следующего кода:
Код 1C v 8.х True );
Как выяснилось во время печати в pdf есть проблема с передачей прозрачности картинки. Если вставлять прозрачную печать в счет поверх подписи, то в pdf-документе печать будет непрозрачной и затрет все собой. У меня был частный случай, когда печать находилась на одном и том же месте документа и за ней постоянно было одно и то же. Решением в данном случае стала генерация картинки печати с фоном, на котором она должна быть и вставка её в макет.
Так же решением может быть печать не в pdf а xps документ. Там с прозрачностью все нормально.
Автор:
Андрей Данилюк
Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF. Категория:
COM-объекты, WMI, WSH Автоматическая архивация баз 1С 8.х для файлового и клиент-серверного варианта Данный способ архивации подходит для файловых и SQL версий баз 1С:
И так:
1. Создаем скрипт vbs и сохраняем его в
C:\Backup\ZUP.vbs
Код VBS True
2. На Server1C создаем Назначенные задания с параметрами как на рисунках ниже:
3. В итоге получаем архивные файлы выгрузок 1С и логи:
Категория:
Администрирование Установка полей и масштаба документа при сохранении из 1С MS Excel
Код 1C v 8.х Попытка
Excel = Новый COMОбъект( "Excel.Application" ) ;
Исключение
Сообщить( "ВНИМАНИЕ! TOpenOffice не установлен или недостаточно прав доступа!
| - " + ОписаниеОшибки( ) , СтатусСообщения. ОченьВажное) ;
Возврат ;
КонецПопытки ;
ТабДокумент = ПечатьЦенника( ВидЦенника) ;
ИмяФайла = ПутьДляСохранения+ "\" + ТабДокумент. ИспользуемоеИмяФайла+ ".xls" ;
ТабДокумент. Записать( ИмяФайла, ТипФайлаТабличногоДокумента. XLS97) ;
МакетОформления = Неопределено ;
Excel. Workbooks. Open( ИмяФайла) ;
КнигаExcel = Excel. Workbooks. Item( Excel. Workbooks. Count) ;
ЛистExcel = КнигаExcel. WorkSheets. Item( 1 ) ;
КнигаExcel. Activate( ) ;
ЛистExcel. Activate( ) ;
ЛистExcel. PageSetup. LeftMargin = 28 ;
ЛистExcel. PageSetup. RightMargin = 28 ;
ЛистExcel. PageSetup. TopMargin = 25 ;
ЛистExcel. PageSetup. BottomMargin = 25 ;
Если ТабДокумент. ОриентацияСтраницы = ОриентацияСтраницы. Ландшафт Тогда
ЛистExcel. PageSetup. Orientation = 2 ;
Иначе
ЛистExcel. PageSetup. Orientation = 1 ;
КонецЕсли ;
ЛистExcel. PageSetup. Zoom = ТабДокумент. МасштабПечати;
КнигаExcel. Save( ) ;
Excel. Visible = 1 ;
Excel. Quit( ) ; OpenOffice Calc
Код 1C v 8.х Попыткаtrue "); Категория:
Работа с Microsoft Office и OpenOffice Чтение RTF файлов через OpenOffice. Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Код 1C v 7.x // Пример от Jaap Vduul True Категория:
Работа с Microsoft Office и OpenOffice Как задать настройки прокси сервера в 1С:Предприятии 8 Настройки прокси сервера 1С:Предприятие 8 берет из Internet Explorer`а. Но вы также можете назначить их вручную, например, если ваш прокси сервер требует авторизации. Формат файла настройки прокси по умолчанию inetcfg.xml inetcfg.xml позволяет задавать настройки прокси по умолчанию и имеет больший приоритет над настройками прокси по умолчанию в Windows. Файл располагается в каталоге CONF каталога исполняемых файлов системы 1С:Предприятие 8.1 и его наличие не является обязательным. Если он отсутствует, то настройки в Windows берутся из настроек InternetExplorer'a. В Linux, если есть необходимость работать через прокси, файл inetcfg.xml должен присутствовать.protocols Пример: user Пример: Пример: bypassOnLocal true – не использовать;Например: true "bypassOnAddresses Пример: Общий пример файла inetcfg.xml: true "ntlm true — NTLM-аутентификация включена;
Категория:
Администрирование При заполнении регламентированных отчетов, неверно отображается штрих-код Скорее всего у вас не установлена или установлена старая версия шрифта EanGnivc. Для корректного отображения штрих-кода нужно:
1. Скачать последнюю версию шрифта, например,
здесь (скачать Файл шрифта EanGnivc) или взяв из нового дистрибутива конфигурации с первого диска (DISK1)
2. Для установки шрифта выполните следующие действия:
- откройте Панель управления (Control Panel) операционной
системы, для этого нажмите кнопку "Пуск", выберите команды
"Настройка" (Settings) и "Панель управления" (Control
Panel);
- в Панели управления дважды щелкните значок "Шрифты" (Fonts);
- в меню "Файл" (FilE) выберите команду "Установить шрифт"
(Install New Font);
- в поле со списком "Диски" (Drives) выберите нужный диск;
- в поле "Папки" (Folders) откройте каталог, в котором находится
файл EANG000.ttf
- в списке "Список шрифтов" (List of fonts) выберите строку
"EanGnivc (
True Type)" и нажмите кнопку OK. Все...
Категория:
1С Общие вопросы - Обычные формы Пример переноса данных из 1С 7.7 в 8.1 посредством XML файла Код 1C v 7.x xmldoc = CreateObject( "Msxml2.DOMDocument" ) ;
xmlDoc. loadXML( "<root/>" ) ;
nodeRoot = xmlDoc. documentElement;
расходы = xmlDoc. createElement( "СправочникРасходы" ) ;
Спр = Создатьобъект( "Справочник.Расходы" ) ;
Спр. ВыбратьЭлементы( ) ;
Пока Спр. ПолучитьЭлемент( ) = 1 цикл
расход = xmlDoc. createElement( "Расход" ) ;
расход. setAttribute( "Код" , Спр. Код) ;
расход. setAttribute( "Наименование" , Спр. Наименование) ;
расход. setAttribute( "Родитель" , Строка( Спр. Родитель) ) ;
расход. setAttribute( "Цена" , Строка( Спр. Цена. Получить( ТекущаяДата( ) ) ) ) ;
расход. setAttribute( "Количество" , Строка( Спр. Количество) ) ;
расход. setAttribute( "ЭтоГруппа" , Строка( Спр. ЭтоГруппа( ) ) ) ;
расходы. appendChild( расход) ;
КонецЦикла ;
nodeRoot. appendChild( расходы) ;
ДвижениеСчетов = xmlDoc. createElement( "ДвижениеСчетов" ) ;
рег = СоздатьОбъект( "Регистр.Счет" ) ;
рег. ВыбратьДвижения( ) ;
Пока Рег. ПолучитьДвижение( ) = 1 цикл
Движение = xmlDoc. createElement( "Движение" ) ;
Движение. setAttribute( "Приход" , Строка( Рег. Приход) ) ;
Движение. setAttribute( "Дата" , Строка( Рег. ТекущийДокумент( ) . ДатаДок) ) ;
Движение. setAttribute( "Описатель" , Строка( Рег. Описатель) ) ;
Движение. setAttribute( "СтатьяРасходов" , Строка( Рег. СтатьяРасходов) ) ;
Движение. setAttribute( "СтатьяПоступлений" , Строка( Рег. СтатьяПоступлений) ) ;
Движение. setAttribute( "Кто" , Строка( Рег. Кто) ) ;
Движение. setAttribute( "Кому" , Строка( Рег. Кому) ) ;
Движение. setAttribute( "Остаток" , Строка( Рег. Остаток) ) ;
Движение. setAttribute( "Количество" , Строка( Рег. Количество) ) ;
ДвижениеСчетов. appendChild( Движение) ;
КонецЦикла ;
nodeRoot. appendChild( ДвижениеСчетов) ;
xmlDoc. save( "C:\budjet.xml" ) ; Код 1C v 8.х True ,Ложь);True ,Ложь); Категория:
JSON, XML, TXT, CSV, DBF Запись СД из 1С(без ВК и других программ, проверено на ХР/2003) Код 1C v 7.x true )");
Конечно метод дубовенький, расчитан тока на русскую версию, но можно и допеределать.
Не стал писать код определения пишущего сидирома и возможности записи (хотя на отсутствие диска или невозможность записать ОС сама укажет)...
Автор:
smaharbA
А через Nero можно записать так:
Код DOS Batch File
"C:\Program Files\Ahead\Nero\NeroCmd.exe" --no_user_interaction --write --real --iso Archive_1C --drivename M --force_erase_cdrw --dvd --dvd_high_compatibility --close_session --verify E:\Full_Archive_1C\*.* >H:\BackUp\Log\write.log
Категория:
Полезные, Универсальные Функции Руководство компании, хочет получать оперативную сводку продаж по фирме Руководство компании, хочет получать оперативную сводку продаж по фирме на свой почтовый ящик с обратной связью. То есть, посылая письмо на определенный ящик, программа составляет отчет о продажах на текущий день и отсылает на ящик отправителя.
Технический аспект реализации. на почтовом сервере компании заводим ящик autoreport.xxx.ru , в глобальный модуль в предопределенную процедуру ПриНачалеРаботыСистемы вставляем проверку строки запуска 1С для того, что бы определить момент старта проверки поступления новых писем в ящик.
Код 1C v 8.х
Процедура ПриНачалеРаботыСистемы() Если Найти( ПараметрЗапуска, "changemail" ) > 0 Тогда
Форма = Обработки. SaletoMail. ПолучитьФорму( ) ;
Форма. ОтсылкаПоЗаказу( ) ;
ЗавершитьРаботуСистемы( Ложь ) ;
конецЕсли ;
КонецПроцедуры
В планировщик задач вписываем запуск 1С Предприятия в “C:\Program Files\1cv8\bin\1cv8.exe” enterprise /DisableStartupMessages /smain\demo /cchangemail и ставим запуск каждые 5 минут. После запуска 1С проверяет переданный параметр если он подходит то происходит вызов внешней обработки в которой формируется отчет и происходит передача отчета обратно на ящик отправителя. Во внешнюю обработку писем процедуру ОтсылкаПоЗаказу() которая проверяет ящик на наличие писем, делает минимальную проверку , но то, что письмо пришло из нашего почтового сервера и отсылает продажи на адрес отправителя.
Код 1C v 8.х true ,Массив); true для того, что бы очистить обработанные сообщения Отправка отчетов из 1С по электронной почте (E-Mail) Категория:
Полезные, Универсальные Функции Как выгрузиться в EXCEL со сводными таблицами Пошаговый рабочий алгоритм выгрузки в EXCEL на примере выгрузки отчетов производства за смену(Автор статьи:
Funny ):
(1) Нарисовать форму обработки и к кнопке запуска прицепить процедуру:
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка) Если ПроверкаДат( ) Тогда
Состояние( "Запущена выгрузка данных" ) ;
ПолучитьДанныеВТаблице( ) ;
Если чОтчетов< > 0 Тогда
СортироватьТаблицу( ) ;
ВыгрузитьТаблицуВФайл( ) ;
ЗакрытьСистему( ) ;
Состояние( "Выгрузка завершена" ) ;
Иначе
КонецЕсли ;
КонецЕсли ;
КонецПроцедуры
(2) Создадим функцию ПроверкаДат() корректного указания дат обработки
(3) Создадим процедуру ПолучитьДанныеВТаблице() выборки требуемых данных из документов в таблицу значений
(4) Создадим процедуру СортироватьТаблицу() для сортировки таблицы значений как нам нужно
(5) Создадим процедуру ВыгрузитьТаблицуВФайл() выгрузки ТЗ в Excel-файл:
Код 1C v 8.х Процедура ВыгрузитьТаблицуВФайл()True True ;Код 1C v 7.x РабочаяКнига = СоздатьОбъект( "Excel.Application" ) ;
РабочаяКнига. SheetsInNewWorkbook = 1 ;
РабочаяКнига. Caption = "Отчет по договорам отгрузки" ;
NewBook = РабочаяКнига. Workbooks;
List = NewBook. Add;
СписокСтолбцов = СоздатьОбъект( "СписокЗначений" ) ;
СписокСтолбцов. ДобавитьЗначение( "Модель" ) ;
СписокСтолбцов. ДобавитьЗначение( "Разнорядка" ) ;
СписокСтолбцов. ДобавитьЗначение( "По договору" ) ;
СписокСтолбцов. ДобавитьЗначение( "Отгрузили" ) ;
СписокСтолбцов. ДобавитьЗначение( "Осталось" ) ;
Для Столбец = 1 По СписокСтолбцов. РазмерСписка( ) Цикл
Ячейка = РабочаяКнига. Cells( 1 , Столбец) ;
Ячейка. Value = СписокСтолбцов. ПолучитьЗначение( Столбец) ;
КонецЦикла ;
Запрос = СоздатьОбъект( "Запрос" ) ;
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ДатаНач по ДатаКон;
|Разнорядка = Регистр.УчетДоговоров.Разнорядка;
|Модель = Регистр.УчетДоговоров.Модель.Группа;
|Колво = Регистр.УчетДоговоров.Количество;
|Функция КолвоПриход = Приход(Колво);
|Функция КолвоРасход = Расход(Колво);
|Функция КолвоОст = КонОст(Колво);
|Группировка Разнорядка;
|Группировка Модель;
|"
;
Если Запрос. Выполнить( ТекстЗапроса) = 0 Тогда
Возврат ;
КонецЕсли ;
НомерСтроки = 1 ;
Пока Запрос. Группировка( "Разнорядка" ) = 1 Цикл
Пока Запрос. Группировка( "Модель" ) = 1 Цикл
Модель = Запрос. Модель;
Разнорядка = Запрос. Разнорядка;
КолПоДоговору = Запрос. КолвоПриход;
КолОтгрузили = Запрос. КолвоРасход;
КолОсталось = Запрос. КолвоОст;
НомерСтроки = НомерСтроки + 1 ;
Для Ст = 1 По СписокСтолбцов. РазмерСписка( ) Цикл
Ячейка = РабочаяКнига. Cells( НомерСтроки, Ст) ;
Если Ст = 1 Тогда
Ячейка. Value = Модель;
ИначеЕсли Ст = 2 Тогда
Ячейка. Value = Строка( Разнорядка) ;
ИначеЕсли Ст = 3 Тогда
Ячейка. Value = КолПоДоговору;
ИначеЕсли Ст = 4 Тогда
Ячейка. Value = КолОтгрузили;
ИначеЕсли Ст = 5 Тогда
Ячейка. Value = КолОсталось;
КонецЕсли ;
КонецЦикла ;
КонецЦикла ;
КонецЦикла ;
СводнаяТаблица = РабочаяКнига. ActiveSheet. PivotTableWizard;
СводнаяТаблица. SmallGrid = 0 ;
СводнаяТаблица. PivotFields( 1 ) . Orientation = 1 ;
СводнаяТаблица. PivotFields( 2 ) . Orientation = 3 ;
СводнаяТаблица. PivotFields( 3 ) . Orientation = 4 ;
СводнаяТаблица. PivotFields( 4 ) . Orientation = 4 ;
СводнаяТаблица. PivotFields( 5 ) . Orientation = 4 ;
СводнаяТаблица. Format( 1 ) ;
РабочаяКнига. CommandBars( "PivotTable" ) . Visible = 0 ;
РабочаяКнига. Visible = 1 ; Категория:
Работа с Microsoft Office и OpenOffice Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word? Для заключения договоров с контрагентами разработан типовой договор (шаблон).
При его оформлении (для реального контрагента) в определенные места документа вставляются данные о контрагенте.
Подобные фрагменты определены следующим образом: <ИмяОбласти> (на практике можно использовать другие способы, в нашем примере квадратные скобки [ ]).
Пример договора:
Договор
Оформленный таким образом документ сохранен в файле, который загружен в 1С v 8 в качестве макета (при его создании указывается, что тип макета – Active document).
Далее в соответствующем обработчике события (например, в обработчике нажатия на кнопку Создать договор) размещается следующий код:
Код 1C v 8.х Договор = ПолучитьМакет( "Договор" ) ;
MSWord = Договор. Получить( ) ;
Попытка
Документ = MSWord. Application. Documents( 1 ) ;
Документ. Activate( ) ;
Заказчик = "Петр Иванович КакВасТам" ;
Исполнитель = "helpf.pro - Помощник по 1С"
Замена = Документ. Content. Find;
Замена. Execute( "[Заказчик]" , Ложь , Истина , Ложь , , , Истина , , Ложь , Заказчик) ;
Замена. Execute( "[Исполнитель]" , Ложь , Истина , Ложь , , , Истина , , Ложь , Исполнитель) ;
MSWord. Application. Visible = Истина ;
MSWord. Activate( ) ;
Исключение
Сообщить( ОписаниеОшибки( ) ) ;
MSWord. Application. Quit( ) ;
КонецПопытки ; Код 1C v 7.x True = 1; True , True , False, False, False, True , wdFindContinue,False,"Петр Иванович КакВасТам", wdReplaceAll);True , True , False, False, False, True , wdFindContinue,False,"helpf.pro - Помощник по 1C", wdReplaceAll); Категория:
Работа с Microsoft Office и OpenOffice 
Выгрузка в PDF из 1С (Средствами OpenOffice) .gif)
).gif)