Как получить координаты выделенной области на Яндекс Карте? На одном проекте потребовалось получать координаты выделенной области на яндекс карте, после долгих изучений получилось следующее:
Вид Формы: Получить координаты выделенной области и заполняется таблица координат
Код инициализации карты и обработчик кнопки получения координат:
Код 1C v 8.х Процедура ИнициализироватьКарту()Макет
Код VBS <!DOCTYPE html">eval (WebClientOperation); Категория:
Географическая схема Google maps : вывод точек на карту и режим панорамы В отличие от яндекс карт в GMaps можно использовать панорамы - за что им большой плюс! Надеюсь в яндексе прочитают этот пост и тоже когда-нибудь это сделают!
Для клиента нужно было сделать вывод объектов на карту
С возможностью просмотра панорамы:
Основной HTML код карты хранится в макете:
Код VBS <!DOCTYPE html>eval (WebClientOperation);Код вывода карты:
Код 1C v 8.х Процедура ИнициализироватьКарту()eval ("Reset()");eval ("addToPointArray(" + Широта + "," + Долгота + ", '" + Строка(Индекс) + "', '" + СокрЛП(ТекСтрока.ВидОбъекта.ПутьКИконке)+ "', """ + СодержимоеТочки + """);");eval ("drawCluster();");Вырванная из конфигурации обработка GMaps.rar
Можно ее использовать как макет для создания обработки под свои требования.
Пример автоматизации в котором это использовалось.
Категория:
Географическая схема Яндекс карта : вывод точек на карту Пример о том,как вывести яндекс карту на форму и далее работать с ней:
Основной HTML код карты хранится в макете:
Код VBS <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> Код вывода карты:
Код 1C v 8.х //берем HTML-текст из макета и доделываем егоeval (ВызовФункции);eval ("mapRazmer(map," + СтрокаКоординат + ТекущийМасштаб + ")");Пример обратного геокодирования - получение координат по адресу:
Код 1C v 8.х Процедура ПолучитьКоординаты() Экспорт Обработка вырванная из конфигурации: YandexMap.rar
Можно ее использовать как макет для создания обработки под свои требования.
Пример автоматизации в котором это использовалось.
Категория:
Географическая схема КД: Передача параметров из выгрузки в загрузку (в т.ч. и на ранние стадии) при обмене из 7.7 в 8.х Кратко суть проблемы можно озвучить цитатой из документации: "Передача параметра из источника в приемник доступна только при обмене между информационными базами на платформе 1С:Предприятие 8".
Ниже излагается способ передачи глобальных параметров при таком обмене без правки выгруженного из КД 2 модуля выгрузки и без правки самой КД 2.
Итак, в обработчике ПередВыгрузкойДанных пишем код:
Код 1C v 8.2 УП УзелПарам=СоздатьУзел("ЗначениеПараметра");после этого данные параметры будут абсолютно штатно загружены в стандартной обработке "Универсальный обмен данными в формате XML (2.1.5)".
Ещё хотелось бы заметить, что содержимое обработчика ПослеЗагрузкиПараметров при таком обмене также не выгружается в файл обмена. Исправить данную оплошность можно так же, записав в обработчике ПередВыгрузкойДанных
Код 1C v 8.2 УП АлгПослеЗагрузкиПараметров=Нюанс : чтобы иметь параметры на ранних стадиях загрузки, например, в обработчиках ПередЗагрузкойДанных или ПередОбработкой в ПОД (правилах очистки данных), нужно помещать выгружаемые параметры в корень узла с выгружаемыми данными:
Код 1C v 8.2 УП ИмяПараметра="НашПараметр1";eVal ue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+eVal ue;
Автор: andrewks - Источник
Категория:
Конвертация данных, Обмен, Перенос COM-подключение к базе 7.7 из 8.2 1С Если код выполняется на стороне клиента, то необходимо наличие базы 7.7 на локальной машине.
Пример (На форме объекта присутствует реквизит Таблица(ТаблицаЗначений)):
Код 1C v 8.2 УП &НаКлиентеКод 1C v 8.2 УП //Примеры получения значенийEval Expr("Перечисление.ХарактерРаботы.ТрудовыеОтношения.Идентификатор()") Тогда eval expr("Перечисление.ТипыТоваров.Собственный.ПорядковыйНомер()"); Категория:
COM-объекты, WMI, WSH Загрузка данных из таблицы OpenOffice Calc v.3 Код 1C v 8.х Процедура ЗагрузитьПрайс(Кнопка)eval ("MassivParametrov = new Array()");eval ("MassivParametrov");eval ("MassivParametrov[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");eval ("MassivParametrov[0].Name='Hidden'");eval ("MassivParametrov[0].Value=true"); Категория:
Работа с Microsoft Office и OpenOffice Выгрузка в PDF из 1С (Средствами OpenOffice) Возникла задача отправлять счета почтой. PDFcreator не подошёл поскольку не удалось вместить счёт на одну страницу по ширине. Решил попробовать OpenOffice. Как сохранять в PDF нашёл быстро, а вот как уместить счёт на одну страницу вширь искал долго.
В версии 1С 8.2.232 появилась возможность сохранять табличный документ в xls файл на сервера под линуксом. А вот работать с Опеном офисом из-под линукса пока не получается. Собственно комментари ненужны. Вот весь код. Самое интересное это бодание со стилями страниц в Опене Офисе. Жаль что этот фрагмент работает только на клиенте. На сервере вопрос не решается *08
Код 1C v 8.2 УП Процедура КнопкаВыполнитьНажатие(Кнопка)
Автор:
Трактор
Функция позволяющая выполнить выгрузку табличного документа в PDF средствами OpenOffice
Код 1C v 8.х // Функция превращает табличный документ в PDF документeval ("Массив=new Array()"); eval ("Массив"); eval ("Массив[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");eval ("Массив[0].Name = 'Hidden'");eval ("Массив[0].Value = true");eval ("Массив2=new Array()"); eval ("Массив2"); eval ("Массив2[0] = OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')"); eval ("Массив2[0].Name = 'FilterName'");eval ("Массив2[0].Value = 'writer_pdf_Export'");
Автор:
doom_2001 Категория:
Работа с Microsoft Office и OpenOffice Поиск из 1С в Excel Для 8.х в нижеследующем коде замените
СоздатьОбъект( на
Новый COMОбъект !
Код 1C v 7.x //Пример 1:Eval ("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1).activate()");Eval ("S_election.Find("+СтрокаПоиска+",ActiveCell,-4163,1)"); Категория:
Работа с Microsoft Office и OpenOffice Краткий пример работы с OpenOffice.org Writer и Microsoft Office Word Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word. Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном каталоге с обработкой:
Скачивать файлы может только зарегистрированный пользователь!
Файл Шаблона - Primer.doc:
От: {Организация}
Кому: {Контрагент}
Ждем акт сверки взаиморасчетов!
Директор /{Директор}/
Необходимо заменить в шаблоне ключевые слова в скобках {}, на указанные значения, вот примерный код обработки:
Код 1C v 7.x Eval ("Args=new Array()");Eval ("Args"); Категория:
Работа с Microsoft Office и OpenOffice Установка полей и масштаба документа при сохранении из 1С MS Excel
Код 1C v 8.х ПопыткаOpenOffice Calc
Код 1C v 8.х Попыткаeval ("Massiv=new Array()"); eval ("Massiv");eval ("Massiv[0]=СервисМанагер.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");eval ("Massiv[0].Name='Hidden'");eval ("Massiv[0].Value=true"); Категория:
Работа с Microsoft Office и OpenOffice Получить имя принтера выбранного по умолчанию Код 1C v 7.x // maharbAeval ("new Enumerator(o);"); Категория:
COM-объекты, WMI, WSH Функции - Экспонента, Степень, Логарифм, Синус, Косинус, Тангенс Встроенные функции 1С 8.х для работы со значениями типа Число:
Код 1C v 8.х // Функция вычислет степень числаACos - Вычисляет арккосинус от аргумента <Число>.
Синтаксис:
Код 1C v 8.х ACos(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Аргумент функции. Определен в диапазоне -1 ... 1.
ASin - Вычисляет арксинус от аргумента <Число>.
Синтаксис:
Код 1C v 8.х ASin(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Аргумент функции. Определен в диапазоне -1 ... 1.
ATan - Вычисляет арктангенс от аргумента <Число>.
Синтаксис:
Код 1C v 8.х ATan(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Аргумент функции.
Cos - Вычисляет косинус от аргумента <Угол>, заданного в радианах.
Синтаксис:
Код 1C v 8.х Cos(<Угол>)
Параметры: <Угол> - Обязательный
Тип: Число. Аргумент функции.
Exp - Вычисляет результат возведения основания натурального логарифма (числа е) в степень <Число>.
Синтаксис:
Код 1C v 8.х Exp(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Аргумент функции.
Log - Вычисляет натуральный логарифм числа.
Синтаксис:
Код 1C v 8.х Log(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Исходное число, больше 0.
Log10 - Вычисляет десятичный логарифм числа.
Синтаксис:
Код 1C v 8.х Log10(<Число>)
Параметры: <Число> - Обязательный
Тип: Число. Исходное число, больше 0.
Sin - Вычисляет синус от аргумента <Угол>, заданного в радианах.
Синтаксис:
Код 1C v 8.х Sin(<Угол>)
Параметры: <Угол> - Обязательный
Тип: Число. Аргумент функции.
Tan - Вычисляет тангенс от аргумента <Угол>, заданного в радианах.
Синтаксис:
Код 1C v 8.х Tan(<Угол>)
Параметры: <Угол> - Обязательный
Тип: Число. Аргумент функции.
Код 1C v 7.x // Hижe пpивeдeн Полный тeкcт мoдyля, coдepжaщeгo фyнкции Код 1C v 7.x VBS=CreateObject("MSScriptControl.ScriptControl");Eval ("sqr("+СокрЛП(Параметр)+")"); Категория:
Работа с Числами Как получить текущее время с милисекундами? В Платформе 8.2.17 реализована возможность получения числа миллисекунд, прошедших с 1 января 0001 года, 0:00:00 UTC с помощью функции
Код 1C v 8.2 УП ТекущаяУниверсальнаяДатаВМиллисекундах() Код 1C v 8.х // В 8.х переменные типа "дата" содержат миллисекунды, только это нигде не написаноКод 1C v 8.х Функция ПолучитьТекущееВремяВМиллисекундах() ЭкспортEval ("new Date().getTime()");Код 1C v 8.х // Как быстрее получить время в миллисекундах? Код 1C v 7.x Eval ("new Date();"); Категория:
Работа с Датами (Временем) Пример простой реализации OLE доступа из 8 к 77 Код 1C v 8.х V77 = Новый COMОбъект("V77M.Application");Eval Expr("CreateObject(""Документ.РасходнаяНакладная"")");Eval Expr("CreateObject(""Документ"")"); Категория:
COM-объекты, WMI, WSH Функция формирует объект Структура, содержащая метаданные 77 для составления прямых запросов Код 1C v 8.х Функция ЗагрузитьМетаданные(КаталогИБ, ИмяПользователяV7, ПарольПользователяV7) ЭкспортEval Expr("_idtostr("+MDW.ИДОбъекта(МДЗначение)+")")+" ");
Формируется конечно не быстро, но Структура - объект сериализуемый, поэтому ее надо просто хранить в ХранилищеЗначения в базе 8ки, и восстанавливать перед каждым переносом данных, а не формировать заново. Обновлять ее можно периодически при изменении конфигурации, ито если изменения влияют на перенос данных.
Обратите внимание: все идентификаторы объектов в 10ой системе, а идентификаторы значений перечислений в 36ой.
DmitrO Категория:
COM-объекты, WMI, WSH 
Как получить координаты выделенной области на Яндекс Карте? Категория: Географическая схема
