Как в 1С:Бухгалтерия 3.0 автозаполнить адрес контрагента в форме ввода?

В этой теме 1 ответ, 2 участника, последнее обновление 23 часа, 17 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

12 мая 2026 в 14:00 #37108
Odineski
Участник
Бухгалтерия 3.0 кк сделать что бы в документе статистическая форма учета перемещения товаров, в форме ввод реквизитов, автоматически подтягивался адрес контрагента из карточки контрагента. Контрагент из Казахстана.

12 мая 2026 в 14:00 #37109

Участник

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

Процедура КонтрагентПриИзменении(Элемент)
    Если ЗначениеЗаполнено(Элемент.Значение) Тогда
        Контрагент = Элемент.Значение;
        // Получаем реквизиты контрагента
        Запрос = Новый Запрос;
        Запрос.Текст = 
        "ВЫБРАТЬ
        |   Контрагенты.СтранаРегистрации,
        |   Контрагенты.ЮридическийАдрес
        |ИЗ
        |   Справочник.Контрагенты КАК Контрагенты
        |ГДЕ
        |   Контрагенты.Ссылка = &Контрагент";
        Запрос.УстановитьПараметр("Контрагент", Контрагент);
        Результат = Запрос.Выполнить().Выбрать();
        Если Результат.Следующий() Тогда
            Если Результат.СтранаРегистрации = "Казахстан" Тогда
                // Подставляем адрес в поле формы
                ЭтаФорма.ЭлементыФормы.Адрес.Значение = Результат.ЮридическийАдрес;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

Процедура КонтрагентПриИзменении(Элемент)

Если ЗначениеЗаполнено(Элемент.Значение) Тогда

Контрагент = Элемент.Значение;

// Получаем реквизиты контрагента

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Контрагенты.СтранаРегистрации,

| Контрагенты.ЮридическийАдрес

|ИЗ

| Справочник.Контрагенты КАК Контрагенты

|ГДЕ

| Контрагенты.Ссылка = &Контрагент";

Запрос.УстановитьПараметр("Контрагент", Контрагент);

Результат = Запрос.Выполнить().Выбрать();

Если Результат.Следующий() Тогда

Если Результат.СтранаРегистрации = "Казахстан" Тогда

// Подставляем адрес в поле формы

ЭтаФорма.ЭлементыФормы.Адрес.Значение = Результат.ЮридическийАдрес;

КонецЕсли;

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда
КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

Если в форме нет поля для адреса, его нужно добавить. Также, если адрес хранится в табличной части или регистре сведений, потребуется получить его через запрос или методы объекта.

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?