set               Kdo,$(User)
    if or,@Kdo = ladouch,@Kdo = stsacra,@Kdo = crzucha,@Kdo = jcseija then goto Smis
    _quit             Sorry, to nesmite.
Smis:
    progress.create   Servis
    progress.begin    Mastaveni alarmů
    progress.tell     Vytvářím sql script na aktualizaci tabulky Vyluky ...
    _call             Seznam
    progress.tell     Seznam hotov ...
    progress.tell     Provádím aktualizaci po záznamech, bude to trvat ...
    _call             Aktualizace
    progress.tell     Hotovo.
    progress.end      true
    progress.destroy  true
    exit


Seznam:
    f.create          c:\tmp\alarm.sql
    set               X,0
    start.sql         select VylukaId,SortFlag,UprTerm from Vyluky
LoopSeznam:
    clear.more        SortFlag,UprTerm,AlarmOd
    ?getsql           EndLoopSeznam
    if or,@UprTerm = void,@UprTerm = 0 then set UprTerm,2
    setv              AlarmOd,SortFlag
    yesterday         !AlarmOd,$(UprTerm)
    f.write           !update vyluky set AlarmOd='$(AlarmOd)',AlarmDo='$(SortFlag)' where VylukaId='$(VylukaId)';
    inc               X
    mod               X,100,Y
    if !@Y = 1 then progress.tell Zpracovano $(X) záznamů
    goto              LoopSeznam
EndLoopSeznam:
    stopsql
    f.close
    connect
    _return

Aktualizace:
    connect
    ?g.open           c:\tmp\alarm.sql,Quit
    set               X,0
LoopAktualizace:
    ?g.read           Command,EndLoopAktualizace
    quietly.sql.script !$(Command)
    inc               X
    mod               X,100,Y
    if !@Y = 1 then progress.tell Provedeno $(X) příkazů UPDATE ...
    goto              LoopAktualizace
EndLoopAktualizace:
    g.close
Quit:
    _return