1 Диалог программы
В конфигураторе системы 1С: Предприятие создаем внешний вид (интерфейс пользователя) отчета. Добавляем поле для возможности выбора документа (ПСА).
Тип: Документ.ПриемоСдаточныйАкт. Идентификатор: ВыбДок.
Добавляем кнопку с идентификатором: Х, для аннулирования выбранного документа, формула: ВыбДок=0.
Кнопка ОК обозначает: сформировать отчет.
Кнопка Закрыть обозначает: выйти из отчета.
2 Модуль программы
Переходим на вкладку модуль и пишем код программы.
//*******************************************
//Объявление переменных чтобы сформировать запрос
Перем Запрос, ТекстЗапроса, Таб;
////______________________
// Процедура генерации запроса Сформировать.
Процедура Сформировать()
//Баннер название выходной таблицы
Баннер="Приёмо-сдаточный акт №";
//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
// описание реквизитов из документа Приемо Сдаточный Акт
|НомерДок = Документ.ПриемоСдаточныйАкт.НомерДок;
|Стандарт = Документ.ПриемоСдаточныйАкт.Марка.Стандарт;
|Грузополучатель = Документ.ПриемоСдаточныйАкт.Грузополучатель;
|КодПредприятия = Документ.ПриемоСдаточныйАкт.Грузополучатель.КодПредприятия;
|ЮридическийАдрес = Документ.ПриемоСдаточныйАкт.Грузополучатель.ЮридическийАдрес;
|Клиент = Документ.ПриемоСдаточныйАкт.Клиент;
|Марка = Документ.ПриемоСдаточныйАкт.Марка;
|КодЗКМ = Документ.ПриемоСдаточныйАкт.Марка.КодЗКМ;
|Отгружен = Документ.ПриемоСдаточныйАкт.Отгружен;
|ДоверенноеЛицо = Документ.ПриемоСдаточныйАкт.ДоверенноеЛицо;
|НомЗаявки = Документ.ПриемоСдаточныйАкт.НомЗаявки;
|НомерКузова = Документ.ПриемоСдаточныйАкт.НомерКузова;
|МодДвигателя = Документ.ПриемоСдаточныйАкт.МодДвигателя;
|НомерДвигателя = Документ.ПриемоСдаточныйАкт.НомерДвигателя;
|Цвет = Документ.ПриемоСдаточныйАкт.Цвет;
|Шасси = Документ.ПриемоСдаточныйАкт.Шасси;
|НомерКПП = Документ.ПриемоСдаточныйАкт.НомерКПП;
|НомерПереднейОси = Документ.ПриемоСдаточныйАкт.НомерПереднейОси;
|Примечание = Документ.ПриемоСдаточныйАкт.Примечание;
|Примечание1 = Документ.ПриемоСдаточныйАкт.Примечание1;
|ДатаДок = Документ.ПриемоСдаточныйАкт.ДатаДок;
|ПриемоСдаточныйАкт = Документ.ПриемоСдаточныйАкт.ТекущийДокумент;
|";
//}}ЗАПРОС
Если ВыбДок.Выбран()=1 Тогда
ТекстЗапроса=ТекстЗапроса+"
|Условие(ПриемоСдаточныйАкт = ВыбДок);
|";
КонецЕсли;
// // Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
// Подготовка к заполнению выходных форм данными запроса
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ПСА");
Таб.ВывестиСекцию("Секция_1");
// Заполнение полей "Заголовок"
Таб.ВывестиСекцию("Заголовок");
Состояние("Заполнение выходной таблицы...");
Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
Таб.ВывестиСекцию("Грузополучатель");
Таб.ВывестиСекцию("Плательщик");
Таб.ВывестиСекцию("Секция_2");
Таб.ВывестиСекцию("Строка");
Таб.ВывестиСекцию("Секция_3");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
// У страницы закрепляется шапка, первые 3 строчки, при просмотре
//двигается только тело таблицы
Таб.ПараметрыСтраницы(1,,,,,3,8,,,1,,);
//Таб.Показать("Отчет по ПСА", "");
Таб.Показать("ПСА", "");
КонецПроцедуры
Таблица
Оформление внешнего вида отчета:
Данные берутся из реквизитов документа ПСА.
Наименование фирмы является константой и берется из: Справочники -> Организации -> Фирмы;
№ Документа берется из: Документы -> Отгрузка -> Журнал Приемо-сдаточных актов;
Наименование Грузополучателя берется из: Справочники -> Контрагенты;
Адрес Грузополучателя берется из: Справочники -> Контрагенты;
Наименование Плательщика берется из: Справочники -> Контрагенты;
Марка автобуса на основании: Справочники -> Номенклатура;
Шифр автобуса на основании: Справочники -> Номенклатура;
Способ отгрузки на основании: Перечисление -> Способ отгрузки;
Кем отгружен на основании: Документы -> Отгрузка -> Журнал Приемо-сдаточных актов;
№ заявки для отгрузки на основании: Документы -> Отгрузка -> Журнал Приемо-сдаточных актов;
Идентификационный номер на основании: Справочники -> Номенклатура;
№ кузова на основании: Справочники -> Номенклатура;
Модель на основании: Справочники -> Номенклатура;
№ двигателя на основании: Справочники -> Номенклатура;
Цвет автобуса на основании: Справочники -> Номенклатура;
№ шасси на основании: Справочники -> Номенклатура;
№ КПП на основании: Документы -> Отгрузка -> Выезд автобусов через КПП;
№ передней оси: Справочники -> Номенклатура;
Приложение и Приложение 1 на основании: Документы -> Отгрузка -> Журнал Приемо-сдаточных актов;
Дата документа берется из: Документы -> Отгрузка -> Журнал Приемо-сдаточных актов.
Форма
Пользователь выбирает необходимый ему документ.
Затем нажимает ОК
