Нужна небольшая помощь с отчетом

[Sheriff]

Всем привет! Был отчет с отбором по группам в детском саду, а добавил туда отбор по ребенку, т.е выбираешь группу и ребенка и формируется отчет. Но, когда поле ребенок оставить пустым, чтоб заполнилось по всем детям, ничего не происходит.

Код Выделить Развернуть

Функция РасчетЯвок(ДеньЯвок,ВидОплатыДС, Группа, Ребенок)

Запрос=новый Запрос;
Запрос.Текст="ВЫБРАТЬ
             | дс_ТабельУчетаПосещаемости.ВидПосещаемости КАК ВидПосещаемости,
             | ДЕНЬ(дс_ТабельУчетаПосещаемости.Период) КАК Период,
             | СУММА(1) КАК Явок
             |ИЗ
             | РегистрСведений.дс_ТабельУчетаПосещаемости КАК дс_ТабельУчетаПосещаемости
             |ГДЕ
             | дс_ТабельУчетаПосещаемости.ВидПосещаемости = &ВидПосещаемости
             | И дс_ТабельУчетаПосещаемости.Период МЕЖДУ &Дата1 И &Дата2
             | И дс_ТабельУчетаПосещаемости.Ребенок.ВидОплатыДС = &ВидОплатыДС
             | И дс_ТабельУчетаПосещаемости.Группа = &Группа
             | И ДЕНЬ(дс_ТабельУчетаПосещаемости.Период) = &ДеньПериод
             | И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок
             |
             |СГРУППИРОВАТЬ ПО
             | дс_ТабельУчетаПосещаемости.ВидПосещаемости,
             | ДЕНЬ(дс_ТабельУчетаПосещаемости.Период)
             |
             |УПОРЯДОЧИТЬ ПО
             | Период,
             | ВидПосещаемости";
запрос.УстановитьПараметр("ВидОплатыДС",перечисления.ВидОплатыДС.РебенокНаБюджетнойОплате);
запрос.УстановитьПараметр("ВидПосещаемости",перечисления.дс_ВидыПосещаемости.Явка);
запрос.УстановитьПараметр("Группа",Группа);
запрос.УстановитьПараметр("Ребенок",Ребенок);

запрос.УстановитьПараметр("Дата1",Дата1);
запрос.УстановитьПараметр("Дата2",Дата2);

запрос.УстановитьПараметр("ДеньПериод",ДеньЯвок);
Результат = Запрос.Выполнить().Выбрать();
Если Результат.Следующий() Тогда
Возврат Результат.явок;
КонецЕсли;

  Возврат 0;
КонецФункции // РасчетЯвок()


Процедура ДействияФормыОтчетСформировать(Кнопка)
ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;
Отчет(ТабДок, Группа, Ребенок, Дата1, Дата2);
КонецПроцедуры

Процедура Отчет(ТабДок, Группа, Ребенок, Дата1, Дата2) Экспорт
Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет");
Запрос = Новый Запрос;
Текст1 =
"ВЫБРАТЬ
| дс_ТабельУчетаПосещаемости.Ребенок,
| ПРЕДСТАВЛЕНИЕ(дс_ТабельУчетаПосещаемости.Ребенок)
|ИЗ
| РегистрСведений.дс_ТабельУчетаПосещаемости КАК дс_ТабельУчетаПосещаемости
|ГДЕ
| дс_ТабельУчетаПосещаемости.Период МЕЖДУ &Дата1 И &Дата2
| И дс_ТабельУчетаПосещаемости.Группа = &Группа
| И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок";
Текст2="
| И дс_ТабельУчетаПосещаемости.Ребенок.ВидОплатыДС = &ВидОплатыДС";
Текст4="
| И дс_ТабельУчетаПосещаемости.Ребенок.ВидОплатыДС <> &ВидОплатыБюджет";
Текст3="
|
|СГРУППИРОВАТЬ ПО
| дс_ТабельУчетаПосещаемости.Ребенок";


ВермяДня = 60*60*24;

КолДней1 = окр(((Дата2-Дата1)/ВермяДня),0,1);

//-- создаем таблицу дней


ТабДней = Новый ТаблицаЗначений;
ТабДней.Колонки.Добавить("Число");
ТабДней.Колонки.Добавить("МесяцДеньСтрока");
Счет =КолДней1;   
Пока Счет>0 Цикл
НовСтТаб= ТабДней.Добавить();
НовСтТаб.Число = Дата1+(60*60*24)*(КолДней1-Счет);
НовСтТаб.МесяцДеньСтрока = сокрлп(строка(День(НовСтТаб.Число)))+" / "+сокрлп(строка(Месяц(НовСтТаб.Число)));
Счет=Счет-1;
КонецЦикла; 


