Ошибка при передаче параметра

17.05.2010 20:26

Прочитано: 12704

Здравствуйте!
Имеется ТЧ с реквизитами: Задача, ОписаниеЗадачи и Отдел
Необходимо вывести Задачу и ее описание, которые хранятся в регистре сведений
При этом, задачи должны выводиться для того отдела, в котором работает пользователь системы
Пишу запрос:

Код 1C v 8.х

 

	Запрос = новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	               |	ТекущиеЗадачиСрезПоследних.НаименованиеЗадачи,

	               |	ТекущиеЗадачиСрезПоследних.ОписаниеЗадачи,

	               |	ТекущиеЗадачиСрезПоследних.Отдел

	               |ИЗ

	               |	РегистрСведений.ТекущиеЗадачи.СрезПоследних(&Отдел, ) КАК ТекущиеЗадачиСрезПоследних";

	Запрос.УстановитьПараметр("Отдел", ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел);

	Результат = Запрос.Выполнить();

	ТзВрем = Результат.Выгрузить();

	

	Для Каждого СтрокаТекущиеЗадачи Из ТзВрем Цикл

		СтрокаОписаниеЗадачи = ЭтотОбъект.ЗадачиРаботаПользователей.Добавить();

		СтрокаОписаниеЗадачи.ОписаниеЗадачи = СтрокаТекущиезадачи.ОписаниеЗадачи;

		СтрокаОписаниеЗадачи.Задача = СтрокаТекущиеЗадачи.НаименованиеЗадачи;

		КонецЦикла;

Выдается такая ошибка:
{Обработка.РаботаПользователей.Форма.Форма(196)}: Ошибка при вызове метода контекста (Выполнить): {(6, 2)}: Ошибка обработки представления "РегистрСведений.ТекущиеЗадачи.СрезПоследних:Несоответствие типов (параметр номер ""1"")"
<<?>>РегистрСведений.ТекущиеЗадачи.СрезПоследних(&Отдел, ) КАК ТекущиеЗадачиСрезПоследних
Результат = Запрос.Выполнить();
Табличная часть расположена на панели
На всякий случай пришлю код всей процедуры:

Код 1C v 8.х

 

Процедура ПриОткрытии()

	ОбработкаОбъект.Пользователь = ПараметрыСеанса.ТекущийПользователь;

	ОбработкаОбъект.ПолучательЗадачи = ПараметрыСеанса.ТекущийПользователь.Сотрудник;

	ОбработкаОбъект.Отдел = ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел;

	

	ЭтотОбъект.Дата=КонецДня(ТекущаяДата());

	ЭлементыФормы.Польз.Заголовок = ПараметрыСеанса.ТекущийПользователь;

	ЭлементыФормы.Получ.Заголовок = ПараметрыСеанса.ТекущийПользователь.Сотрудник;

	ЭлементыФормы.Отд.Заголовок = ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел;

		

	Запрос = новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	|	РаспределениеЗадачиСрезПоследних.ИсполнительЗадачи,

	|	РаспределениеЗадачиСрезПоследних.НаименованиеЗадачи,

	|	РаспределениеЗадачиСрезПоследних.Пользователь,

	|	РаспределениеЗадачиСрезПоследних.Приоритет,

	|	РаспределениеЗадачиСрезПоследних.ДатаВыполнения,

	|	РаспределениеЗадачиСрезПоследних.ДатаНачалаВыполнения

	|ИЗ

	|	РегистрСведений.РаспределениеЗадачи.СрезПоследних(&Дата, ) КАК РаспределениеЗадачиСрезПоследних";

	Запрос.УстановитьПараметр("Дата", КонецДня(ЭтотОбъект.Дата));

	Результат = Запрос.Выполнить();

	ТзВрем = Результат.Выгрузить();

	ТзВрем.Колонки.Добавить("Номер");

	ТзВрем.Колонки.Добавить("ПроцентОставшегосяВремени");

		Для Каждого СтрокаРаспределениеЗадачи Из ТзВрем Цикл 

		СтрокаТабличнойЧасти = ЭтотОбъект.Пользователи.Добавить();

		СтрокаТабличнойЧасти.ПользовательСистемы = СтрокаРаспределениеЗадачи.Пользователь;

		СтрокаТабличнойЧасти.ТекущаяЗадача = СтрокаРаспределениеЗадачи.НаименованиеЗадачи;

		СтрокаТабличнойЧасти.Приоритет = СтрокаРаспределениеЗадачи.Приоритет;

		СтрокаТабличнойЧасти.ДатаНачалаВыполнения = СтрокаРаспределениеЗадачи.ДатаНачалаВыполнения;

		СтрокаТабличнойЧасти.ДатаВыполненияПоПлану = СтрокаРаспределениеЗадачи.ДатаВыполнения;

		СтрокаТабличнойЧасти.ИсполнительЗадачи = СтрокаРаспределениеЗадачи.ИсполнительЗадачи;	

		

		ДатаНачала = СтрокаРаспределениеЗадачи.ДатаНачалаВыполнения;

		ДатаКонца = СтрокаРаспределениеЗадачи.ДатаВыполнения;

		

		КоличествоДнейНаВыполнение = РазностьДат(ДатаКонца,ДатаНачала);

		КоличествоДнейСоДняНачалаВыполнения = РазностьДат(ТекущаяДата(),ДатаНачала);

		Если ТекущаяДата()>ДатаКонца тогда

			СтрокаРаспределениеЗадачи.ПроцентОставшегосяВремени="100 %";

		Иначе

			СтрокаРаспределениеЗадачи.ПроцентОставшегосяВремени=Окр(Число(КоличествоДнейСоДняНачалаВыполнения / КоличествоДнейНаВыполнение) * 100, 2);

		КонецЕсли;

		СтрокаТабличнойЧасти.ПроцентОставшегосяВремени = Строка(СтрокаРаспределениеЗадачи.ПроцентОставшегосяВремени)+ " ";

		

		Если СтрокаТабличнойЧасти.Приоритет = Перечисления.Приоритет.Высокий Тогда

			СтрокаТабличнойЧасти.Номер = Число(1);

		ИначеЕсли СтрокаТабличнойЧасти.Приоритет = Перечисления.Приоритет.Средний Тогда

			СтрокаТабличнойЧасти.Номер = Число(2);

		ИначеЕсли СтрокаТабличнойЧасти.Приоритет = Перечисления.Приоритет.Низкий Тогда

			СтрокаТабличнойЧасти.Номер = Число(3);

		КонецЕсли;

		КонецЦикла;

		ЭтотОбъект.Пользователи.Сортировать("ДатаВыполненияПоПлану Возр,Номер Возр"); 

	ЭлементыФормы.Польз1.Заголовок = ПараметрыСеанса.ТекущийПользователь;

	ЭлементыФормы.Получ1.Заголовок = ПараметрыСеанса.ТекущийПользователь.Сотрудник;

	ЭлементыФормы.Отд1.Заголовок = ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел;

	Запрос = новый Запрос;

	Запрос.Текст = "ВЫБРАТЬ

	               |	ТекущиеЗадачиСрезПоследних.НаименованиеЗадачи,

	               |	ТекущиеЗадачиСрезПоследних.ОписаниеЗадачи,

	               |	ТекущиеЗадачиСрезПоследних.Отдел

	               |ИЗ

	               |	РегистрСведений.ТекущиеЗадачи.СрезПоследних(&Отдел, ) КАК ТекущиеЗадачиСрезПоследних";

	Запрос.УстановитьПараметр("Отдел", ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел);

	Результат = Запрос.Выполнить();

	ТзВрем = Результат.Выгрузить();

	

	Для Каждого СтрокаТекущиеЗадачи Из ТзВрем Цикл

		СтрокаОписаниеЗадачи = ЭтотОбъект.ЗадачиРаботаПользователей.Добавить();

		СтрокаОписаниеЗадачи.ОписаниеЗадачи = СтрокаТекущиезадачи.ОписаниеЗадачи;

		СтрокаОписаниеЗадачи.Задача = СтрокаТекущиеЗадачи.НаименованиеЗадачи;

		КонецЦикла;

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

