Портал компании
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Автоматизация Бизнеса

+7 (900) 671 8000      Cвязаться через Telegram Telegram      связаться через Вконтакте VK      new@1module.ru      связаться через MAX MAX

Сервисный центр 1С

Автоматизация сервисного центра

Программа для сервисных центров и ЦТО
Подробнее

Программист 1С

Доработки для 1С

Любые доработки систем 1С всего за 3100 руб./час, возможно уже есть готовые. Полный каталог разработок

Разработки для 1С
Учет по серийным номерам 1С

Учет товаров по серийным номерам

Модуль, позволяющий вести учет по серийным номерам и выводить на печать гарантийные талоны. Подробнее

Автосервис 1С

Дополнение для автосервиса

Автоматизация СТО, шиномонтажной мастерской или мойки. Ознакомиться

Рассылка SMS 1С

Рассылка СМС

Уведомление клиентов или сотрудников с помощью СМС сообщений из 1С. Перейти

Модули для 1С

Модули, дополнения и отчеты для 1С

Большой список готовых решений для Вашей компании. Поддержка и сопровождение. Полный каталог разработок

 

Быстрый переход





Меню раздела:

Быстрый поиск

 

Информация



 

[CODE] Открыть отчет по кнопке с параметрами и отборами



&НаКлиенте
Процедура ОтчетПоЗащитам(Команда)
	СтрПараметры = Новый Структура;
	//СтрПараметры.Вставить("Период", КонецДня(Объект.Дата));
	//СтрПараметры.Вставить("ТипСклада", ПредопределенноеЗначение("Перечисление.ТипыСкладовГДТ.СкладВосстановленных"));
    
    ПользовательскиеНастройки = УстановитьПользовательскиеНастройкиОтчета("пм_ОтчетПоЗащитам",СтрПараметры);
    
	Отбор = Новый Структура;
    Отбор.Вставить("Лид", Объект.Ссылка);    
    
    ПараметрыФормы = Новый Структура("Отбор,ПользовательскиеНастройки, СформироватьПриОткрытии", Отбор,ПользовательскиеНастройки, Истина);
    
    ОткрытьФорму("Отчет.пм_ОтчетПоЗащитам.Форма", ПараметрыФормы); 
КонецПроцедуры

&НаСервере
Функция УстановитьПользовательскиеНастройкиОтчета(ТипОтчета,СтруктураПараметров)
    СтруктураНастроек = Новый Структура;
    ОтчетОбъект = Отчеты[ТипОтчета].Создать();
    
    ПользовательскиеНастройки = ОтчетОбъект.КомпоновщикНастроек.ПользовательскиеНастройки;
    Для Каждого ЭлПараметр  Из СтруктураПараметров Цикл
        Для Каждого ПараметрСКД Из ПользовательскиеНастройки.Элементы Цикл
            Если ТипЗнч(ПараметрСКД) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") Тогда  
                Если строка(ПараметрСКД.Параметр) = ЭлПараметр.Ключ Тогда 
                    ПараметрСКД.Значение = ЭлПараметр.Значение;
                    ПараметрСКД.Использование = Истина;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;    
    КонецЦикла;
        
    Возврат ПользовательскиеНастройки;
КонецФункции


Количество показов: 3773
Дата изменения: 14.09.2023 07:04:07

Возврат к списку

(Голосов: 1, Рейтинг: 2.93)

Ваше имя:
Защита от автоматических сообщений:
Защита от автоматических сообщений Символы на картинке:


Модули   Статьи   Отзывы   Кабинет   Поддержка  
@ !pride, 1module. Все права защищены. 2003 - 2026