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

function TAKESTOPORDERM(FLOTS,FDIRECTION,FSTOP,FSTOP2,FPRICE,FOTSTUP,FSPREAD)
   q = {
      ["ACTION"]= "NEW_STOP_ORDER",      
      ["CLASSCODE"]=CLASSCODE,      
      ["SECCODE"]=INSTRUMENT,
      ["ACCOUNT"]= ACCOUNT,
      ["STOP_ORDER_KIND"] = "TAKE_PROFIT_AND_STOP_LIMIT_ORDER",
      ["TYPE"]="M",
      ["MARKET_STOP_LIMIT"]='YES',
      ["OPERATION"]=FDIRECTION,
      ["QUANTITY"]=tostring(FLOTS),
      ["STOPPRICE"]=tostring(FSTOP),
      ["STOPPRICE2"]=tostring(FSTOP2),
      ["PRICE"]=tostring(FPRICE),
      ["OFFSET"] = tostring(FOTSTUP),
        ["OFFSET_UNITS"] = "PRICE_UNITS",
        ["SPREAD"] = tostring(FSPREAD),
        ["SPREAD_UNITS"] = "PRICE_UNITS",
        ["EXPIRY_DATE"] = "GTC",
      ["TRANS_ID"]=tostring(id_take),
      ["CLIENT_CODE"]=Robot

     }
   res=sendTransaction(q)
   message(res,1)
end

function contract()
--функция проверки актуальности контракта
   --if TP==0 then
   local futdate = {} 
   local timedif = {}
   local idx = 0
      activename = "BR"
      futnames = { "BRZ1","BRF2", "BRG2", "BRH2", "BRJ2","BRK2", "BRM2", "BRN2", "BRQ2", "BRU2", "BRV2","BRX2"}
      for i=1,12 do
         if idx==1 then break end
         --message("futnames"..futnames[1]..type(futnames[i]))
         if futnames[i] then
            futdate[i] = getParamEx(CLASSCODE, futnames[i], "DAYS_TO_MAT_DATE").param_value
            futstatus[i]= getParamEx(CLASSCODE, futnames[i], "STATUS").param_value
            --message("futdate[i]"..futdate[1])
            --message("futstatus[i]"..futstatus[1])
            --timedif[i] = futdate[i]-tonumber(DATE)
            --message('timedif='..timedif[i])
            if  futdate[i]~=nil then
               if tonumber(futdate[i])>2 then 
               INSTRUMENT=futnames[i]
               message('actual futures is'..INSTRUMENT)
               idx=1
               end
            end
         end
      end
end

function contract()
local futdate = {} 
   local timedif = {}
   local idx = 0
      activename = "RTS"
      
      futnames = {"RIZ1", "RIH2", "RIM2", "RIU2", "RIZ2","RIH3", "RIM3", "RIU3", "RIZ3"}
      --message("futnames[1]"..futnames[1].."futnames[2]"..futnames[2])
      for i=1,12 do
         if idx==1 then break end
         --message("futnames"..futnames[i]..type(futnames[i]))
         if futnames[i] then
            futdate[i] = getParamEx(CLASSCODE, futnames[i], "DAYS_TO_MAT_DATE").param_image
            --message("futdate[i]"..futdate[i])
            --message(type(DATE).."date="..DATE)
            --timedif[i] = futdate[i]-tonumber(DATE)
            --message('timedif='..timedif[i])
               if tonumber(futdate[i])>2 then 
                  INSTRUMENT=futnames[i]
                  --message('actual futures is'..INSTRUMENT)
                  idx=1
               end
         end
      end
end

