Проблема с расширением

Форум Программирование Общие вопросы программирования (Dev)

1. nokirosito 02.09.20 10:43 Сейчас в теме +2 $m

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

		Форма.Список.ТекстЗапроса = ТекстЗапросаДинамическогоСпискаПартнеры(ЗапросСИнформациейПоКонтрагенту);
		Форма.Элементы.ГруппаКонтрагентыПартнера.Видимость      = НЕ Форма.ИспользоватьПартнеровКакКонтрагентов;
		ОтображатьИнформациюПоПроверкеКонтрагентов = Форма.ИспользоватьПартнеровКакКонтрагентов
		                                                          И ИспользоватьПроверкуКонтрагентов
		                                                          И ЗапросСИнформациейПоКонтрагенту;
		Форма.Элементы.ЕстьОшибкиПроверкаКонтрагентов.Видимость = ОтображатьИнформациюПоПроверкеКонтрагентов;
		ОбщегоНазначенияУТКлиентСервер.УстановитьСвойствоЭлементаФормы(Форма.Элементы,
		                                                               "ГруппаЛегенда",
		                                                               "Видимость",
		                                                               ОтображатьИнформациюПоПроверкеКонтрагентов);
		ОбщегоНазначенияУТКлиентСервер.УстановитьСвойствоЭлементаФормы(Форма.Элементы,
		                                                               "СписокКонтекстноеМенюПеренестиЭлемент",
		                                                               "Видимость",
		                                                               НЕ Форма.ИспользоватьПартнеровКакКонтрагентов);
		ОбщегоНазначенияУТКлиентСервер.УстановитьСвойствоЭлементаФормы(Форма.Элементы,
		                                                               "ФормаПеренестиЭлемент",
		                                                               "Видимость",
		                                                               НЕ Форма.ИспользоватьПартнеровКакКонтрагентов);
		// Сервис 1С-ЭДО
		ЭлементЭДО = Форма.Элементы.Найти("ЭДО");
		Если ЭлементЭДО <> Неопределено Тогда
			ЭлементЭДО.Видимость = Форма.ИспользоватьПартнеровКакКонтрагентов И ЗапросСИнформациейПоКонтрагенту;
		КонецЕсли;
		// Конец Сервис 1С-ЭДО
		
	Иначе
		
		Форма.Элементы.ЕстьОшибкиПроверкаКонтрагентов.Видимость = ИспользоватьПроверкуКонтрагентов;
		Форма.Элементы.ГруппаЛегенда.Видимость                  = ИспользоватьПроверкуКонтрагентов;
		
	КонецЕсли;
	
	Если Форма.ДоступноДобавлениеПартнеров И Не Форма.УпрощенныйВводДоступен Тогда
		ОбщегоНазначенияУТКлиентСервер.УстановитьСвойствоЭлементаФормы(Форма.Элементы,
		                                                               "ФормаСкопировать",
		                                                               "Видимость",
		                                                               Ложь);
	КонецЕсли;
	
	ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Форма.Список,
	                                                                   "ОтборПоПолнотекстовомуПоискуУстановлен",
	                                                                   Ложь);
	ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Форма.Список,
	                                                                   "ОтборПоПолнотекстовомуПоиску",
	                                                                   Неопределено);
	ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Форма.Список,
	                                                                   "ОтборПоСегментуУстановлен",
	                                                                   Ложь);
	ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Форма.Список,
	                                                                   "ОтборПоСегменту",
	                                                                   Неопределено);
	ОбщегоНазначенияКлиентСервер.УстановитьПараметрДинамическогоСписка(Форма.Список,
	                                                                   "ПредставлениеОбособленногоПодразделения",
	                                                                   НСтр("ru='Обособленное подразделение'"));

	ДоступностьПолнотекстовыйПоискСписокПартнеры(Форма);
	
	ОбщегоНазначенияУТКлиентСервер.УстановитьСвойствоЭлементаФормы(Форма.Элементы, "СоздатьНового", "Видимость", Форма.УпрощенныйВводДоступен);
	
	ЗаполнитьСписокВыбораТипФильтраСписокПартнеров(Форма, Форма.Элементы.ТипФильтра.СписокВыбора);
	Форма.ТипФильтра = Форма.Элементы.ТипФильтра.СписокВыбора[0].Значение;
	УстановитьВидимостьКомандОтчетов(Форма);
	УстановитьОтборыДинамическийСписокПартнеры(Форма);
	СоздатьРеквизитыДляОтображенияКИ(Форма);
