Всем привет, с горем по-полам пытаюсь для начала вывести список кодом ТМЦ в ТабличноеПоле.
РФорма=СоздатьОбъект("РасширениеФормы");
гТП=РФорма.ПолучитьАтрибут("кнОК").СоздатьЭлементУправления("ТабличноеПоле");
гТП.РежимВыделенияСтроки=1;
гТП.ИзменятьПозициюКолонок=1;
гТП.ЧередованиеЦветовСтрок=1;
гТП.ВертСкроллер=0;
гТП.СтильЗаголовков=1;
гТП.ТаймаутБыстрогоПоиска=1;
гТП.ТаймаутОбновления=1;
Поставщик=СоздатьОбъект("ПоставщикДанныхODBC.VFP");
БД = СоздатьОбъект("ODBCDatabase");
БД.Соединение("DRIVER=Microsoft Visual FoxPro ceType=DBF;SourceDB="+КаталогИБ());
Поставщик.БазаДанных = БД;
ТекстЗапроса = "
|SELECT
| Спр.Code as Cod,
| Спр.Descr as Наименование
|FROM
| SC135 as Спр";
Поставщик.УстТекстЗапроса(ТекстЗапроса);
Поставщик.УстКлючПорядка("Cod");
гТП.ПоставщикДанных=Поставщик;
//
//***добавим необхродиы колонки
Колонка=гТП.Колонки.Добавить("Код");
Колонка.Заголовок="Код";
Колонка.Данные="Cod";
Колонка.ЗнакУпорядочивания =1;
Поставщик.Обновить();
гТП.ОбновитьСтроки();
Но в итоги не получаю ни одной стори. Что я делаю не так?