Печать реализаций из отчета продажи
Задачи пользователя - Пакетная печать
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
В отчете задаете необходимые отборы. Обязательно должно присутствовать поле (группировка) "Регистратор" или поле "Документ продажи".
Нажимаете действия\Печать документов. Остается только выбрать печатные формы и нажать "Выполнить." Выбор печатных форм доступен как внешних так и типовых. Можно выбрать несколько форм одновременно.
Разработку можно использовать как пример для интеграции в любой типовой отчет на базе универсального и не только.
Достаточно скопировать из него форму "Печать Документов" и следующий код:
Процедура КоманднаяПанельФормыПечатьДокументов(Кнопка) Для каждого ТекущийПоказатель из УниверсальныйОтчет.Показатели.Строки Цикл // Группа показателей Если ТекущийПоказатель.Строки.Количество() > 0 И ТекущийПоказатель.Использование > 0 Тогда КоличествоПоказателейВГруппе = 0; Для каждого Показатель из ТекущийПоказатель.Строки Цикл Если Показатель.Использование > 0 Тогда УниверсальныйОтчет.ПостроительОтчета.ВыбранныеПоля.Добавить(Показатель.Имя); КонецЕсли; КонецЦикла; ИначеЕсли ТекущийПоказатель.Использование > 0 Тогда // Показатель УниверсальныйОтчет.ПостроительОтчета.ВыбранныеПоля.Добавить(ТекущийПоказатель.Имя); КонецЕсли; КонецЦикла; УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНач", ?(УниверсальныйОтчет.ДатаНач = Дата('00010101000000'), УниверсальныйОтчет.ДатаНач, Новый Граница(НачалоДня(УниверсальныйОтчет.ДатаНач), ВидГраницы.Включая))); УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаКон", ?(УниверсальныйОтчет.ДатаКон = Дата('00010101000000'), УниверсальныйОтчет.ДатаКон, Новый Граница(КонецДня(УниверсальныйОтчет.ДатаКон), ВидГраницы.Включая))); УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаНачала", ?(УниверсальныйОтчет.ДатаНач = Дата('00010101000000'), УниверсальныйОтчет.ДатаНач, НачалоДня(УниверсальныйОтчет.ДатаНач))); УниверсальныйОтчет.ПостроительОтчета.Параметры.Вставить("ДатаКонца", ?(УниверсальныйОтчет.ДатаКон = Дата('00010101000000'), Дата("39991231"), КонецДня(УниверсальныйОтчет.ДатаКон))); УниверсальныйОтчет.ПостроительОтчета.Выполнить(); РезультатОтчета1 = УниверсальныйОтчет.ПостроительОтчета.Результат; Таб1 = РезультатОтчета1.Выгрузить(); //Запр=УниверсальныйОтчет.ПостроительОтчета.ПолучитьЗапрос(); //Сообщить(Запр.Текст); //Для каждого КЗ Из Запр.Параметры Цикл // // сообщить("* "+КЗ.Ключ+" - "+ КЗ.Значение +" - "+ ТипЗнч(КЗ.Значение) + ?(ТипЗнч(КЗ.Значение)=Тип("Граница"),КЗ.Значение.Значение,"")); // //КонецЦикла; Если Таб1.Количество()=0 Тогда Предупреждение("Нет данных. Количество строк в таблице = 0"); возврат; КонецЕсли; ЕстьКолонкаРегистратор=не Таб1.Колонки.Найти("Регистратор")=Неопределено; ЕстьКолонкаДокументПродажи=не Таб1.Колонки.Найти("ДокументПродажи")=Неопределено; ЕстьКолонкаКонтрагент=не Таб1.Колонки.Найти("Контрагент")=Неопределено; Если ЕстьКолонкаРегистратор и ЕстьКолонкаДокументПродажи Тогда Предупреждение("Нет данных. Нет колонки Регистратор и колонки ДокументПродажи"); возврат; КонецЕсли; ЭтотОбъект.НайденныеОбъекты.Очистить(); НайденныеОбъекты1 = ЭтотОбъект.НайденныеОбъекты.Выгрузить(); Для каждого СтрокаТаб Из Таб1 Цикл Если ЕстьКолонкаДокументПродажи и ЗначениеЗаполнено(СтрокаТаб.ДокументПродажи) и ТипЗнч(СтрокаТаб.ДокументПродажи)=Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда НовСтрока=НайденныеОбъекты1.Добавить(); НовСтрока.Объект = СтрокаТаб.ДокументПродажи; НовСтрока.Менеджер= СтрокаТаб.ДокументПродажи.Ответственный; НовСтрока.Пометка= Истина; НовСтрока.Контрагент= СтрокаТаб.ДокументПродажи.Контрагент; КонецЕсли; Если ЕстьКолонкаРегистратор и ЗначениеЗаполнено(СтрокаТаб.Регистратор) и ТипЗнч(СтрокаТаб.Регистратор)=Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда НовСтрока=НайденныеОбъекты1.Добавить(); НовСтрока.Объект = СтрокаТаб.Регистратор; НовСтрока.Менеджер= СтрокаТаб.Регистратор.Ответственный; НовСтрока.Пометка= Истина; НовСтрока.Контрагент= СтрокаТаб.Регистратор.Контрагент; КонецЕсли; КонецЦикла; НайденныеОбъекты1.Свернуть("Объект,Менеджер,Пометка,Контрагент",""); ЭтотОбъект.НайденныеОбъекты.Загрузить(НайденныеОбъекты1); Форма1 = получитьформу("ПечатьДокументов"); Форма1.открыть(); КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт