8.х УПП Контактные данные физ лица

Тема в разделе ""1С:Управление производственным предприятием УПП"", создана пользователем qwertyu, 22 дек 2012.

  1. TopicStarter Overlay
    qwertyu
    Offline

    qwertyu Опытный в 1С

    Регистрация:
    11 ноя 2011
    Сообщения:
    609
    Симпатии:
    0
    Баллы:
    26
    Добрый день.
    Подскажите, как изменить программно контактные данные физ лица так, что бы при последующем открытии переключатель был зафиксирован у Российского адреса, а не зарубежного.
    Т.е. я и при помощи регистра сведений пытаюсь, и при помощи самой обработки, эффект нулевой.
    Вот код:
    Код:
      НаборЗаписей = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Объект.Установить(ЭлементСпр.Ссылка);
    НаборЗаписей.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Адрес);
    НаборЗаписей.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ИнформАдресФизЛица);
    
    Запись = НаборЗаписей.Добавить();
    Запись.Вид = Справочники.ВидыКонтактнойИнформации.ИнформАдресФизЛица;
    Запись.Объект = ЭлементСпр.Ссылка;
    Запись.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
    
    Запись.Поле1 = АдреснаяСтрока2;
    Запись.Поле2 = АдреснаяСтрока3;
    Запись.Поле3 = АдреснаяСтрока4;
    Запись.Поле4 = АдреснаяСтрока5;
    Запись.Поле5 = АдреснаяСтрока6; 
    Запись.Поле6 = АдреснаяСтрока7;
    
    Запись.ТипДома = Перечисления.ТипыДомов.Дом;
    Запись.ТипКвартиры = Перечисления.ТипыКвартир.Квартира;
    Запись.ТипКорпуса = Перечисления.ТипыКорпусов.Корпус;
    Запись.Период = ТекущаяДата();
    НаборЗаписей.Записать();
    
    Это при помощи обработки
    Код:
    Обр = Обработки.РедактированиеКонтактнойИнформации.Создать(); 
    Обр.Вид = Справочники.ВидыКонтактнойИнформации.ИнформАдресФизЛица;
    Обр.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
    Обр.Объект = ЭлементСпр.Ссылка;  
    Обр.ЗаписыватьВРегистр = Истина;
    Обр.Поле1 = АдреснаяСтрока2;
    Обр.Поле2 = АдреснаяСтрока3;
    Обр.Поле3 = АдреснаяСтрока4;
    Обр.Поле4 = АдреснаяСтрока5;
    Обр.Поле5 = АдреснаяСтрока6; 
    Обр.Поле6 = АдреснаяСтрока7;
    Обр.ТипДома = Перечисления.ТипыДомов.Дом;
    Обр.ТипКвартиры = Перечисления.ТипыКвартир.Квартира;
    Обр.ТипКорпуса = Перечисления.ТипыКорпусов.Корпус;
    Форм = Обр.ПолучитьФорму("ФормаЗаписиАдреса");
    Форм.элементыформы.РоссийскийАдрес.Значение = Истина;
    Форм.Открыть();
    Обр.Записать();
    
  2. TopicStarter Overlay
    qwertyu
    Offline

    qwertyu Опытный в 1С

    Регистрация:
    11 ноя 2011
    Сообщения:
    609
    Симпатии:
    0
    Баллы:
    26
    В общем получается форма заполняется, но переключатель в состоянии "Адрес за пределами РФ". Не понятно, как его поменять. И в таблице не выделено, что записан адрес.

Поделиться этой страницей