![]() |
|
Контактная информация у справочника договоры. Типовая база | ☑ | ||
---|---|---|---|---|
0
Beduin
29.03.22
✎
15:26
|
Не снимая с поддержки.
Сходу не нашел решения. Как добавить в справочник договоров поле с адресом и чтобы выбиралось как обычная контактная информация в контрагентах или организациях с физ.лицами? |
|||
1
Быдло замкадное
29.03.22
✎
15:31
|
добавь форме расширением:
но не уверен что взлетит |
|||
2
Быдло замкадное
29.03.22
✎
15:31
|
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) // СтандартныеПодсистемы.КонтактнаяИнформация ИсключаемыеВиды = Новый Массив; //ИсключаемыеВиды.Добавить(УправлениеКонтактнойИнформациейБСП.ВидКонтактнойИнформацииПоИмени("_ДемоАдресКонтрагента")); //ИсключаемыеВиды.Добавить(УправлениеКонтактнойИнформациейБСП.ВидКонтактнойИнформацииПоИмени("ЮрАдресКонтрагента")); //ИсключаемыеВиды.Добавить(УправлениеКонтактнойИнформациейБСП.ВидКонтактнойИнформацииПоИмени("_ДемоEmailКонтрагента")); //ИсключаемыеВиды.Добавить(УправлениеКонтактнойИнформациейБСП.ВидКонтактнойИнформацииПоИмени("_ДемоSkypeКонтрагенты")); ДополнительныеПараметрыКонтактнойИнформации = УправлениеКонтактнойИнформациейБСП.ПараметрыКонтактнойИнформации(); ДополнительныеПараметрыКонтактнойИнформации.ОтложеннаяИнициализация = Истина; ДополнительныеПараметрыКонтактнойИнформации.ИсключаемыеВиды = ИсключаемыеВиды; УправлениеКонтактнойИнформациейБСП.ПриСозданииНаСервере(ЭтаФорма, Объект, ДополнительныеПараметрыКонтактнойИнформации); // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецПроцедуры &НаСервере Процедура ПриЧтенииНаСервере(ТекущийОбъект) // СтандартныеПодсистемы.КонтактнаяИнформация УправлениеКонтактнойИнформациейБСП.ПриЧтенииНаСервере(ЭтаФорма, ТекущийОбъект); // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецПроцедуры &НаСервере Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи) // СтандартныеПодсистемы.КонтактнаяИнформация УправлениеКонтактнойИнформациейБСП.ПередЗаписьюНаСервере(ЭтаФорма, ТекущийОбъект); // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецПроцедуры &НаСервере Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты) // СтандартныеПодсистемы.КонтактнаяИнформация УправлениеКонтактнойИнформациейБСП.ОбработкаПроверкиЗаполненияНаСервере(ЭтаФорма, Объект, Отказ); // Конец СтандартныеПодсистемы.КонтактнаяИнформация КонецПроцедуры // СтандартныеПодсистемы.КонтактнаяИнформация &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияПриИзменении(Элемент) УправлениеКонтактнойИнформациейКлиент.ПриИзменении(ЭтаФорма, Элемент); КонецПроцедуры |
|||
3
Быдло замкадное
29.03.22
✎
15:31
|
&НаКлиенте
Функция ПолучитьСтрокуДополнительныхЗначений(Форма, Элемент, ЭтоТабличнаяЧасть = Ложь) Отбор = Новый Структура("ИмяРеквизита", Элемент.Имя); Строки = УправлениеКонтактнойИнформациейКлиентСервер.ОписаниеКонтактнойИнформацииНаФорме(Форма).НайтиСтроки(Отбор); ДанныеСтроки = ?(Строки.Количество() = 0, Неопределено, Строки[0]); Если ЭтоТабличнаяЧасть И ДанныеСтроки <> Неопределено Тогда ПутьКСтроке = Форма.Элементы[Форма.ТекущийЭлемент.Имя].ТекущиеДанные; ДанныеСтроки.Представление = ПутьКСтроке[Элемент.Имя]; ДанныеСтроки.Значение = ПутьКСтроке[Элемент.Имя + "Значение"]; КонецЕсли; Возврат ДанныеСтроки; КонецФункции &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияПриНажатии(Элемент, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.НачалоВыбора(ЭтаФорма, Элемент,, СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияОчистка(Элемент, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.Очистка(ЭтаФорма, Элемент.Имя); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияВыполнитьКоманду(Команда) УправлениеКонтактнойИнформациейКлиент.ВыполнитьКоманду(ЭтаФорма, Команда.Имя); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.АвтоПодборАдреса(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка); КонецПроцедуры &НаКлиенте Процедура Подключаемый_КонтактнаяИнформацияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка) УправлениеКонтактнойИнформациейКлиент.ОбработкаВыбора(ЭтаФорма, ВыбранноеЗначение, Элемент.Имя, СтандартнаяОбработка); КонецПроцедуры &НаСервере Процедура Подключаемый_ОбновитьКонтактнуюИнформацию(Результат) УправлениеКонтактнойИнформациейБСП.ОбновитьКонтактнуюИнформацию(ЭтаФорма, Объект, Результат); КонецПроцедуры &НаСервере Процедура КонтактнаяИнформацияПриСменеСтраницы() УправлениеКонтактнойИнформациейБСП.ВыполнитьОтложеннуюИнициализацию(ЭтаФорма, Объект); КонецПроцедуры &НаКлиенте Процедура ПриОткрытии(Отказ) ПриОткрытииНаСервере(); КонецПроцедуры &НаСервере Процедура ПриОткрытииНаСервере() УправлениеКонтактнойИнформациейБСП.ВыполнитьОтложеннуюИнициализацию(ЭтаФорма, Объект); КонецПроцедуры |
|||
4
Beduin
29.03.22
✎
15:35
|
(1)(2)(3) А предопределенные виды контактной информации, тоже через расширение добавить?
|
|||
5
Быдло замкадное
29.03.22
✎
15:41
|
(4) не знаю. Хотя для договоров не используется КИ. Там еще миллион мест придется переделывать.
Даже Вид КИ добавить, в нем вид объекта надо указывать, а это перечисление. Вобщем гиблое дело. Добавь строковый реквизит))) |
|||
6
hhhh
29.03.22
✎
15:43
|
(4) можно непредопределенное. Предопределенные там в основном для выпендрежа, можно и обычные элементы справочника делать.
|
|||
7
vicof
29.03.22
✎
15:55
|
||||
8
Beduin
29.03.22
✎
16:20
|
(6) Можно, только пишет, что добавление новых групп в справочнике запрещено)
|
|||
9
banco
29.03.22
✎
16:55
|
(8) Кто пишет? Нормально добавляются и группы, и элементы новые.
Я у себя уже давно отказался от предопределенных видов, все создается программно и это предусмотрено в БСП. |
|||
10
Beduin
29.03.22
✎
16:58
|
(9) В этой процедуре СозданиеКонтактнаяИнформации()?
|
|||
11
Beduin
29.03.22
✎
17:04
|
(10) Бред написал. Это пример же. Понял короче. (9) Спасибо.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |