Hired (Автор тем)

isRun = true

base_time = "09:07:00" -- время в которое исполнится заявка.время операционной системы

function FixTime(V)
V=tostring(V)
local Out = os.date("!*t",os.time())
local len = string.len(V)
if len > 6 then
Out.hour,Out.min,Out.sec = string.match(V,"(%d%d)%p(%d%d)%p(%d%d)")
elseif len == 6 then
Out.hour,Out.min,Out.sec = string.match(V,"(%d%d)(%d%d)(%d%d)")
elseif len == 5 then
Out.hour,Out.min,Out.sec = string.match(V,"(%d)(%d%d)(%d%d)")
end
return Out
end

function main()
while isRun do
stime = tostring(GetInfoParam("SERVERTIME"))
--stime = tostring(os.time)
message(tostring(stime))
message(tostring(base_time))
   if     os.time(FixTime(stime)) < os.time(FixTime(base_time))  then
   elseif os.time(FixTime(stime)) >= os.time(FixTime(base_time)) then
   result = 1
      if result ~= 1 then
      message(tostring("Транзакция не прошла проверку на стороне терминала QUIK"))
      else
      message(tostring("Транзакция отправлена"))
      isRun = false
      end
      sleep(100)
   end
   sleep(1500)
end
message(tostring("====="))
sleep(100)
end

firma = "MC0061900000"
kode_cl = "376622RI23KQ"
schet_depo = "L01+00000F00"
raschet_T = 2
class_code = "TQBR"
tiker = {"AFLT","GAZP","GMKN","SBERP"}

function main ()
    for i = #tiker,1,-1 do
    bumaga = tiker[i]
    table_depo = getDepoEx (firma,kode_cl,bumaga,schet_depo,raschet_T) 
    code = table_depo.sec_code
    message(tostring(code))
    end
end

   if Raznica > 1 then
   message(tostring(bumaga .. " " .. Raznica ))
   table.remove (sec_code, 1)
   sleep(3000)

IsRun = true
sec_code = { "GAZAP", "LKOH", "SBER", "GMKN", "TRFM", "RAVN" }
class_code = "QJSIM"

function main()
   while IsRun do
      for _,bumaga in ipairs(sec_code) do
      LowDnya = getParamEx (class_code, bumaga, "LOW").param_value
      Last = getParamEx (class_code, bumaga, "LAST").param_value
      Raznica = math.abs(LowDnya - Last)
         if Raznica > 1 then
         message(tostring(bumaga .. " " .. Raznica ))
         sleep(3000)
         end
      end   
   end
end

function OnStop()
   IsRun = false
end