Код

	Спр=СоздатьОбъект("Справочник.Клиенты");
	Если рдГруппаКлиентов.Выбран()=1 Тогда
		Если рдГруппаКлиентов.ЭтоГруппа()=1  Тогда
			Спр.ИспользоватьРодителя(рдГруппаКлиентов);
		КонецЕсли;
	КонецЕсли;

	Адр=СоздатьОбъект("Справочник.Адреса");

	Спр.ВыбратьЭлементы(1);
	Пока Спр.ПолучитьЭлемент(1) = 1 Цикл

		Если Спр.ЭтоГруппа()=1	 Тогда Продолжить; КонецЕсли;
		Если Спр.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;

		Адр.ИспользоватьВладельца(Спр.ТекущийЭлемент());
		Адр.ВыбратьЭлементы(1);
		Пока Адр.ПолучитьЭлемент(1)=1 Цикл

			Если Адр.ПометкаУдаления()=1 Тогда Продолжить; КонецЕсли;

			ИТ.НоваяСтрока();
			ИТ.Клиент = Спр.ТекущийЭлемент();
			ИТ.Адрес  = Адр.ТекущийЭлемент();

		КонецЦикла;

	КонецЦикла;

	//ИТ.ВыбратьСтроку();

	_Форма = СоздатьОбъект("Форма");
	ТП = _Форма.СоздатьЭлементУправленияНаФорме(Форма, "ТабличноеПоле", "кнТП");

	КолонкаКлиент	  = ТП.Колонки.Добавить("Клиент");
	КолонкаАдрес	   = ТП.Колонки.Добавить("Адрес");
	КолонкаИДКатегорииТТ = ТП.Колонки.Добавить("ИДКатегорииТТ");
	КолонкаИДтипаТТ	= ТП.Колонки.Добавить("ИДтипаТТ");

	КолонкаКлиент.Данные	  = "Клиент";
	КолонкаАдрес.Данные	   = "Адрес";
	КолонкаИДКатегорииТТ.Данные = "ИДКатегорииТТ";
	КолонкаИДтипаТТ.Данные	= "ИДтипаТТ";

	КолонкаКлиент.Заголовок	  = "Клиент";
	КолонкаАдрес.Заголовок	   = "Адрес";
	КолонкаИДКатегорииТТ.Заголовок = "ИД Категории ТТ";
	КолонкаИДтипаТТ.Заголовок	= "ИД Типа ТТ";



	_ПоставщикДанных=СоздатьОбъект("ПоставщикДанныхИТ");
	_ПоставщикДанных.ИндексированнаяТаблица = ИТ;
	ТП.ПоставщикДанных = _ПоставщикДанных;

	ТП.ОбновитьСтроки();
	//ТП.ПерерисоватьСтроки();