Ввод номеров домов по адресному классификатору
Задачи пользователя - Мастера заполнения
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Это особенно актуально, когда в номерах домов присутствуют корпус, строение и буквы. Кадровик уже при приеме на работу может увидеть несоответствие дома в паспорте с классификатором и уточнить его у работника. При нажатии педальки поля "Дом" обработки "Ввод адреса" открывается таблица домов, отсортированная по номеру и соответствующая выбранной улице. В каждой строке таблицы все разновидности одного номера дома, т.е. корпуса, строения, номера с буквами. Двойным щелчком выбранный дом вводится в поля диалога "Дом" и "Корпус", обновляется почтовый индекс и активируется поле "Квартира". Теперь для выбора домов задание улицы не обязательно, если дом привязан к населенному пункту.
Установка:
Можно в конфигурации обработку "ВводАдреса" заменить одноименной обработкой из архива Doma.zip, а можно отредактировать её следующим образом: добавить в диалоге реквизиту дом кнопку выбора и вставить в начало процедуры ПриНачалеВыбораЗначения() следующие строки:
Если Элемент = "Дом" Тогда
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.Установить("Имя объекта", СписокОбъектов.Получить("Улица").Получить("Наименование"));
Параметры.Установить("Список владельцев", СформироватьСписокВладельцев("Улица"));
Параметры.Установить("Дом", СокрЛП(Дом));
Параметры.Установить("Корпус", СокрЛП(Корпус));
ОткрытьФормуМодально("Отчет",Параметры,КаталогИБ()+"ExtForms\Doma.ert");
Если ТипЗначенияСтр(Параметры) = "СписокЗначений" Тогда
Дом = Параметры.Получить("Дом");
Корпус = Параметры.Получить("Корпус");
СписокОбъектов.Получить("Улица").Установить("Код",Параметры.Получить("Код"));
ПриРедактированииРеквизита(Дом);
Активизировать("Квартира");
КонецЕсли;
Возврат;
КонецЕсли;
Обработку Doma.ert из архива следует поместить в каталог ExtForms базы данных.
Вступайте в нашу телеграмм-группу Инфостарт