Имя: Пароль:
1C
1C 7.7
v7: Есть ли обработка
0 vqwy
 
26.04.12
08:33
В яндексе забанили. В семерке не разбираюсь. Бащка не работает.
Подскажите обработку (готовую) для 7.7, чтобы присваивала реквизиту (Инв.номер) префикс, причем только для элементов одной группы. Сейчас есть одна, но она для всего справочника.
1 zak555
 
26.04.12
08:43
долго писать ?
2 vqwy
 
26.04.12
09:00
нужна срочно
писать некогда)
3 vqwy
 
26.04.12
09:01
готов отдать умеренное бабло за готовую
4 KRV
 
26.04.12
09:03
интересно: потянет ветка 1000 постов?
5 vqwy
 
26.04.12
09:03
(4) не потянет
6 Гефест
 
26.04.12
09:08
Бащка чинить чтоб хотя бы конфигурацию и название справочника назвать
7 vqwy
 
26.04.12
09:09
(6) Спасыба, таварисч!
ББУ 7.7 справочник ОС, НМА и НПА
8 Он
 
26.04.12
10:00
999 руб.
9 zak555
 
26.04.12
10:00
1500
10 povar
 
26.04.12
10:04
9000 руб., половина твоя
11 Он
 
26.04.12
10:04
(9) Да ладно.
1 реквизит на форму + пару строчек кода.
Жадный ты.
Я вот ещё рублик скину и заказ мой.
12 DeiMos
 
26.04.12
10:06
ИМХО, справедливая цена на эту работу - 300 рублей (закинуть на телефон или веб-мани).
Но за срочность - 500.

(Я не подряжаюсь сделать, я просто размышляю вслух)
13 ДенисЧ
 
26.04.12
10:08
За срочность - 10 000 рублей
+конфигурация с тебя
14 Он
 
26.04.12
10:09
(13) +карандаш
15 Boroda
 
26.04.12
10:15
(11) префикс пропишу прямо в коде, + 2 строчки кода  = минус еще рубль.. :)
16 Он
 
26.04.12
10:18
(15) Хитрый. А потом, если другая группа понадобится - опять к тебе.
Ну ты прям как жадный франь себя ведёшь.
17 Boroda
 
26.04.12
10:45
Ну так что? Можно уже подсказать? :)  Все равно ветка тонет...
18 155153144627
 
26.04.12
10:57
Процедура Сформировать()
   Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
   Спр.НайтиЭлемент("Код группы");
   Префикс = "Симаволы перефикса";
   Группа = Спр.ТекущийЭлемент();
   Спр.ВыбратьЭлементы();
   Пока Спр.ПолучитьЭлемент() = 1 Цикл
       Если спр.ПринадлежитГруппе(Группа) Тогда
           Спр.Код = Префикс + Сред(Спр.Код,СтрДлина(Префикс));
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры
19 vqwy
 
26.04.12
10:59
т.е. готовой на ИС или еще где-то, чтобы скачать, - нету?
20 155153144627
 
26.04.12
10:59
Процедура Сформировать()
   Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
   Спр.НайтиЭлемент("Код группы");
   Префикс = "Символы префикса";
   Группа = Спр.ТекущийЭлемент();
   Спр.ВыбратьЭлементы();
   Пока Спр.ПолучитьЭлемент() = 1 Цикл
       Если спр.ПринадлежитГруппе(Группа) Тогда
           Спр.Код = Префикс + Сред(Спр.Код,СтрДлина(Префикс)+1);
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры
21 Boroda
 
26.04.12
11:04
Готовая обработка - UChoice. :)
Даже 2-х строк кода писать не надо. С бухгалтерией уже давно не работаю, а тут решил посмотреть тип реквизита "инв.номер", так это просто поле "код" для справочник ОС! В стандарном наборе обработок есть пункт "Перенумерация кодов".
22 пипец
 
26.04.12
11:06
проще на группу добавить реквизит и если принадлежит группе то реквизит в префикс
23 пипец
 
26.04.12
11:07
а за   Спр = СоздатьОбъект("Справочник.ОсновныеСредства");
   Спр.НайтиЭлемент("Код группы"); - за ето нада бить
24 Boroda
 
26.04.12
11:10
добавлю:  Еще и "Записать()" забыл.
25 155153144627
 
26.04.12
11:11
(23) Я не поэт скажу стихами, "..."
(25) Да.
26 Он
 
26.04.12
11:13
(18) Мдяяя.
27 Он
 
26.04.12
11:15
(25) Дык забудь 1С и займись стихоплётством