КонтрагентПартнера

Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.

Доступ к форуму партнерам «1C-Рарус» по дистрибуции предоставляется на сайте rarus-soft.ru

Владимир Виноградов

Пользователь ПП

24.09.2013 в 11:17

RSS

Добрый день.
Обновили связку УТ+СРМ на релиз 2.0.3.1.
В форме справочника "Партнеры" появился реквизит формы "КонтрагентПартнера"
При НЕ установленной функциональной опции "ИспользоватьПартнеровКакКонтрагентов" реквизит не заполняется ни при чтении на сервере, ни при открытии.
В процедуре "ПослеЗаписиНаСервере" вызывается процедура "ЗаписатьКонтрагентаПартнера".
Если у партнера не введено еще ни одного контрагента, то при КАЖДОЙ записи партнера создается контрагент. Без указания юридическое это или физическое лицо.
В результате у партнера получается столько контрагентов, сколько раз нажали на кнопку "Записать"

124

Алексей Полубенский

Администратор

24.09.2013 в 12:29

Спасибо, Владимир!
Готовим новую сборку релиза с последней версией УТ11, исправление в нее уже включили.
релиз запланирован на эту среду-четверг.

для самостоятельного исправления:
модуль формы партнеров "CRM_ФормаЭлемента"
Заменить метод:

Код
&НаСервере Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи) Если КорректироватьНапоминание Тогда CRM_ОповещенияСервер.СформироватьУдалитьНапоминанияОДняхРождения(ТекущийОбъект.Ссылка); КорректироватьНапоминание = Ложь; КонецЕсли; //+CRM КонтактныеЛица.Отбор.Элементы[0].ПравоеЗначение = Объект.Ссылка; //-CRM ПартнерыИКонтрагенты.ПартнерФормаЭлементаПослеЗаписиНаСервере(ЭтаФорма, ТекущийОбъект, ПараметрыЗаписи); Если ИспользоватьПартнеровКакКонтрагентов Тогда ЗаписатьКонтрагентаПартнера(); КонецЕсли; КонецПроцедуры

Код

&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
   
   Если КорректироватьНапоминание Тогда
      
      CRM_ОповещенияСервер.СформироватьУдалитьНапоминанияОДняхРождения(ТекущийОбъект.Ссылка);
      
      КорректироватьНапоминание = Ложь;
   КонецЕсли;
   
   //+CRM
   КонтактныеЛица.Отбор.Элементы[0].ПравоеЗначение = Объект.Ссылка;
   //-CRM
   
   ПартнерыИКонтрагенты.ПартнерФормаЭлементаПослеЗаписиНаСервере(ЭтаФорма, ТекущийОбъект, ПараметрыЗаписи);
   
   Если ИспользоватьПартнеровКакКонтрагентов Тогда
      ЗаписатьКонтрагентаПартнера();
   КонецЕсли;
   
КонецПроцедуры

Владимир Виноградов

Пользователь ПП

24.09.2013 в 12:44

Спасибо за ответ.
Самостоятельно уже подправили )))
Ждем новый релиз...

Читают тему

Поддержка отраслевых решений «1С-Рарус»

Узнать подробнее