94
ПРИЛОЖЕНИЕ 1
Листинги программного кода
Процедура ОтчетПоПлатежам(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ОтчетПоПлатежам)
Макет =
Документы.ПриемПлатежей.ПолучитьМакет("ОтчетПоПлатежам");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПриемПлатежей.Дата,
| ПриемПлатежей.Клиент,
| ПриемПлатежей.Назначение,
| ПриемПлатежей.Номер,
| ПриемПлатежей.Сотрудник,
| ПриемПлатежей.ТабличнаяЧасть1.(
| НомерСтроки,
| Товар,
| Количество,
| Сумма
| )
|ИЗ
| Документ.ПриемПлатежей КАК ПриемПлатежей
|ГДЕ
| ПриемПлатежей.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
95
ОбластьТабличнаяЧасть1Шапка =
Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
ОбластьТабличнаяЧасть1 = Макет.ПолучитьОбласть("ТабличнаяЧасть1");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть
1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
96
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(ОтчетПоПлатежам)
ТабДок = Новый ТабличныйДокумент;
ОтчетПоПлатежам(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура ОтчетПоПлатежам(ТабДок, ПараметрКоманды)
Документы.ПриемПлатежей.ОтчетПоПлатежам(ТабДок,
ПараметрКоманды);
КонецПроцедуры
Процедура ОтчетПоУчетуПродаж(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(ОтчетПоУчетуПродаж)
Макет =
Документы.УчетПродаж.ПолучитьМакет("ОтчетПоУчетуПродаж");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
97
| УчетПродаж.Дата,
| УчетПродаж.Клиент,
| УчетПродаж.Номер,
| УчетПродаж.ТабличнаяЧасть1.(
| НомерСтроки,
| Товар,
| Количество,
| Оплата
| )
|ИЗ
| Документ.УчетПродаж КАК УчетПродаж
|ГДЕ
| УчетПродаж.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТабличнаяЧасть1Шапка =
Макет.ПолучитьОбласть("ТабличнаяЧасть1Шапка");
ОбластьТабличнаяЧасть1 = Макет.ПолучитьОбласть("ТабличнаяЧасть1");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
98
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТабличнаяЧасть1Шапка);
ВыборкаТабличнаяЧасть1 = Выборка.ТабличнаяЧасть1.Выбрать();
Пока ВыборкаТабличнаяЧасть1.Следующий() Цикл
ОбластьТабличнаяЧасть1.Параметры.Заполнить(ВыборкаТабличнаяЧасть
1);
ТабДок.Вывести(ОбластьТабличнаяЧасть1,
ВыборкаТабличнаяЧасть1.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(ОтчетПоУчетуПродаж)
ТабДок = Новый ТабличныйДокумент;
ОтчетПоУчетуПродаж(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
99
&НаСервере
Процедура ОтчетПоУчетуПродаж(ТабДок, ПараметрКоманды)
Документы.УчетПродаж.ОтчетПоУчетуПродаж(ТабДок,
ПараметрКоманды);
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную
изменения будут утеряны!!!
// регистр Учет Приход
Движения.Учет.Записывать = Истина;
Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1 Цикл
Движение = Движения.Учет.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Товар = ТекСтрокаТабличнаяЧасть1.Товар;
Движение.Количество = ТекСтрокаТабличнаяЧасть1.Количество;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
