Ввод адреса по классификатору 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. Выполнено в двух версиях: "полная" и "лайт".

5000 руб.

18.10.2022 5849 1 45

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

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

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

18.04.2021 1801 CheBurator 10

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

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

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

1 стартмани

24.01.2017 26033 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 22241 34 Jill 13

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

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

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

1 стартмани

13.08.2013 25587 fixin 23

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

Поиск данных Работа с интерфейсом Программист Платформа 1С v7.7 Конфигурации 1cv7 Бесплатно (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 160685 unichkin 13

Где-то была обработка

Поиск данных Инструменты администратора БД Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Россия Абонемент ($m)

Обработка 1С 7.7 осуществляющая поиск по истории открытых обработок. Обработки могли быть открыты программистом в конфигураторе и пользователем в режиме предприятия. В редакции 0.5 добавлены плюшечки: Наравне с открытием обработки добавлено, открытие папки содержащей обработку. Так же понятно что поскольку история хранится в реестре, то данная обработка является примером для работы с реестром. Строго говоря в то время для эксплуатации реестра MSScriptControl.ScriptControl . Крест возле имения базы на форме означает что база нет (нет файла 1CV7.MD по указанному пути). Соответственно крест возле имени обработки означает что обработки нет по указанному пути. Добавлена сортировка. Убрана возможность разобрать понравившуюся обработку. Добавлена возможность показать в папке (не путать с открыть папку). Добавлена возможность скопировать обработку. Добавлена выборка обработок по истории отладчика.

1 стартмани

07.03.2013 15096 21 lamer19 25

Инструментарий: Подсистема "Акварелька"©

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

Решил тут в кои-то веков разукрасить свою систему документооборота. Готовых решений с нужным мне функционалом не нашел. В результате написал свою собственную универсальную подсистему раскраски таблиц в 1С. Использовалась ВК Formex (Альф©). Основное отличие - задание цветовой гаммы объектов в пользовательском режиме. Можно внедрить в любую конфигурацию за 10 минут и получать удовольствие от любимых цветов.

1 стартмани

05.09.2012 12980 34 GSoft 2

Комментарии

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

Свернуть все

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

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

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

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

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

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

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

b-dm пишет:

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

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

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

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