Форум программистов, компьютерный форум CyberForum.ru

1С: Собственные программы

Войти
Регистрация
Восстановить пароль
 
Neophyte1C
2 / 2 / 4
Регистрация: 18.08.2016
Сообщений: 50
#1

1C 8.x Создать элемент контактной информации (факс) - 1С

15.12.2016, 13:07. Просмотров 215. Ответов 0
Метки нет (Все метки)

Приветствую всех.

Вопрос возник у меня. Мне надо у контрагента в его контактной информации "Телефон контрагента 1" перенести в "Факс контрагента", который ещё не создан.

Делаю так:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Запрос = Новый Запрос;                          
    Запрос.Текст = "ВЫБРАТЬ
                   |    КонтактнаяИнформация.Представление,
                   |    Контрагенты.Наименование
                   |ИЗ
                   |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
                   |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
                   |        ПО КонтактнаяИнформация.Объект = Контрагенты.Ссылка
                   |ГДЕ
                   |    КонтактнаяИнформация.Вид = &Вид
                   //|  Или КонтактнаяИнформация.Вид = &Вид1)
                   |    И КонтактнаяИнформация.Тип = &Тип
                   |    И КонтактнаяИнформация.Объект = &Объект";                                       
    Запрос.УстановитьПараметр("Вид",Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("000011872")); 
    //Запрос.УстановитьПараметр("Вид1",Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("000011872"));
    Запрос.УстановитьПараметр("Тип",Перечисления.ТипыКонтактнойИнформации.Телефон);
    Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект);
        Результат = Запрос.Выполнить().Выгрузить();                     
    Для каждого Строка из Результат Цикл
 
            ЗаписьРегистра = РегистрыСведений.КонтактнаяИнформация.СоздатьМенеджерЗаписи();     
            ЗаписьРегистра.Объект = СсылкаНаОбъект;     
            ЗаписьРегистра.Вид = Справочники.ВидыКонтактнойИнформации.ФаксКонтрагента;      
            ЗаписьРегистра.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон;         
            ЗаписьРегистра.Представление = Строка.Представление;    
            ЗаписьРегистра.Записать(Истина);  
 
    КонецЦикла;
Но в ответ ничего не происходит, не создаётся "Факс контрагента" с перенесённым номером. Показано на рисунке.

С другим кодом, тоже самое - ничего.

1C
1
2
3
4
5
6
7
8
КИ = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей();
            КИ.Отбор.Объект.Установить(СсылкаНаОбъект);
            Факс = КИ.Добавить();
            Факс.Объект = СсылкаНаОбъект;
            Факс.Тип    = Перечисления.ТипыКонтактнойИнформации.Телефон;
            Факс.Вид    = Справочники.ВидыКонтактнойИнформации.ФаксКонтрагента;
            Факс.Представление = Строка.Представление;
            КИ.Записать();
Подскажите, что не так делаю?
Миниатюры
Создать элемент контактной информации (факс)  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2016, 13:07     1C 8.x Создать элемент контактной информации (факс)
Посмотрите здесь:

1С 1C 8.x Как изменить отображение информации со строчного вида в виде таблицы?
Получение информации из подчинённого справочника 7.7 1С 1C 7.x
Разработать информационную систему для внесения, хранения, использования информации 1С 1C 8.x
1С Выборка контактной информации из запроса
1С 1C 8.x Выборка нужной информации из разных справочников

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 15:02. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru