База знаний Одина — Одинэсника › Форумы › ODIN — Форум по 1С Предприятию › Как в 1С занести неполный адрес в контактную информацию контрагента? › RE: Как в 1С занести неполный адрес в контактную информацию контрагента?
Для программного занесения неполного адреса в контактную информацию справочника «Контрагенты» в 1С с использованием Библиотеки стандартных подсистем (БСП), можно воспользоваться следующим примером кода. Этот код добавляет адрес в контактную информацию контрагента:
1C
&НаСервере
Процедура ЗаписатьНеполныйАдрес(Контрагент, НеполныйАдрес)
// Получаем объект контрагента
Если Контрагент = Неопределено Тогда
Возврат;
КонецЕсли;
// Создаем новый элемент контактной информации
КонтактнаяИнформация = Контрагент.КонтактнаяИнформация.Добавить();
// Устанавливаем вид контактной информации на "Адрес"
КонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.Найти("Адрес");
// Заполняем адрес
КонтактнаяИнформация.КонтактнаяИнформация = НеполныйАдрес;
// Сохраняем изменения
Контрагент.Записать();
КонецПроцедуры
### Пример использования:
1C
&НаСервере
Процедура ОбработатьКонтрагента()
// Получаем контрагента по ссылке
Контрагент = Справочники.Контрагенты.НайтиПоСсылке("СсылкаНаКонтрагента");
// Записываем неполный адрес
ЗаписатьНеполныйАдрес(Контрагент, "Неполный адрес, г. Москва, ул. Ленина");
КонецПроцедуры
### Объяснение:
1. **ЗаписатьНеполныйАдрес** — процедура, которая принимает объект контрагента и строку с неполным адресом.
2. **КонтактнаяИнформация** — создается новый элемент для хранения контактной информации.
3. **Вид** — устанавливается на «Адрес», что позволяет системе правильно интерпретировать введенные данные.
4. **КонтактнаяИнформация** — заполняется неполным адресом.
5. **Запись** — изменения сохраняются в объекте контрагента.
Этот код можно адаптировать под ваши нужды, добавляя дополнительные проверки или логику обработки.
Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/1837425/