Вечер добрый! Обнаружена недоработка в изменениях подсистемы "Контактная информация"
Например: Процедура ОМ "ПартнерыИКонтрагенты.ПартнерФормаЭлементаПриСозданииНаСервере" содержит код:
А вот событие формы "ПриЧтении", точнее Процедура ОМ ПартнерыИКонтрагенты."ПартнерФормаЭлементаПриЧтенииНаСервере" содержит только код от 1с.
Отчего при попытке перечитать форму (любую с именем "CRM_ФормаЭлемента", и контактами) вылезает ошибка. Воспроизводится и програмно и нажатием стандартной кнопки формы "Перечитать"
P.S. заметили перед добавлением стандартной для УТ11 кнопки "Заполнить адрес"
Уж очень её не хватает для копирования одинаковых адресов.
Изобретать велосипед не стали и добавили в ОМ "УправлениеКонтакнойИнформацией", в процедуру "Действие" . Точнее туда где Вы добавляете свои кнопки:
Например: Процедура ОМ "ПартнерыИКонтрагенты.ПартнерФормаЭлементаПриСозданииНаСервере" содержит код:
| Код |
|---|
//+CRM Если Найти(Форма.ИмяФормы, "CRM_ФормаЭлемента") > 0 Тогда УправлениеКонтактнойИнформацией.CRM_ПриСозданииНаСервере(Форма, Форма.Объект, "ГруппаКонтактнаяИнформация", ПоложениеЗаголовкаЭлементаФормы.Лево); Иначе // СтандартныеПодсистемы.КонтактнаяИнформация УправлениеКонтактнойИнформацией.ПриСозданииНаСервере(Форма, Форма.Объект, "ГруппаКонтактнаяИнформация"); // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецЕсли; //-CRM |
А вот событие формы "ПриЧтении", точнее Процедура ОМ ПартнерыИКонтрагенты."ПартнерФормаЭлементаПриЧтенииНаСервере" содержит только код от 1с.
Отчего при попытке перечитать форму (любую с именем "CRM_ФормаЭлемента", и контактами) вылезает ошибка. Воспроизводится и програмно и нажатием стандартной кнопки формы "Перечитать"
P.S. заметили перед добавлением стандартной для УТ11 кнопки "Заполнить адрес"
Уж очень её не хватает для копирования одинаковых адресов.
Изобретать велосипед не стали и добавили в ОМ "УправлениеКонтакнойИнформацией", в процедуру "Действие" . Точнее туда где Вы добавляете свои кнопки:
| Код |
|---|
ИмяКоманды = "Команда" + ИмяРеквизита;
Команда = Форма.Команды.Добавить(ИмяКоманды);
ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 9, Истина,,?(Это_CRM_Форма,ИмяРеквизита,""));
Команда.Отображение = ОтображениеКнопки.Картинка;
Команда.Действие = "Подключаемый_КонтактнаяИнформацияВыполнитьКоманду";
Элемент = Форма.Элементы.Добавить(ИмяКоманды,Тип("КнопкаФормы"), ГруппаКоманд);
ДобавитьОписаниеЭлемента(Форма, ИмяКоманды, 2,,,?(Это_CRM_Форма,ИмяРеквизита,""));
Элемент.ИмяКоманды = ИмяКоманды;
Элемент.Заголовок = НСтр("ru='Заполнить'");
Команда.Подсказка = НСтр("ru='Заполнить адрес'");
Команда.Картинка = БиблиотекаКартинок.ПереместитьВлево;
|
Изменено: - 11.10.2013 17:39:47
