Долги клиента Иванов И.И. на 01.11.2002 15:40

Процедура Сформировать()

Если ВыбКлиент.Выбран()=0 Тогда

Предупреждение("Не указан КЛИЕНТ");
Возврат;

КонецЕсли;

НачДата = Дата("01.01.1980");
КонДата = ПолучитьДатуТА();

ТекстЗапроса = "
|Период С НачДата По КонДата;
|Клиент = Регистр.Долги.Клиент;
|ТипДолга = Регистр.Долги.ТипДолга;
|Товар = Регистр.Долги.Товар;
|Долг = Регистр.Долги.Сумма;
|Группировка ТипДолга;
|Группировка Товар;
|Функция СуммаДолга = КонОст(Долг);
|Условие (Клиент = ВыбКлиент);";

Запрос = СоздатьОбъект("Запрос");
Запрос.Выполнить(ТекстЗапроса);

Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ДолгиКлиента");

Таб.ВывестиСекцию("Шапка");

Пока Запрос.Группировка(1) = 1 Цикл

Пока Запрос.Группировка(2) = 1 Цикл

ТипДолга = Запрос.ТипДолга;
Товар = Запрос.Товар;
Сумма = Запрос.СуммаДолга;

Таб.ВывестиСекцию("Строка");

КонецЦикла;

КонецЦикла;

Таб.ВывестиСекцию("Подвал");

Таб.Опции(0);
Таб.Показать();

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

//в модуле формы
Процедура КнопкаСформироватьОтчетНажатие()

Если ВыбКлиент.Пустая() Тогда

Предупреждение("Не указан КЛИЕНТ");
Возврат;

КонецЕсли;

//можно создать новый табличный документ или использовать табличный документ,
//помещенный прямо на экранную форму.
ТД = Новый ТабличныйДокумент;
Сформировать(ТД);
ТД.Показать();

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

//в модуле отчета
//ключевое слово Экспорт говорит о том, что эта процедура будет включена в контекст отчета
Процедура Сформировать(ТД=0) Экспорт

//это позволит формировать отчет из любого модуля конфигурации
флПоказатьОтчет = Ложь;
Если ТД=0 Тогда

флПоказатьОтчет = Истина;
ТД = Новый ТабличныйДокумент;

КонецЕсли;

З = Новый Запрос;

//прежде чем использовать в запросе переменные модуля,
//их нужно передать в запрос следующим образом
З.УстановитьПараметр("ВыбКлиент",ВыбКлиент);

//формируем текст запроса, обратите внимание на знак &, это ссылка на параметр запроса
З.Текст = "
|Выбрать * Из РегистрНакопления.Долги
|где Клиент = &ВыбКлиент";

//или тот же самый запрос по-английски
//З.Текст = "SELECT * FROM РегистрНакопления.Долги WHERE Клиент = &ВыбКлиент";

РезультатЗапроса = З.Выполнить();
тзДолги = РезультатЗапроса.Выгрузить(); //результ запроса выгружаем в таблицу значений

//конечно, можно обойтись без дополнительной переменной, написав следующее
// тзДолги = З.Выполнить().Выгрузить();

//термин "Макет" в версии 8.0 примерно соответствует термину "Таблица" в версии 7.7,
//причем именно та таблица, с которой работает программист. Пользователь ее не видит.
Макет = ПолучитьМакет("ДолгиКлиента");

ТД.Очистить();

//термин Область в версии 8.0 примерно соответствует термину "Секция" в версии 7.7
//но области могут охватывать произвольное количество ячеек
//области могут быть и не прямоугольными
Обл = Макет.ПолучитьОбласть("Шапка");

//выводим сведения в ячейки области
Обл.Параметры.ДатаВремяОтчета = ТекущаяДата(); //в версии 8.0 тип Дата включает время
Обл.Параметры.Клиент = ВыбКлиент;

//выводим сформированную область в табличный документ
ТД.Вывести(Обл);

Для Каждого стр Из тзДолги Цикл

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

Обл.Параметры.ТипДолга = стр.ТипДолга;
Обл.Параметры.Предмет = стр.Предмет;
Обл.Параметры.Сумма = стр.Сумма;

ТД.Вывести(Обл);

КонецЦикла;

ТД.ТолькоПросмотр = Истина;
ТД.ОтображениеСетки = Ложь;
ТД.ОтображениеЗаголовков = Ложь;
ТД.Вывести(Макет.ПолучитьОбласть("Подвал"));

Если флПоказатьОтчет Тогда

ТД.Показать();

КонецЕсли;

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

Процедура КнопкаДолгиНажатие()

Отч = Отчеты.ДолгиКлиента.Создать(); //создаем экземпляр отчета
Отч.ВыбКлиент = Ссылка; //передаем текущего клиента
Отч.Сформировать();

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