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

27.02.11

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

Скачать файл

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

Наименование		По подписке [?]	Купить один файл
VvodAdresa25.ert .ert 84,00Kb 155	155	Скачать (1 SM)	Купить за 1 850 руб.

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

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

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

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

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

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

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

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

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

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

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

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

+7 –

См. также

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

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

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

2500 руб.

18.10.2022 6337 1 45

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

Работа с интерфейсом Программист Платформа 1С v7.7 1C77 Бесплатно (free)

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

15.12.2021 5366 86 Cерый 15

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

Работа с интерфейсом Программист Платформа 1С v7.7 1C77 Бесплатно (free)

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

18.04.2021 2150 CheBurator 10

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

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

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

1 стартмани

19.11.2020 8120 1 Kuzya_brаtsk 4

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

Работа с интерфейсом Программист Платформа 1С v7.7 Платформа 1С v8.3 Абонемент ($m)

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

1 стартмани

24.01.2017 26270 20 romasna 7

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

Поиск данных Программист Платформа 1С v7.7 Абонемент ($m)

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

1 стартмани

30.12.2013 22447 34 Jill 13

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

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

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

1 стартмани

13.08.2013 25769 fixin 23

Быстрый поиск в справочниках по наименованию, с использованием svcsvc.dll

Поиск данных Работа с интерфейсом Программист Платформа 1С v7.7 1C77 Бесплатно (free)

По аналогии с http://infostart.ru/public/14286/, недавно узнал что в svcsvc.dll несколько обновился функционал, в частности был добавлен метод AddString(). В прилагаемом коде показан запрос, реализованный методами ВК 1SQlite, т.е. только для DBF. Это только пример. Т.е. если например у справочника отсутствует поле "Наименование", то скорее всего будет ошибка. Тем не менее критика приветствуется))) Необходимые ВК: 1SQlite, FORMEX, svcsvc.dll (отсюда: http://www.1cpp.ru/forum/YaBB.pl?num=1373266553). p.s. Спасибо огромное уважаемому ADirks за все эти прекрасные плюшки, и помощь в их освоении)))

12.07.2013 160898 unichkin 13

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. jack19 148 27.02.11 15:42 Сейчас в теме

Исправил некоторые ошибки. Теперь список формируется быстрее.

2. vannav78 21.09.11 10:22 Сейчас в теме

Мне понравилось

3. b-dm 180 31.10.11 18:12 Сейчас в теме

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

4. jack19 148 31.10.11 18:42 Сейчас в теме

b-dm пишет:

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

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

P.S. Хорошо бы, если Вы оценили обработку, сейчас и в дальнейшем ставили плюсик.

5. b-dm 180 03.11.11 19:52 Сейчас в теме

(4) - вот это другое дело. И понятно объяснили, и много полезных вещей в обработке сделано, доработано и
удобно и кадровику, и программисту.
Плюсик поставил, прекрасная обработка.

6. Kapitan911 306 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 306 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 306 16.02.13 10:28 Сейчас в теме

Я поправил в обработке там, где в комментариях про райцентр написано

13. jack19 148 16.02.13 16:51 Сейчас в теме

(12) Kapitan911,

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

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

14. Kapitan911 306 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/
Но сам я так и не стал пользоваться данной обработкой, а необходимость такой функции (выбор дома по классификатору) для пользователей инфостарта не почувствовал.