Имя: Пароль:
1C
 
как сделать чтобы форма 1с 81 отрисовывалась каждую секунду?
0 program345
 
01.12.14
15:15
доброго вечера!


&НаКлиенте
Процедура УвеличитьНорму(Команда)
    ТекДанные = Элементы.Список.ТекущиеДанные;
    Если ТекДанные = Неопределено Тогда
        Возврат;
    КонецЕсли;
    
    ТекСотрудник = ТекДанные.Сотрудник;
    Число = 0;
    Дата = ТекДанные.Период;
    
    ВвестиЧисло(Число, "Введите увеличение норматива в %-х: ");
    Если Число < 0 Тогда
        Сообщить("Норматив можно только увеличить!");
        Возврат;
    КонецЕсли;
    
    УвеличитьНормуСервер(ТекСотрудник, Число, Дата);
    
КонецПроцедуры    
    
Процедура УвеличитьНормуСервер(Сотрудник, ПроцентУвеличения, Дата);    
    
    МенеджерЗаписи = РегистрыСведений.НормаВыработки.СоздатьМенеджерЗаписи();
    МенеджерЗаписи.Период = Дата;
    МенеджерЗаписи.Сотрудник = Сотрудник;
    МенеджерЗаписи.Прочитать();
    
    СуммаУвеличения = ПроцентУвеличения/100 * МенеджерЗаписи.Норма;
    МенеджерЗаписи.Норма = СуммаУвеличения + МенеджерЗаписи.Норма;
    
    МенеджерЗаписи.Записать();
    
КонецПроцедуры

как сделать чтобы форма 1с 81 отрисовывалась каждую секунду?
1 program345
 
01.12.14
15:15
где-то галочка - непомню...
2 program345
 
01.12.14
15:16
подскажите пожалуйста
3 program345
 
01.12.14
15:19
сорри 83 приложение
4 Адский плющ
 
01.12.14
15:21
Нихрена не понял, но осуждаю.
5 SUA
 
01.12.14
15:21
накуя?
6 SUA
 
01.12.14
15:21
и да... если что это не вопрос а утверждение
7 program345
 
01.12.14
15:24
идет ввод значения (число), нужно чтобы скорректированное значение сразу отобразилось, а не кнопке Ф5
8 program345
 
01.12.14
15:25
а не по кнопке Ф5
9 singlych
 
01.12.14
15:35
Элементы.Список.Обновить()
10 program345
 
01.12.14
16:34
спасибо!
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший