Сервисы поддержки / Примеры / Разное / Автообработка по времени (три независимых таймера) Дни:часы:минуты:секунды (Только на RSL, и без диалога - через Message)

Автообработка по времени (три независимых таймера) Дни:часы:минуты:секунды (Только на RSL, и без диалога - через Message)

Автор:Alexander
Дата:31.07.2003
Просмотров:5898
Скачиваний:1002
Оценка:

, Оценок - 1

Скачать (zip-файл; Размер - 2274)

Обсудить в форуме

Описание

В низу экрана (Message) находятся три счетчика - дни+часы+минуты+секунды (период задается числом секунд), которые независимо друг от друга уменьшают свое значение до нуля (0.0.0.0).
При срабатывании счетчика (обнулении) - выполняется соответствующая ему процедура(макрос) и счетчик инициализируется вновь.
При этом, принудительно, можно по F10,F8,F9 - выполнить соответствующий блок(процедуру) или выйти из программы по ESC.

Я использую для автообработки документов(запросов) в шлюзах к Faktura.ru и IBank (БИФИТ)

Текст примера

 /*
Три счетчика времени -
при обнулении соответсвующего счетчика -
запускается определенный макрос.
*/
Import "bf_sql.nav"/*IbankCards*/;
Import "time_day.nav";
Var TimeToAsk1 = not true;
Var TimeToAsk2 = true;
Var TimeToAsk3 = true;
Var flag=true;
/*точка входа*/
While (flag)
  If (TimeToAsk1)
    /* Формируем выписки по карточным счетам */
    IbankCards();
    TimeToAsk1=not TimeToAsk1;
    /* Подождем Trim(String(time_2) секунд */
  End;
  If (TimeToAsk2)
    /* Делаем что-то по счетам */
    TimeToAsk2=not TimeToAsk2;
  End;
  If (TimeToAsk3)
    /* Делаем ЕЩЕ что-то */
    TimeToAsk3=not TimeToAsk3;
    /* Подождем чуть-чуть...*/
  End;
  flag=TimeDialog(TimeToAsk1,"Карты:",TimeToAsk2,"Счета:",TimeToAsk3,"Доки.:");
End;