Ввод адреса по классификатору KLADR v.2.5

27.02.11

Задачи пользователя - Поиск данных

+7 –
Доработана версия обработки leosoft, выложенная ранее по адресу http://infostart.ru/public/61447/. По аналогии с программой "СheckXML+2НДФЛ 2010" устаревшие адреса не обрезаются, но исправляются в процессе ввода.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
VvodAdresa25.ert
.ert 84,00Kb
155 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Исправлен ряд ошибок. Кроме того:

1. Можно искать города без заполнения района (заполняется при выборе города).

2. Можно искать населенные пункты без заполнения района и города (заполняются при выборе  населенного пункта).

3. Можно искать улицы без заполнения района, города и населенного пункта (заполняются при выборе улицы).

4. При выборе элемента адреса в списке выбора в информационной строке внизу панели выводится полный адрес (регион, район и т.д), как в типовой обработке. Устаревшие названия подсвечиваются красным цветом.

5. При выборе устаревшего названия производится  попытка заменить его на актуальное с выдачей соответствующего предупреждения. Для этого дополнительно используется справочник из KLADR "altnames.DBF".

6. Очищается поле "Район" при вводе районных  центров.

7. Индекс проставляется теперь на основании не только номера дома, но и номера корпуса.

8. При нажатии Esc при нахождении в списке выбора элемента адреса происходит не закрытие обработки, а возврат панели ввода элементов.

9. При открытии списка выбора элементов адреса список теперь позиционируется на текущем элементе.

При первом использовании необходимо удалить индексные файлы из каталога с файлами KLADR.

Недостаток: список выбора элементов адреса теперь может заполняться дольше.

Вступайте в нашу телеграмм-группу Инфостарт

+7 –

См. также

1С7.7: потерялось окно сообщений, исправляем!

Работа с интерфейсом Пользователь 1С:Предприятие 7.7 1C77 Абонемент ($m)

Часто встречающаяся проблема: потерялось Окно сообщений. Обработка исправляет эту "проблему" одним нажатием кнопки. Для обычных пользователей. Не требует программирования. Достаточно запустить обработку и нажать кнопку "Выполнить".

5 стартмани

17.01.2025    3303    2    CheBurator    13    

9
1С:Фото номенклатуры 7.7 - решение для работы с фотографиями номенклатуры в 1С:7.7 (включая формат PNG)

Работа с интерфейсом Логистика, склад и ТМЦ Системный администратор Разработчик Пользователь 1С:Предприятие 7.7 1С:Торговля и склад 7.7 Оптовая торговля, дистрибуция, логистика Управленческий учет Платные (руб)

Решение для разработчика и конечного пользователя для работы с фотографиями номенклатуры: систематизация, хранение, отображение, а также выгрузка на Яндекс-Диск и FTP (кроме версии лайт). Поддерживаются графические форматы: bmp, jpg, gif, tiff, а также png - не поддерживаемый штатными средствами 1С. Выполнено без использования внешних компонент (кроме функции выгрузки на FTP). Поставляется как в виде пустой конфигурации с набором объектов и модулей для работы с фото, так и в виде обновления к 1С:Торговля и склад 7.7. Выполнено в двух версиях: "полная" и "лайт".

2541 руб.

18.10.2022    8976    4    45    

7
К привязкам элементов форм (1С 7.7, FormEx)

Работа с интерфейсом Разработчик 1С:Предприятие 7.7 1C77 Бесплатно (free)

Публикация имеет цель обратить внимание на возможность улучшения интерфейса.

15.12.2021    8001    120    Cерый    15    

11
[ПОЛЕЗНЯШКА 7.7] Как запретить максимизацию формы

Работа с интерфейсом Разработчик 1С:Предприятие 7.7 1C77 Бесплатно (free)

Программный прием запрета максимизации формы

18.04.2021    4565    CheBurator    10    

