Код

	ТП = ОбъектФорма.СоздатьЭлементУправления("ТабличноеПоле", "ТаблицаПроизводителей"); // таблица производителей
	ТП.СтильЗаголовков = 1;
	ТП.РежимВыделения = 1;
	ТП.РежимВыделенияСтроки = 1;
	ТП.ИзменятьПозициюКолонок = 0;

	Колонка = ТП.Колонки.Добавить("ИД");
	Колонка.Данные = "ИД";
	Колонка.Заголовок = "ИД";
	Колонка.Видимость = 0;
	Колонка = ТП.Колонки.Добавить("Производитель");
	Колонка.Данные = "Производитель";
	Колонка.Заголовок = "Фирма";

	ТП.ПоставщикДанных = СоздатьОбъект("ПоставщикДанныхODBC.MSSQL");
	ТП.ПоставщикДанных.БазаДанных = глПодключениеКFirebird;
	ТекстЗапроса =
	"SELECT
	|	MNFID AS ИД,
	|	DESCR AS Производитель
	|FROM MNFLIST";
	ТП.ПоставщикДанных.УстТекстЗапроса(ТекстЗапроса);
	ТП.ПоставщикДанных.УстКлючПорядка("Производитель, ИД");
	ТП.ОбновитьСтроки();
	ТП.ПоставщикДанных.Поля.Получить("Производитель").ТипБыстрогоПоиска = 1;

	ТП2 = ОбъектФорма.СоздатьЭлементУправления("ТабличноеПоле", "ТаблицаТоваров"); // таблица неоригинальных товаров
	ТП2.СтильЗаголовков = 1;
	ТП2.РежимВыделения = 1;
	ТП2.РежимВыделенияСтроки = 1;
	ТП2.ИзменятьПозициюКолонок = 0;
	ТП2.ВертСкроллер = 1;

	Колонка = ТП2.Колонки.Добавить("КодПоставщика");
	Колонка.Данные = "КодПост";
	Колонка.Заголовок = "Код";
	Колонка.Ширина = 20;
	Колонка = ТП2.Колонки.Добавить("Наименование");
	Колонка.Данные = "Наименование";
	Колонка.Заголовок = "Наименование";

	ТП2.ПоставщикДанных = СоздатьОбъект("ПоставщикДанныхODBC.MSSQL");
	ТП2.ПоставщикДанных.БазаДанных = глПодключениеКFirebird;
	ТекстЗапроса =
	"SELECT
	|	ART.SCODE AS КодПост,
	|	NAMELIST.DESCR AS Наименование
	|FROM
	|	ART
	|INNER JOIN
	|	NAMELIST ON NAMELIST.NAMEID = ART.NAMEID
	|WHERE
	|	ART.MNFID = :ИДПроизводителя";
	ТП2.ПоставщикДанных.УстановитьТекстовыйПараметр("ИДПроизводителя", ТП.ТекущиеДанные.ИД);
	ТП2.ПоставщикДанных.УстТекстЗапроса(ТекстЗапроса);
	ТП2.ПоставщикДанных.УстКлючПорядка("КодПост, Наименование");
	ТП2.ОбновитьСтроки();
	ТП2.ПоставщикДанных.Поля.Получить("КодПост").ТипБыстрогоПоиска = 1;

 

Код

Процедура ТаблицаПроизводителейПриАктивизацииСтроки()
ТП2.ПоставщикДанных.УстановитьТекстовыйПараметр("ИДПроизводителя", ТП.ТекущиеДанные.ИД);
ТП2.ПоставщикДанных.Обновить();
КонецПроцедуры 

Код

Процедура ТаблицаПроизводителейПриАктивизацииСтроки()
	__ПоставщикДанных = ТП2.ПоставщикДанных;
	ТП2.ПоставщикДанных = "";
	__ПоставщикДанных.УстановитьТекстовыйПараметр("ИДПроизводителя", ТП.ТекущиеДанные.ИД);
	__ПоставщикДанных.УстТекстЗапроса(ТекстЗапроса);
	__ПоставщикДанных.УстКлючПорядка("КодПост, Наименование");
	ТП2.ПоставщикДанных = __ПоставщикДанных;
	ТП2.ОбновитьСтроки();

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