Имя: Пароль:
1C
1C 7.7
v7: счетчик нажатий на кнопку 1С 7.7
0 boris
 
23.11.11
13:23
Примеры есть,  для счетчика нажатий на кнопку типа голосования плохо или хорошо
1 Mikeware
 
23.11.11
13:24
(0) ты не единоросс? а то, вон, гук говорит, что там процент таких как ты очень велик....
2 mehfk
 
23.11.11
13:24
(0) Пишешь нетленку "1С:Выборы в ГД" по госзаказу?
3 Джинн
 
23.11.11
13:25
a=a+1;
4 Ёпрст
 
23.11.11
13:25
это очень сложно, аж целую переменную завести
5 Wobland
 
23.11.11
13:25
(4) не надо никаких переменных, всё в регистр сразу пишется
6 boris
 
23.11.11
13:26
нет, это для качество приема специалистов.
7 Mikeware
 
23.11.11
13:26
(2) если б "1с:выборы" писал, он бы про rand() спрашивал..
8 Wobland
 
23.11.11
13:26
(6) какие сложности?
9 mehfk
 
23.11.11
13:28
(7) Ниче-ниче, может он далше про доступность кнопок начнет спрашивать :)
10 mehfk
 
23.11.11
13:28
9+ дальше
11 boris
 
23.11.11
13:29
задача:
Прием введут 12 спец. и требуется от клиентов голосовать (пл) или (хор).  

и конце м-ца премия др....
12 Vladal
 
23.11.11
13:29
А нажатия ведут в одной базе по сети или с одного компа и подсчитать нажатия кнопочек за текущий сеанс?
13 povar
 
23.11.11
13:30
(11) голосую за "плохо"
14 boris
 
23.11.11
13:30
(12) с одного компа
15 palpetrovich
 
23.11.11
13:30
(11) а как определить "уникальность" нажатия? :)
16 andrewks
 
23.11.11
13:32
(15) по etoken'у, вестимо.
17 Vladal
 
23.11.11
13:36
(14) И в одном сеансе, результаты сохранять не нннннадо?
18 palpetrovich
 
23.11.11
13:38
(16) считаю задача поставлена некорректно, однозначно необходимо при нажатии на кнопку еще и сканировать отпечатки пальцев, а то приписки начнутся, махинации разные нехорошие... ;)
19 boris
 
23.11.11
13:41
(17) надо
20 boris
 
23.11.11
13:42
(15) это не имеет значение  у кого больше  тот и  ...
21 Mikeware
 
23.11.11
13:42
(11) приказом ген. директора, на столах сотрудников устанавливаются путьты с надписями "кофе" и "минет". У хороших сотрудников на пультах будут кнопочки, а у плохих - лампочки...
©
22 palpetrovich
 
23.11.11
13:46
(21) :)))
23 boris
 
23.11.11
13:46
М-да
24 povar
 
23.11.11
13:47
бу га га
25 boris
 
23.11.11
13:47
скиньте примера .....
26 antoneus
 
23.11.11
13:49
(25) премьера???
27 Mikeware
 
23.11.11
13:49
(25) Чертеж пульта с лампочками?
28 Lepochkin
 
23.11.11
13:51
Вопрос то в чем?? Как организовать хранение "плюсиков" сотрудника???
29 boris
 
23.11.11
13:52
(28)вот именно, я ничего не знаю есть только задача ...  контоль-качество
30 Mikeware
 
23.11.11
13:52
(28) лампочки у него не подписаны. перепутать боится... а если еще и "вызовы" пропустит....
31 povar
 
23.11.11
13:54
жесть, у меня уже слезы от смеха бегут )))
32 Lepochkin
 
23.11.11
13:54
Делаешь регистр "ПлюсикиМинусики". Документик который движения делать. И обработку с двумя кнопками "Хорошо"/"Плохо" и фамилией сотрудника.
33 dka80
 
