QR код в 1С Столкнулся с интересной задачей реализации генерации QR-кода в 1С 8.2 (
QR-код — матричный код (двухмерный штрихкод) ) Для генерации было использовано api от google (http://chart.apis.google.com/chart).
Вот сайт , который работает с ним. После того, как вы вводите все параметры кода и нажимаете кнопку генерировать, получаем что-то вроде такой
ссылки . По сути эта ссылка нам и нужна. Создав необходимый url можно скачать картинку, которая генерируется с помощью api.
И так в чем заключается подход:
1. Генерируем текст, который надо прописать в qr-коде.
2. Используя ссылку «http://chart.apis.google.com/chart?cht=qr&chs=230?230&chl=» +»Наш текст» скачиваем картинку.
3. Размещаем картинку в нашем табличном документе.
Код реализации:
Код 1C v 8.2 УП &НаСервереres ervedres ponseBody, ИмяВременногоФайла);Источник Категория:
COM-объекты, WMI, WSH Как открыть документ Word без возможности редактирования и копирования Как открыть из 1С документ Word без возможности его редактирования и копирования?
Код 1C v 8.х Если НЕ РольДоступна("ПолныеПрава") ТогдаreS ave, ОбработкаСохраненияДокумента; Категория:
Работа с Microsoft Office и OpenOffice Скрипт переустанавливает Платформу 1С и прописывает нужные базы, ярлыки! Круглов Дмитрий дмитриевич :Код VBS Option ExplicitRes ume NextRes ume NextRes ume NextRes ume Nextres s = '" & strHost & "'")Рябко Михаил Евгеньевич :Код VBS Option Explicit Категория:
Администрирование Преобразование XLS в MXL Конвертация таблиц из Excel в MXL - скачать Converter Excel v MXL:
Для 8.х -
Скачивать файлы может только зарегистрированный пользователь!
Для 7.7 -
Скачивать файлы может только зарегистрированный пользователь!
Код 1C v 8.х // Выбор файла Microsoft Excelres sBar = GetForm("FormProgres sBar");res sBar.Caption = "Обрабатывается файл: " + FileName;res sBar.Controls.Progres sBarAll.MaxValue = S_electNumberSheet2;res sBar.Controls.Progres sBarAll.Value = 0; res sBar.Open();res sBar.Controls.InfoProgres sBarAll.Value = "Обрабатывается лист № " +res sBar.Controls.Progres sBarAll.Value = frmProgres sBar.Controls.Progres sBarAll.Value + 1; res sBar.Controls.Progres sBarCur.MaxValue = AllStrings;res sBar.Controls.Progres sBarCur.Value = 0; res sBar.Controls.InfoProgres sBarCur.Value = "Обрабатывается строка №: " +res s(,, 2),res s(,, 2)) = 1) Thenres sBar.Controls.Progres sBarCur.Value = frmProgres sBar.Controls.Progres sBarCur.Value + 1; res sBar.Close(); Категория:
Работа с Microsoft Office и OpenOffice Создание писем, событий и задач в 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 OutlookСоздание события
Код 1C v 7.x //создать запись в календаре событий из 1С в MS OutlookreS tart = 15;Создание задачи
Код 1C v 7.x //создать новую задачу из 1С в MS Outlook Категория:
Работа с Microsoft Office и OpenOffice Как из скрипта VBS запустить 1C, чтобы окно программы не видно было? Код 1C v 8.х WshShell = Новый COMОбъект("WScript.Shell");Код VBS Set WshShell=CreateObject("WScript.Shell")Код VBS On Error Res ume Next Res = objClass.Create("C:\Program Files\1CV8PDA\1Cv8pSRV.exe ""Параметры""", Null, Null, PID)Res <> 0 ThenRes Категория:
Администрирование Удаление из строки всех лишних символов Есть строка
"ABC-9.64,5=s" , нужно оставить в ней только символы "a-z" и "0-9", т.е. получить
"ABC9645s"
Код 1C v 8.х RegExp=Новый COMОбъект("VBScript.RegExp");Res = RegExp.Replace(Str1, "");Res ; Категория:
Регулярные выражения Использование регулярных выражений (RegExp) в 1С Регулярные выражения (Regular Expres sions) являются известным и мощным средством для поиска, тестирования и замены подстрок. Эта технология доступна и в 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 использует подвыражения (SubMatches) и позволяет находить как сами теги, так и текст между ними.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////
Часто регулярные выражения используются для тестирования строк, например пользовательского ввода.
Этот пример позволяет узнать, является ли строка целым числом.
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////
Регулярные выражения поддерживают не только поиск, но и замену текста. При этом найденные подвыражения (в круглых скобках) могут быть представлены в строке замены как $1, $2 и т. д.
(знак доллара используется в VBScript.RegExp; в других средах программирования, например в JavaScript, используемый для этой цели символ может отличаться).
Код 1C v 7.x ///////////////////////////////////////////////////////////////////////Источник Категория:
Регулярные выражения Полезные процедуры работы с Active Directory (AD) Надоели просить меня запостить рабочие модули работы с AD, вот запостил, в качестве бонуса убийца любого процесса в памяти любого компа.
p.s. для работы нужны определенные права.
Автор:
vde69
Код 1C v 8.х Функция ПолучитьСписокДоменов () Экспорт res s); Код 1C v 8.х // coder1cv8 - Мой вариант получения почты 1С-ного пользователя: Категория:
COM-объекты, WMI, WSH Синхронизация системного Времени по запросу Реализовано для защиты от "умных" пользователей, которые делают то что не нужно делать (ручное изменение даты и времени). В рабочей конфигурации используется при синхронизации времени в ЭККА (кассовый аппарат) при закрытии рабочей смены.
Код 1C v 8.х Процедура КнопкаВыполнитьНажатие(Кнопка)res ync > c:\res _set_time.txt");res _set_time.txt",КодировкаТекста.OEM);res _set_time.txt"); Категория:
Работа с Датами (Временем) Отправка sms из 1C через avisosms.ru. Столкнулся с задачей отправки sms из 1С. Спасибо Якову за напутствие в решении данной задачи и указание сервиса avisosms.ru.
На сайте сервиса предоставлена документация по работе с ним. В частности сервис предлагает следующие варианты работы:
* JSON протокол
* email2SMS протокол
* HTTP GET протокол
* Удаленный доступ к телефонной книге
* XML протокол
После проб и ошибок с протоколом email2sms (ну не любит мой провайдер через smtp слать письма на не очень красивые адреса относя их к спаму и блокируя) был выбран вариант решения с JSON протоколом. Для краткой демонстрации работы сервера приведена небольшая конфигурация. Конфигурация написана на 1С Предприятие 8.2 с поддержкой работы веб-клиента. Для работы конфигурации необходимо заполнить константы:
* ПользовательСМС – Ваш логин в систему;
* ПарольСМС – Ваш пароль в систему;
* ПодписьСМС – Ваш адрес отправителя, который был создан в личном кабинете.
Конфигурация позволяет:
* Отправлять смс контрагенту, номер которого записан в соответствующем реквизите (номер пишем в формате 380ХХХХХХХХХХ);
* Получать статусы отправленных смс.
Ниже приведу код формирования запроса на отправку смс
Код 1C v 8.2 УП &НаСервереres s': '" + Объект.Контрагент.НомерТелефона+ "'";res s': '" + Константы.ПодписьСМС.Получить() + "'";Res ponseText();Источник Категория:
COM-объекты, WMI, WSH Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitRes ume NextRes ume NextRes ume NextRes ume Nextres s = '" & strHost & "'")
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Как определить IP адрес текущего компьютера? Код 1C v 8.2 УП //работает под толстым и тонким клиентами res s); Код 1C v 8.х ремоте= Новый COMОбъект("rcbdyctl.setting");res s); Код 1C v 7.x ремоте=СоздатьОбъект("rcbdyctl.setting");res s);
Подсказал:
smaharbA Категория:
COM-объекты, WMI, WSH Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:res s;res s);res s <> АдресПреж),-1,0);res =Скрипт.Eval("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1).activate()");res =Скрипт.Eval("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1)");res .Addres s); Категория:
Работа с Microsoft Office и OpenOffice Как программно получить Картинку из базы и сохранить ее преобразовав в другой формат? Код 1C v 8.х //Получим и сохраним Общую картинку из библиотеку картинок конфигурацииres s; Категория:
Метаданные 
QR код в 1С Категория: COM-объекты, WMI, WSH
.gif)