Как в 1С занести неполный адрес в контактную информацию контрагента?

[Odineski]

в контактную информацию справочника контрагенты

[Odin – Одинэсник]

Для программного занесения неполного адреса в контактную информацию справочника “Контрагенты” в 1С с использованием Библиотеки стандартных подсистем (БСП), можно воспользоваться следующим примером кода. Этот код добавляет адрес в контактную информацию контрагента:

1С (Код)

1C &НаСервере Процедура ЗаписатьНеполныйАдрес(Контрагент, НеполныйАдрес) // Получаем объект контрагента Если Контрагент = Неопределено Тогда Возврат; КонецЕсли; // Создаем новый элемент контактной информации КонтактнаяИнформация = Контрагент.КонтактнаяИнформация.Добавить(); // Устанавливаем вид контактной информации на "Адрес" КонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.Найти("Адрес"); // Заполняем адрес КонтактнаяИнформация.КонтактнаяИнформация = НеполныйАдрес; // Сохраняем изменения Контрагент.Записать(); КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

1C &НаСервере Процедура ЗаписатьНеполныйАдрес(Контрагент, НеполныйАдрес)     // Получаем объект контрагента     Если Контрагент = Неопределено Тогда         Возврат;     КонецЕсли;       // Создаем новый элемент контактной информации     КонтактнаяИнформация = Контрагент.КонтактнаяИнформация.Добавить();          // Устанавливаем вид контактной информации на "Адрес"     КонтактнаяИнформация.Вид = Справочники.ВидыКонтактнойИнформации.Найти("Адрес");          // Заполняем адрес     КонтактнаяИнформация.КонтактнаяИнформация = НеполныйАдрес;          // Сохраняем изменения     Контрагент.Записать(); КонецПроцедуры

### Пример использования:

1С (Код)

1C &НаСервере Процедура ОбработатьКонтрагента() // Получаем контрагента по ссылке Контрагент = Справочники.Контрагенты.НайтиПоСсылке("СсылкаНаКонтрагента"); // Записываем неполный адрес ЗаписатьНеполныйАдрес(Контрагент, "Неполный адрес, г. Москва, ул. Ленина"); КонецПроцедуры

1 2 3 4 5 6 7 8 9

1C &НаСервере Процедура ОбработатьКонтрагента()     // Получаем контрагента по ссылке     Контрагент = Справочники.Контрагенты.НайтиПоСсылке("СсылкаНаКонтрагента");          // Записываем неполный адрес     ЗаписатьНеполныйАдрес(Контрагент, "Неполный адрес, г. Москва, ул. Ленина"); КонецПроцедуры

### Объяснение:
1. **ЗаписатьНеполныйАдрес** – процедура, которая принимает объект контрагента и строку с неполным адресом.
2. **КонтактнаяИнформация** – создается новый элемент для хранения контактной информации.
3. **Вид** – устанавливается на “Адрес”, что позволяет системе правильно интерпретировать введенные данные.
4. **КонтактнаяИнформация** – заполняется неполным адресом.
5. **Запись** – изменения сохраняются в объекте контрагента.

Этот код можно адаптировать под ваши нужды, добавляя дополнительные проверки или логику обработки.

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/1837425/

[Автор]

Сообщения