Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word? Для заключения договоров с контрагентами разработан типовой договор (шаблон).
При его оформлении (для реального контрагента) в определенные места документа вставляются данные о контрагенте.
Подобные фрагменты определены следующим образом: <ИмяОбласти> (на практике можно использовать другие способы, в нашем примере квадратные скобки [ ]).
Пример договора:
Договор
Оформленный таким образом документ сохранен в файле, который загружен в 1С v 8 в качестве макета (при его создании указывается, что тип макета – Active document).
Далее в соответствующем обработчике события (например, в обработчике нажатия на кнопку Создать договор) размещается следующий код:
Код 1C v 8.х Договор = ПолучитьМакет("Договор");Код 1C v 7.x ect ion.Find.Execute("[Заказчик]", True, True, False, False, False, True, wdFindContinue,False,"Петр Иванович КакВасТам", wdReplaceAll);ect ion.Find.Execute("[Исполнитель]", True, True, False, False, False, True, wdFindContinue,False,"helpf.pro - Помощник по 1C", wdReplaceAll); Категория:
Работа с Microsoft Office и OpenOffice Выгрузка метаданных конфигурации в Microsoft Word и Excel Код 1C v 8.х Код 1C v 7.x ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Код");ect ion.MoveRight(1,1);ect ion.TypeText(Тип+" ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаКода)+")");ect ion.MoveRight(1,1);ect ion.TypeText("");ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Наименование");ect ion.MoveRight(1,1);ect ion.TypeText("Строка ("+СокрЛП(Метаданные.Справочник(СокрЛП(Имя)).ДлинаНаименования)+")");ect ion.MoveRight(1,1);ect ion.TypeText("");ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Шапка");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Таб. часть");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Шапка");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Измерение");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Ресурс");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий);ect ion.I_nsertRowsBelow(1);ect ion.MoveLeft(1,1);ect ion.TypeText("Реквизит");ect ion.MoveRight(1,1);ect ion.TypeText(СокрЛП(Реквизит.Идентификатор)+Синоним);ect ion.MoveRight(1,1);ect ion.TypeText(Тип);ect ion.MoveRight(1,1);ect ion.TypeText(Реквизит.Комментарий); Категория:
Работа с Microsoft Office и OpenOffice Запуск макроса в MS Word из 1С Код 1C v 8.х //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!ect ion.TypeText Text:=""Добрый день!""ect ion.TypeText Text:="": https://helpf.pro""ect ion.TypeParagraphect ion.MoveUp Unit:=wdLine, Count:=2ect ion.EndKey Unit:=wdLine, Extend:=wdExtendect ion.Style = ActiveDocument.Styles(""Заголовок 1"")ect ion.MoveDown Unit:=wdLine, Count:=1ect ion.HomeKey Unit:=wdLineect ion.EndKey Unit:=wdLine, Extend:=wdExtendect ion.Style = ActiveDocument.Styles(""Заголовок 2"")ect .VBComponents;ect .VBComponents;Код 1C v 7.x // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...ect .VBComponents.Count();ect .VBComponents.Add (1);ect .VBComponents.Item(i + 1).CodeModule.I_nsertLines (1, "Sub Golif()");ect .VBComponents.Item(i + 1).CodeModule.I_nsertLines (2, "MsgBox " + """" + "Работает" + """");ect .VBComponents.Item(i + 1).CodeModule.I_nsertLines (3, "End Sub"); Категория:
Работа с Microsoft Office и OpenOffice Скрипт принудительного завершения процессов 1С на всех компьютерах В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Код VBS ect ("WinNT://" & DomainName)ect ("winmgmts:{ImpersonationLevel=Impersonate}!\\" & Trim(Comp.Name) & "\Root\CIMV2")ect * FROM Win32_Process WHERE Name = '1cv7s.exe'")ect ect ("Scripting.FileSystemObject ")ect ("WScript.Shell").Run "notepad.exe " & TempPathect ("WScript.Shell").ExpandEnvironmentStrings("%TEMP%")ect ("WScript.Network").ComputerName Категория:
Администрирование Скрипт запуска 1С:Предприятия от имени Администратора или Пользователя Данные пример для 7.7, для 8-ых версий указать путь к 1Сv8.exe
Код VBS ect ("WScript.Shell") ect ("Scripting.FileSystemObject ") ect _
или так:
Код VBS ect ("Wscript.Shell") Категория:
Администрирование Пример получения списка пользователей из файла users.usr Получает из users.usr список пользователей, каталоги пользователей и даже хеши паролей
Код 1C v 7.x // заполним список пользователей ect ("Scripting.FileSystemObject ");ect ("WScript.Shell");Посмотрите еще: Категория:
Пользователь, роль доступа, интерфейс Как проиграть wav, mp3 файл Код 1C v 8.х ScriptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");ect (""DynamicWrapper"") Категория:
COM-объекты, WMI, WSH Как посмотреть список баз, зарегистрированных в выбранном кластере? Код 1C v 8.х // В приведенном примере производится подключение к агенту сервера, выбирается первый кластер. ect ("V81.COMConnect or");ect Agent(СтрокаСоединения); Категория:
Полезные, Универсальные Функции Формирование списка зарегистрированных информационных баз системы 1Cv8 В отличие от 1Cv7 (
где список зарегистрированных информационных баз хранится в системном реестре (Щелкните для просмотра примеров) ):
в 1C v 8 :
список зарегистрированных информационных баз хранится в текстовом файле v8ib.lst (кодировка UTF-8)
в каталоге \Application Data\1C\1Cv8 текущего пользователя на локальном компьютере (где запускается программа 1С:Предприятие v 8).
т.е. C:\Documents 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:\Documents and Settings\%CurrentUser%\Application Data\1C\1Cv81\ibases.v8i
Если открыть этот файл в NotePad.exe, то видно, что он имеет структуру, схожую со стандартным INI-файлом :
[База Разработки]
Conn
ect =File="F:\1C\1Cv8\DBRaz";
ID=1cd97bfa-4e57-4a23-9ee1-073a0a28e01c
OrderInList=16384
Folder=/
OrderInTree=16384
[Enterprise]
Conn
ect =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:\Documents and Settings\%CurrentUser%\Application Data\1C\1CEStart\ibases.v8i
Если открыть этот файл в NotePad.exe, то там:
[1C:Документооборот 8 (демо)]
Conn
ect =File="C:\Documents and Settings\E.S.Migachev\Мои документы\1C\DemoDoc8";
ID=b3b46c21-bd2a-481e-b100-e6cbdcba3e3d
OrderInList=16384
Folder=/
OrderInTree=256
External=0
ClientConn
ect ionSpeed=Normal
App=Auto
WA=1
Version=8.2
Структура хранения информации по каждой информационной базе :
ect >
Где:
Conn
ect - строка соединения с информационной базой,
ID - внутренний идентификатор информационной базы,
OrderInList - порядок в списке при представлении списком
Folder - наименование ветви в дереве информационных баз,
OrderInTree - порядок в ветви при представлении деревом.
В 1С 8.1 еще добавили External - но он всегда равен 0, для чего он пока не известно.
В 1С 8.2 добавлено:
ClientConn
ect ionSpeed=Normal - скорость соединения
App=Auto - тип соединения - толстый, тонкий клиент.
WA=1
Version=8.2
Вот код получения получения списка баз из файла 1С 8.0 8.1 8.2
Код 1C v 8.х ect =" Тогда
Пример обработки для 1С 8.1 "Получения списка баз 1С 8.0 8.1 8.2 E_Migachev"
Скачивать файлы может только зарегистрированный пользователь!
Обработка для 1С 8.1 "Чтение списка информационных баз 1С 8.1"(формирует дерево баз) Fisca
Скачивать файлы может только зарегистрированный пользователь! Категория:
Полезные, Универсальные Функции Как из 1С написать формулу в Excel Объяснить мне сразу трудно - поэтому давайте "на пальцах"
Свежий простой пример :
вопрос " Ексель.Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "
первое на что хочу обратить внимание
те функции которые Вы видите визуально в ячейке MS EXCEL для 1С "слегка не знакомы", ей лучше озвучить имя функции на VBA
откуда Вы знаете как это функция на VBA называется ???
я Вам расскажу, немного терпения:
1. открываем новую книгу MS EXCEL
2. идем в меню Сервис - Макрос - Начать запись - Ок (появится маленькое окошко с квадратной кнопкой - его не кое случае не закрывать)
3. кликаем ячейку "С1" и пишем в ней формулу =СЦЕПИТЬ(E1;C7)
4. после этого нажимаем на квадратную кнопочку (Мы только что с Вами записали макрос на языке VBA)
5.посмотрим что получилось
идем в меню Сервис - Макрос - Макросы - (там будет в новой книге по умолчанию Макрос1) - выбираем его и нажимаем кнопку "Войти"
Поздравляю - мы попали во встроенный редактор VBA (аналог конфигурартора 1С)
и что мы видим
Код Sub Макрос1()ect ect
теоритически нам нужно только
Код Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)"
это и будет для 1С =
Код 1C v 7.x Cells(1,3).Formula= "=СЦЕПИТЬ(E1;C7)";" "Проверим, напишем код на любимом 1С:
Код 1C v 7.x Процедура Сформировать()
все работает.
немного подумав, Вы поймете, что
Код 1C v 7.x Ехсел.Range("C1").FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
можно заменить на
Код 1C v 7.x Ехсел.Cells(1, 3).FormulaR1C1 = "=CONCATENATE(RC[2],R[6]C)";
и результат не изменится, а возможностей прибавится.
В MS EXCEL только амлет нельзя пожарить - возможности его одурманивают.
Tatitutu Категория:
Работа с Microsoft Office и OpenOffice Получения курса валют из Интернет Код 1C v 8.х Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединениеКод 1C v 8.х // еще примерКод 1C v 7.x // Взято с http://www.1c-club.kz IUnknownect ("oleADO", олеАДО);ect ("oleXML", олеХМЛ); Категория:
COM-объекты, WMI, WSH Получить статус сетевой карты(устройства), Работает или уже нет Код 1C v 7.x // Глобальная переменная в которой будем хранитьect (""WinMgmts:\\.\Root\CIMV2"")ect * FROM Win32_NetworkAdapter"", , 48)ect ionStatus &_ect ionID & """""",""""0""""}""IUnknown Категория:
COM-объекты, WMI, WSH Как получить список зарегистрированных пользователей базы 1С Код 1C v 8.х Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); Код 1C v 7.x // Функция возвращает список зарегистрированных для выбраннойect ");еще Пример получения списка пользователей из файла users.usr Категория:
Полезные, Универсальные Функции Практическая работа с почтой (E-mail,The Bat, Outlook, Mozilla Thunderbird) Код 1C v 8.х Попытка
А вот так 1с работает с Мозилой Сундербердом (который хорошо поддерживает IMAP):
Код 1C v 8.х ПутьМозиллы = """C:/Program Files/Mozilla Thunderbird/thunderbird.exe""";ect =""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",body=""Проигнорированные документы в офисе. Письмо сгенерированно роботом"",attachment=""file://";Получение почты
Код 1C v 8.х
Автор: 1CLama
Категория:
Работа с Интернет, Почтой (Mail), FTP Как получить высоту картинки, изображения, локально и в интернет. Код 1C v 7.x Шелл=СоздатьОбъект("Shell.Application");
А если картинка на интерне сайте, и нужно узнать ее высоту, то:
Код 1C v 7.x ИЕ=CreateObject ("InternetExplorer.Application");ect ("InternetExplorer.Application"); Категория:
COM-объекты, WMI, WSH 
Как сформировать новый договор, документ на основании файла, шаблона Microsoft Office Word? Категория: Работа с Microsoft Office и OpenOffice