smokhors
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Вот, у меня получилось для одного документа. Хотелось бы конечно узнать как можно проще поменять этот параметр времени который 12:00 ставит для документов созданных более поздним числом
перем делать;
...
Процедура ПриОткрытии()
если делать = 2 тогда делать = 0; иначе делать = 1; конецесли;
...
Процедура ВводНового(Скопирован)
делать = 2;
...
Процедура ВыполнитьНажатиеНаКнопку(ИмяКнопки)
Если делать = 0 тогда // УСТАНОВКА ВРЕМЕНИ
Если (ДатаДок>ТекущаяДата()) и (ДатаДок>ПолучитьДатуТА()) Тогда
ч = 0; м = 0; с = 0;
ДокНач = СоздатьОбъект("Документ");
ДокНач.ВыбратьДокументы();
Пока ДокНач.ПолучитьДокумент() = 1 Цикл
если ДокНач.ДатаДок = ДатаДок тогда
ДокНач.ПолучитьВремя(ч,м,с);
конецесли;
КонецЦикла;
если (ч >= 8) и (м >= 0) и (с >= 0) тогда
АвтоВремяОтключить();
УстановитьВремя(ч,м,с+1);
иначе
АвтоВремяОтключить();
УстановитьВремя(8,0,0);
конецесли;
иначе
АвтоВремяПослеТА();
КонецЕсли;
делать = 1;
конецесли; //.
только в каждый документ придется вставлять такой вот код, эх..
|
Всего записей: 7 | Зарегистр. 17-03-2010 | Отправлено: 06:58 28-05-2010 | Исправлено: smokhors, 07:03 28-05-2010 |
|
