Не отображается юридический адрес контрагента
Здравствуйте! Необходимо программно загрузить Контрагентов и их юридические адреса в конфигурацию Бухгалтерия государственного учреждения, редакция 2.0. Для эксперимента выполнил код
В консоле запросов в табличной части Контрагенты.КонтактнаяИнформация видно, что адрес загрузился. Однако в пользовательском режиме юридический адрес не отображается. Если открыть форму элемента справочника и закрыть ее, то загруженная запись с адресом удаляется из базы. Пробовал посмотреть через отработку когда удаляется запись в модуле объекта справочника "Контрагенты"
В результате ничего не увидел, до самого конца работы процедуры "ПередЗаписью" ЮридическийАдрес находится и не удаляется из КонтактнойИнформации, однако после закрытия формы элемента запись удаляется. Вопрос: Почему загруженный адрес не отображается в форме элемента, почему и в какой момент загруженная запись модет удаляться? Спасибо!
Контрагент = Справочники.Контрагенты.НайтиПоКоду("00-000000000001");
КонтрагентОбъект = Контрагент.ПолучитьОбъект();
Представление = ",446254,САМАРСКАЯ ОБЛ,БЕЗЕНЧУКСКИЙ Р-Н,,БЕЗЕНЧУК ПГТ,ТИМИРЯЗЕВА УЛ,26,,37";
ВидКИ = Справочники.ВидыКонтактнойИнформации.ЮридическийАдресКонтрагенты;
ТипКИ = ВидКИ.Тип;
ОбъектXDTOКИ = УправлениеКонтактнойИнформациейЛокализация.КонтактнаяИнформацияXDTOПоПредставлению(Представление,ТипКИ);
ЗначенияПолей = УправлениеКонтактнойИнформациейЛокализация.КонтактнаяИнформацияXDTOВXML(ОбъектXDTOКИ);
УправлениеКонтактнойИнформацией.ДобавитьКонтактнуюИнформацию(КонтрагентОбъект, ЗначенияПолей, ВидКИ, ТекущаяДата(), Истина);
УправлениеКонтактнойИнформацией.ЗаписатьКонтактнуюИнформацию(КонтрагентОбъект, ЗначенияПолей, ВидКИ, ТипКИ);
КонтрагентОбъект.Записать();
ПоказатьВ консоле запросов в табличной части Контрагенты.КонтактнаяИнформация видно, что адрес загрузился. Однако в пользовательском режиме юридический адрес не отображается. Если открыть форму элемента справочника и закрыть ее, то загруженная запись с адресом удаляется из базы. Пробовал посмотреть через отработку когда удаляется запись в модуле объекта справочника "Контрагенты"
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОбновлениеИнформационнойБазы.ПроверитьОбъектОбработан(ЭтотОбъект);
Если НЕ ЭтоГруппа Тогда
Если (ВидКонтрагента = ПредопределенноеЗначение("Перечисление.ЮрФизЛицо.ЮрЛицо") И ТипЗнч(ЮридическоеФизическоеЛицо) = Тип("СправочникСсылка.ФизическиеЛица"))
ИЛИ (ВидКонтрагента = ПредопределенноеЗначение("Перечисление.ЮрФизЛицо.ФизЛицо") И ТипЗнч(ЮридическоеФизическоеЛицо) = Тип("СправочникСсылка.ЮридическиеЛица")) Тогда
Отказ = Истина;
ОбщегоНазначения.СообщитьПользователю(НСтр("ru = 'Вид контрагента не соответствует заполненным данным.'"), ЭтотОбъект);
КонецЕсли;
// Если контрагент был скопирован, а ЮрФизЛицо очищено, то нужно очистить ИНН и КПП.
// Если контрагент не новый, а ЮрФизЛицо не существует в базе, то ИНН и КПП нужно очистить.
Если (ЭтоНовый() И ЮридическоеФизическоеЛицо.Пустая())
ИЛИ (НЕ ЭтоНовый() И НЕ ОбщегоНазначения.СсылкаСуществует(ЮридическоеФизическоеЛицо)) Тогда
ИНН = "";
КПП = "";
КонтактнаяИнформация.Очистить();
КППИстория.Очистить();
КонецЕсли;
Если Отказ Тогда
Возврат;
КонецЕсли;
Если ЗначениеЗаполнено(ЮридическоеФизическоеЛицо) И ОбщегоНазначения.СсылкаСуществует(ЮридическоеФизическоеЛицо) Тогда
Если НЕ ИНН = ЮридическоеФизическоеЛицо.ИНН Тогда
ИНН = ЮридическоеФизическоеЛицо.ИНН;
КонецЕсли;
Если НЕ КПП = ЮридическоеФизическоеЛицо.КПП Тогда
КПП = ЮридическоеФизическоеЛицо.КПП;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
ПоказатьВ результате ничего не увидел, до самого конца работы процедуры "ПередЗаписью" ЮридическийАдрес находится и не удаляется из КонтактнойИнформации, однако после закрытия формы элемента запись удаляется. Вопрос: Почему загруженный адрес не отображается в форме элемента, почему и в какой момент загруженная запись модет удаляться? Спасибо!
По теме из базы знаний
- Изменение вида контрагента; предотвращение ввода неверного вида контрагента; мониторинг заполнения полей контрагента
- Рабочий стол менеджера
- Контрагенты (расширенная форма списка) [Расширение]
- Путевой лист легкового автомобиля 1С:Бухгалтерия 3.0
- 1С:Управление недвижимостью и арендой КОРП на базе 1С:Бухгалтерия 8 КОРП
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот