Имя: Пароль:
1C
1C 7.7
v7: групповая обработка справочников
0 taril115
 
10.08.11
10:32
Всем привет.
Задача: Есть справочник с полем "Наименование". Нужно автоматом переименовать 2000 позиций в этом справочнике от 1 и до обеда )
Встречал кто-нить какую-нить универсальную обработку по перезаполнению реквизитов?
1 Нуф-Нуф
 
10.08.11
10:33
могу сделать такую обработку удаленно. пиши в личку
2 __Se24
 
10.08.11
10:33
ну их же наверное нада чем-то заполнять ??
3 Гефест
 
10.08.11
10:33
Наименование рандомно генерировать или как?
4 __Se24
 
10.08.11
10:34
наверное в зависимости от фазы луны ))
5 taril115
 
10.08.11
10:44
наименования по счётчику от 1 до конца )
6 taril115
 
10.08.11
10:45
уточню: цифрами)
7 ДенисЧ
 
10.08.11
10:45
Обработка пишется за 2 минуты...
8 Гефест
 
10.08.11
10:47
(7) "Сто рублей за удар молотком и девятьсот за то, что знал куда ударить"© )
9 Tatitutu
 
10.08.11
10:48
(7) да ладно ?
а ты у него шепотом спроси ..."ему код или наименование переимновать нужно ?"
10 Мулька
 
10.08.11
10:50
(7) +1
11 taril115
 
10.08.11
10:51
Хватит издеваться) Наименование.
Киньте пример)
12 __Se24
 
10.08.11
10:55
христоматийный вариант .... с кодом было бы поинтереснее
13 Krendel
 
10.08.11
10:56
(11) Кинь бабла
14 taril115
 
10.08.11
10:59
для кода есть куча универсальных обработок ...
15 zavsom
 
10.08.11
11:06
спр=СоздатьОбъект("Справочник.Такойто");
Спр.ВыбратьЭлементы();
инд=0;
Пока Спр.ПолучитьЭлемент()=1 Цикл
  инд=инд+1;  
  Спр.Наименование=Строка(инд);
КонецЦикла;
16 __Se24
 
10.08.11
11:07
(15) всю интригу поломал ...
17 zavsom
 
10.08.11
11:08
ну а че вы в самом то деле начали тут тони мони разводить...
18 taril115
 
10.08.11
11:09
во спасибо тебе добрый человек! )
19 fedoss
 
10.08.11
11:30
Следующий вопрос будет про
Err: Изменено Наименование! Может быть нарушена последовательность выборки!
:)
20 ДенисЧ
 
10.08.11
11:34
(15) гыгыгыгыгы...
Завовсом опять лоханулся :_)))
21 ДенисЧ
 
10.08.11
11:34
(18) Не говори спасибо южно централу, попивая сок у себя на районе :-)
22 zavsom
 
10.08.11
11:39
(21) В чем лажа то?
23 Нуф-Нуф
 
10.08.11
11:40
(22) изменять наименование в выборке по наименованию да еще и не записывать элемент после изменения :)
24 ДенисЧ
 
10.08.11
11:41
(22) В том, что твой код не работает
25 zavsom
 
10.08.11
11:41
(19) это с какого перепугу то такой вопрос?
26 zavsom
 
10.08.11
11:41
(24) Да ну -а я и не знал - видимо у меня платформа другая...
27 Нуф-Нуф
 
10.08.11
11:42
какая платформа. 100% нерабочий код из-за грубой ошибки по изменению наименовая в выборке, которая происходит по этому самому наименованию
28 Нуф-Нуф
 
10.08.11
11:42
и платформа тут не при делах. :)
29 ДенисЧ
 
10.08.11
11:43
(28) Ну как же... А платформа, в которой этот код рождался?
30 Нуф-Нуф
 
10.08.11
11:43
(29) это не рабочий код на любой платформе
31 taril115
 
10.08.11
11:44
спр=СоздатьОбъект("Справочник.Такойто");
Спр.ПорядокКодов();
Спр.ВыбратьЭлементы();
инд=0;
Пока Спр.ПолучитьЭлемент()=1 Цикл
  инд=инд+1;  
  Спр.Наименование=Строка(инд);
  Спр.Записать();
КонецЦикла;


Как-то так)
32 Нуф-Нуф
 
10.08.11
11:44
(31) кросавчик. 5 баллов. учись завсом :)
33 ДенисЧ
 
10.08.11
11:45
(30) А в сознании автора? :-)
34 Нуф-Нуф
 
10.08.11
11:45
:))))))))
35 zavsom
 
10.08.11
11:46
(31) Это тоже не работает

Спр.Наименование=Строка(инд);
{C:\РАБОТА\123\РАРУС2\EXTFORMS\ПРОБА.ERT(9)}: Изменено Наименование! Может быть нарушена последовательность выборки!
36 Нуф-Нуф
 
10.08.11
11:46
да ладно завсом, мы ж не со зла. все мы грешны. с каждым бывает :)
37 taril115
 
10.08.11
11:46
без помощи конечно не обошлось)))
СПС Нуф-Нуф ))
38 Нуф-Нуф
 
10.08.11
11:46
(35) Спр.ПорядокКодов(); не забыл?
39 zavsom
 
10.08.11
11:47
40 Нуф-Нуф
 
10.08.11
11:48
(39) ну кагбэ да :)
41 Нуф-Нуф
 
10.08.11
11:51
ооо я там еще как бешеная нога :)
42 Нуф-Нуф
 
10.08.11
12:03
а завсом так и не признался...
43 Tatitutu
 
10.08.11
12:09
ТЗ=СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("Товар","Справочник.Такойто");
   спр=СоздатьОбъект("Справочник.Такойто");
   Спр.ПорядокКодов();
   Спр.ВыбратьЭлементы();
   инд=0;
   Пока Спр.ПолучитьЭлемент()=1 Цикл
       //группы пропустим
       Если Спр.ЭтоГруппа()=1 Тогда
           Продолжить;
       КонецЕсли;
       ТЗ.НоваяСтрока();
       ТЗ.Товар = Спр.ТекущийЭлемент();
   КонецЦикла;
   //выберем из таблицы значений
   ТЗ.ВыбратьСтроки();
   Пока ТЗ.ПолучитьСтроку() = 1 Цикл
       Спр.НайтиЭлемент(ТЗ.Товар);
       Спр.Наименование=инд;
       инд=инд+1;
       спр.Записать();
       Сообщить(Спр.ТекущийЭлемент());
   КонецЦикла;
44 Нуф-Нуф
 
10.08.11
12:21
(43) зачем???????
45 Нуф-Нуф
 
10.08.11
12:22
на большом объеме такой код просто сдохнет.
46 Dimanchik
 
10.08.11
12:34
спр=СоздатьОбъект("Справочник.Контрагенты");
спрК=СоздатьОбъект("Справочник.Контрагенты");
спр.ВыбратьЭлементы();
к=1;
Пока спр.ПолучитьЭлемент() = 1 Цикл
   Если спрК.НайтиЭлемент(спр.ТекущийЭлемент())=1 Тогда
       спрК.Наименование=Строка(к);
       спрК.Записать();
   КонецЕсли;
   к=к+1;
КонецЦикла;

как-то я бы сделал...
писать-то тут максимум 3 минуты
47 Нуф-Нуф
 
10.08.11
12:35
(46) откровенный кг/ам :)
48 Нуф-Нуф
 
10.08.11
12:36
стыдно должно быть товарищ
49 Dimanchik
 
10.08.11
12:40
(48) - зато работает и писать не долго. И с ТЗ не париться.
50 Нуф-Нуф
 
10.08.11
12:43
(49) все уже придумано в (31) :)
и грамотнее написано и быстрее работает на порядок :)
51 Vladal
 
10.08.11
12:44
(15) А ПорядокКодов? Ибо по наименованию выборка залезет и сразу споткнется.
52 Dimanchik
 
10.08.11
12:47
(50)  в принципе да. Век живи - век учись.

(46) пригодится если надо переименовать в алфавитном порядке по наименованию, не меняя других реквизитов.