23.11.11
13:59
(21) )))))
34 antoneus
 
23.11.11
14:18
Или периодический реквизит, на дату начала месяца значение 0. При нажатии кнопки считал значение - изменил - записал. И по месяцам можно будет позырить.
35 Mikeware
 
23.11.11
14:19
(34) тебе тоже - пульт с лампочками...
36 Vladal
 
23.11.11
14:41
Нате!
http://depositfiles.com/files/7q7fjxl8z

И схранят, и восстанавливат.
На скору руку, без регистрей и документей.

Текст вот здеся:


Процедура Добавить(Кандидат)
   ТекЗначение = ТЗРезультат.ПолучитьЗначение(Кандидат, "Голосов");
   ТЗРезультат.УстановитьЗначение(Кандидат, "Голосов", ТекЗначение + 1);
КонецПроцедуры

Процедура Восстановить()
   ЗначениеИзФайла("C:\TEMP\golosovalka.sav", ТЗРезультат, 1);
КонецПроцедуры

Процедура Сохранить();
   ЗначениеВФайл("C:\TEMP\golosovalka.sav", ТЗРезультат, 1);
КонецПроцедуры

Процедура Сформировать()
   Если ТЗРезультат.КоличествоСтрок() = 0 Тогда
       Для ъ=1 По 6 Цикл
           ТЗРезультат.НоваяСтрока();
           ТЗРезультат.Кандидат = "Кандидат " + ъ;
           ТЗРезультат.Голосов  = 0;
       КонецЦикла;
   КонецЕсли;
КонецПроцедуры

ТЗРезультат.Очистить();
ТЗРезультат.НоваяКолонка("Кандидат", "Строка");//,,,,10);
ТЗРезультат.НоваяКолонка("Голосов",  "Число");
37 Vladal
 
23.11.11
14:43
Можно организовать клик по строке ТЧ - тогда не прийдётся вешать надцать кнопочек на форму.
38 Vladal
 
23.11.11
14:45
Процедура КликНаТаблице()
   Кандидат = ТЗРезультат.ТекущаяСтрока();
   ТекЗначение = ТЗРезультат.ПолучитьЗначение(Кандидат, "Голосов");
   ТЗРезультат.УстановитьЗначение(Кандидат, "Голосов", ТекЗначение + 1);
КонецПроцедуры
39 Vladal
 
23.11.11
14:46
40 aleks-id
 
23.11.11
14:50
ненене... надо регистр мутить. и отчет - пользователь и как проголосовал. чтобы пройтись потом по офису и раздать кренделей.
41 Vladal
 
23.11.11
14:51
и тут Остапа понесло... http://depositfiles.com/files/yygum5ugd
42 Vladal
 
23.11.11
14:52
(40) А анонимность?
А тайна голого сования?
43 aleks-id
 
23.11.11
14:53
(42) такой большой, а в сказки веришь
44 Vladal
 
23.11.11
14:53
Nulf - рандом()
45 Vladal
 
23.11.11
14:54
*тогда
46 rs_trade
 
23.11.11
14:54
а чего не оценку ставить? с нажатиями кнопочки как то все не однозначно.
47 Vladal
 
23.11.11
14:54
кароч, автор слился
48 Vladal
 
23.11.11
14:54
А что за оценка? Озвучь, прикрутим
49 Mikeware
 
23.11.11
14:55
(41)"выдыхай, бобер, выдыхай!!!"© :-)))
50 Vladal
 
23.11.11
14:55
(49) Дык! // Эх, а на Территории это конец первой страницы...
51 Mikeware
 
23.11.11
14:56
(50) давно там не был....
52 Vladal
 
23.11.11
16:23
Ото торкнуло!
И плюсики и минусики.

Картинка:
http://s010.radikal.ru/i314/1111/12/49e3f20e3a33.png

Обработка:
http://depositfiles.com/files/jr7267k7t
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший