awkozlov (Автор тем)

last_price=getParamEx(class_code,sec_code,'LAST').param_value

Settings=
{
   Name = '#test'
}
function writeToFile(filename, content)
  local file_handle = io.open(filename, 'w')
  if file_handle then
    file_handle:write(content)
    file_handle:close()
    return true
  else
    return false
  end
end

function Init()
  return 1
end

function OnCalculate(index)
  id_chart = 'SBER_Chart'
  local need_right_candles_count = 10
  local line_number = 0
  local candles_count = getNumCandles(id_chart)
  local candles_from = candles_count - need_right_candles_count
  check1 =  tostring(id_chart)..'\n'..tostring(line_number)..'\n'..tostring(candles_from)..'\n'..tostring(need_right_candles_count)..'\n'..tostring(candles_count)..'\n'

  local result_table, result_candles_count, result_chart_name = getCandlesByIndex(id_chart, line_number, candles_from, need_right_candles_count)


  if result_table == nil or #result_table == 0 then
    return "Empty result_table"
  end

  local fieldNames = {}
  for field, _ in pairs(result_table[1]) do
    table.insert(fieldNames, field)
  end

  check1 = check1..'My_Time\t'..table.concat(fieldNames, '\t') .. '\n'

  for i = #result_table, 1, -1 do
    if result_table[i].datetime == nil or 
       result_table[i].datetime.day == nil or 
       result_table[i].datetime.month == nil or 
       result_table[i].datetime.year == nil or 
       result_table[i].datetime.hour == nil or 
       result_table[i].datetime.min == nil or 
       result_table[i].datetime.sec == nil then
          return nil 
    end

    local candle_datetime = string.format("%02d.%02d.%04d %02d:%02d:%02d", 
        result_table[i].datetime.day, 
        result_table[i].datetime.month, 
        result_table[i].datetime.year, 
        result_table[i].datetime.hour, 
        result_table[i].datetime.min, 
        result_table[i].datetime.sec)
    
    local formattedFields = {
      candle_datetime
    }
    for j, fieldName in ipairs(fieldNames) do
      local fieldValue = result_table[i][fieldName]
      table.insert(formattedFields, tostring(fieldValue))
    end

    check1 = check1 .. table.concat(formattedFields, '\t')..'\n'
  end

  local filename_w = getWorkingFolder()..'\\check1.txt'
  if writeToFile(filename_w, check1) then
    return
  else
    return "Failed to write to file"
  end
end

SBER_Chart
0
5595
10
5605
My_Time   open   close   volume   datetime   doesExist   low   high
08.12.2023 15:00:00   0.0   0.0   0.0   table: 000000002BD45650   0   0.0   0.0
08.12.2023 14:50:00   0.0   0.0   0.0   table: 000000002BD455D0   0   0.0   0.0
08.12.2023 14:40:00   0.0   0.0   0.0   table: 000000002BD45550   0   0.0   0.0
08.12.2023 14:30:00   0.0   0.0   0.0   table: 000000002BD454D0   0   0.0   0.0
08.12.2023 14:20:00   0.0   0.0   0.0   table: 000000002BD45450   0   0.0   0.0
08.12.2023 14:10:00   0.0   0.0   0.0   table: 000000002BD453D0   0   0.0   0.0
08.12.2023 14:00:00   0.0   0.0   0.0   table: 000000002BD45350   0   0.0   0.0
08.12.2023 13:50:00   0.0   0.0   0.0   table: 000000002BD452D0   0   0.0   0.0
08.12.2023 13:40:00   0.0   0.0   0.0   table: 000000002BD45250   0   0.0   0.0

function Lot2Money(zCLASSCODE,zSECCODE,Lot)
local Price=tonumber(Get_gLast_Price_gr(zCLASSCODE,zSECCODE))
if Price==nil or Price==0 then return nil end
local LOTSIZE=getParamEx(zCLASSCODE,zSECCODE,"LOTSIZE").param_value
if LOTSIZE==nil then return nil end
message('Lot2Money'
..'\n'..'zCLASSCODE= '..tostring(zCLASSCODE)
..'\n'..'zSECCODE= '..tostring(zSECCODE)
..'\n'..'Lot= '..tostring(Lot)
..'\n'..'Price= '..tostring(Price)
..'\n'..'LOTSIZE= '..tostring(LOTSIZE)
..'\n'..'Lot*Price*LOTSIZE= '..tostring(Lot*Price*LOTSIZE)
)
return Lot*Price*LOTSIZE
end

function Money2Lot(zCLASSCODE, zSECCODE, Money)
if Money==nil then return 0 end
local Price=tonumber(Get_gLast_Price_gr(zCLASSCODE,zSECCODE))
if Price==nil or Price==0 then return nil end
local LOTSIZE=getParamEx(zCLASSCODE,zSECCODE,"LOTSIZE").param_value
if LOTSIZE==nil then return nil end
message('Money2Lot'
..'\n'..'zCLASSCODE= '..tostring(zCLASSCODE)
..'\n'..'zSECCODE= '..tostring(zSECCODE)
..'\n'..'Money= '..tostring(Money)
..'\n'..'Price= '..tostring(Price)
..'\n'..'LOTSIZE= '..tostring(LOTSIZE)
..'\n'..'Money/(Price * LOTSIZE= '..tostring(Money/(Price * LOTSIZE))
)
local RetLot=math.floor(Money/(Price * LOTSIZE))
if RetLot==0 then -- ЗАПЛАТКА: если брокер поставил избыточный LOTSIZE
    RetLot=math.floor(Money/Price)
end
return RetLot
end

while true do

command = 'Z:\\#EXE\\test.exe'
local process = io.popen("start /B " .. command)
process:close()

    sleep(10000)
end

If WScript.Arguments.Count > 0 Then
    exe_path = WScript.Arguments(0)
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "cmd /c start /B " & Chr(34) & exe_path & Chr(34), 0, False
Else
    WScript.Echo "Не указан путь к исполняемому файлу."
End If

local PortfolioInfoExTable=getPortfolioInfoEx (gFIRMID, gCLIENT_CODE, 2) -- https://luaq.ru/getPortfolioInfoEx.html
local zPortfolio_value=PortfolioInfoExTable.portfolio_value -- Стоимость портфеля
local zCash_leverage=PortfolioInfoExTable.cash_leverage -- Плечо
message(tostring(zPortfolio_value)..'\n\n'..tostring(zCash_leverage)) 

function set_ACCOUNT_FIRMID()
if gACCOUNT~='' then return gACCOUNT end
if gSpot==true then
   local TableName='trade_accounts' -- https://luaq.ru/getItem.html#param_table_26
   local rows_total=getNumberOf(TableName);
   for r=rows_total-1, 0, -1  do
      local table_row=getItem(TableName,r);
      if tonumber(table_row.firmuse)==1 and tonumber(table_row.trdacc_type)==4 then
         gFIRMID=table_row.firmid
         gACCOUNT=table_row.trdaccid
         if gCLIENT_CODE=='' then gCLIENT_CODE=gACCOUNT end         
         if gACCOUNT~='' then return; end
      end
   end
   stop();
end
end

function CntTradesSellPosition(zCLASSCODE,zSECCODE)
cnt=0
   local TableName='trades'
   local rows_total = getNumberOf(TableName)
   for r=rows_total-1, 0, -1  do
      local table_row=getItem(TableName,r)
      --message(tostring(table_row.flags));stop()
      if table_row.class_code==zCLASSCODE and table_row.sec_code==zSECCODE and table_row.flags==36 then -- сделка продажа
         cnt=cnt+1
      end
   end
return cnt
end