|
Расширение Кладра для ЕРП 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 = 'Территория'"))); Возврат Результат; КонецФункции |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |