v8: Не работает запрос

29.12.2015 17:36

Прочитано: 4000

Добрый вечер, встала такая задача, нужно чтобы заявки добавлялись определенное количество, вот создал Регистр сведений где определили количество заявок, написал код но почему то запрос не работаю, я могу добавить заявок сколько хочется, подскажите что не так

Код 1C v 8.х

 Фильтр = Новый Структура();     

	Фильтр.Вставить("Маршрут",ЛицевойСчет.Участок);

	КоличествоЗ=РегистрыСведений.ПланировщикРемонтныхЗаявок.ПолучитьПоследнее(КонецДня(Дата),Фильтр).Количество;

	

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

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

	|	РемонтныеЗаявки.Период КАК Период,

	|	СУММА(ЕСТЬNULL(РемонтныеЗаявки.Количество, 0)) КАК Количество,

	|	РемонтныеЗаявки.Участок

	|ИЗ

	|	РегистрНакопления.РемонтныеЗаявки КАК РемонтныеЗаявки

	|ГДЕ

	|	РемонтныеЗаявки.Период МЕЖДУДатаНач ИДатаКон

	|	И РемонтныеЗаявки.Участок =Участок

	|

	|СГРУППИРОВАТЬ ПО

	|	РемонтныеЗаявки.Период,

	|	РемонтныеЗаявки.Участок";

	

	Запрос.УстановитьПараметр("Участок",ЛицевойСчет.Участок);

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(Дата));

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

	КоличествоЗаявок=0;

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

	

	Пока Результат.Следующий() Цикл              

		КоличествоЗаявок=Результат.Количество;

	КонецЦикла;

	

	Если КоличествоЗаявок <= КоличествоЗ Тогда	

		Движение = Движения.СтатусЗаявокНаРемонт.Добавить();

		Движение.Период = НачалоДня(Дата);

		Движение.ДатаЗаявки=НачалоДня(Дата);

		Движение.Участок=ЛицевойСчет.Участок; 

		Движение.Заявка = Ссылка;

		Движение.ЛицевойСчет = ЛицевойСчет;

		Движение.Статус=Перечисления.СтатусЗаявки.Новая; 	

	Иначе

		Предупреждение("На этот день количество заявок закончились!"+Символы.ПС+"Выберите другую дату.");		

	КонецЕсли;

Yandex

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

IBReiter

30.12.2015 08:52

Ответ № 1

В консоли запросов в предприятии сначала проверяйте, как он работает, а потом уже помещайте в код.

И вообще, чтобы понимать, почему не работает запрос, - нужен пример таблицы с именами колонок и значениями

Ermak

30.12.2015 09:07

Ответ № 2

Сначала данные в Регистре нет, так как еще не было заявок. Что именно Вам показать?

IBReiter

30.12.2015 09:27

Ответ № 3

Вы пишете, что не работает запрос: как вы поняли, что он не работает? работает ли запрос в режиме предприятия в консоли запросов? какие данные хранятся в вашем регистре? проверяли ли вы отладкой свой алгоритм?

Ermak

30.12.2015 10:08

Ответ № 4

Что то не понимаю, когда Параметры Дата убераю тогда все работает, а с ними нет

IBReiter

30.12.2015 10:15

Ответ № 5

Значит РемонтныеЗаявки.Период не попадает в интервал МЕЖДУ ДатаНач И ДатаКон

Ermak

30.12.2015 10:29

Ответ № 6

При создании первого документа сначала в Регистре нет этого периода, по создание документ появляется с этим периодом, когда создаем второй документ запрос уже должен проверять и найти один документ, а он его не находит, почему?

IBReiter

30.12.2015 10:53

Ответ № 7

Сделайте в предприятии скрин регистра сведений уже с записями первого документа и двух ваших документов

Ermak

30.12.2015 12:54

Ответ № 8

Я вроде понял в чем дело, можете подсказать как суммировать Ресурс если он имеет тип Перечисление? Или можно как сто суммировать Измерения

