Показано с 1 по 2 из 2
Древовидный режим
-
26.11.2020, 11:43 #1
- Регистрация
- 02.03.2016
- Сообщений
- 24
- Сказал(а) спасибо
- 1
- Поблагодарили 0 раз(а) в 0 сообщениях
Получить данные не предустановленного элемента
Есть Справочник с контактной информацией. В нём есть предустановленные элементы и получить их данные нет проблем:
Код:Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыРабочий Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыДомашний
Даже если так
Код:СтруктураЭлектроннойПочты = ВернутьСтруктуруЭлектроннойПочтыПоВидуКИ(Контрагент, Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("ЦБ000002"));
Код:Функция ПолучитьЭлектроннуюПочту(Контрагент) СтруктураКВозврату = Неопределено; СтруктураЭлектроннойПочты = ВернутьСтруктуруЭлектроннойПочтыПоВидуКИ(Контрагент, Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыРабочий); Если Не ЗначениеЗаполнено(СтруктураЭлектроннойПочты.Представление) Тогда СтруктураЭлектроннойПочты = ВернутьСтруктуруЭлектроннойПочтыПоВидуКИ(Контрагент, Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыДомашний); Иначе СтруктураЭлектроннойПочты.АдресЭлектроннойПочты = СтруктураЭлектроннойПочты.Представление; СтруктураКВозврату = СтруктураЭлектроннойПочты; КонецЕсли; Если Не ЗначениеЗаполнено(СтруктураЭлектроннойПочты.Представление) Тогда СтруктураЭлектроннойПочты = ВернутьСтруктуруЭлектроннойПочтыПоВидуКИ(Контрагент, Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("ЦБ000002")); Иначе СтруктураЭлектроннойПочты.АдресЭлектроннойПочты = СтруктураЭлектроннойПочты.Представление; СтруктураКВозврату = СтруктураЭлектроннойПочты; КонецЕсли; Возврат СтруктураКВозврату; КонецФункции Функция ВернутьСтруктуруЭлектроннойПочтыПоВидуКИ(Контрагент, ВидКИ) СтруктураВозврата = Новый Структура("Контрагент, АдресЭлектроннойПочты, Представление"); Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | КонтактнаяИнформация.Объект КАК Контрагент, | КонтактнаяИнформация.Вид КАК ТипЭлектроннойПочты, | КонтактнаяИнформация.Представление |ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация |ГДЕ | КонтактнаяИнформация.Объект = &Контрагент | И КонтактнаяИнформация.Вид = &Вид"; Запрос.УстановитьПараметр("Вид", ВидКИ); Запрос.УстановитьПараметр("Контрагент", Контрагент); РезультатЗапроса = Запрос.Выполнить(); Если НЕ РезультатЗапроса.Пустой() Тогда ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать(); ВыборкаДетальныеЗаписи.Следующий(); ЗаполнитьЗначенияСвойств(СтруктураВозврата, ВыборкаДетальныеЗаписи); КонецЕсли; Возврат СтруктураВозврата; КонецФункции
Похожие темы
-
Проблема в работе Объекта Элемента управления
от nickolas2007s в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 01.06.2017, 16:21 -
Получение элемента по индексу для значения не определено
от KRUTO в разделе Конфигурирование, программирование 1С - ПредприятиеОтветов: 16Последнее сообщение: 24.03.2017, 10:41 -
УПП 8.2 форма элемента справочника
от Надя_ в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 1Последнее сообщение: 24.04.2012, 14:36 -
Получить данные из 2GIS
от vip1987 в разделе АндеграундОтветов: 0Последнее сообщение: 01.04.2012, 22:08
Социальные закладки