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