IBReiter

30.12.2015 13:11

Ответ № 9

Количество(Ресурс) КАК Количество

Ermak

30.12.2015 16:51

Ответ № 10

Не тот использовал регистр. Переделал вот так, но почему то не срабатывает

Код 1C v 8.х

 ТЗ=ПолучитьЗаявки(ЛицевойСчет,Перечисления.СтатусЗаявки.Новая);

Вот код

Код 1C v 8.х

 Функция ПолучитьЗаявки(ЛицевойСчет,Статус)

	

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

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

	|	СтатусЗаявокНаРемонт.Период КАК Период,

	|	СтатусЗаявокНаРемонт.Участок КАК Маршрут,

	|	КОЛИЧЕСТВО(СтатусЗаявокНаРемонт.Статус) КАК Статус

	|ИЗ

	|	РегистрСведений.СтатусЗаявокНаРемонт КАК СтатусЗаявокНаРемонт

	|ГДЕ

	|	СтатусЗаявокНаРемонт.Участок =Маршрут

	|	И СтатусЗаявокНаРемонт.Период МЕЖДУДатаНач ИДатаКон

	|

	|СГРУППИРОВАТЬ ПО

	|	СтатусЗаявокНаРемонт.Период,

	|	СтатусЗаявокНаРемонт.Участок";

	

	Запрос.УстановитьПараметр("Маршрут",ЛицевойСчет.Участок);

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(Дата));

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

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

	

	Отбор = Новый Структура;

	Отбор.Вставить("Статус", Статус);

	Возврат Результат.НайтиСтроки(Отбор);

	

КонецФункции





Процедура ОбработкаПроведения(Отказ, Режим)

	Фильтр = Новый Структура();     

	Фильтр.Вставить("Маршрут",ЛицевойСчет.Участок);

	КоличествоЗ=РегистрыСведений.ПланировщикРемонтныхЗаявок.ПолучитьПоследнее(КонецДня(Дата),Фильтр).Количество;

	

	ТЗ=Новый ТаблицаЗначений;

	ТЗ=ПолучитьЗаявки(ЛицевойСчет,Перечисления.СтатусЗаявки.Новая);

		

	Если ТЗ.Количество() <= КоличествоЗ Тогда	

		Движение = Движения.СтатусЗаявокНаРемонт.Добавить();

		Движение.Период = НачалоДня(Дата);

		Движение.ДатаЗаявки=НачалоДня(Дата);

		Движение.Участок=ЛицевойСчет.Участок; 

		Движение.Заявка = Ссылка;

		Движение.ЛицевойСчет = ЛицевойСчет;

		Движение.Статус=Перечисления.СтатусЗаявки.Новая; 	

	Иначе

		Предупреждение("На этот день количество заявок закончились!"+Символы.ПС+"Выберите другую дату.");		

	КонецЕсли;	

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

IBReiter

09.01.2016 17:45

Ответ № 11

Вам нужно отладчиком смотреть в вашей базе по шагам, только тогда вы поймете, почему не работает.

Сначала проверьте что возвращает запрос, потом - что возвращает функция по результату запроса, потом условие в обработке проведения, сами значения, которые в условии вы сравниваете, потом уже тело условия с движениями ну и т.д.

И "не срабатывает" что именно?

LTrigubovich

14.01.2016 12:41

Ответ № 12

//Вот так попробуйте, должно сработать:Функция ПолучитьЗаявки(ЛицевойСчет,Статус) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | СтатусЗаявокНаРемонт.Период КАК Период, | СтатусЗаявокНаРемонт.Участок КАК Маршрут, | СтатусЗаявокНаРемонт.Статус КАК Статус |ИЗ | РегистрСведений.СтатусЗаявокНаРемонт КАК СтатусЗаявокНаРемонт |ГДЕ | СтатусЗаявокНаРемонт.Участок =Маршрут | И СтатусЗаявокНаРемонт.Период МЕЖДУДатаНач ИДатаКон

