v8: Перебор коллекции через Com-соединение во внешней программе

 Для Каждого Справочник из Метаданные.Справочники Цикл

Сообщить (Справочник.Имя);

КонецЦикла;    

 Перем НомерЗакладки;

Перем connection,cntr;

Перем Истина,Ложь;

Функция ОткрытиеБазы(ТипОткрытия)

	cntr = СоздатьОбъект(ТипОткрытия);

	Попытка

		Если НомерЗакладки=1 Тогда

			connection = cntr.Connect("File="""+СокрЛП(ПутьКбазе)+""";Usr="""+СокрЛП(Логин)+""";Pwd = """ + СокрЛП(Пасворд) + """;");

		Иначе

			connection = cntr.Connect("Srvr="""+СокрЛП(ИмяСервера)+""";Ref="""+СокрЛП(ИмяБазы)+""";Usr="""+СокрЛП(Логин)+""";Pwd = """ + СокрЛП(Пасворд) + """;");

		КонецЕсли;

	Исключение

		Предупреждение(ОписаниеОшибки());

	КонецПопытки;

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

Функция ВызовФункций()

	ОткрытиеБазы("V81.Application");

	Если connection=Истина Тогда

		Сообщить("Вернули неопределено= "+cntr.ВернутьНеопределено());

		Сообщить("Вернули NULL= "+cntr.ВернутьNULL());

		Сообщить("Вернули Истину= "+cntr.ВернутьИстину());

		Сообщить("Вернули Ложь= "+cntr.ВернутьЛожь());

		

	КонецЕсли;

	cntr = "";

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

Истина=-1;Ложь=0;



// функция работы с метаданными

Функция РаботаСметаданными()

	ОткрытиеБазы("V81.Application");

	Если connection=Истина Тогда

		Сообщить("Версия "+cntr.Метаданные.Версия);

		Сообщить("==================Константы==================");

		Для Инд=0 по cntr.Метаданные.Константы.Количество()-1 Цикл

			Конст=cntr.Метаданные.Константы.Получить(Инд);

			Сообщить(Конст.Имя);

			Сообщить("Тип:");

			Массив = Конст.Тип.Типы();

			Типов = Массив.Количество() - 1;

			для а = 0 по Типов цикл

				сообщить(cntr.String(Массив.Получить(а)));

			конеццикла;

		КонецЦикла;

		cntr = "";

	КонецЕсли;

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



// обратимся к работе с данными

Функция РаботаСБазой()

	ОткрытиеБазы("V81.Application");

	Если connection=Истина Тогда

		Стр="";

		Если ВвестиСтроку(Стр,"Наименование",40)=1 Тогда

			Эл=cntr.Справочники.Справочник1.НайтиПоНаименованию(СокрЛП(Стр));

			Если Эл.Пустая()=Истина Тогда

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

				Эл.Наименование=СокрЛП(Стр);

				Эл.Записать();

				Сообщить("ЗначениеВСтрокуВнутр="+cntr.ЗначениеВСтрокуВнутр(Эл.Ссылка));

				Сообщить("XMLСтрока="+cntr.XMLСтрока(Эл.Ссылка));

				Сообщить("=======XMLТипЗнч======");

				XMLРез=cntr.XMLТипЗнч(Эл.Ссылка);

				Сообщить("URIПространстваИмен="+XMLРез.URIПространстваИмен);

				Сообщить("ИмяТипа="+XMLРез.ИмяТипа);

			КонецЕсли;

			cntr.Константы.Константа3.Установить(Эл.Ссылка);

		КонецЕсли;

	КонецЕсли;

	cntr = "";

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



Работа с запросами

Функция РаботаСЗапросами()

	ОткрытиеБазы("V81.Application");

	Если connection=Истина Тогда

		Констр=cntr.NewObject("КонструкторЗапроса");

		Если Констр.ОткрытьМодально()=Истина Тогда

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

			cntr = "";

			ОткрытиеБазы("V81.ComConnector");

			Запрос=connection.NewObject("Запрос");

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

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

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

			Для Инд=0 по Рез.Колонки.Количество()-1 Цикл

				Кол=Рез.Колонки.Получить(Инд);

				Обл=Таб.Область("R1C"+Строка(Инд+1));

				Обл.Текст=Кол.Имя;

			Конеццикла;

			Для Инд=0 по Рез.Количество()-1 Цикл

				Стр=Рез.Получить(Инд);

				Кол=0;

				Для Кол=0 по Рез.Колонки.Количество()-1 Цикл

					Обл=Таб.Область("R"+Строка(Инд+2)+"C"+Строка(Кол+1));

					Обл.Текст=connection.String(Стр.Получить(Кол));

				КонецЦикла;

			КонецЦикла;

			Таб.Показать();

		Иначе

			Сообщить("!Запрос не создан");

		КонецЕсли;

	КонецЕсли;

	cntr = "";

	connection = "";

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