function ReadCsv(FP) -- чтение файла и присвоение значений ТР и стопу
   f = io.open(FP,"r+")
   local N_CSV_BEGIN = 2
   local LINE_A = {}
   local Datetime = {}           -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Instr = {}         -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Total = {}              -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Activity = {}           -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Price = {}              -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Ordernumber = {}        -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Ordertype = {}          -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Account= {}             -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Robot_name = {}         -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Status = {}         -- МАССИВ СТРОК ИЗ ОСНОВНОГО ФАЙЛА
   local Stops = {}
   if f==nil then 
      message("НЕТ ФАЙЛА ",3)
      EXIT = 1
      SL = 10000  -- 10000
   else
      -- message("ФАЙЛ ЕСТЬ",3)
      EXIT = 0
      SL = 1000
      j = 1
      for line in f:lines() do 
         LINE_A[j] = tostring(line)
         --message("I'm here")
         --message("Строка "..j.." ="..LINE_A[j],1)
         j = j + 1
      end
      f:close()
      NCSV = j - N_CSV_BEGIN
      --message("NCSV= "..NCSV,1)
      if NCSV<1 then Stopqty=0 end
        for i = NCSV, 1,-1 do
      if idx==1 then break end
      -- Парсим все строки на массивы
         --message("LINE_A[N_CSV_BEGIN+i-1]  ="..LINE_A[N_CSV_BEGIN+i-1],1)
           Datetime[i],Instr[i], Total[i], Activity[i], Price[i], Ordernumber[i],Ordertype[i],Account[i], Robot_name[i], Status[i], Stops[i] = string.match(LINE_A[N_CSV_BEGIN+i-1],"(.*);(.*);(.*);(.*);(.*);(%d*);(.*);(.*);(.*);(.*);(.*)")
          --message("I'm here")
          Datetime[i] = tostring(Datetime[i])
          Instr[i] = tostring(Instr[i])
          Total[i] = tonumber(Total[i])
          Activity[i] = tostring(Activity[i])
          Price[i] = tonumber(Price[i])+0.00
          Ordernumber[i] = Ordernumber[i]+0.00
          Ordertype[i] = tostring(Ordertype[i])
          Account[i] = tostring(Account[i])
          Robot_name[i] = tostring(Robot_name[i])
          Stops[i] = (tonumber(Stops[i])+0.00)
          Status[i] = tostring(Status[i])

         Stopqty = Stops[i]
         message("Stopqty "..Stopqty,1)
         idx=1
      end --end for
   end --if else
end   --   function

function stop2_calc()
   if (PRICEMAX-ZZ12)>500 then
   stop=PRICEMAX-500
   else stop = ZZ12
   end
end

function BUY(FLOTS)
   ORDER(FLOTS,"B",dD(PRICEMAX+0,0))
   stop2_calc()
   message("stop "..stop)
   TAKESTOPORDER(FLOTS,"S",dD(ZZ31+0,0), dD(stop,0),dD(stop-0,15,0),100,100)
end   

function TAKESTOPORDER(FLOTS,FDIRECTION,FSTOP,FSTOP2,FPRICE,FOTSTUP,FSPREAD)
   q = {
      ["ACTION"]= "NEW_STOP_ORDER",      
      ["CLASSCODE"]=CLASSCODE,      
      ["SECCODE"]=INSTRUMENT,
      ["ACCOUNT"]= ACCOUNT,
      ["STOP_ORDER_KIND"] = "TAKE_PROFIT_AND_STOP_LIMIT_ORDER",
      ["TYPE"]="L",
      ["OPERATION"]=FDIRECTION,
      ["QUANTITY"]=tostring(FLOTS),
      ["STOPPRICE"]=tostring(FSTOP),
      ["STOPPRICE2"]=tostring(FSTOP2),
      ["PRICE"]=tostring(FPRICE),
      ["OFFSET"] = tostring(FOTSTUP),
        ["OFFSET_UNITS"] = "PRICE_UNITS",
        ["SPREAD"] = tostring(FSPREAD),
        ["SPREAD_UNITS"] = "PRICE_UNITS",
        ["EXPIRY_DATE"] = "GTC",
      ["TRANS_ID"]=tostring(id_take),
      ["CLIENT_CODE"]=Robot
     }
   res=sendTransaction(q)
   message(res,1)
end

function Lot_calculate()
--функция для расчета лотности
   moneyt = getFuturesLimit(FIRM, ACCOUNT, 0, "SUR")
   --message('Cash='..moneyt.cbp_prev_limit)
   gofut = getParamEx(CLASSCODE, INSTRUMENT, "SELLDEPO").param_value+0
   --message("GO Br = "..gofut)
   LOT1 = roundNum(0.25*moneyt.cbp_prev_limit/gofut,0)
   --message("LOT="..LOT1)
end

-- Функция вызывается терминалом, когда с сервера приходит новая информация о транзакциях
function OnTransReply(trans_reply)
   -- Если пришла информация по нашей транзакции
   if trans_reply.trans_id == id_done then
      -- Если данный статус уже был обработан, выходит из функции, иначе запоминает статус, чтобы не обрабатывать его повторно
      if trans_reply.status == LastStatus then return else LastStatus = trans_reply.status      end
      -- Выводит в сообщении статусы выполнения транзакции
      if  trans_reply.status == 1   then -- транзакция активна
         --message('OnTransReply(): По транзакции №'..trans_reply.trans_id..' УСПЕШНО ВЫСТАВЛЕНА заявка №'..trans_reply.order_num..' по цене '..trans_reply.price..' объемом '..trans_reply.quantity,3) 
     end
     if  trans_reply.status ==3   then -- транзакция выполнена, запись в журнал
         --message(trans_reply.result_msg,1)
         --message('OnTransReply(): По транзакции №'..trans_reply.trans_id..' УСПЕШНО ВЫПОЛНЕНА заявка №'..trans_reply.order_num..' по цене '..trans_reply.price..' объемом '..trans_reply.quantity,3) 
        OrderNum = trans_reply.order_num 
        OrderTime=trans_reply.datetime 
        OrderPrice=trans_reply.price 
        OrderQuantity=trans_reply.quantity 
        OrderCond=TP 
        OrderInstr =trans_reply.sec_code
        Ordcomment=trans_reply.brokerref
        local tradeline= os.date("%c", os.time(trans_reply.datetime))..";"..
        OrderInstr..";"..
        OrderQuantity ..";".. 
        OrderCond..";"..
        OrderPrice..";"..
        OrderNum ..";"..
        "Open_order"..";"..
        ACCOUNT..";"..
        Ordcomment..";"..
        "Created".."\n"
        CSV:seek("end",0)
        CSV:write(tradeline); --записали значения в файлик
        CSV:flush(); --сохранили файлик
     end
   end
      -- Если пришла информация по нашей стоп-транзакции
   if trans_reply.trans_id == id_take then
      -- Если данный статус уже был обработан, выходит из функции, иначе запоминает статус, чтобы не обрабатывать его повторно
      if trans_reply.status == TakeStatus then return else TakeStatus = trans_reply.status end
      -- Выводит в сообщении статусы выполнения транзакции
     if  trans_reply.status == 3   then -- транзакция активна
          Stopnumb =trans_reply.order_num
         SlTpOrderTime=trans_reply.datetime 
         SlTpOrderPrice=trans_reply.price 
         SlTpOrderQuantity=trans_reply.quantity 
         SlTpOrderCond=TP
         SlTpOrderInstr=trans_reply.sec_code
        SlComment=trans_reply.brokerref
       --message('OnTransReply(): По транзакции №'..trans_reply.trans_id..' ВЫПОЛНЕНА заявка №'..trans_reply.order_num..' по цене '..trans_reply.price..' объемом '..trans_reply.quantity,3) 
        local Stopline= os.date("%c", os.time(trans_reply.datetime))..";"..
        SlTpOrderInstr..";"..
        SlTpOrderQuantity ..";"..
        SlTpOrderCond ..";"..
        SlTpOrderPrice ..";"..
        Stopnumb ..";"..
        "Take_Stop_order"..";"..
        ACCOUNT..";"..
        SlComment..";"..
        "Created".."\n"
        CSV:seek("end",0)
        CSV:write(Stopline); --записали значения в файлик
        CSV:flush(); --сохранили файлик
     end
   end
end