Нормализация наименований контрагентов

17.03.11

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

Приводит к стандарту наименования контрагентов:
1) Символы в верхний регистр;
2) Поиск аббревиатур и подстановка (аббревиатуры ФОРМ ОРГАНИЗАЦИЙ, ТИПОВ ПОМЕЩЕНИЙ и проч.)
3) Выделение наименования организации по КАВЫЧКАМ, все что внутри кавычек считается наименование организации
4) Устанавливает порядок: "НАИМЕНОВАНИЕ ОРГАНИЗАЦИИ" "АББРЕВИАТУРА ФОРМЫ ОРГАНИЗАЦИИ" "АББРЕВИАТУРА ТИПА ПОМЕЩЕНИЯ" ПРОЧ. (можно изменять порядок)
5) Прочие действия (удаление кавычек, удаление двойных пробелов, запятых, расстановка пробелов после запятых... и т.п.
6) Печать исправлений.

(Обновление: увеличена скорость обработки, тонкие возможности настройки нормализации, отбор)

Бесплатные

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

Узнавайте о новых бесплатных решениях в нашей телеграм-группе Инфостарт БЕСПЛАТНО

Наименование Скачано Бесплатно
НормализацияНаименованийКонтрагентов
.epf 49,99Kb
441 Скачать бесплатно

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

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

Перед исправлением наименований контрагентов, есть возможность

     - выбрать контрагентов для исправления;

     - отредактировать изменяемое наименование в ручную;

и только после принять исправления.

Если все символы наименования контрагента в верхнем регистре, то у контрагента не устанавливается пометка на исправление, даже если его наименование не соответствует полученному стандарту.

Возможен отбор контрагентов.

Контрагенты со стандартизированным наименованием не отбираются повторно.

Печать исправлений.

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

См. также

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтер Пользователь 1С:Предприятие 8 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14640 руб.

29.04.2020    49784    134    161    

90

Корректировка данных Системный администратор Программист 1С:Предприятие 8 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)

Незаменимая обработка для сопровождения конфигураций: ERP, УТ, КА. Позволяет вычистить многие ошибки в ключах аналитики, в ключевых справочниках конфигурации.

3660 руб.

10.02.2017    120614    726    177    

763

Файловый обмен (TXT, XML, DBF), FTP Поиск данных Инструменты администратора БД Корректировка данных Системный администратор Программист 1С:Предприятие 8 1C:Бухгалтерия 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)

Данная обработка позволит Вам легко и просто, а главное - быстро, выполнить сравнение данных между ЛЮБЫМИ базами (и РИБ, по правилам конвертаций) по контрольным суммам выбранных объектов баз 1С, работающих на платформах 8.3 и выше. Удобный и понятный интерфейс в виде "мастера". Высокая скорость сравнения достигается за счет специального алгоритма расчета контрольной суммы объекта/записи и сравнения по данным суммам объектов 2х баз через файл. Имеется возможность выбора реквизитов, по которым система будет сравнивать объекты. Сравнение количества записей в движениях документов, возможность сравнивать данные по правилам конвертации и не только! Выбор объектов конфигурации для КАЖДОГО узла в отдельности с индивидуальным отбором для каждого объекта конфигурации, работа с FTP, сохранение или загрузка настроек, сохранение или загрузка результата сравнения, регистрация на обмен объекта и его движений. (Обновление от 12.11.2024, версия 2.2-2.5)

24400 руб.

27.10.2017    45656    31    13    

49

Зарплата Корректировка данных Бухгалтер 1С 8.3 1С:Зарплата и кадры государственного учреждения 3 1С:Зарплата и Управление Персоналом 3.x Бухгалтерский учет НДФЛ Платные (руб)

Внешняя обработка сравнивает НДФЛ из расчетного листка и НДФЛ из регистра, на разницу формирует документы в 2 шага. Исправляет расхождения, в том числе, когда Аванс больше Зарплаты

9760 руб.

01.09.2023    7711    320    79    

19

Взаиморасчеты Корректировка данных Бухгалтер 1С 8.3 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Автоматическое создание документов корректировок долга. Распределение Аванса уплаченному Интернет-площадке и долгами поставщиков.

7320 руб.

02.03.2026    683    2    0    

4

Корректировка данных Бухгалтер 1С:Предприятие 8 1С:Бухгалтерия 3.0 Бухгалтерский учет Налоговый учет Налог на прибыль Платные (руб)

Обработка служит для: выравнивания бухгалтерского и налогового учета на определенную дату по выбранным счетам; закрытия остатков по выбранным счетам; обнуления налогового учета (ПР, ВР также будут обнулены)

2928 руб.

05.05.2024    2545    21    0    

17
Вознаграждение за ответ
Показать полностью
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Поручик 4611 06.04.10 21:04 Сейчас в теме
Пример обработки - затраченного времени из-за тупости персонала, которым кол на голове теши, всё равно будут валить в справочник всякую шнягу.
Посмотришь на некоторых "манагеров" - и остаётся только плюнуть, ну что с дебилов взять.
cool.vlad4; +1 Ответить
2. nalivai-chai 704 07.04.10 09:18 Сейчас в теме
))))) ну, это норма, от манагеров требовать вводить нормально контрагентов, это как от детей 1 класса требовать дифференциальные уравнения решать.
3. Арчибальд 2709 07.04.10 10:10 Сейчас в теме
Процедура ПриЗаписи()
//......
Если Найти("ОАО_ООО_ЗАО", Врег(Лев(СокрЛ(Наименование),3))) > 0 Тогда
   СтатусВозврата(0);
   Форма.Закрыть();
   Возврат;
КонецЕсли;
//.........
КонецПроцедуры
Показать

8-)
4. detec 136 16.03.11 10:04 Сейчас в теме
По-хорошему контрагентов должна заводить бухгалтерия по факту предоставления бумажного договора. Это действительно не обязанность манагеров. Более того, это нужно запрещать. Иначе создадут левого контрагента, оформят на него отгрузку с отсрочкой и потом ищи этого контрагента.
nalivai-chai; +1 Ответить
5. ArCtic 3 13.09.11 05:39 Сейчас в теме
все офигенно, только для 8.1 эта обработка не подходит:(
6. 16.09.11 15:46 Сейчас в теме
7. shadowslight 21.12.11 16:58 Сейчас в теме
Мне единственное не очень прельщает в этой обработке верхний регистр.
8. garant21 19.03.12 22:55 Сейчас в теме
Спасибо, хорошая обработка. Плюс
9. zabaluev 465 20.07.12 23:27 Сейчас в теме
Обработка не знает букву "Ё", например, Общество с ограниченной ответственностью "ЁРТ" переделала в "РТ ООО".
Ведь есть такая буква в алфавите!
RodinMax; Зеленоград; +2 Ответить
10. zhleonid8 30.08.12 00:06 Сейчас в теме
скажу так, она заслуживает внимания
11. aochkasov 36 24.01.13 12:11 Сейчас в теме
Обработка очень полезная. Привел с ее помощью справочник в нормальный вид. Однозначно плюс. Единственное что бы порекомендовал, сделать след. т.к. если не может записать обработка останавливается.
Процедура ПринятьИсправления() Экспорт

Для Каждого СтрокаТЧ Из Контрагенты Цикл

Если СтрокаТЧ.Исправить Тогда

ОбъектКонтрагента = СтрокаТЧ.Контрагент.ПолучитьОбъект();
Если Не ОбъектКонтрагента.ЭтоГруппа Тогда
Если ПустаяСтрока(ОбъектКонтрагента.НаименованиеПолное) Тогда
ОбъектКонтрагента.НаименованиеПолное = ОбъектКонтрагента.Наименование;
КонецЕсли;
КонецЕсли;

ОбъектКонтрагента.Наименование = СтрокаТЧ.ИсправленноеНаименование;
Попытка
ОбъектКонтрагента.Записать();
Исключение
Сообщить("Не удалось записать Контрагента: "+ОбъектКонтрагента ,СтатусСообщения.Важное);
Продолжить;
КонецПопытки;

КонецЕсли;

КонецЦикла;

КонецПроцедуры


и убрать верхний регистр, но это уже по своему усмотрению
Функция НормализацияНаименованияКонтрагента(Знач Наименование) Экспорт

Перем ПозПервКав;
Перем ПозПослКав;

// Проверяем таблицы активных аббревиатур
Если мТипыОрганизацийАкт = Неопределено
Или мАббрПрочиеАкт = Неопределено
Или мАббрТипыПомещенийАкт = Неопределено
Или мАббрФормыОрганизацийАкт = Неопределено Тогда

ЗаполнитьТаблицыАктивныхАббревиатур();

КонецЕсли;


// Все символы в верхний регистр.
//Наименование = ВРег(Наименование);
12. Sergyhmao 18.07.14 11:59 Сейчас в теме
13. ЛЛ Юрий 14.06.18 10:29 Сейчас в теме
отличная обработка и спасибо за бесплатность. И верхний регистр я бы сделал опциональным ). И добавил бы возможность построения "местных" аббревиатур для возможности добавления.
14. bs.nnov 14.06.18 10:40 Сейчас в теме
1с реализовала заполнить реквизиты по инн. наши бухгалтера рады до попы.
Для отправки сообщения требуется регистрация/авторизация