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

Версия Квика 9.7.1.10

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

message(code_paper_)       //В первый запуск скрипта - НИКОГДА не вызывается.

end



-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------


function main()


local code_class1 = "TQBR"           
local code_paper1 = "GAZP"           
local interval1   = INTERVAL_TICK  


local code_class2 = "TQBR"           
local code_paper2 = "SBER"           
local interval2   = INTERVAL_TICK  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

local my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)      --Вызываем собственно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc1 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table1.Size()))                  //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table1.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc2 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table2.Size()))                 //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table2.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

message(code_paper_)       //В первый запуск скрипта - НИКОГДА не вызывается.

end



-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------


function main()


local code_class1 = "TQBR"           
local code_paper1 = "GAZP"           
local interval1   = INTERVAL_TICK  


local code_class2 = "TQBR"           
local code_paper2 = "SBER"           
local interval2   = INTERVAL_TICK  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

local my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)      --Вызываем собственно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc1 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table1.Size()))                  //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table1.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc2 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table2.Size()))                 //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table2.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

message(code_paper_)       //В первый запуск скрипта - НИКОГДА не вызывается.

end



-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------


function main()


local code_class1 = "TQBR"           
local code_paper1 = "GAZP"           
local interval1   = INTERVAL_TICK  


local code_class2 = "TQBR"           
local code_paper2 = "SBER"           
local interval2   = INTERVAL_TICK  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

local my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)      --Вызываем собственно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc1 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table1.Size()))                  //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table1.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc2 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table2.Size()))                 //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table2.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function my_callback_CreateDataSource(my_table_data_, code_class_, code_paper_)

message(code_paper_)       //В первый запуск скрипта - НИКОГДА не вызывается.

end



-----------------------------------------------------------------------------------------------------------int main:-----------------------------------------------------------------------------------------------------


function main()


local code_class1 = "TQBR"           
local code_paper1 = "GAZP"           
local interval1   = INTERVAL_TICK  


local code_class2 = "TQBR"           
local code_paper2 = "SBER"           
local interval2   = INTERVAL_TICK  



----------------------------------------------------------------------Вызов  CreateDataSource_1------------------------------------------------------------------------------

local my_table1, error_desc1 = CreateDataSource(code_class1, code_paper1, interval1)      --Вызываем собственно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc1 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table1.Size()))                  //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table1.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



----------------------------------------------------------------------Вызов  CreateDataSource_2------------------------------------------------------------------------------
local my_table2, error_desc2 = CreateDataSource(code_class2, code_paper2, interval2)  --Вызываем собсвенно CreateDataSource

------------------------Проверка на ошибки:-------------------
if error_desc2 ~= nil then 
message("Error")
end
--------------------------------------------------------------

message(tostring(my_table2.Size()))                 //В первый запуск скрипта - размер табилцы ВСЕГДА нулевой - сколько бы времени не ожидал.
if my_table2.Size() == 0 then
message("data requested from the server")
end

-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------



my_table1:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data1, code_class1, code_paper1) end)
my_table2:SetUpdateCallback(function(idx)my_callback_CreateDataSource(my_table_data2, code_class2, code_paper2) end)

function OnQuote(class, sec)
end



function main()

Quik_Lua_connector = require("Quik_Lua_connector ")        

-------------------------
while not stopped do 
sleep(1)
end 
-------------------------


end -- end main()

function OnQuote(class, sec)
end

static int global_callback__OnQuote(lua_State* L)
{
    std::cout << "global_callback__OnQuote" << std::endl;

    return 0;
}



extern "C" LUALIB_API int luaopen_DLL(lua_State * L)     
{
    
    luaL_newlib(L, ls_lib);

    lua_pushcfunction(L, global_callback__OnQuote);
    lua_setglobal(L, "OnQuote");

}

function OnTransReply(Table_)

message(tostring(Table_.trans_id) .. ":" .. tostring(Table_.status) .. ":" .. tostring(Table_.result_msg) .. ":" .. tostring(Table_.client_code))

end



function main()



transaction_table = 
{
    CLIENT_CODE="XXXXX",
    TYPE="M",
    TRANS_ID="7",
    CLASSCODE="TQBR",
    SECCODE="GAZP",       
    ACTION="NEW_ORDER",
    OPERATION="B",
    PRICE="0",
    QUANTITY="1"
}




local result = sendTransaction(transaction)

//Проверяю на ошибку:
if result ~= nil then

    if res ~= "" then        
      message("Error:"..result )
    end

end




-------------------------
while not stopped do 
sleep(1)
end 
-------------------------

end

function main()


Class_name = "TQBR"
paper_name = "SBER"

-------------------------
while not stopped do 

my_table =  getParamEx2 (Class_name, paper_name , "VALUE")       //Только за место "VALUE" нужно указать параметр отвечающий за "дату закрытия реестра"
message(tostring(my_table.param_value))

sleep(1000)
end 
-------------------------

end

ACCOUNT Номер счета Трейдера. Параметр обязателен при «ACTION» = «KILL_ALL_FUTURES_ORDERS». Параметр чувствителен к верхнему/нижнему регистру символов

function OnTransReply(Table_)

message(tostring(Table_.trans_id) .. ":" .. tostring(Table_.status) .. ":" .. tostring(Table_.result_msg) .. ":" .. tostring(Table_.client_code))

end



function main()



transaction_table = 
{
    CLIENT_CODE="XXXXX",
    TYPE="M",
    TRANS_ID="7",
    CLASSCODE="TQBR",
    SECCODE="GAZP",       
    ACTION="NEW_ORDER",
    OPERATION="B",
    PRICE="0",
    QUANTITY="1"
}




local result = sendTransaction(transaction)

//Проверяю на ошибку:
if result ~= nil then

    if res ~= "" then        
      message("Error:"..result )
    end

end




-------------------------
while not stopped do 
sleep(1)
end 
-------------------------

end

static int global_callback__OnQuote(lua_State* L)
{
    std::cout << "global_callback__OnQuote" << std::endl;

    return 0;
}



int main()
{

    lua_pushcfunction(L, global_callback__OnQuote);       //Помещаю Си-шную функцию в стек.
    lua_setglobal(L, "OnQuote");                          //Присваиваю ей глобальное имя.
}