1с обойти все реквизиты документа
Не так давно пришлось приводить конфигурацию заказчика в соответствие с законом «О защите персональных данных», который гласит, что при отказе клиенту в одобрении заявки все личные данные о нем должны удаляться из информационной системы обработки персональных данных, которой является 1С. Реквизитов и таблиц с личными данными было достаточно много, поэтому вручную прописывать очистку было нецелесообразно. А удалять сам элемент справочника было нельзя, потому что к нему был привязан документ рассмотрения заявки, и удаление нарушило бы логическую целостность информационной базы.
Поэтому необходим был механизм, который позволил бы получить полный список реквизитов и табличных частей. Для этого у объектов 1С существует встроенная функция Метаданные().
Эта функция возвращает значение особого типа — ОбъектМетаданных. В нем содержатся практически все свойства объекта. Например для элемента справочника это будут: длина наименования и кода, автонумерация, основные формы, вообще все существующие формы, представление объекта, иерархичность, макеты и многое другое.
В нашем случае потребуются Реквизиты и Табличные части. Эти компоненты метаданных содержат значение КоллекцияОбъектовМетаданных, которую можно обойти в цикле Для каждого.
У каждого из элементов коллекции тоже много свойств, в частности есть очень полезное свойство Тип, через которое можно получить тип того или иного реквизита. Полный список свойств можно узнать, например, в режиме отладки через команду Вычислить выражение. Мне же для обращения к реквизиту или табличной части потребуется свойство Имя.
В итоге модуль, очищающий реквизиты и табличные части, выглядит так:
Контрагент = КонтрагентСсылка . ПолучитьОбъект ( ) ;
//Переменная КонтрагентСсылка должна содержать ссылку на элемент
Для Каждого Реквизит Из Контрагент . Метаданные ( ) . Реквизиты Цикл
Контрагент [ Реквизит . Имя ] = Неопределено ;
КонецЦикла ;
Для Каждого ТаблЧасть Из Контрагент . Метаданные ( ) . ТабличныеЧасти Цикл
Контрагент [ ТаблЧасть . Имя ] . Очистить ( ) ;
КонецЦикла ;
Функция Метаданные() применяется как для самого объекта, так и для ссылки на него. В нашем случае необходимо было изменить значения реквизитов, поэтому объект нужно было получить. Данная функция работает не только для справочников, но и для других объектов конфигурации 1С, но состав свойств будет иным.
Приведенный в заметке пример — это только один из многочисленных способов применения функции Метаданные(). Другие варианты и проблемы с использованием метаданных готов обсудить в комментариях.
Работа с метаданными объекта 1С или как очистить все реквизиты и табличные части : 2 комментария
(1)>: Получение элемента по индексу для значения не определено
В какой строке возникает такая ошибка? Приведите весь код пожалуйста.
Добавить комментарий Отменить ответ
Теперь мы в соцсетях! Подписывайтесь, чтобы получать информацию о последних обновлениях или задать вопрос.
(10) все просто.
Сообщить(Реквизит + " +" может быть использован как в сложении, так и в конкатенации строк.
Реквизит это не строка. Платформа пытается привести к числу. Тоже не получается. Вот и ошибка: "Преобразование значения к типу Число не может быть выполнено"
Когда ставим "" + Реквизит, то уже объект Реквизит платформой неявно приводится к строке. Вот и отрабатывает.
Или сразу указываем "Реквизит.Имя". Это уже строка и конкатенация строк отрабатывает штатно.
(10)
Следите за пальцами
Реквизит - тип ОбъектМетаданных
"" + Реквизит - тип Строка, т.к при сложении все преобразуется к типу первого слагаемого
Реквизит.Имя - тип Строка
А сложение Реквизит + " clear">
(1) А что есть ОбъектБД? Что значит, не работает, какую ошибку выдает?
Для ссылочных типов вместо НайтиПоТипу можно использовать ОбъектБД.Метаданные()
(2) Либо Документ.Ссылка либо Справочник Ссылка (составной тип на форме).
Сообщить("" + Реквизит.Имя + " clear">
листинг 3.17. Использование итератора «Для Каждого»
(5) Нет, к реквизиту можно обратиться или через точку, или через квадратные скобки. Так что вот такой код точно сработает для ссылочных типов:
Для Каждого Реквизит Из ОбъектБД.Метаданные().Реквизиты Цикл Сообщить(Реквизит.Имя + " clear">
(8) Потому что у вас переменная Реквизит. А это не строка, а ОбъектМетаданных. У меня Реквизит.Имя - а это уже строка
(10) все просто.
Сообщить(Реквизит + " +" может быть использован как в сложении, так и в конкатенации строк.
Реквизит это не строка. Платформа пытается привести к числу. Тоже не получается. Вот и ошибка: "Преобразование значения к типу Число не может быть выполнено"
Когда ставим "" + Реквизит, то уже объект Реквизит платформой неявно приводится к строке. Вот и отрабатывает.
Или сразу указываем "Реквизит.Имя". Это уже строка и конкатенация строк отрабатывает штатно.
(10)
Следите за пальцами
Реквизит - тип ОбъектМетаданных
"" + Реквизит - тип Строка, т.к при сложении все преобразуется к типу первого слагаемого
Реквизит.Имя - тип Строка
А сложение Реквизит + " clear">
(17) много чего есть, только не доступные через метаданные объекта.
Реквизиты, ТабличныеЧасти и СтандартныеРеквизиты доступны. Общие резквизиты - нет.
"вончо" написал. даже работает)
Процедура ТыкНаСервере(ОбъектБД) МетаданныеОбъектБД = Метаданные.НайтиПоТипу(ТипЗнч(ОбъектБД)); Для Каждого Реквизит Из МетаданныеОбъектБД.Реквизиты Цикл Сообщить(""+Реквизит + " = " + ОбъектБД[Реквизит.Имя]); КонецЦикла; Для Каждого ТЧ Из ОбъектБД.Метаданные().ТабличныеЧасти Цикл Сообщить(""+ТЧ); НомерСтроки = 1; Для Каждого Строка Из ОбъектБД[ТЧ.Имя] Цикл Для Каждого Реквизит Из ТЧ.Реквизиты Цикл Сообщить("Строка номер " + НомерСтроки + " " + Реквизит + " timeline-seperator text-center text-primary no-margin no-border"> Показать
(2) Насколько понимаю, так не попадут "Стандартные" (Ссылка, Проведен, Номер, ПометкаУдалениея, Дата, Номер).
Ага.
А потом: Таблицы. Колонки. ДополнительныеСвойства.
далее выгружаем в ТЗ, у которой смотрим все столбцы..
PS если надо, по содержимому отсекаем табличные части..
Ссылки все равно не видит. Пишет поле объекта не обнаружено при попытке Реквизит.Отгруженно.получитьобъект();
Реквизит.Отгруженно ссылка на другой документ. Цикл должен перебрать все реквизиты в документе найти реквизит.отгружеено получить объект и уже в другом документе заполнить некоторые реквизиты
(11)Пипец. Проверить наличие реквизита и получить его значение - две совершенно разные задачи. А кто-то похоже еще и не различает метаданные и реквизиты конкретного документа.
А зачем перебирать все реквизиты если имя нужного реквизита уже известно?
и как верно заметили выше, для чего вам перебирать, если вы заранее знаете реквизит, который нужен?
(21)Очень информативно. Напоминает лечение даже не по фотографии, а по описанию фотографии слепым.
Может таки сподобитесь и покажете код, а не рассказ о нём?
Это уж вы, батенька, сами должны заполнить сию переменную ссылкой на конкретный документ. Надеюсь, вы не крутите цикл по реквизитам в цикле по документам одного типа?
(17)Вы хотите сказать, что Документ.АвансовыйОтчет может иметь разное количество реквизитов в конкретных экземплярах?
Зачем для каждого документа в выборке проверять наличие реквизита? Результат проверки что ли может быть разный?
(18) Я для примера написал, если делать выборку каким-то запросом, то не факт, что там будет только АвансовыйОтчёт
В документе есть реквизит с ссылкой на другой документ задача обратиться к этому реквизиту получить документ на который ссылается этот реквизит и уже в этом документе проставить некоторые значения
В каком документе? Точнее, в каком типе/виде документов? Только Авансовый отчет? Или еще есть другие типы/виды?
Если только Авансовый отчет, то нафига перебирать метаданные документа?
Реквизит один? Известный?
Это все предлагается угадать?
(25) Документ не авансовый отчет. Допустим реквизит 1 и известный. Тип реквизита ссылка на другой документ. Задача обратиться к этому рееквизиту и получить документ на который ссылается реквизит и там проставить некоторые значения.
(26) Ну так и делайте ДокОбъект = [Документ не авансовый отчет].[реквизит 1 и известный].ПолучитьОбъект()
(26)Думаете, повторение одного и того же как мантры сильно повышает информативность повторов? Еще древние установили что "Сколько раз не скажи ХАЛВА во рту слаще не станет".
А какой? Один? Или несколько? Список известен?
Из вас все надо клещами тянуть? Кому это надо? Вам или нам?
При написании небольших автоматизированных тестов часто надо обойти всю конфигурацию и проверить, например, для всех форм какое-нибудь свойство. Это всё легко делается через свойство глобального контекста "Метаданные", но чтоб дорбаться до обхода реквизитов надо написать кучу вложенных циклов. При этом код становится слабочитаемым и слабомодифицируемым.
Ниже приведен небольшой модуль, который решает задачу легко и удобно. Создана специальная функция РазвернутьСтрокуОбходаМетаданных, которая может по строке типа "Метаданные.Справочники.*.Реквизиты.*" построить массив строк с перечислением всех реквизитов всех справочников. При помощи этой и нескольких других функций в экспортных функциях модуля реализованы вполне прикладные задачи - получение всех реквизитов, всех макетов, всех форм конфигурации и построение таблицы всех составных типов.
Похожие FAQ
Еще в этой же категории
Как программно получить Картинку из базы и сохранить ее преобразовав в другой формат? 4
//Получим и сохраним Общую картинку из библиотеку картинок конфигурации ИмяКартинки = Метаданные.ОбщиеКартинки.OutlookExpress; ВыбраннаяКартинка = БиблиотекаКартинок ; // Сохраним полученную картинку в c: temp ВыбраннаяКартинка.Записать(" c: te Получить список Справочников конфигурации 2
НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для Сч = 0 По СписокСправочников Получить список Документов конфигурации 0
//ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора; Для Каждого Документ Из Метаданные.Документы Цикл //Проверим, есть ли права на просмотр? Да- добавляем, Нет - пропускаем Если ПравоДосту Перебор Основных Реквизитов формы 0
//Перебор Основных Реквизитов формы Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" - " +рек.Синоним+" - " +Строка(рек.Тип)); КонецЦикла; // или так Для Каждого Рек из Метаданные().Реквизиты Цикл Сообщить(рек.Имя+" Пример обращения к метаданным 0
спрНомен = Метаданные.Справочники.Номенклатура; Сообщить(" Имя справочника " " " + спрНомен.Имя + " " " " ); Сообщить(" Комментарий " + спрНомен.Комментарий); Сообщить(" ВидИерархии " + спрНомен.ВидИерархии); Сообщить(" КоличествоУровней " + Посмотреть все в категории Метаданные
При написании небольших автоматизированных тестов часто надо обойти всю конфигурацию и проверить, например, для всех форм какое-нибудь свойство. Это всё легко делается через свойство глобального контекста "Метаданные", но чтоб дорбаться до обхода реквизитов надо написать кучу вложенных циклов. При этом код становится слабочитаемым и слабомодифицируемым.
Ниже приведен небольшой модуль, который решает задачу легко и удобно. Создана специальная функция РазвернутьСтрокуОбходаМетаданных, которая может по строке типа "Метаданные.Справочники.*.Реквизиты.*" построить массив строк с перечислением всех реквизитов всех справочников. При помощи этой и нескольких других функций в экспортных функциях модуля реализованы вполне прикладные задачи - получение всех реквизитов, всех макетов, всех форм конфигурации и построение таблицы всех составных типов.
Похожие FAQ
ZIP-архив Чтение 0
Для того чтобы прочитать файлы из ZIP-архива необходимо выполнить несколько простых действий: - Открыть необходимый архив - Распаковать файлы Создание объекта ЧтениеZIPФайла можно осуществить двумя путями - создать инициализированный объект или Внешние источники данных 0
Почему данная возможность вызывает такой интерес? Любой человек, который программировал в 1С при этом достаточно неплохо знаком с SQL и хотя бы в общих чертах знаком с архитектурой и принципами разработки других технологических платформ для бизнес пр Внешняя печатная форма, дополнительные параметры для печати 4
Внешняя обработка (Печатная форма), содержащая: Необязательный реквизит « ДополнительныеПараметры » произвольного типа , которому будут передаваться дополнительные параметры примитивного типа в виде структуры. https://helpf.pro/uploads/img/_1-Y74bX Вывод результата запроса на форму УП в таблицу значений (аналог СоздатьКолонки() для УП) 2
при разработке на обычных формах было удобно выводить результат запроса используя метод СоздатьКолоки(): Процедура ПоискНажатие(Элемент) Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ДокументоОборот.Этап, | ДокументоОборот.Отдел, | Докуме Где находится файл лицензии 1С 22
Многие спрашивают А где хранится лицензия на 1С: Предприятие 8? или Где посмотреть лицензионный ключ в 1С? В 1С информацию о полученной лицензии можно посмотреть нажав «Справка» — «О программе» В разделе Лицензия: сначала идет клиентская лиценз Посмотреть все результаты поиска похожих
Еще в этой же категории
Как программно получить Картинку из базы и сохранить ее преобразовав в другой формат? 4
//Получим и сохраним Общую картинку из библиотеку картинок конфигурации ИмяКартинки = Метаданные.ОбщиеКартинки.OutlookExpress; ВыбраннаяКартинка = БиблиотекаКартинок ; // Сохраним полученную картинку в c: temp ВыбраннаяКартинка.Записать(" c: te Получить список Справочников конфигурации 2
НаКлиенте Процедура ПоКнопкеЧтениеИзМетаданных(Команда) // Вставить содержимое обработчика. Перем СписокСправочников; СписокСправочников = Новый СписокЗначений; СписокСправочников = СправочникиИзМетаданных(); Для Сч = 0 По СписокСправочников Как по значению "Тип" получить строку например "Документ.Счет" 0
Сообщить(Метаданные.НайтиПоТипу(ТипДокумента).ПолноеИмя()); ДокументСсылка = Новый(ТипДокумента); ПолноеИмя = ДокументСсылка.Метаданные().ПолноеИмя(); Функции ЕстьРеквизитДокумента и ЕстьРеквизитОбъекта 0
При разработке частенько нужно проверить наличие реквизита в документе или справочнике. Ниже приведены функции позволяющие проверить наличие заданных реквизитов в объектах конфигурации: // Позволяет определить есть ли среди реквизитов шапки Объект Посмотреть все в категории Метаданные
Читайте также: