Код

	БД = СоздатьОбъект("ODBCDatabase");
	БД.Соединение("DRIVER=Microsoft Visual FoxPro Driver;Deleted=No;Null=No;
	логИБ());
	//
	Поставщик = СоздатьОбъект("ПоставщикДанныхODBC.VFP");
	Поставщик.БазаДанных = БД;
	Поставщик.УстановитьТекстовыйПараметр("ТекущийВидДоговора",ТекущийЭлемент());
	Поставщик.УстТекстЗапроса("
	|SELECT
	|	 тВиды.ID as ИД,
	|	$тВиды.ВидНачисленияЗайма as ВидНачисления
	|FROM
	|	$Справочник._dВидаНачисленийДоговораЗайма тВиды
	|WHERE
	|	тВиды.PARENTEXT = :ТекущийВидДоговора
	|");
	Поставщик.УстКлючПорядка("ИД");
	Поставщик.УстИДПоле("ИД");
	Поле = Поставщик.Поля.Добавить("ВидНачисления");
	//Поле.Типизация = "Справочник._dВидыНачисленийЗайм";

	_Форма = СоздатьОбъект("Форма");
	тпВидыНачислений = лений");
	тпВидыНачислений.ПоставщикДанных = Поставщик;
	тпВидыНачислений.СтильЗаголовков = 1;
	тпВидыНачислений.СтильАктивногоЗаголовка = 0;
	тпВидыНачислений.ТаймаутОбновления = 1;
 

Код

Поставщик = СоздатьОбъект("ПоставщикДанныхODBC.VFP");