(UTC)
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Поставщик ТП - ИТ, проблемка (число прочтений - 3153 )
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Поставщик ТП - ИТ, проблемка
22. Мая 2008 :: 05:13
Печать  
Код
Выбрать все
	ТекстЗапроса = "
	|SELECT
	|	1 as Ф,
	|	СпрТайм.ParentExt as [Сотрудник $Справочник.Сотрудники],
	|	СпрТайм.Descr as Наименование,
	|	$СпрТайм.ТипТаймера as [ТипТаймера $Перечисление.ТипыТаймеров],
	|	$СпрТайм.Категория as [Категория $Перечисление.Категории],
	|	$СпрТайм.Подразделение as [Подразделение $Справочник.Подразделения],
	|	$ПоследнееЗначение.Таймеры.Периодичность(СпрТайм.ID,:ТекДата) as [Периодичность $Перечисление.Периодичность]
	|FROM
	|	$Справочник.Таймеры as СпрТайм
	|";
	Запрос = СоздатьОбъект("ODBCRecordset");
	Запрос.УстановитьТекстовыйПараметр("ТекДата",ТекущаяДата());

	ТабРесурсов = СоздатьОбъект("ИндексированнаяТаблица");
	ТабРесурсов.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
	ТабРесурсов.ДобавитьИндекс("Сотрудник","Сотрудник");
	ТабРесурсов.ВЫгрузить(табтаб);

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

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


	ТабличноеПоле.ПоставщикДанных = Поставщик;
	Колонки = ТабличноеПоле.Колонки;
	Колонки.Добавить("Сотрудник").Заголовок = "Сотрудник";


В итоге в ТП ни одной строки хотя в ТЗ "табтаб" из ИТ выгружается все нормально...
Подскажите, где ступил?
  
Наверх
ICQ  
IP записан
 
PVR
God Member
*****
Отсутствует



Сообщений: 622
Зарегистрирован: 19. Ноября 2007
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #1 - 22. Мая 2008 :: 05:32
Печать  
           НоваяКолонка=ТабличноеПоле.Колонки.Добавить("Сотрудник");
           НоваяКолонка.Заголовок="Сотрудник";
           НоваяКолонка.Данные="Сотрудник";
           НоваяКолонка.Ширина=30;
  
Наверх
 
IP записан
 
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #2 - 22. Мая 2008 :: 05:39
Печать  
Данные указал уже.... все равно нет результата
  
Наверх
ICQ  
IP записан
 
PVR
God Member
*****
Отсутствует



Сообщений: 622
Зарегистрирован: 19. Ноября 2007
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #3 - 22. Мая 2008 :: 05:45
Печать  
grudinko писал(а) 22. Мая 2008 :: 05:39:
Данные указал уже.... все равно нет результата
Добавлял колонку, так как я написал?
Скопируй мой код!
  
Наверх
 
IP записан
 
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #4 - 22. Мая 2008 :: 05:50
Печать  
Код
Выбрать все
Процедура ПослеОткрытия()
	ТекстЗапроса = "
	|SELECT
	|	1 as Ф,
	|	СпрТайм.ParentExt as [Сотрудник $Справочник.Сотрудники],
	|	СпрТайм.Descr as Наименование,
	|	$СпрТайм.ТипТаймера as [ТипТаймера $Перечисление.ТипыТаймеров],
	|	$СпрТайм.Категория as [Категория $Перечисление.Категории],
	|	$СпрТайм.Подразделение as [Подразделение $Справочник.Подразделения],
	|	$ПоследнееЗначение.Таймеры.Периодичность(СпрТайм.ID,:ТекДата) as [Периодичность $Перечисление.Периодичность]
	|FROM
	|	$Справочник.Таймеры as СпрТайм
	|";
	Запрос = СоздатьОбъект("ODBCRecordset");
	Запрос.УстановитьТекстовыйПараметр("ТекДата",ТекущаяДата());

	ТабРесурсов = СоздатьОбъект("ИндексированнаяТаблица");
	ТабРесурсов.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
	ТабРесурсов.ДобавитьИндекс("Сотрудник","Сотрудник");

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

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

	ТабличноеПоле.ПоставщикДанных = Поставщик;
	НоваяКолонка=ТабличноеПоле.Колонки.Добавить("Сотрудник");
	НоваяКолонка.Заголовок="Сотрудник";
	НоваяКолонка.Данные="Сотрудник";
	НоваяКолонка.Ширина=30;
КонецПроцедуры

Вот так?
  
Наверх
ICQ  
IP записан
 
PVR
God Member
*****
Отсутствует



