|
Есть старые версии обработки по очистке кратких наименований контрагентов? (8.0) | ☑ | ||
---|---|---|---|---|
0
Mendel_UA
08.07.11
✎
11:40
|
Есть отличная обработка фриварная... вот только сколько не пишут что она 8.0, но реально везде идет от 8.1 и выше....
Поделитесь кто-то версией 8.0 если есть.. Плиз, очень надо. Семь тысяч записей вручную это моветон.... |
|||
1
Eugene_life
08.07.11
✎
11:41
|
(0) Написать свое не предлагать?
|
|||
2
Evpatiy
08.07.11
✎
11:42
|
(0) Там три строчки кода, искать дольше будешь
|
|||
3
MORRoz
08.07.11
✎
11:45
|
А универсальная обработка справочников с включенным свойством "изменять реквизиты" не подходит?
|
|||
4
birkoFFFF
08.07.11
✎
11:48
|
Народ в конец обленился...
|
|||
5
John83
08.07.11
✎
11:54
|
(3)
1 - запаришься в каждом справочнике каждый реквизит менять 2 - стандартная обработка не просто наименования меняет (0) по-моему просто скопировать текст из новой версии достаточно будет |
|||
6
Mendel_UA
08.07.11
✎
12:11
|
Ну я скопировал, но пока не работает :)
Там еще форма, реквизиты и т.п. Отлаживаю, особо то вариантов нет. На самом деле там действительно не просто три строчки кода. А на счет обленился - я вообще изначально полез в поиск с целью свою обработку написать, искал кое-что по методам... Наткнулся блин на хорошее готовое решение. Может есть у кого? |
|||
7
КонецЕсли
08.07.11
✎
12:28
|
Это прикол такой чтоле пятничный?
|
|||
8
КонецЕсли
08.07.11
✎
12:39
|
ВыборкаСправочника=Cправочники.Контрагенты.Выбрать();
Пока ВыборкаСправочника.следующий() Цикл СправочникОбъект=ВыборкаСправочника.ПолучитьОбъект(); //.... СправочникОбъект.Записать(); КонецЦикла; Какие у этого могут быть "версии"? Чем это может отличаться в8.0 и 8.1 ? Фриварная обработка очистке кратких наименований контрагентов = 0_0 |
|||
9
MORRoz
08.07.11
✎
12:44
|
(8) судя по (5) она не просто меняет названия...
а что-то еще =) |
|||
10
Mendel_UA
13.07.11
✎
12:25
|
Пришлось таки конвертировать обратно. Заодно немного под себя подправил. Из общественно полезных правок - добавил очистку лидирующих пробелов в случае если "мусор" не был найден, и убрать кавычки если мусора не было.
Код: // Если у нас Наименование начинается или кончается пробелом, то сохраним его сразу // поскольку бывают случаи когда пробел есть, а другого мусора нет. // Также у нас может быть что наименование начинается кавычкой, без слов ПП и т.п. // Их тоже обработаем. //(с) Мендель НаимКонтрагента = СокрЛП(ВыбСправ.Наименование); // теперь займемся кавычками - уберём первую и вторую (закрывающую) Если Найти(НаимКонтрагента, """") = 1 Тогда НаимКонтрагента = СокрЛ(Сред(НаимКонтрагента, 2)); Поз = Найти(НаимКонтрагента,""""); Если Поз > 0 Тогда НаимКонтрагента = Сред(НаимКонтрагента, 1, Поз-1) + Сред(НаимКонтрагента, Поз+1); КонецЕсли; КонецЕсли; Если НЕ (НаимКонтрагента = ВыбСправ.Наименование) Тогда Если ДелатьОткат = 1 Тогда ТекстОтката.ДобавитьСтроку(НаимКонтрагента + "|" + ВыбСправ.Наименование); КонецЕсли; ВыбСправ.Наименование = НаимКонтрагента; ВыбСправ.Записать(); Ном = Ном + 1; Если Ном / 10 = Цел(Ном / 10) Тогда Состояние("Обработано - " + Ном + " элементов"); КонецЕсли; КонецЕсли; КонецЦикла; Добавлять после блока: Если Поз > 0 Тогда // есть наименование с мусором ...... КонецЕсли; Если нужна обработка под 8.0 лучше пишите в почту. |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |