Печать табличной части документа в Word'e Вот пример кода создания и заполнения таблиц(пример для 7.7, в 8.х заменить первую строку на МСВорд Новый COMОбъект("Word.Application")):
Код 1C v 7.x МСВорд = СоздатьОбъект("Word.Application"); Doc uments;Doc ument();
ТЗ - это таблица значений.
Для документа можно так цикл организовать:
Предположим, что Док - это документ, тогда
Код 1C v 8.2 УП Для А =1 По Док.КоличествоСтрок() Цикл Категория:
Работа с Microsoft Office и OpenOffice Пример переноса данных из 1С 7.7 в 8.1 посредством XML файла Код 1C v 7.x xmldoc = CreateObject("Msxml2.DOMDoc ument");Doc .loadXML("<root/>");Doc .doc umentElement;Doc .createElement("СправочникРасходы");Doc .createElement("Расход");Doc .createElement("ДвижениеСчетов");Doc .createElement("Движение"); Doc .save("C:\budjet.xml"); Код 1C v 8.х Doc = Новый COMОбъект("MSXML2.DOMDoc ument");Doc .load("C:\budjet.xml");Doc .doc umentElement;Doc = Новый COMОбъект("MSXML2.DOMDoc ument");Doc .load("C:\budjet.xml");Doc .doc umentElement; Категория:
XML, DBF, TXT, CSV Получения новостей с RSS-канала сайта buh.ru Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp
Данный код для 7.7, при использовании в 8-ой версии нужно заменить СоздатьОбъект( на Новый COMОбъект(, остальное вроде так же.
Код 1C v 7.x doc ument.XMLDoc ument); Doc ument");;doc ument.XMLDoc ument);
К сожалению, автор не известен.
Категория:
COM-объекты, WMI, WSH Пример выгрузки списка документов в XML файл Код 1C v 8.х Процедура ДействияФормыВыгрузить(Кнопка)doc ument.xml"); Категория:
XML, DBF, TXT, CSV Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word? Для заключения договоров с контрагентами разработан типовой договор (шаблон).
При его оформлении (для реального контрагента) в определенные места документа вставляются данные о контрагенте.
Подобные фрагменты определены следующим образом: <ИмяОбласти> (на практике можно использовать другие способы, в нашем примере квадратные скобки [ ]).
Пример договора:
Договор
Оформленный таким образом документ сохранен в файле, который загружен в 1С v 8 в качестве макета (при его создании указывается, что тип макета – Active
doc ument).
Далее в соответствующем обработчике события (например, в обработчике нажатия на кнопку Создать договор) размещается следующий код:
Код 1C v 8.х Договор = ПолучитьМакет("Договор");Doc uments(1);Код 1C v 7.x Doc = Word.Doc uments;Doc .Open(ИмяФайлаШаблона,0,1); //открываем только на чтение Категория:
Работа с Microsoft Office и OpenOffice Функция проверяет орфографию переданного текста с помощью средств MS Word Код 1C v 8.х // Проверка орфоргафии переданного текста с помощью средств MS WordDoc uments.Add(); //Добавляем к открытым документамПример использования:
Код 1C v 8.х Категория:
Работа с Microsoft Office и OpenOffice Выгрузка метаданных конфигурации в Microsoft Word и Excel Код 1C v 8.х Doc uments.Add();Doc ument();Код 1C v 7.x Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Код");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип+" ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаКода)+")");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText("");Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Наименование");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText("Строка ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаНаименования)+")");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText("");Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Шапка");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Таб. часть");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Шапка");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Измерение");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Ресурс");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий);Doc ument.ActiveWindow.S_election.I_nsertRowsBelow(1);Doc ument.ActiveWindow.S_election.MoveLeft(1,1);Doc ument.ActiveWindow.S_election.TypeText("Реквизит");Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Тип);Doc ument.ActiveWindow.S_election.MoveRight(1,1);Doc ument.ActiveWindow.S_election.TypeText(Реквизит.Комментарий); Категория:
Работа с Microsoft Office и OpenOffice Запуск макроса в MS Word из 1С Код 1C v 8.х //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!doc Doc ument.Styles(""Заголовок 1"")Doc ument.Styles(""Заголовок 2"")Doc ument.SaveAs FileName:=""D:/primer.doc "", FileFormat:= _Doc ument, LockComments:=False, Password:="""", AddToRecentFiles:= _Doc uments.Add();Doc ument.VBProject.VBComponents;Код 1C v 7.x // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...Doc uments.Add(); Категория:
Работа с Microsoft Office и OpenOffice Как организовать обмен данными между одинаковыми, идеинтичными конфигурациями? Нужно документ РеализацияТоваровУслуг (ссылка на который выбирается в диалоге создаваемой обработки) перенести в другую базу данных. Структура конфигураций идентична. Справочники (и другие сопутствующие объекты) синхронизированы по значениям внутренних идентификаторов.
Для выгрузки потребуется выполнить следующий фрагмент кода:
Код 1C v 8.х // Выгрузить в файл xml.doc .xml");
При выгрузке создаем элемент Root исходя из соображений, что в XML-документе должен быть только один корневой узел, а в общем случае (но не в нашем) выгружаться может не один объект.
Для загрузки выгруженного значения используем следующий фрагмент кода:
Код 1C v 8.х ЧтениеXML = Новый ЧтениеXML();doc .xml"); Категория:
Конвертация данных, Обмен, Перенос Сохранение и восстановление данных в Хранилище значений. Хранилище значений - это тип, который появился в 8-ой версии 1С позволяющий сохранять прямо в базе различные данные, включая двоичные данные (произвольные файлы). Например, так можно хранить в базе данных JPG-картинки, Word-документы и т.д. Причем данные будут храниться в самой базе (файле 1CD или в таблицах на SQL-сервере) и будут включены в штатную выгрузку базы или резервную копию средствами SQL Server.
Тип Хранилище значения может быть назначен реквизиту справочника, документа, ресурсу регистра сведений и т.д.
Примеры:
Код 1C v 8.х //Изображение, картинки (фотки):Код 1C v 8.х Код 1C v 8.х //Произвольные файлы (двоичные данные):
Восьмерка поддерживает сжатие данных, помещаемых в хранилище:
Код 1C v 8.х ХЗ = Новый ХранилищеЗначения(Новый ДвоичныеДанные(файл),Новый СжатиеДанных(9));Код 1C v 8.х //Внешние обработки и отчеты:
Если это были ДвоичныеДанные, то их можно восстановить из хранилища значения методом Получить и записать в файл методом Записать().
Код 1C v 8.х Если ТипЗнч(Хранилище) <> Тип("ДвоичныеДанные") Тогда
Если это был, например, Word-документ (
doc -файл, или другой файл зарегистрированного типа), то его можно открыть так:
Код 1C v 8.х ЗапуститьПриложение(ИмяФайла);
Чтобы очистить поле типа Хранилище значения, нужно присвоить ему Неопределено:
Код 1C v 8.х РеквизитХранилище = Неопределено;
Если в Хранилище значений содержались какие-то ссылки, то они не будут контролироваться при контроле ссылочной целостности (операция Удаление помеченных объектов или метод НайтиПоСсылкам).
К сожалению, 1С не содержит встроенных методов для проверки того, заполнено хранилище или нет.
Такой вариант не работает:
Код 1C v 8.х фл=Хранилище<>Неопределено; Работает только такой вариант:
Код 1C v 8.х фл=Хранилище.Получить()<>Неопределено;
Но он требует затрат времени на извлечение данных из хранилища.
Поэтому, если это критично, нужно заводить еще один флаг, который указывает, содержит ли хранилище значение.
Источник Категория:
Работа с Хранилищем Значений Формирование списка зарегистрированных информационных баз системы 1Cv8 В отличие от 1Cv7 (
где список зарегистрированных информационных баз хранится в системном реестре (Щелкните для просмотра примеров) ):
в 1C v 8 :
список зарегистрированных информационных баз хранится в текстовом файле v8ib.lst (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv8 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\
Doc uments and Settings\%CurrentUser%\Application Data\1C\1Cv8\v8ib.lst
в 1C v 8.1 :
список зарегистрированных информационных баз хранится в текстовом файле ibases.v8i (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv81 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\
Doc uments and Settings\%CurrentUser%\Application Data\1C\1Cv81\ibases.v8i
Если открыть этот файл в NotePad.exe, то видно, что он имеет структуру, схожую со стандартным INI-файлом :
[База Разработки]
Connect=File="F:\1C\1Cv8\DBRaz";
ID=1cd97bfa-4e57-4a23-9ee1-073a0a28e01c
OrderInList=16384
Folder=/
OrderInTree=16384
[Enterprise]
Connect=File="F:\1C\1Cv8\1cv8.db\Enterprise";
ID=647840fa-65e0-44e8-ad40-12476f178b92
OrderInList=20480
Folder=/
OrderInTree=32768
в 1C v 8.2 :
список зарегистрированных информационных баз хранится в текстовом файле ibases.v8i (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv8 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\
Doc uments and Settings\%CurrentUser%\Application Data\1C\1CEStart\ibases.v8i
Если открыть этот файл в NotePad.exe, то там:
[1C:Документооборот 8 (демо)]
Connect=File="C:\
Doc uments and Settings\E.S.Migachev\Мои документы\1C\Demo
Doc 8";
ID=b3b46c21-bd2a-481e-b100-e6cbdcba3e3d
OrderInList=16384
Folder=/
OrderInTree=256
External=0
ClientConnectionSpeed=Normal
App=Auto
WA=1
Version=8.2
Структура хранения информации по каждой информационной базе :
Где:
Connect - строка соединения с информационной базой,
ID - внутренний идентификатор информационной базы,
OrderInList - порядок в списке при представлении списком
Folder - наименование ветви в дереве информационных баз,
OrderInTree - порядок в ветви при представлении деревом.
В 1С 8.1 еще добавили External - но он всегда равен 0, для чего он пока не известно.
В 1С 8.2 добавлено:
ClientConnectionSpeed=Normal - скорость соединения
App=Auto - тип соединения - толстый, тонкий клиент.
WA=1
Version=8.2
Вот код получения получения списка баз из файла 1С 8.0 8.1 8.2
Код 1C v 8.х
Пример обработки для 1С 8.1 "Получения списка баз 1С 8.0 8.1 8.2 E_Migachev"
Скачивать файлы может только зарегистрированный пользователь!
Обработка для 1С 8.1 "Чтение списка информационных баз 1С 8.1"(формирует дерево баз) Fisca
Скачивать файлы может только зарегистрированный пользователь! Категория:
Полезные, Универсальные Функции Получения курса валют из Интернет Код 1C v 8.х Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединениеКод 1C v 8.х // еще примерКод 1C v 7.x // Взято с http://www.1c-club.kz IUnknowndoc id=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D"; Категория:
COM-объекты, WMI, WSH Пример замены параметров (настроек) базы в списке баз 1С 8 Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Элемент)Doc uments and Settings\Adm\Application Data\1C\1Cv8\v8ib.lst"; Категория:
Полезные, Универсальные Функции Как получить высоту картинки, изображения, локально и в интернет. Код 1C v 7.x Шелл=СоздатьОбъект("Shell.Application");
А если картинка на интерне сайте, и нужно узнать ее высоту, то:
Код 1C v 7.x ИЕ=CreateObject("InternetExplorer.Application");doc ument;doc ument; Категория:
COM-объекты, WMI, WSH Добавление, запись файла в Реквизит с типом ХранилищеЗначения Код 1C v 8.х МойФайл = Новый ДвоичныеДанные(ПутьКФайлу);Doc 1=ХранилищеФайла;Doc 1Название = ПутьКФайлу; Категория:
Работа с Хранилищем Значений 
Печать табличной части документа в Word'e Категория: Работа с Microsoft Office и OpenOffice