Имя: Пароль:
1C
1С v8
Есть старые версии обработки по очистке кратких наименований контрагентов? (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 лучше пишите в почту.