Имя: Пароль:
1C
 
Расширение Кладра для ЕРП 2.4
,
0 Обфускация
 
08.08.18
08:51
Есть ЕРП 2.4, там есть КЛАДР. Когда нажимаешь на "..." возле адреса, открывается форма. Там дом,корпус,квартира... Как еще значения добавить которые там отображаются и сохраняются?
1 yzimin
 
08.08.18
08:53
Там же есть произвольный комментарий к адресу, не хватает?
2 Обфускация
 
08.08.18
08:55
не хватает
3 Фрэнки
 
08.08.18
08:56
Работа с адресами и контактной инфой в ЕРП заимствована из общего для всех типовых БСП. Так что вопрос поставлен немного не корректно.
4 Фрэнки
 
08.08.18
08:58
А зачем именно в кладр запихивать чего-то лишнее?
Объекты, к которым он вяжется - физлица и контрагенты. Это справочники и можно назначить допреквизиты для них.
5 Обфускация
 
08.08.18
09:01
Всякие отчеты на кладр завязаны. Поэтому лучше его модифицировать.
6 Фрэнки
 
08.08.18
09:02
Тип этого объекта метаданных уже посмотрел?
7 Обфускация
 
08.08.18
09:04
(6)
Там очень хитро. Выпадающий список строится из реквизита на форме. Но в реквизите не видно никакого списка.

&НаКлиенте
Процедура ДобавитьОбъект(Команда)
    Варианты = НеиспользованныеЭлементыДополнительнойТаблицы(ДополнительныеЗдания, Элементы.ТипСтроения, 1);
    Для Каждого ЭлементОбъект Из НеиспользованныеЭлементыДополнительнойТаблицы(ДополнительныеПомещения, Элементы.ТипПомещения, 2) Цикл
        ЗаполнитьЗначенияСвойств(Варианты.Добавить(), ЭлементОбъект);
    КонецЦикла;
    
    КоличествоВариантов = Варианты.Количество();
    Если КоличествоВариантов>0 Тогда
        ДополнительныеПараметры = Новый Структура("КоличествоВариантов", КоличествоВариантов);
        Оповещение = Новый ОписаниеОповещения("ДобавитьОбъектЗавершение", ЭтотОбъект, ДополнительныеПараметры);
        ПоказатьВыборИзМеню(Оповещение, Варианты, Элементы.ДобавитьОбъект);
    КонецЕсли;
КонецПроцедуры
8 Обфускация
 
08.08.18
09:05
Элементы.ТипСтроения - это источник списка значений
9 Фрэнки
 
08.08.18
09:21
только это не в ту сторону тебя занесет
10 Cyberhawk
 
08.08.18
09:22
xml-строка там со структурой полей
11 Обфускация
 
08.08.18
11:52
Может кто конкретней знает, что и где по этой части лежит?
12 Обфускация
 
08.08.18
13:18
Вот это тут добавлялось в общем модуле, если вдруг кому тоже понадобится

Функция ТипыОбъектовАдресацииАдресаРФ() Экспорт
    
    Результат = Новый Массив;
    
    // Код, Наименование, Тип, Порядок, КодФИАС
    // Тип: 1 - владение, 2 - здание, 3 - помещение.
    
    Результат.Добавить(СтрокаОбъектаАдресации("1010", НСтр("ru = 'Дом'"),          1, 1, 2));
    Результат.Добавить(СтрокаОбъектаАдресации("1020", НСтр("ru = 'Владение'"),     1, 2, 1));
    Результат.Добавить(СтрокаОбъектаАдресации("1030", НСтр("ru = 'Домовладение'"), 1, 3, 3));
    
    Результат.Добавить(СтрокаОбъектаАдресации("1050", НСтр("ru = 'Корпус'"),     2, 1));
    Результат.Добавить(СтрокаОбъектаАдресации("1060", НСтр("ru = 'Строение'"),   2, 2, 1));
    Результат.Добавить(СтрокаОбъектаАдресации("1080", НСтр("ru = 'Литера'"),     2, 3, 3));
    Результат.Добавить(СтрокаОбъектаАдресации("1070", НСтр("ru = 'Сооружение'"), 2, 4, 2));
    Результат.Добавить(СтрокаОбъектаАдресации("1040", НСтр("ru = 'Участок'"),    2, 5));
    
    Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'Квартира'"),  3, 1));
    Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'Офис'"),      3, 2));
    Результат.Добавить(СтрокаОбъектаАдресации("2040", НСтр("ru = 'Бокс'"),      3, 3));
    Результат.Добавить(СтрокаОбъектаАдресации("2020", НСтр("ru = 'Помещение'"), 3, 4));
    Результат.Добавить(СтрокаОбъектаАдресации("2050", НСтр("ru = 'Комната'"),   3, 5));
    Результат.Добавить(СтрокаОбъектаАдресации("2060", НСтр("ru = 'Этаж'"),   3, 6));
    Результат.Добавить(СтрокаОбъектаАдресации("2070", НСтр("ru = 'Примечание'"),   3, 7));

    //  Наши сокращения для поддержки обратной совместимости при парсинге.
    Результат.Добавить(СтрокаОбъектаАдресации("2010", НСтр("ru = 'кв.'"),       3, 6));
    Результат.Добавить(СтрокаОбъектаАдресации("2030", НСтр("ru = 'оф.'"),       3, 7));
    
    // Уточняющие объекты
    Результат.Добавить(СтрокаОбъектаАдресации("10100000", НСтр("ru = 'Почтовый индекс'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10200000", НСтр("ru = 'Адресная точка'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10300000", НСтр("ru = 'Садовое товарищество'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10400000", НСтр("ru = 'Элемент улично-дорожной сети, планировочной структуры дополнительного адресного элемента'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10500000", НСтр("ru = 'Промышленная зона'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10600000", НСтр("ru = 'Гаражно-строительный кооператив'")));
    Результат.Добавить(СтрокаОбъектаАдресации("10700000", НСтр("ru = 'Территория'")));
    
    Возврат Результат;
КонецФункции
AdBlock убивает бесплатный контент. 1Сергей