Имя: Пароль:
1C
Спам
ПОМОГИТЕ С добавкой в 1С
Ø (andrewks 08.08.2011 16:01)
,
0 Blakangelos
 
08.08.11
15:34
Нужно сделать в выборке процедуру чтобы к всей номенклатуре добавилась 1.
как это сделать?
1 Jstunner
 
08.08.11
15:34
круто
2 Астероид
 
08.08.11
15:35
жаль что нет более крупного шрифта, да?
3 Дикообразко
 
08.08.11
15:35
например, программным кодом
4 Варвар
 
08.08.11
15:35
Количество+1
5 andrewks
 
08.08.11
15:35
чо?
6 Greeen
 
08.08.11
15:35
1) делаем выборку номенклатуры
2) прибавляем 1
3) сохраняем элемент
4)...
5)PROFIT!
7 Blakangelos
 
08.08.11
15:35
а кодом можно?
8 Jstunner
 
08.08.11
15:36
сначала, включаем мозг
9 Salvador Limones
 
08.08.11
15:36
Получи объект
10 palpetrovich
 
08.08.11
15:36
(0) "1" к Наименованию что-ли?
11 Blakangelos
 
08.08.11
15:36
да
12 Ненавижу 1С
 
гуру
08.08.11
15:36
Номенклатура++;
13 Blakangelos
 
08.08.11
15:37
Процедура Добавка()

А=Справочники.Номенклатура.Выбрать();
Для каждого В=А.Следующий Из  Цикл
     
Получить;

КонецЕсли;  
С.Записать();
КонецПроцедуры



это набросок
14 Ненавижу 1С
 
гуру
08.08.11
15:37
(13) и что я должен с ним сделать?
15 rs_trade
 
08.08.11
15:38
(13) Это набросок! Что же будет дальше о_О
16 Варвар
 
08.08.11
15:38
Процедура Добавка()

А=Справочники.Номенклатура.Выбрать();
Для каждого В=А.Следующий Из  Цикл
     
ПолучитьПлюсАдын;

КонецЕсли;  
С.Записать();
КонецПроцедуры

Вот так пробуй.
17 Jstunner
 
08.08.11
15:38
(13) выбрось этот набросок
18 Blakangelos
 
08.08.11
15:38
можешь с нуля
19 andrewks
 
08.08.11
15:39
(13)(16) syntax error detected! press any key to continue...
20 Рэйв
 
08.08.11
15:39
(16)
>Для каждого В=А.Следующий Из  Цикл
...Вынос мозга...
21 ssh2006
 
08.08.11
15:39
Да, начни с нуля.
22 Варвар
 
08.08.11
15:39
(19) какой релиз у тебя? У меня всё работает.
23 evgen2011
 
08.08.11
15:39
это полный абздец...
24 Blakangelos
 
08.08.11
15:39
8.2

Варвар неправильно
25 rs_trade
 
08.08.11
15:40
(0) Добавки кстати, это в столовой.
26 Greeen
 
08.08.11
15:40
(7)Само собой, можно =)

Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр1 = СоздатьОбъект("Справочник.Номенклатура");

Спр.ВыбратьЭлементы(0);
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ЭтоГруппа()= 1 Тогда
Продолжить;
КонецЕсли;
Спр1.НайтиЭлемент(Спр.ТекущийЭлемент());
Спр1.<какой то реквизит> = Спр1.<какой то реквизит>  + 1;
Спр1.Записать();
КонецЦикла;
27 Дикообразко
 
08.08.11
15:40
(19)
- сделай выборку (перебор) справочника номенклатуры
в выборке:
- получи объект
- меняй наименование
- запиши измененный объект
28 Варвар
 
08.08.11
15:41
(24) как это неправильно если у меня работает?
29 Blakangelos
 
08.08.11
15:42
Нужно всем наименованиям в справочнике добавить 1
30 Greeen
 
08.08.11
15:42
*facepalm*
31 salvator
 
08.08.11
15:42
Тебе кто такие задания дает-то?
32 ВераТ
 
08.08.11
15:42
(26) че это???
33 Blakangelos
 
08.08.11
15:43
поправка в справочнике.Номенклатура
34 Шапокляк
 
08.08.11
15:43
(32) Это кунсткамера.
35 Blakangelos
 
08.08.11
15:43
Нужно всем наименованиям в справочнике.номенклатура добавить 1
36 palpetrovich
 
08.08.11
15:43
(32) семерка конечно-же :)
37 Blakangelos
 
08.08.11
15:44
8.2
38 palpetrovich
 
08.08.11
15:44
+36 ой, там не семерка, там (34) :))
39 salvator
 
08.08.11
15:44
(37) Ты тугодум? Тебе уже в (27) ответили
40 andrewks
 
08.08.11
15:44
(32) это смесь 7-ки и 8-ки, усердно сдобренная обфускацией
41 Шапокляк
 
08.08.11
15:45
(35) Напиши запрос по всему справочнику Номенклатура.
При обработке результата запроса получай объект каждой ссылки и извращайся с наименованием, после чего записывай. В чем проблема?
42 Blakangelos
 
08.08.11
15:45
кодом просил
43 palpetrovich
 
08.08.11
15:45
(37) о_О ...может еще и управляемые формы?
44 Варвар
 
08.08.11
15:45
(36)/*гнусаво*/ вот и выросло покаление адинэснигов которые не видели клюшки :)
45 rs_trade
 
08.08.11
15:45
(35) это тебе задачка для обучения. пример простой. иди книжки читай.
46 Maxus43
 
08.08.11
15:45
пятнично как
47 palpetrovich
 
08.08.11
15:46
(41) а зачем запрос, если все-равно получать объект?
48 Варвар
 
08.08.11
15:46
(40) где там из 8-ки?
49 andrewks
 
08.08.11
15:46
(47) из-за двух-трёх объектов будешь теперь всю таблицу по сети тягать?
50 Blakangelos
 
08.08.11
15:47
Процедура Добавка()

А = Справочники.Номенклатура.Выбрать();
Для каждого В = А.Следующий Из  Цикл
     
Получить();

КонецЕсли;  
С.Записать();
КонецПроцедуры

это нужно доработать
51 andrewks
 
08.08.11
15:47
(48) она там, между строк
52 palpetrovich
 
08.08.11
15:47
(48) КонецЕсли;  КонецПроцедуры
53 ВераТ
 
08.08.11
15:47
(51) там вообще кал какой-то :)))))
54 palpetrovich
 
08.08.11
15:48
(47) дык, ему-же все нужно
56 zbv
 
08.08.11
15:48
развод ?
57 Blakangelos
 
08.08.11
15:49
нет.серьезно нужно, не могу решить
58 Варвар
 
08.08.11
15:49
(50) я тебе уже доработал!
59 Рэйв
 
08.08.11
15:49
(50)
А = Справочники.Номенклатура.Выбрать();
Пока А.Следующий()Цикл
    Об=А.ПолучитьОбъект();
    Об.Наименование=Об.Наименование+"1";
    Об.Записать();

КонецЕсли;  



как то так.  Для неуправляемых форм.
Для урпавляемых надо деить вызовый на сервер
60 ВераТ
 
08.08.11
15:49
(50) я фигею... а вообще в (27) последовательность написана. Все уже разжевали. видимо все хотят, чтобы Вы чуточку напряглись и написали уже буковки сами
63 andrewks
 
08.08.11
15:51
всё, не мешайте, автор щас пол-часика подумает, и сделает сам, как настоящий начинающий программер
64 Варвар
 
08.08.11
15:52
(59) закрытие цикла КонецЕсли - это заразно от (0) :)
65 ВераТ
 
08.08.11
15:52
(63) чего думать, в (59) уже код выложен
66 ВераТ
 
08.08.11
15:52
(64) опечатка :)
67 Рэйв
 
08.08.11
15:53
(64)У меня эта болезнь уже лет 10:))
68 palpetrovich
 
08.08.11
15:53
+(64) и еще, вполне может оказаться что задачка из (0) этим кодом не решится :)
70 Варвар
 
08.08.11
15:54
(66) ага, по типу что значит абревиатура тдм? Слов х@# c тремя ошибками :)
71 palpetrovich
 
08.08.11
15:54
(70) хлеб?
72 Рэйв
 
08.08.11
15:55
(70)Еще бывает вариации после Пока ставить Тогда:)
75 Рэйв
 
08.08.11
15:57
"он слишком много не знал..."

:-)
76 zbv
 
08.08.11
15:57
(74) наверное, что-то интересное было в (61)
77 PVV65
 
08.08.11
15:58
(76) и в (62)
78 andrewks
 
модератор
08.08.11
15:59
хватит флудить. здесь вам не тут, пятница давно закончилась
79 Maxus43
 
08.08.11
15:59
в (61) ничего интересного. обозвал лентяями добрых людей
80 palpetrovich
 
08.08.11
15:59
(79) :))))
81 palpetrovich
 
08.08.11
16:00
(78) а, вон он че, Михалыч, вон оно че...