Обработка для проверки использования справочников в документах

Форум Программирование Общие вопросы программирования (Dev)

Конфигурации 1cv8 Платформа 1С v8.3 8.3.14 Платформа 1C v8.2

1. user1Cer 09.04.24 21:43 Сейчас в теме

Всем доброго времени суток! Помогите пожалуйста, нужна обработка срочно, которая будет автоматически просматривать каждый справочник и документ через метаданные, чтобы в итоге выводился результат в виде таблицы (с подготовленным макетом, скрин макета предоставлю ниже), в которой будет видно, в каком документе используется тот или иной справочник (примерный код начал делать, но дальше тронуться не могу)

Прикрепленные файлы:

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Vadim-SH 10.04.24 06:43 Сейчас в теме

Посмотри обработку MD83Exp.epf идет с конфигурацией Конвертация Данных.
Думаю, ее можно переделать под твою задачу.

3. user1Cer 10.04.24 07:13 Сейчас в теме

(2)скиньте ссылочку плиз

4. Vadim-SH 10.04.24 10:08 Сейчас в теме

(3)https://its.1c.ru/db/files/1CITS/EXE/Conversion/2.1.8.2/setup/setup.exe

5. alex_4x 85 11.04.24 16:01 Сейчас в теме

	Сообщить("Справочники");
	Для Каждого ОбъектМетаданныхСправочник Из Метаданные.Справочники Цикл
		НайтиСсылкиНаОбъектМетаданных("СправочникСсылка."+ОбъектМетаданныхСправочник.Имя);
	КонецЦикла;
	
	Сообщить("Документы");
	Для Каждого ОбъектМетаданныхДокумент Из Метаданные.Документы Цикл
		НайтиСсылкиНаОбъектМетаданных("ДокументСсылка."+ОбъектМетаданныхДокумент.Имя);
	КонецЦикла;


Функция НайтиСсылкиНаОбъектМетаданных(ТипЗнчОбъектМетаданных)
	ТипСсылкаНаОбъектМетаданных = Тип(ТипЗнчОбъектМетаданных);
	Для Каждого Справочник Из Метаданные.Справочники Цикл
		Для Каждого Реквизит Из Справочник.Реквизиты Цикл
			Если Реквизит.Тип.СодержитТип(ТипСсылкаНаОбъектМетаданных) Тогда
				Сообщить("Справочник "+Справочник+" Реквизит "+Реквизит+" содержит "+ТипЗнчОбъектМетаданных);
			КонецЕсли;
		КонецЦикла;
		Для Каждого ТабличнаяЧасть Из Справочник.ТабличныеЧасти Цикл
			Для Каждого Реквизит Из ТабличнаяЧасть.Реквизиты Цикл
				Если Реквизит.Тип.СодержитТип(ТипСсылкаНаОбъектМетаданных) Тогда
					Сообщить("Справочник "+Справочник+"Табличная часть "+ТабличнаяЧасть.Имя+" Реквизит "+Реквизит+" содержит "+ТипЗнчОбъектМетаданных);
				КонецЕсли;
			КонецЦикла;
		КонецЦикла;
	КонецЦикла;
	Для Каждого Документ Из Метаданные.Документы Цикл
		Для Каждого Реквизит Из Документ.Реквизиты Цикл
			Если Реквизит.Тип.СодержитТип(ТипСсылкаНаОбъектМетаданных) Тогда
				Сообщить("Документ "+Документ+" Реквизит "+Реквизит+" содержит "+ТипЗнчОбъектМетаданных);
			КонецЕсли;
		КонецЦикла;
		Для Каждого ТабличнаяЧасть Из Документ.ТабличныеЧасти Цикл
			Для Каждого Реквизит Из ТабличнаяЧасть.Реквизиты Цикл
				Если Реквизит.Тип.СодержитТип(ТипСсылкаНаОбъектМетаданных) Тогда
					Сообщить("Документ "+Документ+"Табличная часть "+ТабличнаяЧасть.Имя+" Реквизит "+Реквизит+" содержит "+ТипЗнчОбъектМетаданных);
				КонецЕсли;
			КонецЦикла;
		КонецЦикла;
	КонецЦикла;
КонецФункции

Показать

Оставьте свое сообщение

E-mail: