tagname » Поиск

Результаты по ключевому слову: tagname

Как узнать текущие релизы 7.7 для Украины

Код 1C v 7.x

 



Функция ПолучитьВерсии()

Перем Url, HtmlTab, Строк, Р, НомСтроки, Таб, Версия, ДатаВремя;	

	ОчиститьОкноСообщений();

	СтатусВозврата(0);

	Url = "http://www.1c.ru/ukraina/support/release.jsp?time=" + _GetPerformanceCounter();

	Сообщить(Url);

	IE = СоздатьОбъект("InternetExplorer.Application");

	IE.Navigate(Url);	

	Пока (IE.readyState <> 4) Или (IE.Busy = -1) Цикл

		Состояние("Получение страницы... " + Url);

	КонецЦикла; 

	HtmlTab = IE.Document.getElementsByTagName("table").item(4).rows(0).cells(4).childNodes.item(10);

	Строк	= HtmlTab.rows.length;

	Таб = СоздатьОбъект("ТаблицаЗначений");

	Таб.НоваяКолонка("Версия"	, "Строка");

	Таб.НоваяКолонка("Дата"		, "Дата");

	Таб.НоваяКолонка("Время"	, "Строка");

	Таб.НоваяКолонка("Продукт"	, "Строка");

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если Р.cells.length <> 3 Тогда

			Продолжить;

		КонецЕсли;

		Версия = Р.cells(2).innerText;

		Если Найти(Версия, "7.70.") = 0 Тогда

			Продолжить;

		КонецЕсли;

		ДатаВремя = Р.cells(0).innerText;

		Таб.НоваяСтрока();

		Таб.Дата 	= ДатаВремя;

		Таб.Время 	= Сред(ДатаВремя, 12);

		Таб.Продукт	= Р.cells(1).innerText;

		Таб.Версия	= Версия;

	КонецЦикла;

	Таб.Сортировать("Дата-,Время-");

	Возврат Таб;

КонецФункции

Категория: HTML, JS, VML

1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ?

Код 1C v 7.x

 



Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1)  // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе

Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	

	Url = "http://www.bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=" + ?(Ежедневно = 1, "daily", "monthly") + 

		"&date=" + Формат(ДатаКурса, "ДДДММГГГГ") + "&outer=table&execute=run&time=" + _GetPerformanceCounter();

	Сообщить(Url);

	Reader = СоздатьОбъект("MSXML2.XMLHTTP");

	Reader.Open("Get", Url, 0);

	Reader.Send();

	Пока Reader.ReadyState <> 4 Цикл

		Состояние("Чтение данных за <" + ДатаКурса + "> ");

	КонецЦикла;

	Док = СоздатьОбъект("HtmlFile");

	Док.open("text/html");

	Док.write(Reader.ResponseText);

	Док.close();

	HtmlTab	= Док.getElementsByTagName("table").item(5);

	ТабКурсов = СоздатьОбъект("ТаблицаЗначений");

	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");

	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");

	ТабКурсов.НоваяКолонка("Название"	, "Строка");

	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);

	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);

	Строк	= HtmlTab.rows.length;

	Для НомСтроки = 1 По Строк Цикл

		Р = HtmlTab.rows(НомСтроки - 1);

		Если (НомСтроки = 1) Или (Р.cells.length <> 5) Тогда // 1 - я заголовок, остальные не с данными

			Продолжить;

		КонецЕсли;

		ТабКурсов.НоваяСтрока();

		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);

		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);

		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);

		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");

		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");

	КонецЦикла;

	Reader = 0;

	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);

	Возврат ТабКурсов;

КонецФункции

Категория: HTML, JS, VML

КД: Передача параметров из выгрузки в загрузку (в т.ч. и на ранние стадии) при обмене из 7.7 в 8.х

Кратко суть проблемы можно озвучить цитатой из документации: "Передача параметра из источника в приемник доступна только при обмене между информационными базами на платформе 1С:Предприятие 8".

Ниже излагается способ передачи глобальных параметров при таком обмене без правки выгруженного из КД 2 модуля выгрузки и без правки самой КД 2.

Итак, в обработчике ПередВыгрузкойДанных пишем код:

Код 1C v 8.2 УП

 УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр1");

УстановитьАтрибут(УзелПарам,"Тип","Строка");

ЗаписатьЭлемент(УзелПарам,"Значение","Значение нашего параметра 1");

ДобавитьПодчиненный(rootNode,УзелПарам);





УзелПарам=СоздатьУзел("ЗначениеПараметра");

УстановитьАтрибут(УзелПарам,"Имя","НашПараметр2");

УстановитьАтрибут(УзелПарам,"Тип","Булево");

ЗаписатьЭлемент(УзелПарам,"Значение","true");

ДобавитьПодчиненный(rootNode,УзелПарам);

после этого данные параметры будут абсолютно штатно загружены в стандартной обработке "Универсальный обмен данными в формате XML (2.1.5)".

Ещё хотелось бы заметить, что содержимое обработчика ПослеЗагрузкиПараметров при таком обмене также не выгружается в файл обмена. Исправить данную оплошность можно так же, записав в обработчике ПередВыгрузкойДанных

Код 1C v 8.2 УП

 АлгПослеЗагрузкиПараметров=

"СтрокаКода1;"+РазделительСтрок+

"СтрокаКода2;"+РазделительСтрок+

"СтрокаКода3;";

ЗаписатьЭлемент(rootNode,"АлгоритмПослеЗагрузкиПараметров",АлгПослеЗагрузкиПараметров);

Нюанс: чтобы иметь параметры на ранних стадиях загрузки, например, в обработчиках ПередЗагрузкойДанных или ПередОбработкой в ПОД (правилах очистки данных), нужно помещать выгружаемые параметры в корень узла с выгружаемыми данными:

Код 1C v 8.2 УП

 ИмяПараметра="НашПараметр1";

ТипПараметра="Строка";

ЗначениеПараметра="Значение нашего параметра 1";



// Устанавливаем значение параметра в обработчике ПередЗагрузкойДанных

УзелПравил=rootNode.getElementsByTagName("ПравилаОбмена").item(0);