Сообщений: 622
Зарегистрирован: 19. Ноября 2007
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #5 - 22. Мая 2008 :: 06:07
Печать  
да, так !?

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

НоваяКолонка=ТабличноеПоле.Колонки.Добавить("Сотрудник");
НоваяКолонка.Заголовок="Сотрудник";
НоваяКолонка.Данные="Сотрудник";
НоваяКолонка.Ширина=30;

ТабличноеПоле.ПоставщикДанных = Поставщик;
ТабличноеПоле.ОбновитьСтроки();
  
Наверх
 
IP записан
 
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #6 - 22. Мая 2008 :: 06:07
Печать  
Код
Выбрать все
Процедура ПослеОткрытия()
	ТекстЗапроса = "
	|SELECT
	|	СпрТайм.ParentExt as [Сотрудник $Справочник.Сотрудники]
	|FROM
	|	$Справочник.Таймеры as СпрТайм
	|";
	Запрос = СоздатьОбъект("ODBCRecordset");

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

	Поставщик = СоздатьОбъект("ПоставщикДанныхТЗ");
	Поставщик.ТаблицаЗначений = ТабТАб;

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

	НоваяКолонка=ТабличноеПоле.Колонки.Добавить("Сотрудник");
	НоваяКолонка.Заголовок="Сотрудник";
	НоваяКолонка.Данные="Сотрудник";
	НоваяКолонка.Ширина=30;
	ТабличноеПоле.ПоставщикДанных = Поставщик;
КонецПроцедуры

Так работает.

Код
Выбрать все
Процедура ПослеОткрытия()
	ТекстЗапроса = "
	|SELECT
	|	СпрТайм.ParentExt as [Сотрудник $Справочник.Сотрудники]
	|FROM
	|	$Справочник.Таймеры as СпрТайм
	|";
	Запрос = СоздатьОбъект("ODBCRecordset");

	ТабРесурсов = СоздатьОбъект("ИндексированнаяТаблица");
	ТабРесурсов.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
	ТабРесурсов.Выгрузить(табтаб);
	ТабРесурсов.ДобавитьИндекс("Сотрудник","Сотрудник");


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

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

	НоваяКолонка=ТабличноеПоле.Колонки.Добавить("Сотрудник");
	НоваяКолонка.Заголовок="Сотрудник";
	НоваяКолонка.Данные="Сотрудник";
	НоваяКолонка.Ширина=30;
	ТабличноеПоле.ПоставщикДанных = Поставщик;
КонецПроцедуры


а так нет!!!
(без добавления индекса тоже не работает)
  
Наверх
ICQ  
IP записан
 
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #7 - 22. Мая 2008 :: 06:50
Печать  
Код
Выбрать все
Процедура СоздатьТП()
	итРезультат=СоздатьОбъект("ИндексированнаяТаблица");
	Запрос = СоздатьОбъект("ODBCRecordset");

	ТекстЗапроса="
	|SELECT Спр.ID as [Элемент $Справочник.Контрагенты]
	|	,Род.ID as [Родитель $Справочник.Контрагенты]
	|FROM $Справочник.Контрагенты as Спр
	|LEFT JOIN $Справочник.Контрагенты as Род ON Род.ID=Спр.ParentID
	|";
	итРезультат.Загрузить(Запрос.ВыполнитьИнструкцию(ТекстЗапроса));
	итРезультат.ДобавитьИндекс("Родитель","Родитель");

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


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

	итРезультат.Выгрузить(табтаб);
	Источник = СоздатьОбъект("ПоставщикДанныхТЗ");
	Источник.ТаблицаЗначений = табтаб;


	Колонка=тпНаФорме.Колонки.Добавить("Элемент");
	Колонка.Данные = "Элемент";
	Колонка=тпНаФорме.Колонки.Добавить("Родитель");
	Колонка.Данные = "Родитель";
	тпНаФорме.ПоставщикДанных=Поставщик;
	//тпНаФорме.ПоставщикДанных=Источник;
КонецПроцедуры	// СоздатьТП


Код из сообщения про введение ИТ для ТП
Для ИТ не работает... Использую последнюю ночную сборку.
  
Наверх
ICQ  
IP записан
 
grudinko
YaBB Newbies
*
Отсутствует



Сообщений: 9
Местоположение: Псков
Зарегистрирован: 27. Апреля 2008
Пол: Мужской
Re: Поставщик ТП - ИТ, проблемка
Ответ #8 - 22. Мая 2008 :: 06:53
Печать  
Проблема решена!
Не хватало - ТабличноеПоле.ОбновитьСтроки(); ТП не обновлялась...
Впредь обязуюсь быть внимательней!
Спасибо PVR
  
Наверх
ICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge