Ошибка/недоработка! Контактная информация доп. кнопки от CRM2.0 в УТ11+CRM2.0

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

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

Александр Железков

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

11.10.2013 в 05:32

RSS

Вечер добрый! Обнаружена недоработка в изменениях подсистемы "Контактная информация"

Например: Процедура ОМ "ПартнерыИКонтрагенты.ПартнерФормаЭлементаПриСозданииНаСервере" содержит код:

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

Код

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

А вот событие формы "ПриЧтении", точнее Процедура ОМ ПартнерыИКонтрагенты."ПартнерФормаЭлементаПриЧтенииНаСервере" содержит только код от 1с.
Отчего при попытке перечитать форму (любую с именем "CRM_ФормаЭлемента", и контактами) вылезает ошибка. Воспроизводится и програмно и нажатием стандартной кнопки формы "Перечитать"

P.S. заметили перед добавлением стандартной для УТ11 кнопки "Заполнить адрес"
Уж очень её не хватает для копирования одинаковых адресов.
Изобретать велосипед не стали и добавили в ОМ "УправлениеКонтакнойИнформацией", в процедуру "Действие" . Точнее туда где Вы добавляете свои кнопки:

Код
ИмяКоманды = "Команда" + ИмяРеквизита; Команда = Форма.Команды.Добавить(ИмяКоманды); ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 9, Истина,,?(Это_CRM_Форма,ИмяРеквизита,"")); Команда.Отображение = ОтображениеКнопки.Картинка; Команда.Действие = "Подключаемый_КонтактнаяИнформацияВыполнитьКоманду"; Элемент = Форма.Элементы.Добавить(ИмяКоманды,Тип("КнопкаФормы"), ГруппаКоманд); ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 2,,,?(Это_CRM_Форма,ИмяРеквизита,"")); Элемент.ИмяКоманды = ИмяКоманды; Элемент.Заголовок = НСтр("ru='Заполнить'"); Команда.Подсказка = НСтр("ru='Заполнить адрес'"); Команда.Картинка = БиблиотекаКартинок.ПереместитьВлево;

Код

ИмяКоманды = "Команда" + ИмяРеквизита;
Команда = Форма.Команды.Добавить(ИмяКоманды);
ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 9, Истина,,?(Это_CRM_Форма,ИмяРеквизита,""));
Команда.Отображение = ОтображениеКнопки.Картинка;
Команда.Действие = "Подключаемый_КонтактнаяИнформацияВыполнитьКоманду";
Элемент = Форма.Элементы.Добавить(ИмяКоманды,Тип("КнопкаФормы"), ГруппаКоманд);
ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 2,,,?(Это_CRM_Форма,ИмяРеквизита,""));
Элемент.ИмяКоманды = ИмяКоманды;
Элемент.Заголовок = НСтр("ru='Заполнить'");
Команда.Подсказка = НСтр("ru='Заполнить адрес'");
Команда.Картинка = БиблиотекаКартинок.ПереместитьВлево;

124

Мария Измайлова

Сотрудник 1С-Рарус

15.10.2013 в 04:10

Добрый день!
Спасибо за сообщение. Передала разработчикам.

Читают тему

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

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