УзелПередЗагрузкой=УзелПравил.getElementsByTagName("ПередЗагрузкойДанных").item(0);

КоллУзлов=УзелПередЗагрузкой.childNodes;

Для НомУзла=0 По КоллУзлов.length-1 Цикл

    ТекУзел=КоллУзлов.item(НомУзла);

    Если (ТекУзел.nodeType=3) Тогда

        // текст элемента

        ТекУзел.nodeValue=РазделительСтрок+"Параметры."+ИмяПараметра+"="+?(ТипПараметра="Строка","""","")+

            ЗначениеПараметра+?(ТипПараметра="Строка","""","")+";"+РазделительСтрок+РазделительСтрок+

            ТекУзел.nodeValue;

        Прервать;

    КонецЕсли;

КонецЦикла;

Автор: andrewks - Источник

Категория: Конвертация данных, Обмен, Перенос

Система оповещений Пользователей (универсальная)

Для одного проекта пришлось сделать простую систему оповещений!

Она состоит из:
Общая форма
Общий модуль
Регистр Сведений

Общая Форма
title

На ней поле HTML Документа и Кнопка Ознакомлен (подтверждение что пользователь это видел)

Код 1C v 8.х

 Перем ТекДата, ТипСсылки, ТекСсылка;



Процедура ПриОткрытии()

	ТекДата = Дата;

	ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(Текст);	

КонецПроцедуры



Процедура ОзнакомленНажатие(Элемент)

	Если ЗначениеЗаполнено(ТекДата) Тогда

		НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();	

		НаборЗаписей.Отбор.Получатель.Установить(Пользователь);

		НаборЗаписей.Отбор.Период.Установить(ТекДата);

		НаборЗаписей.Прочитать();

		НовыйНомер = НаборЗаписей[0];

		НовыйНомер.ДатаОзнакомления = ТекущаяДата();

		НаборЗаписей.Записать();

		Если ЗначениеЗаполнено(НовыйНомер.ТипСсылки) Тогда

			ТекСсылка = НовыйНомер.Ссылка;

			ТипСсылки = НовыйНомер.ТипСсылки;

		КонецЕсли;

			

	КонецЕсли;

	Парам = Новый Структура;

	Парам.Вставить("ТипСсылки", ТипСсылки);

	Парам.Вставить("ТекСсылка", ТекСсылка);

	ЭтаФорма.Закрыть(Парам);

КонецПроцедуры



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

	// Отказ от стандартной обработки клика.

	pEvtObj.returnValue = Ложь;

	Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда

		СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);

		Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

		Если Ссылка.Пустая()

			Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

			Предупреждение("Ошибка открытия объекта.",, "Ошибка");

			Возврат;

		Иначе

			ОткрытьЗначение(Ссылка);

		КонецЕсли;

	КонецЕсли;



КонецПроцедуры

В общем Модуле:

Код 1C v 8.х

 Процедура СоздатьОповещение(Получатель,ТекстОповещения, ТипСсылки=Неопределено, Ссылка=Неопределено) Экспорт 

	НаборЗаписей = РегистрыСведений.МЕ_Оповещения.СоздатьНаборЗаписей();

		                                     	

	НовЗапись = НаборЗаписей.Добавить(); 	

	НовЗапись.Период  = ТекущаяДата();     	

	НовЗапись.Получатель = Получатель;        	

	НовЗапись.ТекстОповещения = ТекстОповещения; 	

	Если НЕ ТипСсылки=Неопределено Тогда

		НовЗапись.ТипСсылки = ТипСсылки;

	КонецЕсли;

	Если НЕ Ссылка=Неопределено Тогда

		НовЗапись.Ссылка = Ссылка;

	КонецЕсли;



	НаборЗаписей.Записать(Ложь); 

КонецПроцедуры // СоздатьОповещение()



Процедура ПоказатьОповещение(ТекстОповещения)

	формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

	формОповещ.текст=ТекстОповещения;

	Если Не формОповещ.Открыта() Тогда

		формОповещ.ОткрытьМодально();

	КонецЕсли;   	

КонецПроцедуры

Регистр сведений (для хранения сообщений):
title

Думаю что все поля понятны из названия, только ТипСсылки - Строка 35

Проверка непрочитанных сообщений и вызов окна:

Код 1C v 8.х

 //Проверим Оповещения для пользователя

	Запрос = Новый Запрос;

	Запрос.Текст =

	"ВЫБРАТЬ

	|	МЕ_Оповещения.Период КАК Период,

	|	МЕ_Оповещения.Получатель,

	|	МЕ_Оповещения.ТекстОповещения,

	|	МЕ_Оповещения.ДатаОзнакомления

	|ИЗ

	|	РегистрСведений.МЕ_Оповещения КАК МЕ_Оповещения

	|ГДЕ

	|	МЕ_Оповещения.ДатаОзнакомления = &ДатаОзнакомления

	|	И МЕ_Оповещения.Получатель = &Получатель

	|

	|УПОРЯДОЧИТЬ ПО

	|	Период";

	Запрос.УстановитьПараметр("ДатаОзнакомления", Дата("01.01.0001 0:00:00"));

	Запрос.УстановитьПараметр("Получатель", ПараметрыСеанса.ТекущийПользователь);

	

	Результат = Запрос.Выполнить().Выбрать();

	Пока Результат.Следующий() Цикл

		формОповещ = ПолучитьОбщуюФорму("МЕ_Оповещения");

		формОповещ.дата=Результат.период;

		формОповещ.пользователь=Результат.Получатель;

		формОповещ.текст=Результат.ТекстОповещения;

		Если Не формОповещ.Открыта() Тогда

			Структ = формОповещ.ОткрытьМодально();

			Если Структ = Неопределено Тогда

				// Ничего

			Иначе

				Если СокрЛП(Структ.ТипСсылки) = "ОбработкаЦен" Тогда

					Обр = Обработки.ОбработкаЦен.Создать();

					Обр.Счет = Структ.ТекСсылка;

					Обр.ПолучитьФорму().Открыть();		

				КонецЕсли;

			КонецЕсли;  		

		КонецЕсли;

	КонецЦикла;

