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 УП #НаСервере
Формирование карты отображения
При формировании отображения объекта на карте к стандартному коду визуализации добавлен следующий:
Код 1C v 8.х if(!google.visualization) setTimeout(checkIfGoogleLoad, 1000);
Это связано с тем, что платформа не хочет сразу обновлять фрейм поля html документа.
Код 1C v 8.2 УП #НаСервереall back(drawMap);Андрей Данилюк Категория:
COM-объекты, WMI, WSH Обновление платформы на клиентских машинах и восстановление списка информационных баз пользователей Периодически сталкиваюсь с проблемой обновления платформы на клиентских машинах, + периодически пользователи удаляют, изменяют или добавляют какие-то новые информационные БД.
В случае 8.2 новые релизы платформы стали штамповать чуть ли не каждый месяц, что меня повергло в уныние, разбираясь в этом вопросе понял: у кого есть домен могут легко реализовать с помощью доменных политик..Те же кто лишен домена и работает в рабочих группах, может прибегнуть к помощи кривоватого скрипта от 1С (текст скрипта приведен в руководстве администратора 8.2 стр. 185
Но как быть, если нужно одновременно снести старую платформу и поставить новую + что б еще у всех пользователей был одинаковый список информационных БД, Да и лучше, что б по ссылке вообще автоматом выбиралась нужна ИБ!
Для решения нам нужно какое-нибудь общедоступное сетевое пространство, куда мы кладем дистрибутивы платформ и нужный нам список баз (отредактированный файлик ibases.v8i)
Итак, пишем скрипт от меня с любовью и комментариями
Код VBS Option ExplicitALL "all er после удаления - исправим этоall relogon.mst;1049.mst DESIGNERALL CLIENTS=0 THICKCLIENT=0 THINCLIENTFILE=1 THINCLIENT=1 WEBSERVEREXT=0 SERVER=0 CONFREPOSSERVER=0 CONVERTER77=0 SERVERCLIENT=0 LANGUAGES=RU" all erall er = Nothingall er = Wscript.CreateObject("WindowsInstall er.Install er")all er.UILevel = 2 'молчаливая установка (варианты смотрите в Руководстве администратора 8.2 стр.185all er.Install Product msiPackage,cmdLineall er = Nothingall er\" & ProductCod, Trueall er\" & ProductCod)
Напоминаю, что создать исполняющий скрипт не сложно, берем обычный текстовый файл, вставляем туда текст скрипта, сохраняем файл, меняем ему расширение с txt на vbs и можно скрипт исполнять
Источник Категория:
Администрирование Создание и работа с БД MySQL из 1С Появилась необходимость выложить часть данных из 1С в открытый доступ большому числу пользователей.
Что бы не нарушать условий лицензирования и обеспечить безопасность данных, было принято решение развернуть новую базу на MySQL. Так как особо модерировать ее никто не хочет, пришлось сделать управление MySQL-ной БД из 1С, и начал с создания структуры БД. Итак:
Создаем 2 справочника неирархических, один подчинен другому.
а.
Таблицы
б.
Колонки
Таблицы - реквизиты:
Заполняем значениями справочники...
Теперь подключаемся:
Код 1C v 8.х Connection = Новый COMОбъект("ADODB.Connection");Сначала удалим таблицы если они есть:
Код 1C v 8.х Результат = Новый COMОбъект("ADODB.Command");Теперь приступим к созданию таблиц БД:
Код 1C v 8.х Запрос = Новый Запрос;И под закуску недостающие функции, использованные в основном тексте:
Код 1C v 8.х Функция ПолучитьКолонкуID(зн) экспорт
Предполагается что название таблиц идут с префиксом например: prefix_NameTable
Код 1C v 8.х Функция ПолучитьПродолжениеСкрипта(ТипД,ДлинаД,Ноль) экспортall int(6) " + ?(Ноль, "null","NOT NULL");Источник Категория:
COM-объекты, WMI, WSH Прямой SQL запрос к базе 7.7 из базы 8.x Код 1C v 8.х РабДата=Лев(СокрЛП(РабочаяДата),10);ALL Категория:
COM-объекты, WMI, WSH Используем диалог открытия файлов Word в 1С,возможен множественный выбор Код 1C v 7.x oWord=СоздатьОбъект("Word.Application");All owMultiSelect = -1; Категория:
Работа с Microsoft Office и OpenOffice Установка адресного классификатора (KLADR) в 1С Очень часто меня спрашивают:
Как установить адресный классификатор (КЛАДР) для 1С?
Опишу в кратце этот не сложный процесс:
КЛАДР (KLADR) - аббревиатура от Классификатор Адресов России.
Это несколько таблиц, в которых хранятся все (ну почти все;) ) адрес России.
КЛАДР нужен для того, чтобы проще, быстрее и с меньшими ошибками вводить адреса. КЛАДР позволяет не только проще и быстрее ввести адрес, узнать индекс, избажеть орфографических ошибок, но и вводить адреса в едином стандарте, что особенно актуально налоговым органам.
Если КЛАДР не установлен, то мы увидим сообщение
"Не загружены классификаторы. Перейдите на закладку "Классификаторы" и загрузите классификаторы, например с диска ИТС!" Как установить классификаторы (КЛАДР) описано здесь.
Скрытый текст Скрытый текст виден только зарегистрированным пользователям.
Как установить КЛАДР для 1С Предприятие 8.х?
1 Скачиваем КЛАДР и распаковываем все файлы из архива в каталог
2 Необходимо зайти в
Адресный классификатор , сделать это можно двумя способами:
а) Зайдите в справочник Физические Лица, нажмите Добавить. Или выберите существующего сотрудника.
В открывшемся окне перейдите на закладку Адреса и телефоны и в любом адресе нажмите "..." (в ЗУП и УТ нажмите на Представление)
В самом верху нажмите кнопку Классификатор
б) В программе 1С Предприятие 8 открываем пункт верхнего меню "Операции" и открываем список "Регистры сведений"
в открывшемся списке выбираем "Адресный классификатор и далее
Загрузить классификатор
3 Если адресный классификатор абсолютно пуст, появится окно с предложением загрузить классификатор:
4 Если пути уже заполнены - сотрите их. Потом нажмите "
... " напротив первой строчки и выберите файл KLADR.DBF из каталога, куда вы его распаковали. Остальные строчки заполнятся автоматически. Должно получится вот так
5 Выбираем регионы, по которым необходимо произвести загрузку адресов. (При помощи кнопок
> >> переносим необходимые регионы из левого списка в правый:
После всех настроек нажимаем кнопку
Загрузить и начинается процесс загрузки
После завершения процесса загрузки можно пользоваться адресным классификатором. *17
Как установить КЛАДР для 1С Предприятие 7.7?
Установка выполняется в два действия:
1. Скачиваем КЛАДР и распаковываем все файлы в каталог Вашей информационной базы в папку ExtDB.
2. Запускаем 1С Предприятие монопольно и ждем пока не закончится переиндексация файлов КЛАДР.
Категория:
1С Общие вопросы - Обычные формы Альтернативный перенос остатков между 7.7 и 8.1 (обработкой с ИТС ЗагрузкаДанныхИзТаблДокум) Нашел альтернативный, практически моментальный способ переноса остатков между семерой и восьмерой (так и между восмерками). Не требуется никаких дополнительных усилий, программирования, писания обработок и т.д. и т.п.
На ИТС есть обработка под названием "ЗагрузкаДанныхИзТабличногоДокумента".
Скачать ее можно здесь.
К примеру остатки по 41 счету:
1) перенести справочники любой обработкой обмена.
2) выкрутить в старой программе любой отчет по сальдо (в виде разбитых колонок - наименование, количество, сумма)
3) сохраняем его в эксель.
4) открываем восмерку, открываем обработку.
Выбираем опцию загрузки в документ, выбираем вид документа ВводНачальныхОстатков, соответствующую табличную часть. Дальше открываем экселевский файл. Обработка его считывает. Задаем настройки для колонок откуда чего брать (и что проставлять автоматом).
Нажимаем контроль. Обработка проверит все совпадения. После чего нажимаем загрузить.
Собственно всё. Ввод остатков готов.
В принципе так можно загрузить любые остатки во все что угодно.
Все это делается минут 15. Я только что узнал что у меня бухгалтерия занималась сейчас ручным вводом остатков по 41 счету в новую бухгалтерию. 3 тысячи строк. Уже вторую неделю сидели вбивали, сделали меньше пятой части, да еще как оказалось понаделали лишней номенклатуры и прочего.
Eugeneer Категория:
Конвертация данных, Обмен, Перенос Краткий пример работы с OpenOffice.org Writer и Microsoft Office Word Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word. Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном каталоге с обработкой:
Скачивать файлы может только зарегистрированный пользователь!
Файл Шаблона - Primer.doc:
От: {Организация}
Кому: {Контрагент}
Ждем акт сверки взаиморасчетов!
Директор /{Директор}/
Необходимо заменить в шаблоне ключевые слова в скобках {}, на указанные значения, вот примерный код обработки:
Код 1C v 7.x All (Replace); Категория:
Работа с Microsoft Office и OpenOffice Установка второго сервиса сервера 1С той же платформы После выхода платформы 8.2.11 появилась задача установить на один физический сервер несколько серверов приложений 1С 8.2 - 8.2.10 и 8.2.11. Информацию как это сделать в документации по 1С я не нашел, более того, говорилось о том, что второй сервер возможно запускать только в ручном режиме.
Решить этот вопрос помогла сторонняя утилита создания сервисов Windows (
Скачивать файлы может только зарегистрированный пользователь! ).
Для начала необходимо распаковать архив в какую-нибудь папку, зайти в нее командной строкой и запустить команду создания сервиса, например:
"
INSTSRV "Агент сервера 8.2.11" "C:\Program Files\1cv82\8.2.11.229\bin\ragent.exe" ", Где
Агент сервера 8.2.11 - придуманное имя сервиса. Если всё сделано правильно, то появится сообщение, подтверждающее успешное создание сервиса:
Теперь зайдите в
Администрирование - Службы (Services) . Находите только что созданную службу, двойной клик вызывает свойства сервиса. На первой вкладке можно выбрать параметры запуска -
Automatic (автоматически при загрузке компьютера),
Manual (Вручную) и
Disabled (отключено). Для работы созданного сервиса в отдельном окне необходимо отметить на второй вкладке (Вход в систему) пункт
All ow Service to Interact with Desktop (Разрешить взаимодействие с рабочим столом) + указать параметры входа в систему.
Следующим шагом является редактирование реестра. Запускаем редактор реестра Regedit. Ищем строку "
C:\Program Files\1cv82\8.2.11.229\bin\ragent.ex e" и меняем ее на правильную команду запуска с параметрами, например: "
"C:\Program Files\1cv82\8.2.11.229\bin\ragent.exe" /Debug -srvc -agent -regport 11641 -port 11640 -range 11660:11691 -d "C:\Program Files\1cv82\srvinfo2" "
Запустить сервис, если он не отключен, можно несколькими способами, во-первых через командную строку: Net Start ServiceName - где SеrviceName - имя Вашего сервиса. И другим способом - непосредственно через апплет административной панели - службы.
Чтобы удалить сервис, его сначала необходимо остановить:
net stop ServiceName , затем опять же в коммандной строке выполнить команду
INSTSRV ServiceName remove.
P.S. - информация для "особо умных" скептиков:
На
http://users.v8.1c.ru/Adm3413.aspx цитата:
Установка нового экземпляра сервера 1С:Предприятия 8.1/8.2 при работающем сервере 1С:Предприятия той же версии
В 1С:Предприятии отсутствуют штатные возможности по регистрации нескольких экземпляров сервера 1С:Предприятия одной версии (8.1 или 8.2).
Если после установки предполагается запуск нового экземпляра сервера, а не простое обновление версии 1С:Предприятия, то при установке 1С:Предприятия с теми же первыми двумя цифрами номера версии не следует регистрировать сервер 1С:Предприятия как сервис.
Дополнительные экземпляры сервера 1С:Предприятия могут быть запущены только из командной строки. При этом важно, чтобы они различались не только портами, но и каталогами реестра кластера.
Автор статьи: albochkov Категория:
Администрирование Функция ПОДСТРОКА() В языке запросов 1С:Предприятия функция
ПОДСТРОКА() в
формате ПОДСТРОКА(<Исходная строка>, <Начало>, <Длина>) может применяться к данным строкового типа и позволяет выделить фрагмент <Исходной строки>, начинающийся с символа номер <Начало> (символы в строке нумеруются с 1) и длиной <Длина> символов. Результат вычисления функции ПОДСТРОКА() имеет строковый тип переменной длины, причем длина будет считаться неограниченной, если <Исходная строка> имеет неограниченную длину и параметр <Длина> не является константой или превышает 1024.
Вычисление функции ПОДСТРОКА() на SQL сервере:
В клиент-серверном варианте работы функция ПОДСТРОКА() реализуется при помощи функции SUBSTRING() соответствующего оператора SQL, передаваемого серверу баз данных SQL Server, который вычисляет тип результата функции SUBSTRING() по сложным правилам в зависимости от типа и значений ее параметров, а так же в зависимости от контекста, в котором она используется.
В большинстве случаев эти правила не оказывают влияния на выполнение запроса 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 байт, разрешенные для выполнения операции сортировки.
В связи с описанной особенностью исполнения функции SUBSTRING() на SQL Server использование функции ПОДСТРОКА() с целью приведения строк неограниченной длины к строкам ограниченной длины не рекомендуется. Вместо нее лучше использовать операцию приведения типа ВЫРАЗИТЬ(). В частности, приведенный пример можно переписать в виде:
Код 1C v 8.х ВЫБРАТЬ Категория:
Запросы Пример построения в Word нумерованного списка, закладок, вставки картинки, настройки ее параметров. Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудьте указать свои пути.
Тестировалось на Office 2007.
Некоторые переменные переименованы по стандарту Office: Text --> S_election. Doc --> ThisDocument.
Вот текст модуля:
Код 1C v 8.х Процедура ВыполнитьОбработку() Экспортall eries(2).ListTemplates(1).ListLevels(1);all eries(2).ListTemplates(1));Написал Nikola23 - http://infostart.ru/public/68072/ Категория:
Работа с Microsoft Office и OpenOffice Как сформировать новый документ на основании файла, шаблона Microsoft Office Word и OpenOffice? Код 1C v 8.х Перем СсылкаНаДокумент;All (OOЗамена);All (OOЗамена);Код 1C v 8.х //ДОПОЛНИТЕЛЬНО НЕОБХОДИМЫЕ ФУНКЦИИ Категория:
Работа с Microsoft Office и OpenOffice При заполнении регламентированных отчетов, неверно отображается штрих-код Скорее всего у вас не установлена или установлена старая версия шрифта EanGnivc. Для корректного отображения штрих-кода нужно:
1. Скачать последнюю версию шрифта, например,
здесь (скачать Файл шрифта EanGnivc) или взяв из нового дистрибутива конфигурации с первого диска (DISK1)
2. Для установки шрифта выполните следующие действия:
- откройте Панель управления (Control Panel) операционной
системы, для этого нажмите кнопку "Пуск", выберите команды
"Настройка" (Settings) и "Панель управления" (Control
Panel);
- в Панели управления дважды щелкните значок "Шрифты" (Fonts);
- в меню "Файл" (FilE) выберите команду "Установить шрифт"
(Inst
all New Font);
- в поле со списком "Диски" (Drives) выберите нужный диск;
- в поле "Папки" (Folders) откройте каталог, в котором находится
файл EANG000.ttf
- в списке "Список шрифтов" (List of fonts) выберите строку
"EanGnivc (True Type)" и нажмите кнопку OK. Все...
Категория:
1С Общие вопросы - Обычные формы Как получить уникальный идентификатор объекта, GUID? GUID (Globall y Unique Identifier) — статистически уникальный 128-битный идентификатор. Его главная особенность — уникальность, которая позволяет создавать расширяемые сервисы и приложения без опасения конфликтов, вызванных совпадением идентификаторов. Хотя уникальность каждого отдельного GUID не гарантируется, общее количество уникальных ключей настолько велико (2128 или 3,402 * 10в38), что вероятность того, что в мире будут независимо сгенерированы два совпадающих ключа, крайне мала.
Для получения уникального идентификатора объекта, используйте код вида:
Код 1C v 8.х ГУИДССЫЛКИ = СсылкаНаОбъект.УникальныйИдентификатор();Как с помощью запроса получить уникальный идентификатор:
Код 1C v 8.х Запрос = Новый Запрос;В 1С 7.7 можно получить так
Через v7plus.dll
Код 1C v 7.x Инфо = СоздатьОбъект("AddIn.V7SysInfo");Через WScript
Код 1C v 7.x Функция СоздатьGUID()при OLE доступе:
Код 1C v 7.x Если Док_Источник.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода) = 1 ТогдаЕще посмотрите метод:
ЗначениеВСтрокуВнутр(<?>);
Синтаксис:
ЗначениеВСтрокуВнутр(<Объект>)
Назначение:
Преобразование значения объекта агрегатного типа в строковое системное представление.
Возвращает: представление значения объекта в строковом системном виде.
Параметры:
<Объект> - значение объекта агрегатного типа данных которое нужно преобразовать.
Категория:
Встроенные Функции Печать табличной части документа в Word'e Вот пример кода создания и заполнения таблиц(пример для 7.7, в 8.х заменить первую строку на МСВорд Новый COMОбъект("Word.Application")):
Код 1C v 7.x МСВорд = СоздатьОбъект("Word.Application"); All owBreakAcrossPages = 0;
ТЗ - это таблица значений.
Для документа можно так цикл организовать:
Предположим, что Док - это документ, тогда
Код 1C v 8.2 УП Для А =1 По Док.КоличествоСтрок() Цикл Категория:
Работа с Microsoft Office и OpenOffice 
1C и Google Maps .gif)
).gif)