|   |   | 
| 
 | Контактная информация у справочника договоры. Типовая база | ☑ | ||
|---|---|---|---|---|
| 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) Спасибо.     | 
| Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |