Реклама на этом месте
Форум 1С
Форум 1С
Программистам. Бухгалтерам. Администраторам. Пользователям
Задай вопрос - получи решение проблемы. Без троллинга и флуда.
13 Дек 2017, 03:01
МультиВход
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?
 
collapse

Автор Тема: Где РегистрыСведений.КонтактнаяИнформация?  (Прочитано 3064 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Doomych

  • *
  • Сообщений: 21
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-11-13
  • Сайт: 
1С:Предприятие 8.3 (типовая конфигурация; Бухгалтерия предприятия, редакция 3.0)

Подключаюсь к 1С из Delphi через OLE Automation. Научился записывать такие реквизиты контрагента, как Наименование, ИНН и т.п. Теперь пытаюсь записать в контрагента контактную информацию. Нашел такой пример (http://www.forum.mista.ru/topic.php?id=499560):

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

nn2.Отбор.Объект.Установить(s1C8_ole.Справочники.Контрагенты.НайтиПоНаименованию('Казкоммерцбанк').Ссылка);
nn2.Отбор.Тип.Установить(s1C8_ole.Перечисления.ТипыКонтактнойИнформации.Адрес);
nn2.Отбор.Вид.Установить(s1C8_ole.Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);

nn7 := nn2.Добавить();
nn7.Объект := s1C8_ole.Справочники.Контрагенты.НайтиПоНаименованию('Казкоммерцбанк').Ссылка;
nn7.Тип := s1C8_ole.Перечисления.ТипыКонтактнойИнформации.Адрес;
nn7.Вид := s1C8_ole.Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;

nn7.Представление:='01000, Казахстан, Астана';

nn2.Записать();

Этот пример в Инете встречается многократно, но у меня он не работает. Падаю на s1C8_ole.РегистрыСведений.КонтактнаяИнформация. И, действительно, просматривая в конфигураторе регистры сведений, я вижу, что КонтактнаяИнформация там отсутствует. Прошу помощи.



Оффлайн sertak

  • ****
  • Сообщений: 274
  • РЕПУТАЦИЯ: 74
  • КПД: 27%
  • Регистрация: 2013-01-16
    • Skype: vitaly_sertakov
  • Сайт: www.sertakov.ru
  • Профессия: Программист 1С
В 1С:Бухгалтерия 2 есть такой регистр, в 1С:Управление торговлей 11 нету, например,  и т.д. Смотрите, как в нужной вам конфиге организовано хранение контактной информации.
Если ты знаешь свой путь, то удачи и неудачи равно продвигают тебя вперед

Оффлайн дфтын

  • Могу решить ЛЮБУЮ задачу в 1С и не только.. С вопросами в личку:)
  • *****
  • Сообщений: 2720
  • РЕПУТАЦИЯ: 325
  • КПД: 12%
  • 1С наше все
  • Регистрация: 2014-04-29
    • Skype: Soprov1C
  • Компания: Корпорация зонтиков
  • Профессия: Разработчик 1С
самое интересное.. что .. кладра больше нет.. ФИАС.. изучайте..
Помог? Нажми - Спасибо :)
skype: Soprov1C

Оффлайн Doomych

  • *
  • Сообщений: 21
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-11-13
  • Сайт: 
В 1С:Бухгалтерия 2 есть такой регистр, в 1С:Управление торговлей 11 нету, например,  и т.д. Смотрите, как в нужной вам конфиге организовано хранение контактной информации.
Хорошо. Нашел контактную информацию в самом справочнике "Контрагенты": Контрагенты/Табличные части/КонтактнаяИнформация.
Пытаюсь ее добавить следующим образом (Delphi):
function TClients.CreateContragent(....): boolean;
var
  contragent: OleVariant;
  Sel_ole, nn7: OleVariant;
