Подскажите от чего плясать?Что делаю не так?
Заранее большое СПАСИБО!
Вот код:
//*******************************************
// Процедура генерации запроса Сформировать.
Процедура ПриОткрытии()
Дата1 = Рабочаядата();
Дата2 = Рабочаядата();
Дата11=ДобавитьМесяц(Дата1,-1);
Дата21=ДобавитьМесяц(Дата2,-1);
КонецПроцедуры
Процедура УстановкаДатыПМ()
Дата11=ДобавитьМесяц(Дата1,-1);
Дата21=ДобавитьМесяц(Дата2,-1);
КонецПроцедуры
Процедура СформироватьИтоги()
Заг = +"Подведение итогов за период с " + Дата1+" по " +Дата2;
ТЗ=СоздатьОбъект("ТаблицаЗначений");
ТЗ.НоваяКолонка("Менеджер",2,100,0);
ТЗ.НоваяКолонка("Сумма",1,10,2);
ТЗ.НоваяКолонка("СуммаНДС",1,10,2);
ТЗ.НоваяКолонка("КолвоТТ",1,6,0);
ТЗ.НоваяКолонка("СуммаПМ",1,10,2);
ТЗ.НоваяКолонка("СуммаНДСПМ",1,10,2);
ТЗ.НоваяКолонка("КолвоТТПМ",1,6,0);
ИтогоСумма=0;
ИтогоСуммаНДС=0;
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица( "ИтогиРаботы" );
Запрос = СоздатьОбъект("Запрос");
ЗапросПМ = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС
|Период с Дата1 по Дата2;
|Менеджер=Документ.РасходнаяНакладная.Контрагент.ТорговыйАгент,Документ.При
ходнаяНакладная.Контрагент.ТорговыйАгент;
|Клиент =Документ.РасходнаяНакладная.Контрагент,Документ.ПриходнаяНакладная.Контрагент.Т
орговыйАгент;
|Договор =Документ.РасходнаяНакладная.Договор,Документ.ПриходнаяНакладная.Договор;
|СуммаДок = Документ.РасходнаяНакладная.СуммаБезНДС;
|СуммаНДС = Документ.РасходнаяНакладная.СуммаСНДС;
|Функция СуммаВсего = Сумма(СуммаДок);
|Функция СуммаСНДСВсего = Сумма(СуммаНДС);
|Группировка Менеджер;
|Группировка Клиент;
|Группировка Договор;";
Если ПустоеЗначение(ВыбМенеджер)=0 Тогда
ТекстЗапроса=ТекстЗапроса+"Условие (Менеджер в ВыбМенеджер);";
КонецЕсли;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
//
ТЗ.УдалитьСтроки();
Пока Запрос.Группировка("Менеджер") = 1 Цикл
//Сообщить(Запрос.Менеджер.ПринадлежитГруппе(ВыбМенеджер));
Если Запрос.Менеджер.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Менеджер=Запрос.Менеджер;
КолвоТТ=0;
Пока Запрос.Группировка("Клиент") = 1 Цикл
Пока Запрос.Группировка("Договор") = 1 Цикл
КолвоТТ=КолвоТТ+1;
КонецЦикла;
КонецЦикла;
ТЗ.НоваяСтрока();
ТЗ.Менеджер=Менеджер;
ТЗ.Сумма=Запрос.СуммаВсего;
ТЗ.СуммаНДС=Запрос.СуммаНДСВсего;
ТЗ.КолвоТТ=КолвоТТ;
ТЗ.СуммаПМ=0;
ТЗ.СуммаНДСПМ=0;
ТЗ.КолвоТТПМ=0;
КонецЦикла;
// запрос по предыдущему периоду
ТекстЗапросаПМ =
"//{{ЗАПРОС
|Период с Дата11 по Дата21;
|Менеджер=Документ.РасходнаяНакладная.Контрагент.ТорговыйАгент,Документ.При
ходнаяНакладная.Контрагент.ТорговыйАгент;
|Клиент =Документ.РасходнаяНакладная.Контрагент,Документ.ПриходнаяНакладная.Контрагент;
|Договор =Документ.РасходнаяНакладная.Договор,Документ.ПриходнаяНакладная.Договор;
|СуммаДок = Документ.РасходнаяНакладная.СуммаБезНДС;
|СуммаНДС = Документ.РасходнаяНакладная.СуммаСНДС;
|Функция СуммаВсего = Сумма(СуммаДок);
|Функция СуммаНДСВсего = Сумма(СуммаНДС);
|Группировка Менеджер;
|Группировка Клиент;
|Группировка Договор;";
Если ПустоеЗначение(ВыбМенеджер)=0 Тогда
ТекстЗапросаПМ=ТекстЗапросаПМ+"Условие (Менеджер в ВыбМенеджер);";
КонецЕсли;
// Если ошибка в запросе, то выход из процедуры
Если ЗапросПМ.Выполнить(ТекстЗапросаПМ) = 0 Тогда
Возврат;
КонецЕсли;
Пока ЗапросПМ.Группировка("Менеджер") = 1 Цикл
//Сообщить(Запрос.Менеджер.ПринадлежитГруппе(ВыбМенеджер));
Если ЗапросПМ.Менеджер.ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;
Менеджер=ЗапросПМ.Менеджер;
КолвоТТПМ=0;
Пока ЗапросПМ.Группировка("Клиент") = 1 Цикл
Пока ЗапросПМ.Группировка("Договор") = 1 Цикл
КолвоТТПМ=КолвоТТПМ+1;
КонецЦикла;
КонецЦикла;
ТЗ.НоваяСтрока();
ТЗ.Менеджер=Менеджер;
ТЗ.СуммаПМ=ЗапросПМ.СуммаВсего;
ТЗ.СуммаНДСПМ=ЗапросПМ.СуммаНДСВсего;
ТЗ.КолвоТТПМ=КолвоТТПМ;
ТЗ.Сумма=0;
ТЗ.СуммаНДС=0;
ТЗ.КолвоТТ=0;
КонецЦикла;
ИтогоСумма=0;
ИтогоСуммаНДС=0;
ИтогоКолвоТТ=0;
ИтогоСуммаПМ=0;
ИтогоСуммаНДСПМ=0;
ИтогоКолвоТТПМ=0;
Таб.ВывестиСекцию("Шапка");
ТЗ.Свернуть("Менеджер","Сумма,СуммаНДС,КолвоТТ,СуммаПМ,СуммаНДСПМ,КолвоТТПМ");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
ИтогоСумма=ИтогоСумма+ТЗ.Сумма;
ИтогоСуммаНДС=ИтогоСуммаНДС+ТЗ.СуммаНДС;
ИтогоКолвоТТ=ИтогоКолвоТТ+ТЗ.КолвоТТ;
ИтогоСуммаПМ=ИтогоСуммаПМ+ТЗ.СуммаПМ;
ИтогоСуммаНДСПМ=ИтогоСуммаНДСПМ+ТЗ.СуммаНДСПМ;
ИтогоКолвоТТПМ=ИтогоКолвоТТПМ+ТЗ.КолвоТТПМ;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Итого");
Таб.Опции(0, 0, 0, 0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать", "");
КонецПроцедуры