11
Поиск и исправление дублей штрихкодов для номенклатурных единиц измерения

Поиск данных Чистка данных Логистика, склад и ТМЦ Разработчик Оперативный учет 7.7 1С:Торговля и склад 7.7 Управленческий учет Абонемент ($m)

Простая и удобная обработка предназначена для поиска и исправления задублированных (повторяющихся) номенклатурных штрихкодов справочника Единицы. Также она даёт возможность посмотреть номенклатурные остатки. Полезна в случаях, когда номенклатура сопоставляется по штрихкоду с другими внешними источниками, а именно с модулем "Обмент ГИСМТ".

1 стартмани

19.11.2020    10125    1    Kuzya_brаtsk    4    

9
Диалоги выбора периода для 1С версий 8.3 и 7.7

Работа с интерфейсом Разработчик 1С:Предприятие 7.7 1С:Предприятие 8 Абонемент ($m)

Представлены два диалога для выбора интервала дат по календарю в составе демонстрационных конфигураций 1С8.3 и 1С7.7

1 стартмани

24.01.2017    27941    21    romasna    7    

9
Быстрый умный поиск с выпадающим списком

Поиск данных Разработчик 1С:Предприятие 7.7 Абонемент ($m)

Обработка + консольная утилита (exe). Работает с использованием FormEx.dll (Алексей Фёдоров aka АЛьФ), strmatch (Ракунов Александр aka skorp) и 1sqlite (Александр Орефков). Выполняет быстрый нечеткий поиск по справочнику (по умолчанию - номенклатуры) с выводом наиболее похожих позиций в выпадающий список. Работает на 1с 7.7. Тестировалось на server 2003 в терминалах, в файловой БД. Предполагаемые достоинства: пример (более) «адекватного» (по меркам автора на данный момент) поведения поисковой строки (реализовано при помощи консольной утилиты, работающей через winapi – исходники прилагаются (писалось в lazarus)) и удобной навигации по списку, во время ввода. Является, скорее, примером для реализаций собственных адаптированных поисковых решений.

1 стартмани

30.12.2013    24150    34    Jill    13    

13
Примеры дизайнов торговых отчетов 2001

Розничная торговля Работа с интерфейсом Разработчик Оперативный учет 7.7 1С:Торговля и склад 7.7 Розничная и сетевая торговля (FMCG) Управленческий учет Абонемент ($m)

В 2001 году я работал программистом, сопровождал базу «Торговля и склад 77» в сети супермаркетов. Для нужд бизнеса писал отчеты, при этом добиваясь максимальной эффективности и красоты. Потому что красивые отчеты воспринимаются проще и лучше. Приведу примеры дизайнов и расскажу, в чем изюм каждого отчета.

1 стартмани

13.08.2013    27720    fixin    23    

14
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. jack19 148 27.02.11 15:42 Сейчас в теме
Исправил некоторые ошибки. Теперь список формируется быстрее.
+ – Ответить
2. vannav78 21.09.11 10:22 Сейчас в теме
Мне понравилось
+ – Ответить
3. b-dm 181 31.10.11 18:12 Сейчас в теме
Весьма опасная обработка - эдак можно совсем кадровиков разбаловать.
А ну как начнут вводить улицы без привязки к городам.
Или же -это в случае неизвестной улицы делается поиск, а уж после этого к ним прицепляется нужный город и т.п. ?
Непонятен также пункт 9, получатеся что обработка запоминает предыдущий выбранный элемент, потому он и является текущим ? Остальные пункты только в "плюс", очень полезная вещица, буду юзать в будущем и прикручу своим кадровикам в каких то базах.
+ – Ответить
4. jack19 148 31.10.11 18:42 Сейчас в теме
b-dm пишет:

