Имя: Пароль:
1C
1С v8
Контактная информация у справочника договоры. Типовая база
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) Спасибо.