Если Не ВидОплатыДС.Пустая() Тогда

//-- для бюджетников свой макет и печать

Запрос.Текст = Текст1+Текст2+Текст3;


Запрос.УстановитьПараметр("ВидОплатыДС", ВидОплатыДС);
Запрос.УстановитьПараметр("Группа", Группа);
Запрос.УстановитьПараметр("Ребенок", Ребенок);
Запрос.УстановитьПараметр("Дата1", Дата1);
Запрос.УстановитьПараметр("Дата2", Дата2);

Результат = Запрос.Выполнить();
Макет = ВнешнийОтчетОбъект.ПолучитьМакет("Отчет1");

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок|ЗаголовокСтолбец");
ОбластьЗаголовокДни = Макет.ПолучитьОбласть("Заголовок|СтолбецСтрока");
ОбластьЗаголовокИтоги = Макет.ПолучитьОбласть("Заголовок|ИтогоСтолбец");

ОбластьШапкаТаб = Макет.ПолучитьОбласть("ШапкаТаблицы|ЗаголовокСтолбец");
ОбластьШапкаДни = Макет.ПолучитьОбласть("ШапкаТаблицы|СтолбецСтрока");
ОбластьШапкаИтоги = Макет.ПолучитьОбласть("ШапкаТаблицы|ИтогоСтолбец");

    ОбластьДетальныхЗаписейЗаголовок = Макет.ПолучитьОбласть("Детали|ЗаголовокСтолбец");
ОбластьДетальныхЗаписейСтолбец = Макет.ПолучитьОбласть("Детали|СтолбецСтрока");
ОбластьДетальныхЗаписейИтог =   Макет.ПолучитьОбласть("Детали|ИтогоСтолбец");

ОбластьИтогТаблиц = Макет.ПолучитьОбласть("ПодвалТаблицы|ЗаголовокСтолбец");
ОбластьКолонкаИтогаТаблиц = Макет.ПолучитьОбласть("ПодвалТаблицы|СтолбецСтрока");
ОбластьИтогаТаблицКонец = Макет.ПолучитьОбласть("ПодвалТаблицы|ИтогоСтолбец");

ОбластьПодвал =  Макет.ПолучитьОбласть("Подвал");






//ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
//ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
//ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
//ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

ТабДок.Очистить();

ОбластьЗаголовок.Параметры.группа = Группа;
ОбластьЗаголовок.Параметры.ребенок = Ребенок;
ОбластьЗаголовок.Параметры.период = Формат(Дата1, "ДФ=""ММММ гггг 'г.'""");

    ТабДок.Вывести(ОбластьЗаголовок);



 
 



КолДней=КолДней1;
Пока КолДней>0 Цикл

//ОбластьЗаголовокДни.Параметры.день = сокрлп(строка(КолДней));
ТабДок.Присоединить(ОбластьЗаголовокДни);
КолДней =КолДней-1;
КонецЦикла;

ТабДок.Присоединить(ОбластьЗаголовокИтоги);

КолДней = КолДней1;
КолДней2 = КолДней1+1;

ТабДок.Вывести(ОбластьШапкаТаб);
ИтогиПоДнямЯвок = Новый Массив;


Для каждого стрТаб из ТабДней Цикл 


ОбластьШапкаДни.Параметры.день =стрТаб.МесяцДеньСтрока ;
ТабДок.Присоединить(ОбластьШапкаДни);
КолДней = КолДней-1;
КонецЦикла;

ТабДок.Присоединить(ОбластьШапкаИтоги);

//--- основной запрос
   ТабДок.НачатьАвтогруппировкуСтрок();
  ВыборкаДетали = Результат.Выбрать();

 
 
 
 
Пока ВыборкаДетали.Следующий() Цикл
   ОбластьДетальныхЗаписейЗаголовок.Параметры.Заполнить(ВыборкаДетали);
    ТабДок.Вывести(ОбластьДетальныхЗаписейЗаголовок);
ВП = " ";
Всего = 0;
Прочее = 0;
ПоБолезни = 0;
Отпуск = 0;



Для каждого стрТаб из ТабДней Цикл 


Запрос2 = Новый Запрос;
Запрос2.Текст =
"ВЫБРАТЬ
| дс_ТабельУчетаПосещаемости.Период КАК Период,
| дс_ТабельУчетаПосещаемости.ВидПосещаемости,
| дс_ТабельУчетаПосещаемости.ДниПосещения КАК ДниПосещения
|ИЗ
| РегистрСведений.дс_ТабельУчетаПосещаемости КАК дс_ТабельУчетаПосещаемости
|ГДЕ
| дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок
| И дс_ТабельУчетаПосещаемости.Группа = &Группа
| И дс_ТабельУчетаПосещаемости.Период = &Период";


Запрос2.УстановитьПараметр("Группа", Группа);
Запрос2.УстановитьПараметр("Период", стрТаб.Число);
Запрос2.УстановитьПараметр("Ребенок", ВыборкаДетали.Ребенок);
Результат2 = Запрос2.Выполнить().Выбрать();

Если  Результат2.Следующий() Тогда
Если Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Явка Тогда

ВП = "+";
Всего = Всего + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Прочее Тогда
ВП = "-";
Прочее = Прочее + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.ПоБолезни Тогда
ВП = "Б";
ПоБолезни = ПоБолезни + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Отпуск Тогда
ВП = "О";
Отпуск = Отпуск + 1;
КонецЕсли;

            ОбластьДетальныхЗаписейСтолбец.Параметры.вп2 = ВП ;

Иначе
ОбластьДетальныхЗаписейСтолбец.Параметры.вп2 = " " ;
КонецЕсли;


ТабДок.Присоединить(ОбластьДетальныхЗаписейСтолбец);

КонецЦикла;
   
    ///---- расчет итогов и вывод шапки итого

ОбластьДетальныхЗаписейИтог.Параметры.Всего = Всего;
ОбластьДетальныхЗаписейИтог.Параметры.Прочее = Прочее;
ОбластьДетальныхЗаписейИтог.Параметры.ПоБолезни = ПоБолезни;
ОбластьДетальныхЗаписейИтог.Параметры.Отпуск = Отпуск;
    ТабДок.Присоединить(ОбластьДетальныхЗаписейИтог);




КонецЦикла;

///--- выввести подвал таблицы

ТабДок.Вывести(ОбластьИтогТаблиц);

КолДней = окр(((Дата2-Дата1)/ВермяДня),0,1);
ВсегоДнейНачало =КолДней;

Пока КолДней>0 Цикл

ОбластьКолонкаИтогаТаблиц.Параметры.ИтДень = РасчетЯвок((ВсегоДнейНачало-КолДней+1),ВидОплатыДС,Группа,Ребенок);

ТабДок.Присоединить(ОбластьКолонкаИтогаТаблиц);
КолДней = КолДней-1;
КонецЦикла;

ТабДок.Присоединить(ОбластьИтогаТаблицКонец);

//--
   ТабДок.Вывести(ОбластьПодвал);



    //  ТабДок.Вывести(ОбластьПодвал);
Иначе

Если  ИсключитьБюджетников  Тогда

Запрос.Текст = Текст1+Текст4+Текст3;
Иначе
Запрос.Текст = Текст1+Текст3;
    КонецЕсли;

Запрос.УстановитьПараметр("ВидОплатыБюджет", перечисления.ВидОплатыДС.РебенокНаБюджетнойОплате);


Запрос.УстановитьПараметр("Группа", Группа);
Запрос.УстановитьПараметр("Ребенок", Ребенок);
Запрос.УстановитьПараметр("Дата1", Дата1);
Запрос.УстановитьПараметр("Дата2", Дата2);

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

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");







ТабДок.Очистить();
ОбластьЗаголовок.Параметры.группа = Группа;
ОбластьЗаголовок.Параметры.ребенок = Ребенок;
ОбластьЗаголовок.Параметры.период = Формат(Дата1, "ДФ=""ММММ гггг 'г.'""");
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаДетали = Результат.Выбрать();

Пока ВыборкаДетали.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);

Запрос2 = Новый Запрос;
Текст1 =
"ВЫБРАТЬ
| ДЕНЬ(дс_ТабельУчетаПосещаемости.Период) КАК Период,
| дс_ТабельУчетаПосещаемости.ВидПосещаемости,
| дс_ТабельУчетаПосещаемости.ДниПосещения КАК ДниПосещения
|ИЗ
| РегистрСведений.дс_ТабельУчетаПосещаемости КАК дс_ТабельУчетаПосещаемости
|ГДЕ
| дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок
| И дс_ТабельУчетаПосещаемости.Группа = &Группа
| И дс_ТабельУчетаПосещаемости.Период МЕЖДУ &дата1 И &дата2";
Текст2="
| И дс_ТабельУчетаПосещаемости.Ребенок.ВидОплатыДС <> &ВидОплатыБюджет";

