ПриОпределенииДополнительныхСведенийОрганизации (БСП)

При определении дополнительных сведений организации. Возвращает структуру, содержащую сведения о дополнительной информации организации.

// Возвращает структуру, содержащую сведения о дополнительной информации организации.
// 
// Параметры:
//  Организация - ОпределяемыйТип.Организация - организация, сведения по которой необходимо получить.
//  Поля - Строка - имена полей, перечисленные через запятую, в формате требований к свойствам структуры.
//                  Список допустимых имен полей см. в описании возвращаемого значения.
//                  Если указана пустая строка, то возвращаются значения всех полей.
//  Дата - Дата, Неопределено - дата, на которую требуется получить данные. Если значение не указано,
//                  то возвращается значение на текущую дату.
//  ДополнительныеСведения - Структура -
//                  см. ОрганизацииСервер.ДополнительныеСведенияОрганизации.
Процедура ПриОпределенииДополнительныхСведенийОрганизации(Организация, Поля, Дата, ДополнительныеСведения) Экспорт
	
	// _Демо начало примера
	КонтактнаяИнформация = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Организация),,, Дата);
	
	АдресЭлектроннойПочтыОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоEmailОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("АдресЭлектроннойПочтыОрганизации", ?(АдресЭлектроннойПочтыОрганизации <> Неопределено, АдресЭлектроннойПочтыОрганизации.Представление, ""));
	
	ТелефонОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоТелефонОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("ТелефонОрганизации", ?(ТелефонОрганизации <> Неопределено, ТелефонОрганизации.Представление, ""));
	
	ФаксОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоФаксОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("ФаксОрганизации", ?(ФаксОрганизации <> Неопределено, ФаксОрганизации.Представление, ""));
	// _Демо конец примера

КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////

// Возвращает структуру, содержащую сведения о дополнительной информации организации.
// 
// Параметры:
//  Организация - ОпределяемыйТип.Организация - организация, сведения по которой необходимо получить.
//  Поля - Строка - имена полей, перечисленные через запятую, в формате требований к свойствам структуры.
//                  Список допустимых имен полей см. в описании возвращаемого значения.
//                  Если указана пустая строка, то возвращаются значения всех полей.
//  Дата - Дата, Неопределено - дата, на которую требуется получить данные. Если значение не указано,
//                  то возвращается значение на текущую дату.
//  ДополнительныеСведения - Структура -
//                  см. ОрганизацииСервер.ДополнительныеСведенияОрганизации.
Процедура ПриОпределенииДополнительныхСведенийОрганизации(Организация, Поля, Дата, ДополнительныеСведения) Экспорт
	
	// _Демо начало примера
	КонтактнаяИнформация = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Организация),,, Дата);
	
	АдресЭлектроннойПочтыОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоEmailОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("АдресЭлектроннойПочтыОрганизации", ?(АдресЭлектроннойПочтыОрганизации <> Неопределено, АдресЭлектроннойПочтыОрганизации.Представление, ""));
	
	ТелефонОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоТелефонОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("ТелефонОрганизации", ?(ТелефонОрганизации <> Неопределено, ТелефонОрганизации.Представление, ""));
	
	ФаксОрганизации = КонтактнаяИнформация.Найти(УправлениеКонтактнойИнформацией.ВидКонтактнойИнформацииПоИмени("_ДемоФаксОрганизации"), "Вид");
	ДополнительныеСведения.Вставить("ФаксОрганизации", ?(ФаксОрганизации <> Неопределено, ФаксОрганизации.Представление, ""));
	// _Демо конец примера

КонецПроцедуры

///////////////////////////////////////////////////////////////////////////////////////////////////////
// Copyright (c) 2019, ООО 1С-Софт
// Все права защищены. Эта программа и сопроводительные материалы предоставляются 
// в соответствии с условиями лицензии Attribution 4.0 International (CC BY 4.0)
// Текст лицензии доступен по ссылке:
// https://creativecommons.org/licenses/by/4.0/legalcode
///////////////////////////////////////////////////////////////////////////////////////////////////////