КонецПроцедуры

Показать

Добавил в расширение перехват данной процедуры, изменение от стандартной тут по сути одно: ЗапросСИнформациейПоКонтрагенту = Истина;
Сделано это для того, что бы в форме списка контрагентов отображать ИНН и КПП. Но не работает, ни на что не ругается. Просто не работает, хотя когда вношу эту изменение непосредственно в конфигурацию работает, как нужно. Что я делаю не так?Флаг безопасного использования снят. КА 2.4, если это вдруг важно.

По теме из базы знаний

Вознаграждение за ответ

Сумма: 0 $m

Добавили:
nokirosito (2.00 $m)

Получили:

nokirosito (2 $m)

Показать полностью

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. BackinSoda 02.09.20 10:47 Сейчас в теме

(1) Форма может не Партнеры, а другая ? Она присоздании останавливается в отладчике, если открыть форму?

3. nokirosito 02.09.20 10:51 Сейчас в теме

(2) Ну так точно такое же изменение в самой конфигурации прекрасно работает. А в расширении нет=(

4. Jeka44 02.09.20 10:53 Сейчас в теме

(3)Расширение применяется? В Информации о программе в предприятии написано, что используется Ваше расширение? Точку останова пробовали в расширении ставить? Заходит ли вообще в этот код?

9. nokirosito 02.09.20 11:05 Сейчас в теме

(4)Да

6. VirDim 02.09.20 10:59 Сейчас в теме

(1)>> &НаКлиенте
>>Процедура Расш1_ПартнерыФормаВыбораСпискаПриСозданииНаСервере
Думаю проблема в этом

8. nokirosito 02.09.20 11:05 Сейчас в теме

(6)Поменял, все равно не работает.

11. RustamZz 02.09.20 11:08 Сейчас в теме

(8) А к событию ПриСозданииНаСервере на расширенной форме привязано?

13. VirDim 02.09.20 11:11 Сейчас в теме

(8)А куда именно вы добавили перехват? Точно в модуль формы выбора партнера?

14. nokirosito 02.09.20 11:13 Сейчас в теме

(13)Зашел в общий модуль, нашел процедуру, добавил ее в расширение, поменял, что мне нужно. Сохранил.

18. BackinSoda 02.09.20 11:17 Сейчас в теме

(14) Так это в Общем модуле код ? Уберите директиву "&НаКлиенте" или измененную

21. nokirosito 02.09.20 11:21 Сейчас в теме

(18)Убрал, не работает, все равно.

5. starjevschik 02.09.20 10:56 Сейчас в теме

Отладчиком бы воспользоваться.

7. nokirosito 02.09.20 11:01 Сейчас в теме

(5)Выполняет стандартную, вместо той, что в расширении.

10. starjevschik 02.09.20 11:06 Сейчас в теме

(7) значит, дело не в коде процедуры в расширении, а в ее подключении. Тут вопрос темный, как я понял, все галки у расширений надо снимать, кроме "активно". Может есть еще какие-то секреты.

45. dvissarov5 11 12.09.20 17:17 Сейчас в теме

Должен отладчик перехватить расширение. Попробуйте галки все снять, кроме активно.

12. BackinSoda 02.09.20 11:09 Сейчас в теме

Может есть еще одно расширение, которое перекрывает его?

17. nokirosito 02.09.20 11:16 Сейчас в теме

(12)Это единственное=)

