Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )



История благодарностей участнику Andi_x2021 ::: Спасибо сказали: 2 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
27.04.21, 12:26 Как убрать ненужные колонки или строки по условию?
Vofka @ Вчера, 7:48 * ,
Не вдавался более глубже, но для моей задачи получилось вот так:
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
    
    ПараметрыОтчета = КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
    ПолеГруппировки = Новый ПолеКомпоновкиДанных("Регистратор");
    
    Для Каждого ПараметрОтчета Из ПараметрыОтчета Цикл
        Если ПараметрОтчета.Параметр = Новый ПараметрКомпоновкиДанных("ПоДокументам") Тогда    //это галочка на форме
            Если ПараметрОтчета.Значение = Ложь Тогда
                    Если ТипЗнч(ПараметрОтчета) = Тип("ЗначениеПараметраНастроекКомпоновкиДанных") И ПараметрОтчета.Параметр = Новый ПараметрКомпоновкиДанных("ПоДокументам") Тогда
                        Если НЕ (КолонкаОборотДоступна() И ПараметрОтчета.Значение) Тогда
                            ПараметрОтчета.Значение = Ложь;
                            //убирем из выводимых колонок
                            Для Каждого ЭлКолонки Из КомпоновщикНастроек.Настройки.Выбор.Элементы Цикл
                                
                                Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("Регистратор") Тогда
                                    ЭлКолонки.Использование = Ложь;
                                ИначеЕсли ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("ДатаДок") Тогда
                                    ЭлКолонки.Использование = Ложь;
                                КонецЕсли;
                            КонецЦикла;
                        Иначе
                            //добавляем, если нет
                            Для Каждого ЭлКолонки Из КомпоновщикНастроек.Настройки.Выбор.Элементы Цикл
                                Если ЭлКолонки.Поле = Новый ПолеКомпоновкиДанных("Оборот") Тогда
                                    ЭлКолонки.Использование = Истина;
                                КонецЕсли;
                            КонецЦикла;  
                        КонецЕсли;
                    КонецЕсли;
            КонецЕсли;                      
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры
andr_andrey, Vofka,

RSS Текстовая версия Сейчас: 28.03.24, 23:31
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!