Функция очистки наименования справочника

21.07.09

Разработка - Универсальные функции

Данная функция была создана для проверки корректности названий вносимых справочников (как превентивная мера защиты справочника от бардака и дублирования). Может использоваться в для большинства справочников.
Ранее функция представлялась как функция очистки наименований справочника "Контрагенты".

Бесплатные

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

Наименование Скачано Бесплатно
-
.1247673066 2,71Kb
144 Скачать бесплатно


Вызывается перед записью элемента (все равно, нового или существующего). В нее передается наименование элемента, возвращается наименование очищенное.

 

Спасибо за советы Tatitutu, _Xelon_. 

 


Функция ОчиститьНаименованиеСправочника (Наименование) Экспорт
 ИмяЧ = Наименование;
 
 НекорректнаяСтрока = Новый Массив;
 
 //=========Некорректные символы для всех справочников ======================
 НекорректнаяСтрока.Добавить("!"); // !
 НекорректнаяСтрока.Добавить(Символ(34)); // "
 НекорректнаяСтрока.Добавить("№"); // #
 НекорректнаяСтрока.Добавить("$"); // $
 НекорректнаяСтрока.Добавить("%"); // %
 НекорректнаяСтрока.Добавить("&"); // &
 НекорректнаяСтрока.Добавить("'"); // '
 НекорректнаяСтрока.Добавить("("); // (
 НекорректнаяСтрока.Добавить(")"); // )
 НекорректнаяСтрока.Добавить(Символ(42)); // *
 НекорректнаяСтрока.Добавить("+"); // +
 НекорректнаяСтрока.Добавить(","); // ,
 НекорректнаяСтрока.Добавить("-"); // -
  НекорректнаяСтрока.Добавить("."); // .
  НекорректнаяСтрока.Добавить("/"); // /
 НекорректнаяСтрока.Добавить(":"); //
  НекорректнаяСтрока.Добавить(";"); //
 НекорректнаяСтрока.Добавить("  НекорректнаяСтрока.Добавить(">"); //
  НекорректнаяСтрока.Добавить("="); //
  НекорректнаяСтрока.Добавить("?"); //
 НекорректнаяСтрока.Добавить("@"); //
 НекорректнаяСтрока.Добавить("`"); //
 НекорректнаяСтрока.Добавить("\"); //
 НекорректнаяСтрока.Добавить("["); //
 НекорректнаяСтрока.Добавить("]"); //
 НекорректнаяСтрока.Добавить("#"); //
 //=========Общие некорректные символы========================================.

 //=========Некорректные символы для контрагентов ============================
 НекорректнаяСтрока.Добавить("ООО");
 НекорректнаяСтрока.Добавить("ТОВ ");
 НекорректнаяСтрока.Добавить("ОАО");
 НекорректнаяСтрока.Добавить("ВАТ ");
 НекорректнаяСтрока.Добавить("ЗАО");
 НекорректнаяСтрока.Добавить("ЗАТ ");
 НекорректнаяСтрока.Добавить("ЧП");
 НекорректнаяСтрока.Добавить("ГП");
 НекорректнаяСтрока.Добавить("ГОАО");
 НекорректнаяСтрока.Добавить("ДВАТ");
 НекорректнаяСтрока.Добавить("ШАХТА");
 НекорректнаяСтрока.Добавить("КП ");
  //=========Некорректные символы для контрагентов =============================.

 
 //убираем лишние пробелы=====================================================
 ИмяЧ = СокрЛП(ИмяЧ);
 Пока Найти(ИмяЧ, " ") > 0 Цикл
  ИмяЧ = СтрЗаменить(ИмяЧ, " ", " ");
 КонецЦикла;
  //============================================================================
 
 Для СчетчикИмя = 1 По СтрДлина(ИмяЧ) Цикл
  Для Каждого Элемент из НекорректнаяСтрока Цикл
  ДлинаНекорректнаяСтрока = СтрДлина(Элемент);
  Если Врег(Лев(ИмяЧ,ДлинаНекорректнаяСтрока)) = Элемент Тогда
  ИмяЧ = Сред(ИмяЧ, (ДлинаНекорректнаяСтрока+1),(СтрДлина(ИмяЧ)-ДлинаНекорректнаяСтрока));
  ИмяЧ = СокрЛП(ИмяЧ);
  ДлинаИмени = СтрДлина(ИмяЧ);
  КонецЕсли;
  КонецЦикла;
 КонецЦикла;
 
 Возврат ИмяЧ;
 
КонецФункции

 


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

См. также

Универсальные функции Работа с интерфейсом Программист 1С v8.3 Бесплатно (free)

Порой необходимо временно отключить расширение 1С, не удаляя его, чтобы не потерять данные. Но в этом случае при каждом запуске всем будет лезть уведомление о неактивном расширении, хотя очевидно, это техническая информация, которой не стоит лишний раз пугать пользователей.

14.05.2025    4087    DeerCven    9    

49

Универсальные функции Программист 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Благодаря этим пяти строчкам можно больше не заморачиваться с загрузкой из внешних файлов. Пользуюсь везде, всегда и постоянно.

21.05.2024    43124    dimanich70    83    

158

Универсальные функции Программист 1С v8.3 1C:Бухгалтерия Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    6359    6    John_d    12    

58

Универсальные функции Программист Стажер 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    52661    atdonya    31    

67

Универсальные функции Программист 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    8117    ke.92@mail.ru    17    

67

WEB-интеграция Универсальные функции Механизмы платформы 1С Программист 1С v8.3 1C:Бухгалтерия Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    21667    YA_418728146    8    

174
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Tatitutu 3851 15.07.09 22:57 Сейчас в теме
Автор ! Посмотри описание своей разработки....Ну как впечатлило ?
Все кто зашел на страницу, "понимают", что Вы работаете на 8-ке давно и плодотворно (потому что "это" ДЛЯ ЛЮБОЙ КОНФИГУРАЦИИ)

А минус я Вам ставлю за код:

ЕрундаВначале = Новый Массив;
//ИМХО уважай других программистов. кто будет читать твой код
3. an77 225 16.07.09 20:06 Сейчас в теме
(1) Минус так минус :(
Код "ЕрундаВначале": на момент написания функции это было самое мягкое слово для обозначения перлов бухгалтеров в справочнике! Написал, полегчало!
4. Tatitutu 3851 16.07.09 20:28 Сейчас в теме
(3) изменишь - минус сниму.
5. an77 225 16.07.09 21:24 Сейчас в теме
(4) Варианты "ЛишнееВНачале", "ЛевоеВНачале", "НенужноеВНачале", "Шелуха", "ПроверяемыеСимволыНазванияКонтрагентаВНачалеКоторыеНужноУбр­ать", "ПСНКВнКНУ", "КВН", "Л", "Е", "Ё"?
7. Tatitutu 3851 16.07.09 21:29 Сейчас в теме
и прочитай (1) пост построчно...еще раз
2. ProkopyukIN 17 16.07.09 02:29 Сейчас в теме
да. код конечно жесткий.
6. Tatitutu 3851 16.07.09 21:29 Сейчас в теме
Сам придумай - ты же автор )))
8. _Xelon_ 5 20.07.09 11:23 Сейчас в теме
1. Зачем использовать метод "Вставить" для Массива, если на самом деле смысла в позиции элемента массива нету. Метод "Добавить" тут подходит больше.
2. Когда происходит вырезание из наименования "Ерунды в начале", то не учитывается, что имя может начинаться с пробела. Также не учитывается дублирование "ерунды" (например: две запятые в начале).
3. Не понятно применения двух одинаковых кусков кода по вырезанию из наименования "ерунды". Если это действительно необходимо сделать несколько раз, то можно применить цикл.
4. Цикл по очистке наименования от множественных пробелов почему-то выполняется именно 35 раз. Не больше и не меньше. Даже если этих множественных пробелов в наименовании уже нет. Правильней использовать цикл "Пока Найти(ИмяЧ, " ") > 0 Цикл".
Для отправки сообщения требуется регистрация/авторизация