begin
  contragent := FOleContragents.СоздатьЭлемент();

  ....
  contragent.Наименование := 'Клиент1';
  ....
  contragent.Записать(); // контрагент, действительно, создается

  // Добавляем контактную информацию
  Sel_ole := contragent.КонтактнаяИнформация;
  nn7 := Sel_ole.Добавить();
  nn7.Тип := Ole1C.Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты;
  nn7.Вид := Ole1C.Справочники.ВидыКонтактнойИнформации.EmailКонтрагенты;
  nn7.АдресЭП := 'test08@example.com';

  contragent.Записать();
end;
Функция отрабатывает без ошибок. Контрагент создается (1-й "Записать"), но e-mail не добавляется (2-й "Записать").

Оффлайн дфтын

  • Могу решить ЛЮБУЮ задачу в 1С и не только.. С вопросами в личку:)
  • *****
  • Сообщений: 2720
  • РЕПУТАЦИЯ: 325
  • КПД: 12%
  • 1С наше все
  • Регистрация: 2014-04-29
    • Skype: Soprov1C
  • Компания: Корпорация зонтиков
  • Профессия: Разработчик 1С
А как вы проверяете , что не добавляется? :) негде эта табличная часть не отображается.
пишите обработку читайте табличную часть и смотрите, что там
по коду все верно. все создается
Помог? Нажми - Спасибо :)
skype: Soprov1C

Оффлайн Doomych

  • *
  • Сообщений: 21
  • РЕПУТАЦИЯ: 0
  • Регистрация: 2014-11-13
  • Сайт: 
А как вы проверяете , что не добавляется? :)
1С:Предприятие -> Покупки и продажи -> Контрагенты. Тут я вижу созданную мной компанию. Захожу в нее. На странице "Главное" добавленная мной информация (наименование, ИНН, ОКПО и проч.) видна, а на странице "Адреса" поле Email пусто.
Добавлено: 16 Дек 2014, 14:51

Продолжаю разбираться.
Оказывается, проблема у меня с e-mail и еще с телефоном. А вот адреса я добавляю без проблем:
Sel_ole := contragent.КонтактнаяИнформация;
nn7 := Sel_ole.Добавить();
nn7.Представление := 'Деревня, у дедушки';
nn7.Вид := Ole1C.Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
nn7.Тип := Ole1C.Перечисления.ТипыКонтактнойИнформации.Адрес;
contragent.Записать();

Последний раз редактировалось: Doomych; 16 Дек 2014, 14:51. Причина: Объединение сообщений


Теги:
 

Создание маски для поля "телефон", общего модуля КонтактнаяИнформация

Автор Space_minusРаздел Конфигурирование, программирование в "1С - Предприятие 8"

Ответов: 3
Просмотров: 605
Последний ответ 28 Июл 2016, 12:39
от Kironten
РегистрыСведений

Автор 1cwikiРаздел Синтаксис

Ответов: 0
Просмотров: 374
Последний ответ 18 Июл 2015, 16:00
от 1cwiki
РегистрыСведений

Автор 1cwikiРаздел Синтаксис

Ответов: 0
Просмотров: 266
Последний ответ 03 Авг 2015, 23:40
от 1cwiki

* Живое общение

Не устроил ответ?

Зарегистрируйся и задай свой вопрос. Живое общение приносит результат намного быстрее.


Зарегистрироваться

* Реклама

* Поиск

* Последние задачи на разработку (фриланс)

* Реклама

* Последние вакансии

* Топ 10 авторов за месяц

Геннадий ОбьГЭС Геннадий ОбьГЭС
171 Сообщений
ilyay ilyay
75 Сообщений
oleg-x
51 Сообщений
alex0402
49 Сообщений
andron81_81
38 Сообщений
AIFrame
37 Сообщений
MuI_I_Ika MuI_I_Ika
33 Сообщений
BuhRust
30 Сообщений
Golickoff Golickoff
28 Сообщений
Dima Dddd Dima Dddd
26 Сообщений

* Кто онлайн

  • Точка Гостей: 236
  • Точка Скрытых: 0
  • Точка Пользователей: 3
  • Точка Сейчас на форуме:

* Облако тэгов

* Форум 1С с мобильного

* Инструменты

* Дополнительно

Поиск

 
SimplePortal 2.3.5 © 2008-2012, SimplePortal