helpf.pro
  Регистрация
Все категории » Полезные, Универсальные Функции Полезные, Универсальные Функции 
 +2 
 
 
Распечатать

Как получить менеджер объекта по переданной ссылке?

Код 1C v 8.х
 // Возвращает менеджер объекта по переданной ссылке.

// Не обрабатываются точки маршрутов бизнес-процессов.

Функция МенеджерОбъектаПоСсылке(Ссылка) Экспорт

	

	ИмяОбъекта = Ссылка.Метаданные().Имя;

	ТипСсылки = ТипЗнч(Ссылка);

	

	Если Справочники.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Справочники[ИмяОбъекта];

	ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Документы[ИмяОбъекта];

	ИначеЕсли БизнесПроцессы.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат БизнесПроцессы[ИмяОбъекта];

	ИначеЕсли ПланыВидовХарактеристик.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыВидовХарактеристик[ИмяОбъекта];

	ИначеЕсли ПланыСчетов.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыСчетов[ИмяОбъекта];

	ИначеЕсли ПланыВидовРасчета.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыВидовРасчета[ИмяОбъекта];

	ИначеЕсли Задачи.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Задачи[ИмяОбъекта];

	ИначеЕсли ПланыОбмена.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат ПланыОбмена[ИмяОбъекта];

	ИначеЕсли Перечисления.ТипВсеСсылки().СодержитТип(ТипСсылки) Тогда

		Возврат Перечисления[ИмяОбъекта];

	Иначе

		Возврат НеОпределено;

	КонецЕсли;

	

КонецФункции
Разместил:   Версии: | 8.x |  Дата:   Прочитано: 26561
 +2 
 
 
Распечатать
Возможно, вас также заинтересует
База 1С при запуске уходит в дамп и вылетает  1
  В последнее время частенько обращаются пользователи у которых после замены или ремонта компьютера 1С не запускается, а точнее при открытии уходит в dump и вылетает. Как правило, решение одно: Отключить аппаратное ускорение видеокарты В Window
Временные таблицы в отчетах СКД  0
 Нужно в отчете СКД Связать Данные из Регистра Накопления ВзаиморасчетыСРаботниками и Табличной Части Документа ЗарплатаКВыплате по Ссылке на Документ и ФизЛицу! И вывести полученные данные за указанный Период(с ДатаН по ДатаК) - Запрос будет такой:
Временные таблицы, что из себя представляют и как с ними работать?  7
 Временные таблицы - хранятся на сервере и позволяют писать более простые запросы. Временные таблицы хранятся в объекте типа МенеджерВременныхТаблиц . Когда этот объект уничтожается, уничтожаются и временные таблицы. Чтобы создать временную таблицу
Вывод (печать) таблицы значений в табличный документ  7
  Пример кода быстрая Печать таблицы значений //ТПОтчета - Табличное поле с формы (Таблица значений) с данными ПострПечать = Новый ПостроительОтчета; ПострПечать.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТПОтчета); ПострПечать.МакетОформлени
Выгрузка форматированного документа 1С на свой сайт  1
 Пользователи в 1с ведут описание объектов, которые редактируются в объекте ФорматированныйДокумент. Необходимо обеспечить выгрузку форматированного документа на фтп. Для решения этой задачи воспользуемся методом форматированного документа ПолучитьHT
Посмотреть все результаты поиска похожих
Комментарии
Oracle
21.10.2012 22:36Комментарий: 1
Oracle
Так быстрее на 30%
Код 1C v 8.2 УП
 

Перем мСоответствиеТиповМенеджера;

Перем мМассивМенеджеров;



Функция ОпределитьМенеджера(Ссылка)



        Тип = ТипЗнч(Ссылка);

	Для Каждого ЭлементМассива ИЗ мМассивМенеджеров Цикл

		Если мСоответствиеТиповМенеджера[ЭлементМассива].СодержитТип(Тип) Тогда

			Возврат ЭлементМассива;

		КонецЕсли;

	КонецЦикла;

	

	//Метаданная = Метаданные.НайтиПоТипу(Тип);

	//

	//Если Метаданные.Константы.Содержит(Метаданная)						Тогда

	//	Возврат Константы;

	//ИначеЕсли Метаданные.РегистрыСведений.Содержит(Метаданная)			Тогда

	//	Возврат РегистрыСведений;

	//ИначеЕсли Метаданные.РегистрыНакопления.Содержит(Метаданная)		Тогда

	//	Возврат РегистрыНакопления;

	//КонецЕсли;

	

	Возврат Неопределено;

	

КонецФункции



мСоответствиеТиповМенеджера = Новый Соответствие;

мМассивМенеджеров = Новый Массив;

мМассивМенеджеров.Добавить(Документы);

мМассивМенеджеров.Добавить(Справочники);

мМассивМенеджеров.Добавить(Перечисления);

мМассивМенеджеров.Добавить(ПланыСчетов);

мМассивМенеджеров.Добавить(ПланыВидовХарактеристик);

мМассивМенеджеров.Добавить(ПланыВидовРасчета);

мМассивМенеджеров.Добавить(БизнесПроцессы);

мМассивМенеджеров.Добавить(Задачи);

мМассивМенеджеров.Добавить(ПланыОбмена);

мСоответствиеТиповМенеджера[Документы]					= Документы.ТипВсеСсылки();

мСоответствиеТиповМенеджера[Справочники]				= Справочники.ТипВсеСсылки();

мСоответствиеТиповМенеджера[Перечисления]				= Перечисления.ТипВсеСсылки();

мСоответствиеТиповМенеджера[ПланыСчетов]				= ПланыСчетов.ТипВсеСсылки();

мСоответствиеТиповМенеджера[ПланыВидовХарактеристик]	= ПланыВидовХарактеристик.ТипВсеСсылки();

мСоответствиеТиповМенеджера[ПланыВидовРасчета]			= ПланыВидовРасчета.ТипВсеСсылки();

мСоответствиеТиповМенеджера[БизнесПроцессы]				= БизнесПроцессы.ТипВсеСсылки();

мСоответствиеТиповМенеджера[Задачи]						= Задачи.ТипВсеСсылки();

мСоответствиеТиповМенеджера[ПланыОбмена]				= ПланыОбмена.ТипВсеСсылки();
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.