ля Індекс=0 По (ЧіслоДнейВНеполнойНеделе - 1) Цикл
ЧіслоРабочіхДней=ЧіслоРабочіхДней + ЯвляетсяРабочімДнем (Д2 -
Індекс);
КонецЦікла;
Повернення ЧіслоРабочіхДней;
КонецФункции//ЧіслоРабочіхДнейМежду ()
//**************************************** ********************
//ПроверітьКорректностьДат ()
//
//Параметри:
//Ні
//повертається:
//Ні
//Викликається з формул елементів діалогу:
//поля з датами звіту
//Опис:
//перевіряє дати на коректність (перевищення ТА, дата кінця закупівель
Повинна//бути не менше дати кінця аналізу продажів)
Процедура ПроверітьКорректностьДат ()
Якщо ДатаКонца gt; ПолучітьДатуТА () Тоді
Попередження ("Не можна встановлювати дату аналізу продажів більше
Точки Актуальності!" , 60);
ДатаКонца=ПолучітьДатуТА ();
ДатаНачала=Мін (ДатаНачала, ДатаКонца);
КонецЕсли;
Якщо ДатаНачала gt; ДатаКонца Тоді
Попередження ("Не можна встановлювати дату початку аналізу продажів
більше дати кінця!" , 60);
ДатаНачала=ДатаКонца;
КонецЕсли;
//Якщо (ДатаНачалаЗак - ДатаКонца) gt; 0 тоді//плануємо майбутній
період
//Форма.ОстатокНаНачало.Доступность (1);
//Інакше
//Форма.ОстатокНаНачало.Доступность (0);
//ОстатокНаНачало.ТекущаяСтрока (1);
//КонецЕсли;
КонецПроцедури//ПроверітьКорректностьДат ()
//**************************************** ********************
//Сформувати (ЗакритьДіалог=0)
//Параметри:
//ЗакритьДіалог - прапор того, що після формування звіту треба
закрити діалог
//повертається: НІ
//Викликається з формул елементів діалогу:
//кнопки Сформувати і ОК
//Опис: запускає звіт
Процедура Сформувати (ЗакритьДіалог=0)
Перем Запит, ТекстЗапроса;
Якщо глПроверкаДати (ДатаНачала, ДатаКонца)=0 Тоді
Повернення;
КонецЕсли;
//Тут формується звіт, який використовує регістри, критичні до
//послідовності проведення документів
//тому порівняємо встановлені дати періоду формованого звіту
з ДП
ПроверітьКорректностьДат ();
Якщо (ТіпЗначеніяСтр (Таб) lt; gt; Таблиця ) АБО (Оновити=0) Тоді
Таб=СоздатьОб'ект ( Таблиця );
Інакше
Таб.Очістіть ();
КонецЕсли;
Таб.ІсходнаяТабліца ( ПланірованіеЗакупок );
Розшифровка=СоздатьОб'ект ( СпісокЗначеній );
Расшіфровка.Установіть ( Звіт raquo ;, ПланірованіеЗакупок );
//всі налаштування поміщаємо в список
Расшіфровка.Установіть ( ДатаНачала raquo ;, ДатаНачала);
Расшіфровка.Установіть ( ДатаКонца raquo ;, ДатаКонца);
Расшіфровка.Установіть ( ВибТМЦ raquo ;, ВибТМЦ);
глПриСменеСтрокиТаблицыМФ(1,ТекСтрокаВТаблице,Контекст);//
записуємо зміни якщо вони були
БилЗаданМФ=глМножественнийФільтрЗадан (ТабліцаМФ);
//запам'ятаємо МФ тільки якщо він заданий
Якщо БилЗаданМФ=1 Тоді
Расшіфровка.Установіть ( ТабліцаМФ raquo ;, ТабліцаМФ);
КонецЕсли;
ЧіслоРабочіхДнейВНеделе=7;
//Створення об'єкта типу Запит
Запит=СоздатьОб'ект ( Запит );
заголов= raquo ;;
ЗаголУсловія=Шаблон ( За період з [ДатаНачала] по [ДатаКонца] +
