() там надо две картинки из расширения убрать:
ор_НоменклатураПродаваемаяСовместно
ор_СостояниеНоменклатурыПродаваемойСовместно
А вообще да, расширение кривое, там только формы Обработка.РМКУправляемыйРежим
Форма и ФормаПоискаДисконтнойКарты расширены.
РасчетСкидокДляАнализаДиапазонаКарт(); - функция отсутствует, т.е. код функции не прописан.
Собственно весь код по поиску ДК тут, как видно никаких дополнительных настроек нет:
&Вместо("ОповещениеОткрытьФормуПоискаДисконтнойКарты")
&НаКлиенте
Процедура Mf_ОповещениеОткрытьФормуПоискаДисконтнойКарты(РезультатОткрытияФормы, ДополнительныеПараметры) Экспорт
Если НЕ РезультатОткрытияФормы = Неопределено Тогда
КодЗначение = РезультатОткрытияФормы.ВведенноеЧисло;
//Mf+
Если РезультатОткрытияФормы.РежимПоискаКарты = "НомерТелефона" тогда
РезультатыПоиска = НайтиКарту(РезультатОткрытияФормы, ДополнительныеПараметры);
Если РезультатыПоиска.Количество() = 0 тогда
РезультатОткрытияФормы.Вставить("РежимПоискаКарты","КодЗначение");
КонецЕсли;
КонецЕсли;
//Mf-
Если РезультатОткрытияФормы.РежимПоискаКарты = "ФИО"
ИЛИ РезультатОткрытияФормы.РежимПоискаКарты = "НомерТелефона"
ИЛИ РезультатОткрытияФормы.РежимПоискаКарты = "Email" Тогда
НайтиИУстановитьКарту(РезультатОткрытияФормы, ДополнительныеПараметры);
Иначе
Если ЗначениеЗаполнено(КодЗначение) Тогда
ИсполняемаяОперацияЛогирования = "ВведенНомерКарты";
// + Диапазон карт
НомерКартыДляАнализаДиапазона = КодЗначение;
НайденаКартаПоДиапазону = РасчетСкидокДляАнализаДиапазонаКарт();
// - Диапазон карт
// + Бонусный сервис
ПередаваемыеПараметры = Новый Структура("НомерКарты, ВведенВручную, ПроверкаБонусныхКарт", КодЗначение);
Если ПараметрыСобытийПО.Свойство("ДанныеОборудования") Тогда
ПараметрыСобытийПО.ДанныеОборудования = ПередаваемыеПараметры;
Иначе
ПараметрыСобытийПО.Вставить("ДанныеОборудования", ПередаваемыеПараметры);
КонецЕсли;
Если НЕ ПараметрыСобытийПО.Свойство("ПроверкаБонусныхКарт") Тогда
ПараметрыСобытийПО.ДанныеОборудования.Вставить("ПроверкаБонусныхКарт");
КонецЕсли;
// - Бонусный сервис
СтруктураПараметровКлиента = ПолученМагнитныйКод(КодЗначение);
ОбработатьДанныеПоКодуКлиент(СтруктураПараметровКлиента);
// + Бонусный сервис
Если СтруктураПараметровКлиента.Свойство("ЕстьРегистрацияНовойКарты") Тогда
Если НЕ ПараметрыСобытийПО.Свойство("ЕстьРегистрацияНовойКарты") Тогда
ПараметрыСобытийПО.Вставить("ЕстьРегистрацияНовойКарты");
КонецЕсли;
СтруктураПараметровКлиента = ПолученМагнитныйКод(СтруктураПараметровКлиента.ЕстьРегистрацияНовойКарты);
ОбработатьДанныеПоКодуКлиент(СтруктураПараметровКлиента);
Если ПараметрыСобытийПО.Свойство("ЕстьРегистрацияНовойКарты") Тогда
ПараметрыСобытийПО.Удалить("ЕстьРегистрацияНовойКарты");
КонецЕсли;
КонецЕсли;
// - Бонусный сервис
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры Показать
Проверено на Розница 2.3.10.43
