Запрос5 = Новый Запрос; Запрос5.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ |ПоступлениеИзделия.СЦ_Состояние.Ссылка, |РАЗНОСТЬДАТ(ПоступлениеИзделия.Дата, &НачПериода, ДЕНЬ) КАК КолВоДней, |ПоступлениеИзделия.Дата КАК ДатаПоступления |ИЗ |Документ.ПоступлениеИзделия КАК ПоступлениеИзделия |ГДЕ |(ПоступлениеИзделия.СЦ_Состояние.Ссылка = &СЦ_СостояниеСсылка5 |ИЛИ ПоступлениеИзделия.СЦ_Состояние.Ссылка = &СЦ_СостояниеСсылка6) |И ПоступлениеИзделия.Дата >= &НачалоГода1"; Запрос5.УстановитьПараметр("НачПериода", ТекущаяДата());// '20120101'); Запрос5.УстановитьПараметр("СЦ_СостояниеСсылка5", Перечисления.СЦ_ИзделияНаРемонт_Состояние.ВРаботеУИнженера); Запрос5.УстановитьПараметр("СЦ_СостояниеСсылка6", Перечисления.СЦ_ИзделияНаРемонт_Состояние.КРемонтуНеПриступили); Запрос5.УстановитьПараметр("НачалоГода1", НачалоГода(ТекущаяДата())); F1 = 0 ; // колво до месяца F2 = 0 ; // колво свыше месяца Результат_ВПроцессеРемонта = Запрос5.Выполнить().Выгрузить(); ОткрытьЗначение(Результат_ВПроцессеРемонта); Для Каждого Строчка1 ИЗ Результат_ВПроцессеРемонта Цикл //Сообщить(Строчка1.ДатаПоступления); Если Строчка1.КолВоДней <= 29 Тогда F1 = F1+1; Сообщить(СТРОКА(Строчка1.ДатаПоступления)+"менее 29 "+" КолВо дней "+СТРОКА(Строчка1.КолВоДней)); ИначеЕсли Строчка1.КолВоДней >= 29 Тогда F2 = F2+1; //Сообщить(СТРОКА(Строчка1.ДатаПоступления)+"более 29 "+" КолВо дней "+СТРОКА(Строчка1.КолВоДней)); КонецЕсли; КонецЦикла; |