| И СтатусЗаявокНаРемонт.Статус =Статус"; Запрос.УстановитьПараметр("Маршрут",ЛицевойСчет.Участок);

Запрос.УстановитьПараметр("Маршрут",ЛицевойСчет.Участок);Запрос.УстановитьПараметр("ДатаНач",НачалоДня(Дата)); Запрос.УстановитьПараметр("ДатаКон",КонецДня(Дата));Возврат Запрос.Выполнить().Выгрузить(); КонецФункции

LTrigubovich

14.01.2016 12:46

Ответ № 13

Пардон, забыл отформатировать Но вообще вижу 2 ошибки:1) в тексте запроса у параметров должен быть суффикс "&", например:

Код 1C v 8.2 УП

 И СтатусЗаявокНаРемонт.Период МЕЖДУДатаНач ИДатаКон

2) Функция НайтиСтроки(...) возвращает массив, а не таблицу значений.

Поэтому оператор:

Код 1C v 8.2 УП

 ТЗ=Новый ТаблицаЗначений;

не имеет смысла.

Ermak

14.01.2016 23:59

Ответ № 14

Спасибо за помощь, я разобрался чтобы выводила Предупреждение("На этот день количество заявок закончились!"+Символы.ПС+"Выберите другую дату.");, но почему все равно добавляет?

Код 1C v 8.х

 	Фильтр = Новый Структура();     

	Фильтр.Вставить("Маршрут",ЛицевойСчет.Участок);

	КоличествоЗ=РегистрыСведений.ПланировщикРемонтныхЗаявок.ПолучитьПоследнее(КонецДня(Дата),Фильтр).Количество;

	

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

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

	|	СтатусЗаявокНаРемонт.Период КАК Период,

	|	СтатусЗаявокНаРемонт.Участок КАК Маршрут,

	|	КОЛИЧЕСТВО(СтатусЗаявокНаРемонт.Статус) КАК Количество

	|ИЗ

	|	РегистрСведений.СтатусЗаявокНаРемонт КАК СтатусЗаявокНаРемонт

	|ГДЕ

	|	СтатусЗаявокНаРемонт.Участок =Маршрут

	|	И СтатусЗаявокНаРемонт.Период МЕЖДУДатаНач ИДатаКон

	|

	|СГРУППИРОВАТЬ ПО

	|	СтатусЗаявокНаРемонт.Период,

	|	СтатусЗаявокНаРемонт.Участок";

	

	Запрос.УстановитьПараметр("Маршрут",ЛицевойСчет.Участок);

	Запрос.УстановитьПараметр("ДатаНач",НачалоДня(Дата));

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

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





	Пока Результат.Следующий() Цикл              

		КоличествоЗаявок=Результат.Количество;

		

	КонецЦикла;





	Если КоличествоЗаявок < КоличествоЗ Тогда

		Движение = Движения.СтатусЗаявокНаРемонт.Добавить();

		Движение.Период = НачалоДня(Дата);

		Движение.ДатаЗаявки=НачалоДня(Дата);

		Движение.Участок=ЛицевойСчет.Участок; 

		Движение.Заявка = Ссылка;

		Движение.ЛицевойСчет = ЛицевойСчет;

		Движение.Статус=Перечисления.СтатусЗаявки.Новая; 	

	Иначе

		Предупреждение("На этот день количество заявок закончились!"+Символы.ПС+"Выберите другую дату.");

	КонецЕсли;

Ermak

15.01.2016 08:40

Ответ № 15

Я заметил что он не записывает в регистр СтатусЗаявокНаРемонт и просто создает документ

Ermak

15.01.2016 09:15

Ответ № 16

Сделал так, не знаю правильно это или нет

Код 1C v 8.х

 Иначе

		Предупреждение("На этот день количество заявок закончились!"+Символы.ПС+"Выберите другую дату.");

		Отказ=Истина;

	КонецЕсли;

Подсказка:Вы можете добавить любую страничку в Социальные закладки щелкнув по значку соцсетей (в вверху)