Скрипт переустанавливает Платформу 1С и прописывает нужные базы, ярлыки! Круглов Дмитрий дмитриевич :Код VBS Option ExplicitSub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)Sub Sub UdalitFolder (ProductCod)Sub Sub ScopirovatSpisokBazSub Sub createShurtcutSub Рябко Михаил Евгеньевич :Код VBS Option Explicit Категория:
Администрирование Создание писем, событий и задач в MS Outlook из 1С Отправка писем из 1С Предприятия – одна из самых необходимых функций, отсутствующая в штатном функционале платформы. Один из вариантов реализации – это подключение к MS Outlook по технологии OLE. В статье приведены примеры создания писем, событий и задач в MS Outlook из 1С. Автоматическое создание событий и задач используется не часто, но порой бывает очень удобно.
Для 1С 8.х замените
Код 1C v 7.x Outlook = СоздатьОбъект("Outlook.Application");
на
Код 1C v 8.х Outlook = Новый COMОбъект("Outlook.Application");
так же посмотрите:
Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом
Создание сообщения
Код 1C v 7.x //создать новое сообщение из 1С в MS OutlookSub ject = "Тема письма";sub ject=" + Тема + "&body=" + ТекстПисьма;Создание события
Код 1C v 7.x //создать запись в календаре событий из 1С в MS OutlookSub ject = "Название события";Создание задачи
Код 1C v 7.x //создать новую задачу из 1С в MS OutlookSub ject = "Название задачи"; Категория:
Работа с Microsoft Office и OpenOffice Поиск строки в текстовом файле по маске Есть ли возможность поиска строки в текстовом файле по маске? К примеру ХХХХ-ХХХХ-ХХХХ-ХХХХ.
Код 1C v 8.х RegExp = Новый COMОбъект("VBScript.RegExp");Sub Matches = Match.Sub Matches;Sub Matches.Item(0); Категория:
Регулярные выражения Разбить строку на подстроки Разлогает строку типа:
Поле1, "Сложное, с запятыми внутри Поле2", Поле3
на массимв подстрок типа:
Поле1
Сложное, с запятыми внутри Поле2
Поле3
Код 1C v 8.х RegExp = Новый COMОбъект("VBScript.RegExp");Sub Matches = Match.Sub Matches;Sub Matches.Count();Sub Match=Sub Matches.Item(н);Sub Match="" ТогдаSub Match);Sub Match); Живой Ископаемый Категория:
Регулярные выражения Использование регулярных выражений (RegExp) в 1С Регулярные выражения (Regular Expressions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 1С - через объект VBScript.RegExp. Нужный объект уже встроен в современные версии Windows (начиная с Windows 98), и устанавливать дополнительно ничего не нужно.
Приведенные ниже примеры были протестированы в 1С:Предприятие 7.7; для 1С:Предприятие 8.x изменяется способ создания объекта:
Код 1C v 8.х RegExp = Новый COMОбъект("VBScript.RegExp");
Кроме того, там уже есть логические константы Истина и Ложь - объявлять их не нужно.
Более подробное описание самой технологии RegExp (что означают те или иные значки или скобочки, или какие шаблоны поиска или замены можно использовать в типичных ситуациях) можно найти в специальной литературе (например Бен Форта "Освой самостоятельно регулярные выражения (regexp) за 10 минут") или на сайтах в сети Internet.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////
Более продвинутый пример разбора HTML использует подвыражения (
Sub Matches) и позволяет находить как сами теги, так и текст между ними.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Sub Matches = Match.Sub Matches;Sub Matches.Count();Sub Match=Sub Matches.Item(н);Sub Match="" ТогдаSub Match);
Часто регулярные выражения используются для тестирования строк, например пользовательского ввода.
Этот пример позволяет узнать, является ли строка целым числом.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////
Регулярные выражения поддерживают не только поиск, но и замену текста. При этом найденные подвыражения (в круглых скобках) могут быть представлены в строке замены как $1, $2 и т. д.
(знак доллара используется в VBScript.RegExp; в других средах программирования, например в JavaScript, используемый для этой цели символ может отличаться).
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Источник Категория:
Регулярные выражения Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitSub SdelatEto (ByVal productCode, ByVal msiPackage, ByVal CmdLine)Sub Sub UdalitFolder (ProductCod)Sub Sub ScopirovatSpisokBazSub Sub createShurtcutSub
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Печать в PDF Столкнулся с вопросом печати счета на оплату сразу в pdf.
Решение: установка виртуального принтера
bioPDF скачать можно тут. И прописывание в 1с следующего кода:
Код 1C v 8.х Sub ject", "Report generated at " + ТекущаяДата());
Как выяснилось во время печати в pdf есть проблема с передачей прозрачности картинки. Если вставлять прозрачную печать в счет поверх подписи, то в pdf-документе печать будет непрозрачной и затрет все собой. У меня был частный случай, когда печать находилась на одном и том же месте документа и за ней постоянно было одно и то же. Решением в данном случае стала генерация картинки печати с фоном, на котором она должна быть и вставка её в макет.
Так же решением может быть печать не в pdf а xps документ. Там с прозрачностью все нормально.
Автор:
Андрей Данилюк
Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF. Категория:
COM-объекты, WMI, WSH Установка атрибутов файлу на закладке "Сводка" Смысл в следующем. В windows присутствует файл библиотеки dsofile.dll (
Скачивать файлы может только зарегистрированный пользователь! ), при помощи которого эти самые свойства можно получать или устанавливать.
Небольшая процедурка, как установить свойства:
Код 1C v 7.x Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") ЭкспортSub ject = тТема;
и как получить:
Код 1C v 7.x Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) ЭкспортSub ject;
Автор: maxpiter
Категория:
COM-объекты, WMI, WSH Альтернативный перенос остатков между 7.7 и 8.1 (обработкой с ИТС ЗагрузкаДанныхИзТаблДокум) Нашел альтернативный, практически моментальный способ переноса остатков между семерой и восьмерой (так и между восмерками). Не требуется никаких дополнительных усилий, программирования, писания обработок и т.д. и т.п.
На ИТС есть обработка под названием "ЗагрузкаДанныхИзТабличногоДокумента".
Скачать ее можно здесь.
К примеру остатки по 41 счету:
1) перенести справочники любой обработкой обмена.
2) выкрутить в старой программе любой отчет по сальдо (в виде разбитых колонок - наименование, количество, сумма)
3) сохраняем его в эксель.
4) открываем восмерку, открываем обработку.
Выбираем опцию загрузки в документ, выбираем вид документа ВводНачальныхОстатков, соответствующую табличную часть. Дальше открываем экселевский файл. Обработка его считывает. Задаем настройки для колонок откуда чего брать (и что проставлять автоматом).
Нажимаем контроль. Обработка проверит все совпадения. После чего нажимаем загрузить.
Собственно всё. Ввод остатков готов.
В принципе так можно загрузить любые остатки во все что угодно.
Все это делается минут 15. Я только что узнал что у меня бухгалтерия занималась сейчас ручным вводом остатков по 41 счету в новую бухгалтерию. 3 тысячи строк. Уже вторую неделю сидели вбивали, сделали меньше пятой части, да еще как оказалось понаделали лишней номенклатуры и прочего.
Eugeneer Категория:
Конвертация данных, Обмен, Перенос Функция ПОДСТРОКА() В языке запросов 1С:Предприятия функция
ПОДСТРОКА() в
формате ПОДСТРОКА(<Исходная строка>, <Начало>, <Длина>) может применяться к данным строкового типа и позволяет выделить фрагмент <Исходной строки>, начинающийся с символа номер <Начало> (символы в строке нумеруются с 1) и длиной <Длина> символов. Результат вычисления функции ПОДСТРОКА() имеет строковый тип переменной длины, причем длина будет считаться неограниченной, если <Исходная строка> имеет неограниченную длину и параметр <Длина> не является константой или превышает 1024.
Вычисление функции ПОДСТРОКА() на SQL сервере:
В клиент-серверном варианте работы функция ПОДСТРОКА() реализуется при помощи функции
SUB STRING() соответствующего оператора SQL, передаваемого серверу баз данных SQL Server, который вычисляет тип результата функции
SUB STRING() по сложным правилам в зависимости от типа и значений ее параметров, а так же в зависимости от контекста, в котором она используется.
В большинстве случаев эти правила не оказывают влияния на выполнение запроса 1С:Предприятия, однако есть случаи, когда для исполнения запроса существенна максимальная длина строки результата, вычисленная SQL Server. Важно иметь в виду, что в некоторых контекстах использования функции ПОДСТРОКА() максимальная длина ее результата может оказаться равной максимальной длине строки ограниченной длины, которая в SQL Server равна 4000 символам. Это может привести к неожиданному аварийному завершению выполнения запроса.
Например, запрос:
Код 1C v 8.х ВЫБРАТЬ
завершается аварийно с сообщением Ошибка СУБД:
Microsoft OLE DB Provider for SQL Server: Warning: The query processor could not produce a query plan from the optimizer because the total length of all the columns in the GROUP BY or ORDER BY clause exceeds 8000 bytes.
Это происходит потому, что вычисленная Microsoft SQL Server максимальная длина строки, которая является результатом выражения:
Код 1C v 8.х ВЫБОР
равна 4000 символов. Поэтому длина записи, состоящей из двух таких полей превышает 8000 байт, разрешенные для выполнения операции сортировки.
В связи с описанной особенностью исполнения функции
SUB STRING() на SQL Server использование функции ПОДСТРОКА() с целью приведения строк неограниченной длины к строкам ограниченной длины не рекомендуется. Вместо нее лучше использовать операцию приведения типа ВЫРАЗИТЬ(). В частности, приведенный пример можно переписать в виде:
Код 1C v 8.х ВЫБРАТЬ Категория:
Запросы Чтение RTF файлов через OpenOffice. Для 8.х заменить СоздатьОбъект( на Новый COMОбъект(
Код 1C v 7.x // Пример от Jaap Vduul Sub InitParameters(Size)Sub Sub SetParameter(ServiceManager, Name, Value, Index)Sub Sub SetBooleanParameter(ServiceManager, Name, Value, Index)Sub Sub CloseDocument(Document)Sub " Категория:
Работа с Microsoft Office и OpenOffice Получения новостей с RSS-канала сайта buh.ru Код для получения новостей с сайта buh.ru, используется RSS-канал http://www.buh.ru/rss/rss-2.0.jsp
Данный код для 7.7, при использовании в 8-ой версии нужно заменить СоздатьОбъект( на Новый COMОбъект(, остальное вроде так же.
Код 1C v 7.x Sub matches(0));Sub matches(1); Sub matches(3));
К сожалению, автор не известен.
Категория:
COM-объекты, WMI, WSH Пример обращения к программе 1С:Предприятие из модуля MS Excel В данном примере запускается и инициализируется конфигурация 1С:Предприятие 8.0 с базой данных в каталоге D:\1CBasa.
Далее в программе 1С:Предприятие 8.0 создается объект типа "СправочникМенеджер.Товары" и создается новая группа элементов с названием "***** Экспорт из Excel ******".
Во вновь созданную группу каталога записываются данные из таблицы MS Excel.
Пример представлен на языке MS Visual Basic:
Код VBS Sub Excel_to_trade()Sub Категория:
Работа с Microsoft Office и OpenOffice Запуск макроса в MS Word из 1С Код 1C v 8.х //Пример показывает как из 1С вызывается MS Word, вставляется макрос и запускается!Sub VBAprimer()Sub ";Код 1C v 7.x // Если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ...Sub Golif()");Sub "); Категория:
Работа с Microsoft Office и OpenOffice Скрипт принудительного завершения процессов 1С на всех компьютерах В примере "1cv7s.exe", для 8-ки замениете на "1cv8.exe"
Код VBS Sub ShowInNotepad(StrToFile)Sub 'ShowInNotepad Категория:
Администрирование 
Скрипт переустанавливает Платформу 1С и прописывает нужные базы, ярлыки! .gif)
), при помощи которого эти самые свойства можно получать или устанавливать.