102
если КЗ>КР тогда за-
явк.СтатусВыполненияЗаявки=справочники.СтатусыВыполненияЗаявок.ЧастичноСЗамен
ами;
иначе за-
явк.СтатусВыполненияЗаявки=справочники.СтатусыВыполненияЗаявок.СЗаменами;
конецесли;
конецесли;
Заявк.Записать();
КонецПроцедуры
Модуль формы отчета «График выполнения заявки»
Процедура КнопкаСформироватьНажатие(Кнопка)
ДГ=элементыформы.ДиаграммаГанта1;
ДГ.очистить();
Нач=Заявка.Дата;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗаявкаСтатусЗаявки.Ссылка,
| ЗаявкаСтатусЗаявки.СтатусЗаявки,
| ЗаявкаСтатусЗаявки.ДатаНачала КАК ДатаНачала,
| ЗаявкаСтатусЗаявки.ДатаОкончания КАК ДатаОкончания
|ИЗ
| Документ.Заявка.СтатусЗаявки КАК ЗаявкаСтатусЗаявки
|ГДЕ
| ЗаявкаСтатусЗаявки.Ссылка = &Ссылка
|
|УПОРЯДОЧИТЬ ПО
| ДатаНачала";
Запрос.УстановитьПараметр("Ссылка", Заявка);
103
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Точ-
ка=ДГ.УстановитьТочку(ВыборкаДетальныеЗаписи.СтатусЗаявки);
Серия=ДГ.УстановитьСерию(Заявка);
Значение = ДГ.ПолучитьЗначение(Точка,Серия);
Интервал = Значение.Добавить();
Интервал.Начало = ВыборкаДетальныеЗаписи.ДатаНачала;
Если ВыборкаДетальныеЗаписи.ДатаОкончания = Дата(1, 1, 1) Тогда Интер-
вал.Конец= Интервал.Начало+60*60*24;
Иначе
Интервал.Конец = ВыборкаДетальныеЗаписи.ДатаОкончания;
Конецесли;
КонецЦикла;
ДГ.Обновление = Истина;
КонецПроцедуры
Модуль формы отчета «Отчет по заявкам»
Процедура КнопкаСформироватьНажатие(Кнопка)
ТабДок=Новый ТабличныйДокумент;
Макет = Отчеты.ОтчетПоЗаявкам.ПолучитьМакет("Макет");
Запрос = Новый Запрос;
Если (ЗначениеЗаполнено(Клиент)=Ложь) и (значениезаполне-
но(Статусвыполнения)=Ложь) тогда
Запрос.Текст =
104
"ВЫБРАТЬ
| Заявка.Ссылка,
| Заявка.Представление,
| Заявка.Дата КАК Дата,
| Заявка.Клиент,
| ПРЕДСТАВЛЕНИЕ(Заявка.Клиент),
| Заявка.СрокПоставки,
| Заявка.СтатусВыполненияЗаявки,
| ПРЕДСТАВЛЕНИЕ(Заявка.СтатусВыполненияЗаявки)
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Дата МЕЖДУ &ДатаНачала И &Датаокончания
|
|УПОРЯДОЧИТЬ ПО
| Дата";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("Датаокончания", Датаокончания);
ИначеЕсли (ЗначениеЗаполнено(Клиент)=истина) и (значениезаполне-
но(Статусвыполнения)=Ложь) тогда
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Ссылка,
| Заявка.Представление,
| Заявка.Дата КАК Дата,
| Заявка.Клиент,
| ПРЕДСТАВЛЕНИЕ(Заявка.Клиент),
| Заявка.СрокПоставки,
| Заявка.СтатусВыполненияЗаявки,
| ПРЕДСТАВЛЕНИЕ(Заявка.СтатусВыполненияЗаявки)
|ИЗ
| Документ.Заявка КАК Заявка
105
|ГДЕ
| Заявка.Дата МЕЖДУ &ДатаНачала И &Датаокончания
| и Заявка.Клиент=&Клиент
|
|УПОРЯДОЧИТЬ ПО
| Дата";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("Датаокончания", Датаокончания);
Запрос.УстановитьПараметр("Клиент", Клиент);
ИначеЕсли (ЗначениеЗаполнено(Клиент)=ложь) и (значениезаполне-
но(Статусвыполнения)=истина) тогда
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Ссылка,
| Заявка.Представление,
| Заявка.Дата КАК Дата,
| Заявка.Клиент,
| ПРЕДСТАВЛЕНИЕ(Заявка.Клиент),
| Заявка.СрокПоставки,
| Заявка.СтатусВыполненияЗаявки,
| ПРЕДСТАВЛЕНИЕ(Заявка.СтатусВыполненияЗаявки)
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Дата МЕЖДУ &ДатаНачала И &Датаокончания
| и Заявка.СтатусВыполненияЗаявки=&СтатусВыполненияЗаявки
|
|УПОРЯДОЧИТЬ ПО
| Дата";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("Датаокончания", Датаокончания);
106
Запрос.УстановитьПараметр("СтатусВыполненияЗаявки", СтатусВыполне-
ния);
ИначеЕсли (ЗначениеЗаполнено(Клиент)=ложь) и (значениезаполне-
но(Статусвыполнения)=истина) тогда
Запрос.Текст =
"ВЫБРАТЬ
| Заявка.Ссылка,
| Заявка.Представление,
| Заявка.Дата КАК Дата,
| Заявка.Клиент,
| ПРЕДСТАВЛЕНИЕ(Заявка.Клиент),
| Заявка.СрокПоставки,
| Заявка.СтатусВыполненияЗаявки,
| ПРЕДСТАВЛЕНИЕ(Заявка.СтатусВыполненияЗаявки)
|ИЗ
| Документ.Заявка КАК Заявка
|ГДЕ
| Заявка.Дата МЕЖДУ &ДатаНачала И &Датаокончания
| и Заявка.СтатусВыполненияЗаявки=&СтатусВыполненияЗаявки
| и Заявка.Клиент=&Клиент
|УПОРЯДОЧИТЬ ПО
| Дата";
Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
Запрос.УстановитьПараметр("Датаокончания", Датаокончания);
Запрос.УстановитьПараметр("Клиент", Клиент);
Запрос.УстановитьПараметр("СтатусВыполненияЗаявки", СтатусВыполне-
ния);
конецесли;
РезультатЗапроса = Запрос.Выполнить();
107
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");
ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗапи-
сей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
Запрос1 = Новый Запрос;
Запрос1.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| ЗаявкаСтатусЗаявки.Ссылка,
| ЗаявкаСтатусЗаявки.СтатусЗаявки,
| ЗаявкаСтатусЗаявки.ДатаНачала КАК ДатаНачала
|ИЗ
| Документ.Заявка.СтатусЗаявки КАК ЗаявкаСтатусЗаявки
|ГДЕ
| ЗаявкаСтатусЗаявки.Ссылка = &Ссылка
|
|УПОРЯДОЧИТЬ ПО
| ДатаНачала УБЫВ";
Запрос1.УстановитьПараметр("ссылка", ВыборкаДетальные-
Записи.ссылка);
108
РезультатЗапроса1 = Запрос1.Выполнить();
ВыборкаДетальныеЗаписи1 = РезультатЗапроса1.Выбрать();
Пока ВыборкаДетальныеЗаписи1.Следующий() Цикл
статус=ВыборкаДетальныеЗаписи1.СтатусЗаявки;
КонецЦикла;
ОбластьДетальныхЗаписей.Параметры.выполнение=статус;
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗапи-
си.Уровень());
КонецЦикла;
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
ТабДок.Показать();
КонецПроцедуры