Если  ИсключитьБюджетников  Тогда

Запрос2.Текст = Текст1+Текст2;
Иначе
Запрос2.Текст = Текст1;
    КонецЕсли;



Запрос2.УстановитьПараметр("Группа", Группа);
Запрос2.УстановитьПараметр("Дата1", Дата1);
Запрос2.УстановитьПараметр("Дата2", Дата2);
Запрос2.УстановитьПараметр("Ребенок", ВыборкаДетали.Ребенок);
Запрос2.УстановитьПараметр("ВидОплатыБюджет", перечисления.ВидОплатыДС.РебенокНаБюджетнойОплате);


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

ВП = "";
Всего = 0;
Прочее = 0;
ПоБолезни = 0;
Отпуск = 0;

Пока Результат2.Следующий() Цикл
Если Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Явка Тогда
ВП = "+";
Всего = Всего + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Прочее Тогда
ВП = "-";
Прочее = Прочее + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.ПоБолезни Тогда
ВП = "Б";
ПоБолезни = ПоБолезни + 1;
ИначеЕсли Результат2.ВидПосещаемости = Перечисления.дс_ВидыПосещаемости.Отпуск Тогда
ВП = "О";
Отпуск = Отпуск + 1;
КонецЕсли;

Выполнить("ОбластьДетальныхЗаписей.Параметры.вп"+Строка(Результат2.Период)+" = ВП;");
ОбластьДетальныхЗаписей.Параметры.Всего = Всего;
ОбластьДетальныхЗаписей.Параметры.Прочее = Прочее;
ОбластьДетальныхЗаписей.Параметры.ПоБолезни = ПоБолезни;
ОбластьДетальныхЗаписей.Параметры.Отпуск = Отпуск;
КонецЦикла;

ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());

// Расчет количество дней в периоде

ДнейВПериоде =  (Дата2-Дата1)/(60*60*24);


А = 1;
ВП = "";
Пока А <= ДнейВПериоде Цикл
Выполнить("ОбластьДетальныхЗаписей.Параметры.вп"+Строка(А)+" = ВП;");
А = А + 1;
КонецЦикла;
КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();



  Запрос3 = Новый Запрос;
  Запрос3.Текст = "ВЫБРАТЬ
                  | ДЕНЬ(дс_ТабельУчетаПосещаемости.Период) КАК Период,
                  | СУММА(дс_ТабельУчетаПосещаемости.ДниПосещения) КАК ДниПосещения
                  |ИЗ
                  | РегистрСведений.дс_ТабельУчетаПосещаемости КАК дс_ТабельУчетаПосещаемости
                  |ГДЕ
                  | дс_ТабельУчетаПосещаемости.Группа = &Группа
                  | И дс_ТабельУчетаПосещаемости.Период МЕЖДУ &дата1 И &дата2
                  | И дс_ТабельУчетаПосещаемости.ВидПосещаемости = &ВидПосещаемости
                  | И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок
                  |
                  |СГРУППИРОВАТЬ ПО
                  | ДЕНЬ(дс_ТабельУчетаПосещаемости.Период)";
 
Запрос3.УстановитьПараметр("Группа", Группа);
Запрос3.УстановитьПараметр("Ребенок", Ребенок);
Запрос3.УстановитьПараметр("Дата1", Дата1);
Запрос3.УстановитьПараметр("Дата2", Дата2);
        Запрос3.УстановитьПараметр("ВидПосещаемости", Перечисления.дс_ВидыПосещаемости.Явка);



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

      ОбщИтог = 0;
 
  Для каждого стрТаб из ТабДней Цикл 
парДня = стрТаб.Число;
НайденнаяСтрока = ТзРезультат.Найти(День(стрТаб.Число), "Период");
Если Не  НайденнаяСтрока = Неопределено Тогда
    ВПИТОГ = НайденнаяСтрока.ДниПосещения;
ОбщИтог = ОбщИтог+ВПИТОГ;

Выполнить("ОбластьПодвалТаблицы.Параметры.вп"+Строка(День(стрТаб.Число))+" = ВПИТОГ;");
КонецЕсли;
   КонецЦикла;
  ОбластьПодвалТаблицы.Параметры.Всего = ОбщИтог;
     ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);