Весьма опасная обработка - эдак можно совсем кадровиков разбаловать.
А ну как начнут вводить улицы без привязки к городам.
Или же -это в случае неизвестной улицы делается поиск, а уж после этого к ним прицепляется нужный город и т.п. ?
Непонятен также пункт 9, получатеся что обработка запоминает предыдущий выбранный элемент, потому он и является текущим ? Остальные пункты только в "плюс", очень полезная вещица, буду юзать в будущем и прикручу своим кадровикам в каких то базах.


При выборе улицы, если не заполнены верхние поля, эти поля (нас.пункт, город, район) автоматически заполняются. Пункт 9 означает, что в отличие от предыдущей версии обработки (не моей), если открывается список выбора при заполненном поле, то программа пытается найти в списке строку, содержащуюся в поле, и позиционирует на ней.

P.S. Хорошо бы, если Вы оценили обработку, сейчас и в дальнейшем ставили плюсик.
+ – Ответить
5. b-dm 181 03.11.11 19:52 Сейчас в теме
(4) - вот это другое дело. И понятно объяснили, и много полезных вещей в обработке сделано, доработано и
удобно и кадровику, и программисту.
Плюсик поставил, прекрасная обработка.
+ – Ответить
6. Kapitan911 308 16.02.13 06:46 Сейчас в теме
В этом году для сдачи 2НДФЛ требуют в адресах указание района для районных центров.
А при вводе адреса он очищался. Как вернуть районы... Сотрудников очень много
+ – Ответить
7. jack19 148 16.02.13 09:02 Сейчас в теме
(6) Kapitan911,

Уточните, откуда Вы это взяли. Скачал последнюю программу проверки CheckXml+2NDFL2012 от 15.02.2012. Проверил свою базу (свыше 1000 человек). Ошибки в адресах в основном касаются только номеров домов.
+ – Ответить
8. jack19 148 16.02.13 09:07 Сейчас в теме
(6) Kapitan911,

от 15.02.2013 конечно.
+ – Ответить
9. Kapitan911 308 16.02.13 09:43 Сейчас в теме
Ни CheckXml, ни Tester, ни Налогоплательщик2013 ошибок не показывают. А загружаешь в СБИС - он ругается, клиенты недовольны, он у 90% стоит. Отключать в нем проверку КЛАДРа не хотят.
+ – Ответить
10. jack19 148 16.02.13 09:56 Сейчас в теме
(9) Kapitan911,

К сожалению, кроме CheckXml, другими методами проверки я не располагаю. Других способов исправить адреса, как получить протокол ошибок (если они действительно есть) и вручную их исправить, я не вижу. Если Вы пользуетесь для ввода адреса данной обработкой, могу посоветовать закомментировать в ней строки
410: Район = ""; и
467: Район = "";
+ – Ответить
11. jack19 148 16.02.13 10:15 Сейчас в теме
(9) Kapitan911,

Немного не так. Вместо строк 409 и 466:

Если (Число(Сред(НовыйКод,3,3)) = 0) или (Число(Сред(НовыйКод,6,3)) = 1) или ((Число(Сред(НовыйКод,6,3)) = 0) и (Число(Сред(НовыйКод,9,3)) = 1)) Тогда

нужно вставить:

Если 1=0 Тогда

P.S. Не раз слышал, что с программами передачи файлов постоянно случаются подобные проблемы. Но, по-моему это проблемы самих программ передачи данных. Я бы не спешил менять адреса.
+ – Ответить
12. Kapitan911 308 16.02.13 10:28 Сейчас в теме
Я поправил в обработке там, где в комментариях про райцентр написано
+ – Ответить
13. jack19 148 16.02.13 16:51 Сейчас в теме
(12) Kapitan911,

Кажется я опять поторопился. В строках 409 и 466 должно остаться:

Если (Число(Сред(НовыйКод,3,3)) = 0) Тогда
+ – Ответить
14. Kapitan911 308 16.02.13 21:11 Сейчас в теме
Я поправил так:

Процедура УстановитьВладельца(Вид, Код)

Если Вид = "Город" Тогда
//Юрий - районы тоже нужны
//Если Число(Сред(Код, 6, 3)) = 1 Тогда
// // это райцентр - город
// Район = "";
Если (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
//ИначеЕсли (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
КлассификаторАдресов.ТекущийИндекс("Районы");
Если КлассификаторАдресов.Найти(Лев(Код,5)+"00000000", 0) = 1 Тогда
Район = СокрЛП(КлассификаторАдресов.Name) + " " + СокрЛП(КлассификаторАдресов.Socr);
КонецЕсли;
КонецЕсли;
ИначеЕсли Вид = "НасПункт" Тогда
//Юрий - районы тоже нужны
//Если (Число(Сред(Код, 9, 3)) = 1) или (Число(Сред(Код, 6, 3)) = 1) Тогда
// // это райцентр - нас.пункт
// Район = "";
Если (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
//ИначеЕсли (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
КлассификаторАдресов.ТекущийИндекс("Районы");
Если КлассификаторАдресов.Найти(Лев(Код,5)+"00000000", 0) = 1 Тогда
Район = СокрЛП(КлассификаторАдресов.Name) + " " + СокрЛП(КлассификаторАдресов.Socr);
КонецЕсли;
КонецЕсли;
Если (Число(Сред(Код, 6, 3)) > 0) и (Число(Сред(Код, 9, 3)) > 1) Тогда
КлассификаторАдресов.ТекущийИндекс("Города");
Если КлассификаторАдресов.Найти(Лев(Код,8)+"00000", 0) = 1 Тогда
Город = СокрЛП(КлассификаторАдресов.Name) + " " + СокрЛП(КлассификаторАдресов.Socr);
КонецЕсли;
КонецЕсли;
ИначеЕсли Вид = "Улица" Тогда
//Юрий - районы тоже нужны
//Если (Число(Сред(Код, 9, 3)) = 1) или (Число(Сред(Код, 6, 3)) = 1) Тогда
// // это райцентр - нас.пункт
// Район = "";
Если (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
//ИначеЕсли (ПустоеЗначение(Район) = 1) и (Число(Сред(Код, 3, 3)) <> 0) Тогда
+ – Ответить
15. jack19 148 16.02.13 21:46 Сейчас в теме
(14) Kapitan911,

Вроде так. Но и 409 и 466 строки тоже можно поправить, как в моем предыдущем комментарии.
+ – Ответить
16. artspeed 179 21.04.13 07:07 Сейчас в теме
Отличная обработка. Мне понравилось. Были проблемы со штатными обработками по кладру, эта схватила сразу Кладр.

Единственное, что бы я добавил исходя из задачи - ЗАМЕНИТЬ штатную обработку, так это:

1) Загрузка кладр с диска ИТС или с папки - непосредственно в бухию 7.7 в папку по умолчанию
2) Галочку - пусть кладр использовать по умолчанию. ИБ+extdb
3) Автоматическое или по требованию удаление первоначальных индексов.

А так большой плюс за обработку.
+ – Ответить
17. jack19 148 21.04.13 07:50 Сейчас в теме
(16) artspeed,

Спасибо за оценку. Что касается возможных доработок данной обработки, то в связи с тем, что сейчас при проверке отчетности по НДФЛ могут выдаваться ошибки, связанные с отсутствием номера дома в кладре, я бы в первую очередь добавил бы выбор номеров домов по кладру, как это сделал в штатной обработке
http://infostart.ru/public/96029/
Но сам я так и не стал пользоваться данной обработкой, а необходимость такой функции (выбор дома по классификатору) для пользователей инфостарта не почувствовал.
+ – Ответить
18. artspeed 179 21.04.13 07:59 Сейчас в теме
Допустим мне эта обработка нужна, что бы выгружать в формате кредитных историй НБКИ адрес раздельно. Сейчас модифицирую обработку. Еще раз спасибо )
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация