2.6 Отчет по долгам.

Когда документов будет много, и контрагентов в документах будет тоже много, мы запутаемся, что показывать нам, кому, по какому договору и сколько должен. Для таких целей существуют отчеты. Создадим отчет, имеющий свою отдельную форму.

1. В дереве метаданных, в разделе отчеты, создаем новый отчет;

2. Идентификатор – "Взаиморасчеты";

3. А вот вставлять в интерфейс из визарда не будем. Мы потом сами ручками вставим;

4. Конструкторы никакие вызывать не будем – так напишем (либо скопируем с сей методички);

5. Появилась экранная форма отчета;

6. Добавим поле ввода. Идентификатор – ВыбДата, тип – дата;

7. В модуле формы пишем: Процедура Сформировать()   Запрос=СоздатьОбъект("Запрос"); // Запрос – специальный объект в 1С, служит для получения структурированной // выборки данных   ТЗ="   |Период с ВыбДата по ВыбДата;   |Контр = Регистр.Взаиморасчеты.Контрагент;   |Дог = Регистр.Взаиморасчеты.Договор;   |Сум = Регистр.Взаиморасчеты.Сумма;   |Функция СумКонОст = КонОст(Сум);   |Группировка Контр упорядочить по Контр.Код;   |"; // Это текст запроса. Подробности в "Описании языка" том 2   Если Запрос.Выполнить(ТЗ)=0 Тогда     Сообщить("Запрос не выполнен");     Возврат;   КонецЕсли; // Если запрос будет не выполнен по какой либо причине, метод Выполнить() // вернет 0. Мы сообщим пользователю о произошедшей ошибке, и // командой Возврат – прервем выполнение процедуры   ИтогоМы=0;   ИтогоНам=0; // В этих двух переменных мы будем хранить итоговую информацию по долгу   Таб=СоздатьОбъект("Таблица");   Таб.ИсходнаяТаблица("");   Таб.ВывестиСекцию("Шапка");   Пока Запрос.Группировка("Контр")=1 Цикл // Получаем очередную запись из запроса     ТЭ=Запрос.Контр; // Во временную переменную передаем значение выборки     Долг=Запрос.СумКонОст; // Определяем суммарный долг по текущему значению выборки // Дальше уже все знакомые нам методы     Если ТЭ.ЭтоГруппа()=1 Тогда       НазГр=СокрЛП(ТЭ.Наименование);       Если  Долг=0 Тогда       ИначеЕсли Долг>0 Тогда         Мы=Долг;         Нам=0;       ИначеЕсли Долг<0 Тогда         Мы=0;         Нам=-Долг;       КонецЕсли;       Таб.ВывестиСекцию("Группа");     Иначе       Наз="("+СокрЛП(Строка(ТЭ.Код))+") "+СокрЛП(ТЭ.Наименование);       Если  Долг=0 Тогда         Продолжить;       ИначеЕсли Долг>0 Тогда         Мы=Долг;         Нам=0;         ИтогоМы=ИтогоМы+Мы;       ИначеЕсли Долг<0 Тогда         Мы=0;         Нам=-Долг;         ИтогоНам=ИтогоНам+Нам;       КонецЕсли;       Таб.ВывестиСекцию("Строка");     КонецЕсли;   КонецЦикла;   Таб.ВывестиСекцию("Итого");   Таб.ТолькоПросмотр(1);   Таб.ПараметрыСтраницы(1,100,1);   Таб.Показать(""); КонецПроцедуры

8. Перейдем на закладку таблица, создадим шаблон, такого вида:

9. Закроем форму отчета;

10. Теперь будем включать наш отчет в меню. В окне метаданных перейдем на закладку "Интерфейсы";

11. Меню Действия, команда "Редактировать". Редактировать меню;

12. Входим в редактирование строки "новая колонка...";

13. Название пишем "Отчеты";

14. [ОК];

15. Открываем появившийся раздел меню "Отчеты";

16. Открываем подраздел меню "новый...";

17. Выбираем объект – Отчеты.Взаиморасчеты;

18. Поля Название, Подсказка заполнились автоматически. Их можно поменять;

19. [ОК];

20. Меню Действия команда "Тест" вызовет окошко, где будет показано, как будет выглядеть наше меню;

21. Закрываем тестовое окно;

22. Закрываем окно редактирования меню;

23. Возвращаемся к дереву метаданных;

24. Сохраняем конфигурацию;