Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
astpanel:designer:crm2:modulesrc [2014/11/14 22:32] 127.0.0.1 внешнее изменение |
astpanel:designer:crm2:modulesrc [2016/06/24 13:26] (текущий) imal |
||
---|---|---|---|
Строка 13: | Строка 13: | ||
// добавляем новые параметры в настройки пользователя | // добавляем новые параметры в настройки пользователя | ||
- | Если Метаданные.Имя = "CRM" Или Метаданные.Имя = "УправлениеТорговлей_CRM_2" Тогда | + | Если Метаданные.Имя = "CRM" |
+ | ИЛИ Метаданные.Имя = "УправлениеНебольшойФирмой_CRMСтандарт" | ||
+ | ИЛИ Метаданные.Имя = "УправлениеНебольшойФирмой_CRM" | ||
+ | ИЛИ Метаданные.Имя = "КомплекснаяАвтоматизация_CRM" | ||
+ | ИЛИ Метаданные.Имя = "УправлениеТорговлей_CRM_2" Тогда | ||
пвхНастройкиПользователей = ?(Метаданные.ПланыВидовХарактеристик.Найти("НастройкиПользователей") <> Неопределено, ПланыВидовХарактеристик.НастройкиПользователей, ПланыВидовХарактеристик.CRM_НастройкиПользователей); | пвхНастройкиПользователей = ?(Метаданные.ПланыВидовХарактеристик.Найти("НастройкиПользователей") <> Неопределено, ПланыВидовХарактеристик.НастройкиПользователей, ПланыВидовХарактеристик.CRM_НастройкиПользователей); | ||
Отбор = Новый Структура("Наименование", НазваниеПанелиТелефонии); | Отбор = Новый Структура("Наименование", НазваниеПанелиТелефонии); | ||
Строка 30: | Строка 34: | ||
КонецЕсли; | КонецЕсли; | ||
КонецЕсли; | КонецЕсли; | ||
+ | |||
КонецПроцедуры | КонецПроцедуры | ||
Строка 115: | Строка 120: | ||
КонецФункции | КонецФункции | ||
+ | |||
+ | // Программное добавление кнопки отправки факса на форму печати документа. | ||
+ | // | ||
+ | Процедура ДобавитьКнопкиФаксаНаФормуПечати(ЭтаФорма) Экспорт | ||
+ | |||
+ | ИмяКоманды = "МИКО_ОтправитьКакФакс"; | ||
+ | Команда = ЭтаФорма.Команды.Добавить(ИмяКоманды); | ||
+ | Команда.Подсказка = НСтр("ru='Отправить факсом'"); | ||
+ | Команда.Заголовок = "Отправить факсом"; | ||
+ | Команда.Действие = "МИКО_ОтправитьКакФакс"; | ||
+ | Команда.Картинка = БиблиотекаКартинок.МИКО_ОтправитьФакс; | ||
+ | Команда.Отображение = ОтображениеКнопки.Картинка; | ||
+ | |||
+ | КнопкаПозвонить = ЭтаФорма.Элементы.Добавить("элМИКО_ОтправитьКакФакс", Тип("КнопкаФормы"), ЭтаФорма.Элементы.ГруппаСохранитьОтправить); | ||
+ | КнопкаПозвонить.ИмяКоманды = ИмяКоманды; | ||
+ | КнопкаПозвонить.ЦветРамки = ЦветаСтиля.ЦветФонаФормы; | ||
+ | |||
+ | ИмяКоманды = "МИКО_Позвонить"; | ||
+ | Команда = ЭтаФорма.Команды.Добавить(ИмяКоманды); | ||
+ | Команда.Подсказка = НСтр("ru='Позвонить'"); | ||
+ | Команда.Заголовок = "Позвонить"; | ||
+ | Команда.Действие = "МИКО_Позвонить"; | ||
+ | Команда.Картинка = БиблиотекаКартинок.МИКО_Телефон; | ||
+ | Команда.Отображение = ОтображениеКнопки.Картинка; | ||
+ | |||
+ | КнопкаПозвонить = ЭтаФорма.Элементы.Добавить("элМИКО_Позвонить", Тип("КнопкаФормы"), ЭтаФорма.Элементы.ГруппаСохранитьОтправить); | ||
+ | КнопкаПозвонить.ИмяКоманды = ИмяКоманды; | ||
+ | КнопкаПозвонить.ЦветРамки = ЦветаСтиля.ЦветФонаФормы; | ||
+ | |||
+ | КонецПроцедуры | ||
+ | |||
+ | // Для документов будет возвращено значение реквизита "Контрагент" | ||
+ | // Для справочников - возвращается ссылка на элемент | ||
+ | // В случае ошибки возвращается "Неопределено" | ||
+ | // | ||
+ | Функция ПолучитьСсылкуНаУчастникаИзДокумента(Ссылка) Экспорт | ||
+ | |||
+ | Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда | ||
+ | Возврат Ссылка; | ||
+ | ИначеЕсли Документы.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда | ||
+ | МассивОбъектов = Новый Массив; | ||
+ | ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "Контрагент"); | ||
+ | ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "Партнер"); | ||
+ | ДобавитьЗначениеРеквизитаВМассив(Ссылка, МассивОбъектов, "КонтактноеЛицо"); | ||
+ | |||
+ | Возврат МассивОбъектов; | ||
+ | КонецЕсли; | ||
+ | КонецФункции // ПолучитьСсылкуНаУчастникаИзДокумента() | ||
+ | |||
+ | // Получате значение раквизита, если значение заполнено - добавляет его в массив. | ||
+ | // | ||
+ | Функция ДобавитьЗначениеРеквизитаВМассив(Знач Ссылка, Массив, ИмяРеквизита) Экспорт | ||
+ | Если Ссылка.Метаданные().Реквизиты.Найти(ИмяРеквизита) = Неопределено Тогда | ||
+ | Возврат Ложь; | ||
+ | КонецЕсли; | ||
+ | Если ЗначениеЗаполнено(Ссылка[ИмяРеквизита]) Тогда | ||
+ | Массив.Добавить(Ссылка[ИмяРеквизита]); | ||
+ | КонецЕсли; | ||
+ | |||
+ | Возврат Истина; | ||
+ | КонецФункции // ДобавитьЗначениеРеквизитаВМассив() | ||
+ | |||
</code> | </code> |