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