15. gzharkoj 504 02.09.20 11:13 Сейчас в теме

а галочка - защита от опасных действий отключена?

16. nokirosito 02.09.20 11:15 Сейчас в теме

(15) Все галки, кроме активно, сняты.

19. Alex_E 2355 02.09.20 11:20 Сейчас в теме

Интересно - ...ПриСозданииНасервере с директивой &НаКлиенте - как так?

20. Jeka44 02.09.20 11:21 Сейчас в теме

Только что изобразил тоже самое на УТ11 (они с КА в этом аспекте должны быть идентичны). У меня перехват заработал. само расширение и скрин как установлены галочки в подключении расширения прилагаю, а так же скрин того, что в расширение код зашел

Прикрепленные файлы:

ПравимКонтрагентов.cfe

22. nokirosito 02.09.20 11:27 Сейчас в теме

(20)У меня разве, что назначение другое. Но это вроде не влияет. А ваша не подключается.

Прикрепленные файлы:

23. Jeka44 02.09.20 11:29 Сейчас в теме

(22)Попробуй все заново. Удали старое расширение. Создай новое расширение. Расставь все галки, как на скрине. Позаимствуй метод. Проверь стало ли в него заходить.

26. Jeka44 02.09.20 11:33 Сейчас в теме

(22)Дак исправьте язык на нужный или вообще отключите заимствование этого свойства и тогда должно подключиться

29. nokirosito 02.09.20 11:53 Сейчас в теме

(26) Ваша, тоже не работает=(

31. Jeka44 02.09.20 11:59 Сейчас в теме

(29)Хорошо, начнем сначала. База файловая? Просто если серверная и не подключена отладка на сервере, то точка останова и не сработает в этом месте потому что модуль серверный. Попробуйте что-то типа Сообщить("Работает") написать в коде и точно убедиться, что расширение не работает

33. nokirosito 02.09.20 12:03 Сейчас в теме

(31) База файловая.

Прикрепленные файлы:

Расш1_.cfe

37. Andrekaa 02.09.20 14:59 Сейчас в теме

(33)
Перенес ваши данные в свое расширение для КА2, все работает нормально. Зашел в ИзменитьФорму и вывел ИНН и КПП
Ну и кэш почистить :)

32. Jeka44 02.09.20 12:01 Сейчас в теме

(29)Или можете еще скинуть Ваше расширение, я его попытаюсь в свою базу подключить просто ради интереса

34. Jeka44 02.09.20 13:55 Сейчас в теме

(29)Все-таки попробуйте все с самого начала сделать по инструкции выше, должно работать. Обработчик должен перехватываться.

35. nokirosito 02.09.20 14:24 Сейчас в теме

(34)Пробывал, не работает=(

24. VirDim 02.09.20 11:30 Сейчас в теме

(20) В вашем файле нет "Экспорт" в определении

25. Jeka44 02.09.20 11:32 Сейчас в теме

(24)На сколько я помню оно и не надо, потому что вызывается типовая функция и только потом управление переходит в расширение

27. platonov.e 158 02.09.20 11:48 Сейчас в теме

А как добавили процедуру в расширение? ПКМ по оригинальной процедуре и там добавить в расширение? Или руками добавляли в расширение?

28. nokirosito 02.09.20 11:49 Сейчас в теме

(27)ПКМ по оригинальной процедуре и там добавить в расширение

30. user_2010 904 02.09.20 11:56 Сейчас в теме

как версия - может быть, изменили имя расширения, после того как код написали?
у вашей процедуры Расш1 - такое имя и у расширения?

36. Ditron 185 02.09.20 14:34 Сейчас в теме

ЗапросСИнформациейПоКонтрагенту - это реквизит формы? Если да, то зачем скопировал и заменил весь код?

ЗапросСИнформациейПоКонтрагенту  = Истина;
ПродолжитьВызов(Форма, Отказ, СтандартнаяОбработка);

38. REWS-DES 02.09.20 16:04 Сейчас в теме

(36)Всё верно, но если быть точнее, то так, как я понял нам не всегда надо ставить ИСТИНА

ЗапросСИнформациейПоКонтрагенту = Не СтрНайти(Форма.ИмяФормы, "Контрагенты") > 0;
ПродолжитьВызов(Форма, Отказ, СтандартнаяОбработка);

Да и ПКМ не по процедуре, а внутри процедуры, будет вопрос - перед, после или вместо.
Когда выберем вместо будет предложение перехватить стандартные обработчики, соглашаемся.
После этого процедура сама создастся в расширении которое в данный момент открыто с маленько другим видом

ПартнерыФормаВыбораСпискаПриСозданииНаСервереВместо

39. Ditron 185 02.09.20 16:05 Сейчас в теме

(38)ну это уже нюансы ))