Пример добавления сообщения:

Код 1C v 8.х

 МЕ_Оповещения.СоздатьОповещение(ТекДоговорКИзменению.Менеджер, "Ваш Договор №"+СокрЛП(ТекДоговорКИзменению.Номер)+

" - Отклонен!!! - "+ИмяПользователя()+"!"+Символы.ПС+" Исправьте его учитывая Комментарии и запустите на Согласование!", "", ТекДоговорКИзменению.Ссылка);



или



//Создадим оповещение с Передачей ссылки

Текст = "" + ПараметрыСеанса.ТекущийПользователь+": Необходимо Доработать цены:<br> <b>"+Счет.Ссылка+"</b>";

МЕ_Оповещения.СоздатьОповещение(СнабженецПоследнееИзменение, Текст, "ОбработкаЦен", Счет.Ссылка);

Категория: Полезные, Универсальные Функции

Как получить HTML ссылку на объект БД?

Код 1C v 8.х

 Процедура ДобавитьТекстHTML(ТекстHTML, Элемент);

    СсылкаНаЭлемент = ЗначениеВСтрокуВнутр(Элемент);

    ТекстHTML.ДобавитьСтроку("<A href= " + "v8:"+СсылкаНаЭлемент

    + ">"+Элемент+"</A><BR>");

КонецПроцедуры  



Процедура ДействияФормыСформировать(Кнопка)

    Запрос = Новый Запрос("

    |ВЫБРАТЬ

    |    Номенклатура.Ссылка

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура");

    ТекстHTML = Новый ТекстовыйДокумент;

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка);

    КонецЦикла;

ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст());

КонецПроцедуры



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

    // Отказ от стандартной обработки клика.

    pEvtObj.returnValue = Ложь;

    Если ВРег(pEvtObj.srcElement.tagName) = "A" Тогда

        СсылкаТекст = Сред(pEvtObj.srcElement.href, 4);

        Ссылка = ЗначениеИзСтрокиВнутр(СсылкаТекст);

        Если Ссылка.Пустая()

        Или Ссылка.ПолучитьОбъект() = Неопределено Тогда

            Предупреждение("Ошибка открытия объекта.",, "Ошибка");

            Возврат;

        Иначе

            ОткрытьЗначение(Ссылка);

        КонецЕсли;

    КонецЕсли;

КонецПроцедуры

Категория: HTML, JS, VML

Управляем 1С со стороны используя web-сервис

Передача команд 1С на выполнение через ссылки в письме.
web-сервисы помогают интегрировать 1С с различными программами, делая её более гибкой. Статей в интеренете достаточно можно, но в основном там описывается выгрузка из 1С, обмен между двумя 1С или 1С и каким-то мощным программным продуктом написанным на C или других языках.
Для меня же была поставлена задача возможности управление 1С через браузер. Как пример: обрабатывать завершение задачи БП в 1С по ссылке в письме (примерно такого типа http://site.ru/?user=000000001&bp=000000555, т.е. отсюда видно, что пользователь 000000001 хочет закрыть задачу 000000555), т.е. пользователь со своего смартфона не имеющего доступа к 1С как таковому, должен получить возможность управлять ею извне. Собственно, более сложной задачей можно поставить написание собственных web-форм, более легких и компактных, с произвольным дизайном для управления 1С.
Задача с точки зрения написания кода 1С очень легкая. Основная сложность заключалась в освоении HTML и JavaScript для управления извне. Начальные знаний по этому вопросу я подчерпнул из статьи Примеры пользования web сервисов 1С из браузера.

Настройка 1С
Для возможности использовать 1С в вебе необходимо:
1. Установить модуль расширения веб-сервера;
title

2. Настроить Windows: доустановить компоненты IIS и настроить проверку подлинности. Всё это можно прочитать в статье Настройка веб-клиента 1С:Предприятие 8.2 под Windows 7 x64 и IIS.

Программирование 1С
Теперь можно приступить к конфигурированию.
title

1. Создадим Web-сервис Input:
1.1. Input имеет операцию InputData которая принимает два параметра: User и Command, и возвращает параметр типа "boolean (http://www.w3.org/2001/XMLSchema)". Текст функции InputData:

Код 1C v 8.х

 Функция InputData(User, Command)



    обДанные = Справочники.Данные.СоздатьЭлемент();



    обДанные.Наименование = User + ":" + Command;



    обДанные.Записать();



    Возврат Истина;



КонецФункции

1.2. Устанавливаем для Input URI пространства имен = "http://infostart.ru". Здесь может быть любое уникальное имя, обычно это ссылка на сайт.
1.3. Устанавливаем для Input имя файла публикации = "input.1cws". Это имя web-сервиса к которому будем устанавливать соединение.
2. Для наглядности примера создадим справочник Данные, все параметры оставим по умолчанию.
3. Публикуем нашу конфигурацию и web-сервис: Администрирование -> Публикация на веб сервере...
title

На этом конфигурирование заканчивается, всё остальное сделает за нас 1С.

Разработка HTML страницы
Эта часть далась для меня тяжело, т.к. я ещё только делаю первые шаги в этой теме. Буду рад замачаниям и советам. А так, я постараюсь объяснить всё на пальцах тем, кто как и я знаком по большей части с 1С.
После установки ISS (я уже давал ссылку в начале статьи) на диске C появится каталог C:\inetpub\wwwroot, в этом каталоге располагается сайт. Для локальной машины (на которой установили ISS) он виден так http://localhost/, ну а для пользователей извне, как-то так http://infostart.ru (по правде там немного сложнее, но не суть, мы сейчас не про это). Заглавная страница сайта будет грузиться из файла index.htm каталога C:\inetpub\wwwroot
title

Исходники файлов можно скачать здесь: Скачивать файлы может только зарегистрированный пользователь!

Код файла index.htm попытаюсь объяснить как могу, т.к. сам некоторые моменты не понимаю:

Код

[html xmlns="http://www.w3.org/1999/xhtml"] // Неважно. Используется в XHTML для объявления пространства имен.
[head] // Предназначен для хранения других элементов, цель которых — помочь браузеру в работе с данными.

[meta http-equiv="Content-Type" content="text/html; charset=utf-8" /] // Неважно. Мета-теги используются для указания описания.

[title]Тест веб сервиса 1С[/title] // Неважно. Определяет заголовок документа, то что видит пользователь как текст вкладки.

[script type="text/javascript" src="../js/connect1c.js"] [/script] // Важно. Подключение JavaScript библиотек. В моём случае это мой модуль соединения с 1С.
[script type="text/javascript" src="../js/parameters.js"] [/script] // Важно. А это модуль обработки параметров строки браузера.

[/head]

[body] // Предназначен для хранения содержания веб-страницы (контента), отображаемого в окне браузера.
[p id="response1C"][/p] // Важно. Метка response1C, куда вернёться ответ запроса 1С.
[/body]

[script type="text/javascript"] // Важно. Начало основного скрипта, который выдёргивает из строки браузера всё что идёт дальше знака вопроса,
а дальше парсит по определенному алгоритму. В нашем случае будут искаться ключевые слова "user=" и "command=".

user = GetParameter("user"); // Важно. Находим значение user. Сам метод GetParameter находится в библиотеке parameters.js, о которой поговорим чуть позже.
command = GetParameter("command"); // Важно. Находим значение command.

Inquiry1C(user, command); // Важно. Запрос к 1С с найденными параметрами. Сам метод Inquiry1C находится в библиотеке connect1c.js

[/script]

[/html]

Заменил < на [, а > - ], замените перед использованием обратно.
Рассмотрим библиотеку parameters.js, которая находится в папке C:\inetpub\wwwroot\js
f

Код

unction GetParameter(pName) { // Сам метод я нашёл на просторах интернета.

search = window.location.search; // window.location - это по сути URL, метод search этого объекта возвращает часть адреса после символа "?", включая символ "?".

begin = search.indexOf(pName) + pName.length + 1; // Вычисляем позицию начала строки значения параметра для вырезания. +1 - в нашем случае это знак "=".
Итого, для search = "?user=007" мы найдём позицию начала равной 6 (нумерация с нуля).
end = search.indexOf('&', begin); // Находим позицию конца выражения. В нашем случае, разделение параметров осуществляется знаком "&", и если мы его не найдём,
то позицией конца будет последний символ строки search (смотри дальше код).

if (end == -1) {
end = search.length;
};

return unescape(search.substring(begin, end)); // Метод unescape возвращает строку, содержащую данные типа charString (не знаю зачем это надо,
но видимо такое приведение типа здесь необходимо). Ну а метод substring - извлекает подстроку из строки.

}
Теперь рассмотрим библиотеку connect1c.js, которая также находится в папке C:\inetpub\wwwroot\js
function Inquiry1C(pUser, pCommand) { // Основной метод этой библиотеки. Запрос к 1С.

XMLHTTP = CreateRequestObject(); // Создание XML HTTP запроса. Сам метод я узнал из википедии.

XMLHTTP.open('POST', '../TestWeb/ws/Input.1cws', true, "Admin", "1"); // Создаём соединение типа POST, где второй параметр - адрес; параметр true - значит асинхронное,
то есть браузер не будет ждать ответа сервера, а продолжит работу; далее пользователь и пароль с правами на операцию InputData (этот тот метод, который мы написали в 1С),
саму операцию можно выполнять в привилегированном режиме, чтобы не мучиться с правами для пользователя Admin.

XMLHTTP.onreadystatechange = function() {WhenAnswering1C(XMLHTTP)}; // Когда 1С отработает, автоматически сработает метод WhenAnswering (о нём чуть ниже по тексту этой библиотеки).

XMLHTTP.send(''
+ ' '
+ ' '
+ ''
+ pUser + ' '
+ ''
+ pCommand + ' '
+ ' '); // Отправка XML запроса, где описывается метод к исполнению в 1С, с переданными параметрами из нашей строки URL.
// Строку запроса можно раскурить минут за 5

}

function CreateRequestObject() { // Чудо метод из википедии "Пример использования". По сути, ничего сложного.
if (typeof XMLHttpRequest === 'undefined') {
XMLHttpRequest = function() {
try { return new ActiveXObject("Msxml2.XMLHTTP.6.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP.3.0"); }
catch(e) {}
try { return new ActiveXObject("Msxml2.XMLHTTP"); }
catch(e) {}
try { return new ActiveXObject("Microsoft.XMLHTTP"); }
catch(e) {}
throw new Error("This browser does not support XMLHttpRequest.");
};
}
return new XMLHttpRequest();
}

function WhenAnswering1C(pXMLHTTP) { // Метод, который срабатывает после обработки запроса 1С.

status = StausRequest(pXMLHTTP); // Вычисляется статус для отправки сообщения пользователю (о нём чуть ниже).
document.getElementById("response1C").appendChild(document.createTextNode(status)); // Вывод на экран в помеченную область response1C (о ней я писал в основном файле).
Метод getElementById возвращает ссылку на узел документа.
Метод appendChild добавляет нод в конце списка дочерных нодов элемента, т.е. встраивает в нашу область нужный нам текст.

}

function StausRequest(pXMLHTTP) // Определение статуса.
{
status = "";
if (pXMLHTTP.readyState == 4) { // Опять же, читая википедию можно понять, readyState - это текущее состояние объекта (0 — не инициализирован, 1 — открыт,
2 — отправка данных, 3 — получение данных и 4 — данные загружены).
if (pXMLHTTP.status != 200) { // status - HTTP-статус в виде числа (404 — «Not Found», 200 — «OK» и т. д.)
status = "Запрос завершился неудачно. Ответ сервера: " + pXMLHTTP.responseText; // responseText -текст ответа на запрос.
Если состояние не 3 или 4, возвращает пустую строку.
}
else {
if (RequestSuccessful(pXMLHTTP)) { // Проверка ответа от 1С (о нём чуть ниже).
status = "Запрос отработан.";
}
else {
status = "Запрос был отклонён.";
};

};
};

