Roman Azarov (Все сообщения пользователя)

orderNum=OnTransReply(order_num)

function OnTransReply(reply)
   orderNum = reply.order_num
end

stopped = false
function OnStop()
stopped = true
return 5000
end

function main()
Pokup()
sleep(5000)
SnZ()
end

function Pokup()
--Покупка лимитка

A = {ACTION='NEW_ORDER',
      ACCOUNT='NL0011100043',
      OPERATION='B',
      CLASSCODE='QJSIM',
      SECCODE='MAIL',
      PRICE='2230,6',
      QUANTITY='1',
      TRANS_ID='1002',
      TYPE='L'
         }
         
 local Err_A = sendTransaction(A)
end


function SnZ()
Sn = {ACTION='KILL_ORDER',
      ACCOUNT='NL0011100043',
      CLASSCODE='QJSIM',
      SECCODE='MAIL',
      TRANS_ID='989',
      ORDER_KEY=tostring(orderNum)
         }
         
Err_Sn = sendTransaction(Sn)
end

function OnTransReply(reply)
   orderNum = reply.order_num
end

local stopped = false;
function OnStop()
   stopped = true;
   return 3000;
end

--data table
local data_table;


--main
-----------------------------------------------------------------------
function main()


--create window and table
data_table = AllocTable();

AddColumn(data_table, 1, 'Колонка №1', true,QTABLE_STRING_TYPE,14)
AddColumn(data_table, 2, 'Колонка №2', true,QTABLE_CACHED_STRING_TYPE,14)
AddColumn(data_table, 3, 'Колонка №3', true,QTABLE_STRING_TYPE,14)

SetTableNotificationCallback(data_table, OnTableEvent)

CreateWindow(data_table);
SetWindowCaption(data_table, 'Table 1');
SetWindowPos(data_table, 1000, 150, 400, 200);
InsertRow(data_table, -1);


SetCell(data_table, 1, 1, 'Клик 1 1');
SetCell(data_table, 1, 2, 'Клик 1 2');
SetCell(data_table, 1, 3, 'Клик 1 3');
InsertRow(data_table, 2);
SetCell(data_table, 2, 1, 'Клик 2 1');
SetCell(data_table, 2, 2, 'Клик 2 2');
SetCell(data_table, 2, 3, 'Клик 2 3');

-- бесконечный цикл (пока stopped == false)
while stopped~=true do
   sleep(500)
end

end
--main end
-----------------------------------------------------------------------

-- Функция обрабатывает события в таблице
function OnTableEvent(data_table, msg, par1, par2)
   -- Если был клик левой кнопкой
   if msg == QTABLE_LBUTTONDBLCLK then
       -- Если это общий стоп
       if par1 == 1 -- Номер строки
           and par2 == 1 then -- Номер колонки
           -- Вызываем необходимую функцию
           message('message 1')
       else        
           if par2 == 2 then
               -- Вызываем необходимую функцию
               message('message 2')
           end
       end
   end
end

function main()
money = getPortfolioInfo("NС0011100000", "11194")
message(tostring(money.in_assets))
end

tbl = getItem("depo_limits", 4)
message(tostring(tbl.sec_code))