Удаление начальных и конечных пробелов

Обработка предназначена для удаления начальных и конечных пробелов в наименовании элементов справочника "Номенклатура". Работает в конфигурации Управление торговлей 11 (управляемое приложение).

Обработка предназначена для удаления начальных и конечных пробелов в наименовании элементов справочника «Номенклатура». Работает в конфигурации Управление торговлей 11 (управляемое приложение).

9 Comments

  1. Ta_Da

    Эм… автор открыл для себя СокрЛП()?

    Reply
  2. Bobak

    Вот даже плюс хотел поставить … за наглость, но воздержусь. 🙂

    Reply
  3. Virikus

    Да нет, он походу СокрЛП() еще не открыл, а тупо перебором пробелы удаляет.

    Reply
  4. Virikus

    А нет, вру, действительно открыл СокрЛП()

    Вот кусок кода

    &НаКлиенте
    Процедура УдалитьНачальныеИКонечныеПробелыНоменклатуры(Команда)
    
    Количество = ИнициализироватьОбработку();
    ШагВПроцентах = 10;
    РазмерШага = Цел(Количество / 100 * ШагВПроцентах);
    КоличествоШагов = Цел(Количество / РазмерШага);
    КоличествоЦел = КоличествоШагов * РазмерШага;
    
    Элементы.Индикатор.МаксимальноеЗначение = Количество;
    
    Для Шаг = 1 По КоличествоШагов Цикл
    
    ОбработатьПорциюНаСервере(АдресДанных, РазмерШага * (Шаг — 1), (РазмерШага * Шаг) — 1);
    Идикатор = Шаг * РазмерШага;
    ОбработкаПрерыванияПользователя();
    ОбновитьОтображениеДанных();
    
    КонецЦикла;
    
    Если КоличествоЦел < Количество Тогда
    
    ОбработатьПорциюНаСервере(АдресДанных, РазмерШага * КоличествоШагов, Количество — 1);
    Индикатор = Количество;
    
    КонецЕсли;
    
    КонецПроцедуры
    
    
    &НаСервереБезКонтекста
    Процедура ОбработатьПорциюНаСервере(Адрес,Начало,Конец)
    
    Данные = ПолучитьИзВременногоХранилища(Адрес);
    
    Для Индекс = Начало По Конец Цикл
    
    СтрокаДанных = Данные[Индекс];
    
    Если СтрокаДанных.Наименование = СокрЛП(СтрокаДанных.Наименование) Тогда
    Продолжить;
    КонецЕсли;
    
    //ПроверкаВыполнена = Ложь;
    //Если СтрокаДанных.ЭтоГруппа Тогда
    // ПроверкаВыполнена = Истина;
    //Иначе
    // ПроверкаВыполнена = Ложь;
    //КонецЕсли;
    
    //Если ПроверкаВыполнена Тогда
    
    Объект = СтрокаДанных.Ссылка.ПолучитьОбъект();
    Объект.Наименование = СокрЛП(Объект.Наименование);
    Объект.ОбменДанными.Загрузка = Истина;
    Объект.Записать();
    
    //КонецЕсли;
    
    КонецЦикла;
    
    КонецПроцедуры
    
    &НаСервере
    Функция ИнициализироватьОбработку()
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    «ВЫБРАТЬ
    | Номенклатура.Ссылка,
    | Номенклатура.Наименование,
    | Номенклатура.ЭтоГруппа
    |ИЗ
    | Справочник.Номенклатура КАК Номенклатура»;
    
    Данные = Запрос.Выполнить().Выгрузить();
    АдресДанных = ПоместитьВоВременноеХранилище(Данные, УникальныйИдентификатор);
    
    Возврат Данные.Количество();
    
    КонецФункции
    

    Показать

    Еще то извращение.

    Reply
  5. quebracho

    Если бы это была публикация девушки с красивой фотографией в профиле, оценки были бы другими, да и комментарии тоже. Эх …

    Reply
  6. dammit666

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

    Reply
  7. hopter

    (6)ага, и выложить еще десяток подобных обработок на каждый справочник

    потом недельный обзор с инфостарта приходит на десяток страниц

    Reply
  8. Misanets

    Ммм-да… Про ТОП-100 не забыли? Надо бы порекомендовать))

    Выкладывал похожее решение тут ранее «Причесываем» справочник

    Reply
  9. gala2009

    реально такая вещь пригодится при огромном справочнике номенклатуры у клиента

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *