- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
Запрос = Новый Запрос();
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст = "ВЫБРАТЬ
| Проекты.Ссылка КАК Проект, Проекты.Менеджер КАК Менеджер, Проекты.СтатусПроекта, Проекты.ТипПроекта, Проекты.ВидПродукции,
| Проекты.ДатаТретейПодписи, Проекты.ДатаНачалаСтадии, Проекты.РасчетнаяДатаОкончанияСтадии, Проекты.Приоритет
|ИЗ Справочник.Проекты КАК Проекты
|ГДЕ (Проекты.ДатаОтправкиТЗ >= &НачДата И Проекты.ДатаОтправкиТЗ <= &КонДата ИЛИ Проекты.ДатаОтправкиТЗ = ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0))
| И (&ВыбМенеджер = ЗНАЧЕНИЕ(Справочник.Сотрудники.ПустаяСсылка) ИЛИ Проекты.Менеджер = &ВыбМенеджер)
| И (&ВыбСтатусПроекта = ЗНАЧЕНИЕ(Перечисление.Статусы.ПустаяСсылка) ИЛИ Проекты.СтатусПроекта = &ВыбСтатусПроекта)
| И Проекты.ПометкаУдаления = &ЗначПометкиНаУдаление";
Запрос.УстановитьПараметр("НачДата",НачДата);
Запрос.УстановитьПараметр("КонДата",КонДата);
Запрос.УстановитьПараметр("ВыбМенеджер",ВыбМенеджер);
Запрос.УстановитьПараметр("ВыбСтатусПроекта",ВыбСтатусПроекта);
Запрос.УстановитьПараметр("ЗначПометкиНаУдаление",ложь);
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Менеджер");
ТЗ.Колонки.Добавить("Проект");
ТЗ.Колонки.Добавить("ТипПроекта");
ТЗ.Колонки.Добавить("ВидПродукции");
ТЗ.Колонки.Добавить("ДатаТретейПодписи");
ТЗ.Колонки.Добавить("ДатаНачалаСтадии");
ТЗ.Колонки.Добавить("РасчетнаяДатаОкончанияСтадии");
ТЗ.Колонки.Добавить("ПлановаяДатаОтправкиТЗ");
ТЗ.Колонки.Добавить("Статус"); //Статус проекта
ТЗ.Колонки.Добавить("Приоритет"); //Статус проекта
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если (ВыборкаДетальныеЗаписи.СтатусПроекта = Перечисления.Статусы.Выполнено) Тогда
Продолжить;
КонецЕсли;
Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта) = Ложь Тогда
Продолжить;
КонецЕсли;
Если СокрЛП(ВыборкаДетальныеЗаписи.ДатаОтправкиТЗ) = "01.01.0001 0:00:00" Тогда
если (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45 >= НачДата) и (ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45<= КонДата) Тогда
Иначе
продолжить;
КонецЕсли;
КонецЕсли;
НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Проект = ВыборкаДетальныеЗаписи.Проект;
НоваяСтрока.Менеджер = ВыборкаДетальныеЗаписи.Менеджер;
НоваяСтрока.ВидПродукции = ВыборкаДетальныеЗаписи.ВидПродукции;
НоваяСтрока.ТипПроекта = ВыборкаДетальныеЗаписи.ТипПроекта;
НоваяСтрока.ДатаТретейПодписи = ВыборкаДетальныеЗаписи.ДатаТретейПодписи;
НоваяСтрока.РасчетнаяДатаОкончанияСтадии = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияСтадии;
НоваяСтрока.ДатаНачалаСтадии = ВыборкаДетальныеЗаписи.ДатаНачалаСтадии;
НоваяСтрока.Статус = ВыборкаДетальныеЗаписи.СтатусПроекта;
НоваяСтрока.ПлановаяДатаОтправкиТЗ = ВыборкаДетальныеЗаписи.РасчетнаяДатаОкончанияПроекта-60*60*24*45;//-45 дней
НоваяСтрока.Приоритет = ВыборкаДетальныеЗаписи.Приоритет;
КонецЦикла;
тз.Сортировать("Менеджер,ТипПроекта возр, Приоритет Убыв,Проект");
РФ = РеквизитФормыВЗначение("Отчет");
Макет = РФ.ПолучитьМакет("ПечатьПроектов");
ОбластьШапки = Макет.ПолучитьОбласть("Шапка");
ОбластьСтроки = Макет.ПолучитьОбласть("Строка");
ОбластьТипаПроекта = Макет.ПолучитьОбласть("ТипПроекта");
ОблатстьОтложенныхПроектов = Макет.ПолучитьОбласть("Отложенные");
ОбластьМенеджеры = Макет.ПолучитьОбласть("МЕНЕДЖЕР");
ТабДок = Новый ТабличныйДокумент;
ТабДок.Очистить();
ТабДок.Вывести(ОбластьШапки);
Если тз.Количество()>0 Тогда
ТекущийТипПроекта = 0; ТекущийМенеджер = 0; пн = 0;
Для Каждого ТекущаяСтрока Из тз Цикл
Если ТекущаяСтрока.Статус = Перечисления.Статусы.Отложено Тогда
продолжить;
КонецЕсли;
Если (ТекущийМенеджер = 0) или (ТекущийМенеджер <> ТекущаяСтрока.Менеджер) Тогда
ТекущийМенеджер = ТекущаяСтрока.Менеджер;
ОбластьМенеджеры.Параметры.тМенеджер = ТекущийМенеджер;
ТабДок.Вывести(ОбластьМенеджеры);
КонецЕсли;
Если (ТекущийТипПроекта = 0) или (ТекущийТипПроекта <> ТекущаяСтрока.ТипПроекта) Тогда
ТекущийТипПроекта = ТекущаяСтрока.ТипПроекта;
ОбластьТипаПроекта.Параметры.тТипПроекта = ТекущийТипПроекта;
ТабДок.Вывести(ОбластьТипаПроекта);
КонецЕсли;
пн = пн + 1;
ОбластьСтроки.Параметры.ПН = пн;
ОбластьСтроки.Параметры.тПроектАртикул = СокрЛП(ТекущаяСтрока.ВидПродукции) + Символы.ПС + СокрЛП(ТекущаяСтрока.проект.Наименование);
ОбластьСтроки.Параметры.тПроектРасшифровка = ТекущаяСтрока.проект;
ОбластьСтроки.Параметры.тПлановаяДатаОтправкиТЗ = формат(ТекущаяСтрока.ПлановаяДатаОтправкиТЗ,"ДФ=dd.MM.yyyy");//-45 дней от расчетной даты окончания
ОбластьСтроки.Параметры.тДатаТретейПодписи = СокрЛП(Формат(ТекущаяСтрока.ДатаТретейПодписи,"ДФ=dd.MM.yyyy"));
ТабДок.Вывести(ОбластьСтроки);
КонецЦикла;
Попытка
ТабДок.Области.Строка.АвтоВысотаСтроки = Истина;
ТабДок.АвтоМасштаб = Истина;
ТабДок.ПолеСправа = 0;
ТабДок.ПолеСлева = 0;
ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1,,2,);
ТабДок.ФиксацияСверху = 2;
Исключение
КонецПопытки;
КонецЕсли;
ТД = ТабДок;
ТД.Напечатать();
Серверная процедура в 8.2. Автор - "семёрочник-многостаночник". Переписываю и рыдаю...
Ужимал как мог, чтобы вместилось.
Follow us!
Продолжить;
КонецЕсли;
Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи .РасчетнаяДатаОкончанияПроекта) = Ложь Тогда
Продолжить;
КонецЕсли;
Если СокрЛП(ВыборкаДетальныеЗаписи.ДатаОтправ киТЗ) = "01.01.0001 0:00:00" Тогда
если (ВыборкаДетальныеЗаписи.РасчетнаяДатаОко нчанияПроекта-60*60*24*45 >= НачДата) и (ВыборкаДетальныеЗаписи.РасчетнаяДатаОко нчанияПроекта-60*60*24*45<= КонДата) Тогда
Иначе
продолжить;
КонецЕсли;
КонецЕсли;
Обоссать за то, что не спрятано прямо в запрос.
Ну, вывод документа на печать не буду смотреть, уже.
Проекты.ПометкаУдаления = &ЗначПометкиНаУдаление
да и СокрЛП(ВыборкаДетальныеЗаписи.ДатаОтправ киТЗ) = "01.01.0001 0:00:00" - это само по себе "сильно".
СокрЛП любое значение превращает в его строковое представление. Без исключений. Null, Nothing и прочие после СокрЛП превращаются в пустую строку.
Но так не пишут. Если тип сравниваемого значения известен (в данном случае точно ДАТА), следует его и использовать в сравнении:
ВыборкаДетальныеЗаписи.ДатаОтправкиТЗ = '00010101000000'
справа в этом выражении предопределённое значение типа ДАТА. Например, '20150408125914' - это 08.04.2015 12:59:14, а '00010101000000' - всегда пустая дата.
Проверять лень было.
Тогда уж проще ВыборкаДетальныеЗаписи.ДатаОтправкиТЗ = '00010101';
ТабДок.Области.Строка.АвтоВысотаСтроки = Истина;
ТабДок.АвтоМасштаб = Истина;
ТабДок.ПолеСправа = 0;
ТабДок.ПолеСлева = 0;
ТабДок.ПовторятьПриПечатиСтроки = ТабДок.Область(1,,2,);
ТабДок.ФиксацияСверху = 2;
Исключение
У меня была ситуация, когда без установленного в системе принтера валилось на одной из подобных строк, кстати.
Зачем переписывать) работает не трогай)