Подскажите, пожалуйста, как исправить эту ошибку

Yandex

Возможно, вас также заинтересует

E_Migachev

18.05.2010 15:27

Ответ № 1

типы разные *11
каких типов знаяения:
1. ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел
2. РегистрСведений.ТекущиеЗадачи.Отдел
????

а попробуй так:
Запрос.УстановитьПараметр("Отдел", ПараметрыСеанса.ТекущийПользователь.Отдел);

bless18

18.05.2010 18:20

Ответ № 2

К сожалению
Запрос.УстановитьПараметр("Отдел", ПараметрыСеанса.ТекущийПользователь.Отдел);
не получилось. Поле отдел не обнаружено
Тыпы у:
1. ПараметрыСеанса.ТекущийПользователь.Сотрудник.Отдел
2. РегистрСведений.ТекущиеЗадачи.Отдел
одинаковые: Справочник.Ссылка.Отделы

E_Migachev

18.05.2010 20:24

Ответ № 3

а, когда применяешь СрезПоследних( то первый параметр всегда ДАТА, а только потом уже условие, зайди в конструктор запроса, параметры виртуальной таблицы и там укажи условие!
Тогда запрос у тебя сформируется правильно!

вот как пример, как получать срез последних:

Код 1C v 8.х

 

ВЫБРАТЬ

 ЦеныСрезПоследних.Цена,

 ЦеныСрезПоследних.ТипЦен

ИЗ

 РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&ДатаОкончания,ТипЦен В (&МассивТипЦен)) КАК ЦеныСрезПоследних

ГДЕ

 ЦеныСрезПоследних.Номенклатура = &Номенклатура

szhukov

19.05.2010 19:18

Ответ № 4

Вместо:
РегистрСведений.ТекущиеЗадачи.СрезПоследних(&Отдел, )
Должно быть, что-то типа:
РегистрСведений.ТекущиеЗадачи.СрезПоследних(&Дата, Отдел = &Отдел )

P.S. Уберите лишнее объявление (Запрос = новый Запрос; ) - достаточно объявить переменную один раз и пользоваться ей на протяжении всей процедуры, тогда не надо будет каждый раз устанавливать параметры.

Подсказка: Для редактирования своего ответа щелкните по значку (справа)