КонецЕсли;


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

Процедура ВыбПериодНажатие(Элемент)
НастройкаПериода = Новый НастройкаПериода;
НастройкаПериода.УстановитьПериод(Дата1, ?(Дата2='0001-01-01', Дата2, КонецДня(Дата2)));
НастройкаПериода.РедактироватьКакИнтервал = Истина;
НастройкаПериода.РедактироватьКакПериод = Истина;
НастройкаПериода.ВариантНастройки = ВариантНастройкиПериода.Период;
Если НастройкаПериода.Редактировать() Тогда
Дата1 = НастройкаПериода.ПолучитьДатуНачала();
Дата1 = НачалоМесяца(Дата1);
Дата2 = НастройкаПериода.ПолучитьДатуОкончания();
Дата2 = КонецМесяца(Дата2);
КонецЕсли;
КонецПроцедуры

Процедура ПриОткрытии()
Дата1 = НачалоМесяца(ТекущаяДата());
Дата2 = КонецМесяца(ТекущаяДата());
КонецПроцедуры


[Norfolk]

Добавьте конструкцию типа: если Ребенок <> ПустаяСсылка, тогда добавить текст запроса с условием по ребенку. Примерно так:

Код Выделить Развернуть

Если Ребенок <> Справочники."ваш справочник".ПустаяСсылка() Тогда
ТекстЗапроса = ТекстЗапроса + "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок"


[Sheriff]

Добавьте конструкцию типа: если Ребенок <> ПустаяСсылка, тогда добавить текст запроса с условием по ребенку. Примерно так:

Код Выделить Развернуть

Если Ребенок <> Справочники."ваш справочник".ПустаяСсылка() Тогда
ТекстЗапроса = ТекстЗапроса + "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок"


А конкретно куда эти строки вставить?

[Norfolk]

Добавьте конструкцию типа: если Ребенок <> ПустаяСсылка, тогда добавить текст запроса с условием по ребенку. Примерно так:

Код Выделить Развернуть

Если Ребенок <> Справочники."ваш справочник".ПустаяСсылка() Тогда
ТекстЗапроса = ТекстЗапроса + "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок"


А конкретно куда эти строки вставить?

Ну вот вы формируете текст запроса: у вас стоит условие по ребенку. Но это условие должно быть в тексте запроса только в том случае, если заполнено необходимое поле. Соответственно во все запросы, куда вы добавили условие =&Ребенок, вам нужно его убрать и запихать туда переменную. Далее, до выполнения запроса и установки параметров вы проверяете заполнение поля, если оно заполнено, то меняете введенную переменную на текст который вам нужен, с условием.

[AIFrame]

А зачем такие сложности?
С построителем бы проще все было.

Добавлено: 15 фев 2018, 07:39

Код Выделить Развернуть

Если Ребенок <> Справочники."ваш справочник".ПустаяСсылка() Тогда
ТекстЗапроса = ТекстЗапроса + "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок"
Проще
ТекстЗапроса = ТекстЗапроса + ?(ЗначениеЗаполнено(Ребенок), "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок", "");
Еще проще
ТекстЗапроса = ТекстЗапроса + "И ВЫБОР КОГДА &Ребенок <> НЕОПРЕДЕЛЕНО ТОГДА дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок ИНАЧЕ ИСТИНА КОНЕЦ";

[Sheriff]

А зачем такие сложности?
С построителем бы проще все было.

Добавлено: 15 фев 2018, 07:39

Код Выделить Развернуть

Если Ребенок <> Справочники."ваш справочник".ПустаяСсылка() Тогда
ТекстЗапроса = ТекстЗапроса + "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок"
Проще
ТекстЗапроса = ТекстЗапроса + ?(ЗначениеЗаполнено(Ребенок), "И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок", "");
Еще проще
ТекстЗапроса = ТекстЗапроса + "И ВЫБОР КОГДА &Ребенок <> НЕОПРЕДЕЛЕНО ТОГДА дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок ИНАЧЕ ИСТИНА КОНЕЦ";

Сделал вот так:

Код Выделить Развернуть

Если ЗначениеЗаполнено(Ребенок) Тогда
Текст1 = Текст1 + "
| И дс_ТабельУчетаПосещаемости.Ребенок = &Ребенок";
КонецЕсли;

И всё получилось!
Всем спасибо!