return status;
}

function RequestSuccessful(pXMLHTTP) { // Проверка ответа от 1С. Здесь мы получим возвращаемое от 1С значение (в нашем случае 1С может вернуть тип булево).

DOM = pXMLHTTP.responseXML.getElementsByTagName("return")[0]; // responseXML - Текст ответа на запрос в виде XML, который затем может быть обработан посредством DOM.
Если состояние не 4, возвращает null.
response = DOM.childNodes[0].data; // Достаём данные из ответа.

return response == "true"; // Если правда, то правда

По правде, я не смог преобразовать сроку в булево, поэтому пришлось оставить так.

}

Проверка
Открываем браузер и вводим строку "localhost/?user=007&command=hello world!":
title

После чего можно открыть 1С и убедиться что создался элемент справочника:
title

На этом пример ознакомления управления 1С извне можно считать законченным

Автор: Soloist

Категория: WEB-сервисы, WS-ссылки, XDTO-пакеты

Парсер сайта на 1С

В этой статье я постараюсь описать процесс парсинга сайтов средствами 1С с примером.
Это статья не является инструкцией к применению, а лишь демонстрирует возможности 1С.

Что мы имеем?
1. Сайт в интернете, на котором располагается список товаров. В моем случае – это интернет магазин салона «Связной»
2. Понимание основ сайтостроения… хотя бы знание HTML тегов
3. Умение кодить в 1С 8

Для начала парсинга стоит определиться с тем что мы хотим спарсить и какая у нас будет иерархия. В моем случае это категория сотовых телефонов. Верхний уровень иерархии будет производители. Почему именно так? Потомы что я так захотел. Вы же вправе использовать любую иерархию.

Далее нам будут интересны такие поля как: Наименование, Цена, Картинка и Описание... ну и пожалую захватим операционную систему, чтобы пример получился более наглядным.

1. Создаем внешнюю обработку. Те, кто не знают как это сделать - дальше могут не читать
2. Создаем форму обработки с командной панелью снизу и сверху (они могут быть полезными)
3. Размещаем на ней Панель и обзываем первую страницу "СамСайт"
4. Кладем на страницу "СамСайт" ПолеHTMLДокумента и обзываем его к примеру "Сайт"
5. Переименовываем кнопку "Выполнить", которая находится на нижней панели в "Загрузить сайт"
6. Описываем процедуру нажатия на эту кнопку так:

Код 1C v 8.х

   ЭлементыФормы.Сайт.Перейти("http://www.svyaznoy.ru/catalog/phone/224"); //Категория с мобильными телефонами

7. Проверяем работу нашей обработки. У меня появился сайт связного. А у Вас?

Дальше сложнее. Все еще хочешь парсить сайты? Тогда читай:

Сам парсинг сайта заключается в обходе всех элементов загруженной страницы, выдергивания необходимой информации и запихивания их в табличную часть. Для этого:
1. Создадим табличную часть "Производители" с реквизитами "Отметка" (Булево), "Наименование" (Строка 100) и "Ссылка" (Строка 300).
2. Добавляем еще одну страницу на панели и обзываем ее "Производители"
3. Размещаем на этой странице одноименную табличную часть
4. Добавляем на нижней панели кнопку "Заполнить производителей" с кодом:

Код 1C v 8.х

        Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.tagName = "H1" и Стр.innerText = "Производители" Тогда

                  Для Каждого опСтр из Стр.nextSibling.children Цикл

                      новСтр = Производители.Добавить();

                      новСтр.Наименование = опСтр.innerText;

                      новСтр.Ссылка = опСтр.firstChild.href;

                  КонецЦикла;

                  Возврат;

              КонецЕсли;

          КонецЦикла;

Здесь напрашиваются небольшие пояснения:
tagName - имя HTML тега в HTML документе
nextSubling - следующий элемент HTML документа от текущего
children - список дочерних элементов
firstChild - первый дочерний элемент от текущего
5. Проверям. При проверке важно, находиться на странице "СамСайт", чтобы заполнять производителей

Производители заполнены. Теперь к самим телефонам

1. Создаем табличную часть "Товары" с реквизитами "Производитель" (Строка 100), "Наименование" (Строка 100), "Цена" (Число 10,2), "Картинка" (Строка 300), "Описание" (Строка Неограниченная), "ОС" (строка 100), "Ссылка" (Строка,300)
2. Добавляем еще одну страницу на панели и обзываем ее "Товары"
3. Размещаем на этой странице одноименную табличную часть
4. Добавляем на нижней панели кнопку "Заполнить товары" с кодом:

Код 1C v 8.х

       Для Каждого Стр из Производители Цикл

          //Если отметку сняли - то не трогаем этого производителя

          Если Не Стр.Отметка Тогда

              Продолжить;

          КонецЕсли;

          Форма = ПолучитьФорму("ФормаТоваров");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийПроизводитель = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;

5. Создаем форму обработки "ФормаТоваров"
6. Кладем на "ФормаТоваров" ПолеHTMLДокумента и называем его "Сайт"
7. На событие ДкументСформирован у ПоляHTMLДокумента пишем код:

Код 1C v 8.х

  Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимТовары();

      КонецЕсли;

8. Создаем переменную в модуле формы
перем ТекущийПроизводитель Экспорт;
9. Создаем процедуру ГрузимТовары():

Код 1C v 8.х

       Процедура ГрузимТовары()

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "ct_desc cleared" Тогда

                  новСтр = Товары.Добавить();

                  Для Каждого опСтр из Стр.children Цикл

                      Если опСтр.className = "pic_and_comp" Тогда

                          новСтр.Картинка = СтрЗаменить(Сред(опСтр.firstChild.style.backgroundImage,5),")","")

                      КонецЕсли;

                      Если опСтр.className = "name" Тогда

                          новСтр.Наименование = опСтр.innerText;

                          новСтр.Ссылка = опСтр.firstChild.href;

                      КонецЕсли;

                      Если опСтр.className = "price" Тогда

                          новСтр.Цена = Число(СтрЗаменить(СтрЗаменить(опСтр.innerText,"-","")," ",""));

                      КонецЕсли;

                      Если опСтр.className = "desc" Тогда

                          новСтр.Описание = опСтр.innerText;//опСтр.innerHTML - если нужно вместе с тегами 



                      КонецЕсли;

                  КонецЦикла;



              КонецЕсли;



          КонецЦикла;

          Закрыть();

      КонецПроцедуры