40. nokirosito 10.09.20 12:01 Сейчас в теме

(38)Боже я уже все попробывал из выше перечисленного, у меня просто не работает. Я наверное просто тупой и чего то не понимаю. Отдам эти стартмани уже просто тому, кто скинет рабочее расширение на КА 2.4

41. REWS-DES 10.09.20 17:16 Сейчас в теме

(40)Удалённое бы подключение в любом виде или хотя бы демонстрация Skype с микрофоном! С удовольствием бы помог!

42. nokirosito 10.09.20 17:48 Сейчас в теме

(41) Завтра могу организовать, скиньте куда нибудь способ, как связаться лично.

43. RustamZz 10.09.20 19:00 Сейчас в теме

(40)

&ИзменениеИКонтроль("ПартнерыФормаВыбораСпискаПриСозданииНаСервере")
Процедура Расш1_ПартнерыФормаВыбораСпискаПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка)

	Форма.УпрощенныйВводДоступен               = УпрощенныйВводДоступен();
	Форма.ТекущийПользователь                  = Пользователи.АвторизованныйПользователь();
	Форма.ДоступноДобавлениеПартнеров          = ПравоДоступа("Добавление", Метаданные.Справочники.Партнеры);
	Форма.ИспользоватьБизнесРегионы            = ПолучитьФункциональнуюОпцию("ИспользоватьБизнесРегионы");
	Форма.ИспользоватьПартнеровКакКонтрагентов = ПолучитьФункциональнуюОпцию("ИспользоватьПартнеровКакКонтрагентов");
	ИспользоватьПроверкуКонтрагентов           = ПроверкаКонтрагентов.ПроверкаКонтрагентовВключена();

	Если Не СтрНайти(Форма.ИмяФормы, "Контрагенты") > 0 Тогда

#Удаление
		ЗапросСИнформациейПоКонтрагенту = Ложь;

#КонецУдаления
#Вставка
		ЗапросСИнформациейПоКонтрагенту = Истина;
		Сообщить("Расширение!!");
#КонецВставки

Показать

Прикрепленные файлы:

Расширение1.cfe

44. liveinskydreams 11.09.20 14:57 Сейчас в теме

(40) Когда случаются чудеса и по коду дед морозы ходят - самое время почистить кэш.

46. pa240775 22 13.09.20 17:55 Сейчас в теме

добавьте после ПриОткрытии:

&НаКлиенте
Процедура Кор_ПриОткрытииПосле(Отказ)

столкнулся с подобной проблемой. мне нужно было в заимствованной форме печати на стороне клиента добавить вызов своей процедуры.Платформа 8.3.15

47. vppunctum 6 16.11.20 10:51 Сейчас в теме

&НаКлиенте
&Вместо("ПартнерыФормаВыбораСпискаПриСозданииНаСервере")

Событие формы "ПриСозданииНаСервере" должно выполняться &НаСервере

Оставьте свое сообщение

E-mail: