ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Создание справочника контрагента и контактных данных в 1с УТ 8.1
8 сообщений из 8, страница 1 из 1
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37643067
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
При создании справочника пытаюсь добавиь информацию по контрагаенту такую как телефон, адрес итд. На сколько я понял эта информация содержится в регистре сведений. Соответсвенно создаю новый НовыйРегистрыСведенийКонтактИнфо и делаю отбор контрагента по нему, я так сказать с 1с на вы поэтому не совсем понимаю как установиьт этот отбор вот попытался сделать так в НовыйРегистрыСведенийКонтактИнфо.Отбор.Объект.Установить(КонтрагентСсылка); написал КонтрагентСсылка хотя может это и не так делается.
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
КонтрагентСсылка = Справочники.Контрагенты;
 НовыйСправочникКонтрагенты = КонтрагентСсылка.СоздатьЭлемент() ;
 НовыйСправочникКонтрагенты.Наименование = RecordSet.Fields("f_name").Value;
 // НовыйСправочникКонтрагенты.КодПоЕДРПОУ = ЭлементыФормы.ПолеКодПоЕДРПОУ.Значение ;
 НовыйСправочникКонтрагенты.НаименованиеПолное = RecordSet.Fields("f_name").Value;
 НовыйСправочникКонтрагенты.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо ;
 НовыйСправочникКонтрагенты.Записать() ;

 НовыйРегистрыСведенийКонтактИнфо = РегистрыСведений.КонтактнаяИнформация.СоздатьНаборЗаписей() ;

 // Отбор по регистру
 // Очень важно, если его не будет, то все записи по нему будут стерты!
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Объект.Установить(КонтрагентСсылка);  
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.Телефон);
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента);
 //-------------------------------------

   НовыйТелефон = НовыйРегистрыСведенийКонтактИнфо.Добавить() ;
   НовыйТелефон.Объект = КонтрагентСсылка ;
   НовыйТелефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон ;
   НовыйТелефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента ;
   НовыйТелефон.Представление = СокрЛП(RecordSet.Fields("phone").Value) ;


но выдает ошибку {Форма.Форма1(68)}: Ошибка при вызове метода контекста (Записать): Операция не выполнена!
НовыйРегистрыСведенийКонтактИнфо.Записать() ;
по причине:
Операция не выполнена!

Подскажите плз как записать данные контрагента - телефон, адрес, итд которого только что создал.
...
Рейтинг: 0 / 0
02.02.2012, 01:13
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37643359
Программист 1с
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист 1с
Участник
КонтрагентСсылка=НовыйСправочникКонтрагенты.Ссылка где?
...
Рейтинг: 0 / 0
02.02.2012, 10:29
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37643511
shurikvz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shurikvz
Участник
Программист 1сКонтрагентСсылка=НовыйСправочникКонтрагенты.Ссылка где?
Наверно все же проще строку
Код: sql
1.
НовыйТелефон.Объект = КонтрагентСсылка ;


заменить на
Код: sql
1.
НовыйТелефон.Объект = НовыйСправочникКонтрагенты.Ссылка;
...
Рейтинг: 0 / 0
02.02.2012, 11:41
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37643555
sWinTyz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sWinTyz
Участник
Контрагент=НовыйСправочникКонтрагенты.Ссылка;
НовыйРегистрыСведенийКонтактИнфо.Отбор.Объект.Установить(Контрагент);

НовыйТелефон.Объект = Контрагент ;
...
Рейтинг: 0 / 0
02.02.2012, 11:57
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37644945
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
sWinTyzКонтрагент=НовыйСправочникКонтрагенты.Ссылка;
НовыйРегистрыСведенийКонтактИнфо.Отбор.Объект.Установить(Контрагент);

НовыйТелефон.Объект = Контрагент ;
Спасибо помогло, а вот такой вопрос вот мы добавили телефон контрагента
Код: sql
1.
2.
3.
4.
5.
НовыйТелефон = НовыйРегистрыСведенийКонтактИнфо.Добавить() ;
   НовыйТелефон.Объект = Контрагент ;
   НовыйТелефон.Тип = Перечисления.ТипыКонтактнойИнформации.Телефон ;
   НовыйТелефон.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонКонтрагента ;
   НовыйТелефон.Представление = СокрЛП(RecordSet.Fields("phone").Value) ;


теперь пытаюсь добавить адрес email контрагента:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Объект.Установить(Контрагент);   
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Тип.Установить(Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
 НовыйРегистрыСведенийКонтактИнфо.Отбор.Вид.Установить(Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтактногоЛицаКонтрагента);
 Новыйемейл =НовыйРегистрыСведенийКонтактИнфо.Добавить() ;
 Новыйемейл.Объект = Контрагент;
 Новыйемейл.Тип = Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
 Новыйемейл.Вид = Справочники.ВидыКонтактнойИнформации.АдресЭлектроннойПочтыКонтактногоЛицаКонтрагента;
 Новыйемейл.Представление = СокрЛП(RecordSet.Fields("email").Value);
 НовыйРегистрыСведенийКонтактИнфо.Записать();

при этом выдает ошибку
Код: sql
1.
2.
3.
4.
{Форма.Форма1(77)}: Ошибка при вызове метода контекста (Записать): Запись не верна! Значение поля не соответствует установленному отбору: Татьяна : Телефон : Телефон контрагента (Регистр сведений: Контактная информация; Поле: Тип)
 НовыйРегистрыСведенийКонтактИнфо.Записать();
по причине:
Запись не верна! Значение поля не соответствует установленному отбору: Татьяна : Телефон : Телефон контрагента (Регистр сведений: Контактная информация; Поле: Тип)


Мы ведь в самом начале установили отбор
...
Рейтинг: 0 / 0
03.02.2012, 00:03
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37644947
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Что делаю не так подскажите плз
...
Рейтинг: 0 / 0
03.02.2012, 00:04
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37645017
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Вопрос решил теперь нужно создать договор контрагента делаю это так
Код: sql
1.
2.
3.
4.
5.
6.
7.
 
ДоговорСсылка = Справочники.ДоговорыКонтрагентов;
 НовыйДоговор =  ДоговорСсылка.СоздатьЭлемент();
 НовыйДоговор.Наименование = "Договор №";
 НовыйДоговор.Владелец = Контрагент;
 НовыйДоговор.Записать();

Выдает ошибку при Записать
Что то не пойму как привязать к этому договору самого контрагента?
...
Рейтинг: 0 / 0
03.02.2012, 01:51
| Ответить | Цитировать | Написать  
Создание справочника контрагента и контактных данных в 1с УТ 8.1
    #37645053
ppc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ppc
Участник
Проблему решил
...
Рейтинг: 0 / 0
03.02.2012, 03:08
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Создание справочника контрагента и контактных данных в 1с УТ 8.1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]