10. Проверям. Все работает.

Дело осталось за "операционной системой" и еще надо загрузить картинки. Давайте по порядку. Чтобы получить "ОС" нам надо открыть этот товар и считать "ОС" оттуда. Для этого делаем следующее:

1. Добавляем на нижней панели кнопку "Доп Инфо" с кодом:

Код 1C v 8.х

 Для Каждого Стр из Товары Цикл

          Форма = ПолучитьФорму("ФормаДопИнфо");

          Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);

          Форма.ТекущийТовар = Стр;

          Форма.ОткрытьМодально();

      КонецЦикла;

2. Создаем форму обработки "ФормаДопИнфо"
3. Кладем на "ФормаДопИнфо" ПолеHTMLДокумента и называем его "Сайт"
4. На событие ДкументСформирован у ПоляHTMLДокумента пишем код:

Код 1C v 8.х

   Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда

          ГрузимДопИнфо();

      КонецЕсли;

5. Создаем переменную в модуле формы
перем ТекущийТовар Экспорт;
6. Создаем процедуру ГрузимДопИнфо():

Код 1C v 8.х

       Процедура ГрузимДопИнфо();

          Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл

              Если Стр.className = "card_spec" Тогда

                  Для Каждого опСтр из Стр.children Цикл

                      Если Найти(опСтр.innerText,"Операционная система:") Тогда

                          ТекущийТовар.ОС = СокрЛП(СтрЗаменить(опСтр.innerText,"Операционная система:",""));

                      КонецЕсли;

                  КонецЦикла;

              КонецЕсли;

          КонецЦикла;

          Закрыть();

      КонецПроцедуры

7. Проверяем и переходим к последнему пункту

Заметили как похожи две последние инструкции? То-то же. Стремился к универсальности. Ну и наконец последний этап - Сохраним все изображения к примеру на диск "С" в папку "связной". Поехали

1. Добавляем на нижней панели кнопку "Сохранить Картинки" с кодом:

Код 1C v 8.х

       Для Каждого Стр из Товары Цикл

              путьСамФайл = Лев(Стр.Картинка,Найти(Стр.Картинка,".jpg/") + 3);

              самФайл = СтрЗаменить(СтрЗаменить(ПутьСамФайл,"http://static.svyaznoy.ru/upload/iblock/",""),"/","");

              Стр.Картинка = СохранитьКартинкуСайта("C:\Svyaznoy",ПутьСамФайл,СамФайл);

          КонецЦикла;

2. Добавляем функцию СохранитьКартинкуСайта:

Код 1C v 8.х

       Функция СохранитьКартинкуСайта(КаталогСохранения,КартинкаНаСайте,КартинкаУНас)

              ИмяФайлаКартинки = КаталогСохранения + "\" + КартинкаУНас;

              ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

              ГетЗапрос.SetTimeouts(10000, 10000, 10000, 10000);

              БазовыйУРЛ = КартинкаНаСайте;

              Хидер1 = "Content-Type";

              Хидер2 = "image/jpg"; // Тип рисунка.

              ГетЗапрос.Open("GET", БазовыйУРЛ, False); // Синхронный режим.

              ГетЗапрос.setRequestHeader(Хидер1, Хидер2);

              ГетЗапрос.Send();

              СтатусОтправки = ГетЗапрос.status;

              Если СтатусОтправки <> 200 Тогда

                  Сообщить("Ошибка отправки запроса на: "

                      + КартинкаНаСайте);

                  Возврат "";

              КонецЕсли;        



              Стрим = Новый COMОбъект("ADODB.Stream");

              Стрим.Mode = 3;

              Стрим.Type = 1;

              Стрим.Open();

              Стрим.Write(ГетЗапрос.responseBody);



              Стрим.SaveToFile(ИмяФайлаКартинки, 2);

              Стрим.Close();

              Возврат ИмяФайлаКартинки;

      КонецФункции

На этом наша эпопея с парсингом закончена. Это всего лишь пример того, как это можно сделать. Приложив сюда немного своего кода - можно сделать парсер для любого сайта. Скачивать файлы может только зарегистрированный пользователь!

Имея парсер 1С - я могу спарсить все, кроме этого парсера. Имя два парсера 1С - я могу спарсить все
Автор: opx

Категория: Работа с Интернет, Почтой (Mail), FTP

Формирование HTML-документа, содержащего ссылки на объекты базы данных

В данной статье рассматривается способ программного формирования HTML документа, содержащего ссылки на объекты базы данных 1С, такие как справочники, документы и т.д. Показан пример построения обработчика события OnClick ПоляHTMLДокумента, для обработки клика на html-ссылке.

Предисловие
Однажды, дописывая обработку, создающую и модифицирующую, не суть важно какие документы, я подумал, что неплохо было бы вывести для пользователя некое резюме:
“Создан документ такой-то”
“Изменен документ такой-то” и т.д.
От обычного, в таких случаях, вывода информации в окно сообщений я сразу отказался, так как не удобно это, сначала читать в окне сообщений “Создан документ … ” а потом запоминать его номер, открывать соответствующий журнал (или форму списка) и искать там этот документ. А если документов много и пользователь хочет посмотреть все документы?(или выборочно) Насколько это неудобно я убедился при отладке обработки …
То, что в форме есть элемент управления именуемый ПолеHTMLДокумента я конечно знал, но вот представилась возможность познакомиться с ним поближе. Было решено реестр обработанных документов выводить в виде html документа содержащего ссылки на эти самые документы, а по клику на ссылке открывать форму соответствующего документа. Здесь мне многие могут возразить: “А почему бы для этих целей не использовать обычный макет, выводимый в табличный документ, а для открытия документов использовать расшифровку? И чем Ваш способ лучше?” Отвечаю: Конечно можно использовать, и мой способ ничем не лучше. Он просто другой. Ведь у хорошего программиста для решения одной задачи должно быть в арсенале несколько инструментов.
Итак, перейдем от слов к делу, в рамках данной статьи рассмотрим следующую задачу: Сформировать html-документ, содержащий ссылки на элементы справочника номенклатура, по клику требуется открывать форму соответствующего элемента. Создаем новый отчет, его форму, на форме размещаем элемент управления ПолеHTMLДокумента.

Текст модуля формы:

Код 1C v 8.х

  Процедура ДобавитьТекстHTML(ТекстHTML, Элемент);

    // Ссылку будем формировать хитро:

    // Предполагаем что символ "-" не входит в имена объектов метаданных, 

    // учавствующих в формировании html

    // Тогда ссылка будет иметь следующий вид: 

    // Номенклатура-d341d377-b3b1-11dc-a100-0011d85708ff

    // Передавать нашу ссылку будем через атрибут id

    СсылкаНаЭлемент = Элемент.Метаданные().Имя+"-"

    +Элемент.Ссылка.УникальныйИдентификатор();

    ТекстHTML.ДобавитьСтроку("<A id=""" + СсылкаНаЭлемент + """ href= """ 

    + Элемент + """ >"+Элемент+"</A><BR>");

КонецПроцедуры



Процедура ДействияФормыСформировать(Кнопка)

    Запрос = Новый Запрос("

    |ВЫБРАТЬ

    |    Номенклатура.Ссылка

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура");

    ТекстHTML = Новый ТекстовыйДокумент;

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка);

    КонецЦикла;

ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст());

КонецПроцедуры

Ну вот html мы сформировали, теперь чтобы ссылки “ожили” надо написать обработчик события OnClick элемента управления ПолеHTMLДокумента.

Код 1C v 8.х

  // Функция получает элемент - <A> по данному элементу

// Производит поиск элемента <A> среди родительских элементов данного

//

// Параметры:

// Элемент - COMОбъект, элемент HTML документа,

// по которому нужно найти ссылку

//

// Возвращаемое значение:

// COMОбъект - если ссылка обнаружена, иначе - Неопределено



Функция НайтиСсылку(Элемент)

    Врем = Элемент;

    Пока Врем <> Неопределено Цикл

        Если НРег(Врем.tagName) = "a" Тогда

            Возврат Врем;

        КонецЕсли;

        Врем = Врем.parentElement;

    КонецЦикла;

    Возврат Неопределено;

КонецФункции    // НайтиСсылку(Элемент)



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

    htmlElement = НайтиСсылку(pEvtObj.srcElement);

    // Анализируем если произошло нажание не ссылку

    Если htmlElement <> Неопределено Тогда

        // Если у ссылки есть идентификатор

        Если СокрЛП(htmlElement.id) <> "" Тогда

            // Получаем адрес ссылки из атрибута id

            СсылкаНаЭлемент = htmlElement.id;

            Разделитель = Найти(СсылкаНаЭлемент,"-");

            Если Разделитель > 0 Тогда

                // Получаем тип элемента

                ТипЭлемента = Лев(СсылкаНаЭлемент,Разделитель-1);

                // Получаем УникальныйИдентификатор

                ГУИД = Сред(СсылкаНаЭлемент,Разделитель+1);

                Справочники[ТипЭлемента].ПолучитьСсылку(

             Новый УникальныйИдентификатор(ГУИД)).ПолучитьФорму().Открыть();

            КонецЕсли;

            // Не отработали нажатие

            pEvtObj.returnValue = Ложь;

        КонецЕсли;

    КонецЕсли;

КонецПроцедуры

Всё можно пробовать!

Заключение
Обратите внимание что ссылку я формировал следующим образом:
<ИмяОбъектаМетаданных>-<УникальныйИдентификатор> это сделано для того, чтобы в обработчике onclick можно было определить к какому объекту метаданных относится данный УникальныйИдентификатор, потому что имея ТОЛЬКО УникальныйИдентификатор невозможно определить к какому объекту метаданных он относиться. Точнее возможно, но уж слишком долго и неудобно – путем перебора всех метаданных в цикле, для каждого объекта метаданных выполнять попытку <ОбъектМетаданных>.ПолучитьСсылку(Новый УникальныйИдентификатор(НашУникальныйИдентификатор))
Хотя в нашем примере только один справочник, и указывать его вид было необязательно, и так понятно что это УникальныйИдентификатор элемента справочника Номенклатура, но вдруг Вам потребуется работать с несколькими справочниками, вот тут то мой способ задания ссылки Вам и пригодится. Скачивать файлы может только зарегистрированный пользователь!

P.S. Платформа 8.2 имеет встроенный механизм работы со ссылками на объекты БД и данная задача наверняка упростится, но это уже другая тема.
Источник: obrabotki.com

Категория: Работа с Интернет, Почтой (Mail), FTP

ПолеHTMLДокумента ~ Программное формирование HTML-документа, содержащего Ссылки на объекты БД

Программное формирование HTML-документа, содержащего ссылки на объекты базы данных 1С
В данной статье рассматривается способ программного формирования HTML документа, содержащего ссылки на объекты базы данных 1С, такие как справочники, документы и т.д. Показан пример построения обработчика события OnClick ПоляHTMLДокумента, для обработки клика на html-ссылке.

Предисловие
Однажды, дописывая обработку, создающую и модифицирующую, не суть важно какие документы, я подумал, что неплохо было бы вывести для пользователя некое резюме:
“Создан документ такой-то”
“Изменен документ такой-то” и т.д.
От обычного, в таких случаях, вывода информации в окно сообщений я сразу отказался, так как не удобно это, сначала читать в окне сообщений “Создан документ … ” а потом запоминать его номер, открывать соответствующий журнал (или форму списка) и искать там этот документ. А если документов много и пользователь хочет посмотреть все документы?(или выборочно) Насколько это неудобно я убедился при отладке обработки …
То, что в форме есть элемент управления именуемый ПолеHTMLДокумента я конечно знал, но вот представилась возможность познакомиться с ним поближе. Было решено реестр обработанных документов выводить в виде html документа содержащего ссылки на эти самые документы, а по клику на ссылке открывать форму соответствующего документа. Здесь мне многие могут возразить: “А почему бы для этих целей не использовать обычный макет, выводимый в табличный документ, а для открытия документов использовать расшифровку? И чем Ваш способ лучше?” Отвечаю: Конечно можно использовать, и мой способ ничем не лучше. Он просто другой. Ведь у хорошего программиста для решения одной задачи должно быть в арсенале несколько инструментов.
Итак, перейдем от слов к делу, в рамках данной статьи рассмотрим следующую задачу: Сформировать html-документ, содержащий ссылки на элементы справочника номенклатура, по клику требуется открывать форму соответствующего элемента. Создаем новый отчет, его форму, на форме размещаем элемент управления ПолеHTMLДокумента.

Код 1C v 8.х

 Процедура ДобавитьТекстHTML(ТекстHTML, Элемент);

    // Ссылку будем формировать хитро:

    // Предполагаем что символ "-" не входит в имена объектов метаданных, 

    // учавствующих в формировании html

    // Тогда ссылка будет иметь следующий вид: 

    // Номенклатура-d341d377-b3b1-11dc-a100-0011d85708ff

    // Передавать нашу ссылку будем через атрибут id

    СсылкаНаЭлемент = Элемент.Метаданные().Имя+"-"

    +Элемент.Ссылка.УникальныйИдентификатор();

    ТекстHTML.ДобавитьСтроку("<A id=""" + СсылкаНаЭлемент + """ href= """ 

    + Элемент + """ >"+Элемент+"</A><BR>");

КонецПроцедуры



Процедура ДействияФормыСформировать(Кнопка)

    Запрос = Новый Запрос("

    |ВЫБРАТЬ

    |    Номенклатура.Ссылка

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура");

    ТекстHTML = Новый ТекстовыйДокумент;

    Выборка = Запрос.Выполнить().Выбрать();

    Пока Выборка.Следующий() Цикл

        ДобавитьТекстHTML(ТекстHTML, Выборка.Ссылка);

    КонецЦикла;

ЭлементыФормы.ПолеHTMLДокумента.УстановитьТекст(ТекстHTML.ПолучитьТекст());

КонецПроцедуры

Код 1C v 8.х

 // Функция получает элемент - <A> по данному элементу

// Производит поиск элемента <A> среди родительских элементов данного

//

// Параметры:

// Элемент - COMОбъект, элемент HTML документа,

// по которому нужно найти ссылку

//

// Возвращаемое значение:

// COMОбъект - если ссылка обнаружена, иначе - Неопределено



Функция НайтиСсылку(Элемент)

    Врем = Элемент;

    Пока Врем <> Неопределено Цикл

        Если НРег(Врем.tagName) = "a" Тогда

            Возврат Врем;

        КонецЕсли;

        Врем = Врем.parentElement;

    КонецЦикла;

    Возврат Неопределено;

КонецФункции    // НайтиСсылку(Элемент)



Процедура ПолеHTMLДокументаonclick(Элемент, pEvtObj)

    htmlElement = НайтиСсылку(pEvtObj.srcElement);

    // Анализируем если произошло нажание не ссылку

    Если htmlElement <> Неопределено Тогда

        // Если у ссылки есть идентификатор

        Если СокрЛП(htmlElement.id) <> "" Тогда

            // Получаем адрес ссылки из атрибута id

            СсылкаНаЭлемент = htmlElement.id;

            Разделитель = Найти(СсылкаНаЭлемент,"-");

            Если Разделитель > 0 Тогда

                // Получаем тип элемента

                ТипЭлемента = Лев(СсылкаНаЭлемент,Разделитель-1);

                // Получаем УникальныйИдентификатор

                ГУИД = Сред(СсылкаНаЭлемент,Разделитель+1);

                Справочники[ТипЭлемента].ПолучитьСсылку(

             Новый УникальныйИдентификатор(ГУИД)).ПолучитьФорму().Открыть();

            КонецЕсли;

            // Не отработали нажатие

            pEvtObj.returnValue = Ложь;

        КонецЕсли;

    КонецЕсли;

КонецПроцедуры

Всё можно пробовать ( Скачивать файлы может только зарегистрированный пользователь!

) !

Заключение
Обратите внимание что ссылку я формировал следующим образом:
<ИмяОбъектаМетаданных>-<УникальныйИдентификатор> это сделано для того, чтобы в обработчике onclick можно было определить к какому объекту метаданных относится данный УникальныйИдентификатор, потому что имея ТОЛЬКО УникальныйИдентификатор невозможно определить к какому объекту метаданных он относиться. Точнее возможно, но уж слишком долго и неудобно – путем перебора всех метаданных в цикле, для каждого объекта метаданных выполнять попытку <ОбъектМетаданных>.ПолучитьСсылку(Новый УникальныйИдентификатор(НашУникальныйИдентификатор))
Хотя в нашем примере только один справочник, и указывать его вид было необязательно, и так понятно что это УникальныйИдентификатор элемента справочника Номенклатура, но вдруг Вам потребуется работать с несколькими справочниками, вот тут то мой способ задания ссылки Вам и пригодится.
P.S. Платформа 8.2 имеет встроенный механизм работы со ссылками на объекты БД и данная задача наверняка упростится, но это уже другая тема.
Источник

Категория: Работа с Формой (Диалог) и её элементами

Как импортировать данные из HTML?

Код 1C v 7.x

 ИЕ=СоздатьОбъект("InternetExplorer.Application");

ИЕ.navigate("file:///c:/НашХтмл.html");

Пока ИЕ.ReadyState<4 Цикл

   ВвестиСтроку("","",1,0,1);

КонецЦикла;

Док=ИЕ.document;

Ячеечки=Док.getElementsByTagName("tr");

Для к=0 по Ячеечки.length-1 Цикл

   Сообщить("В ячеечке - "+Ячеечки.item(к).innerHTML);

КонецЦикла;

Категория: COM-объекты, WMI, WSH