Блог им. tema987

Скрипт на Qpile

Скрипт не работает с 7 до 10 утра, дальше работает.
Подскажите, что подправить/заменить, что бы заработал с 7 часов?
Я так понял нужно скорректировать этот кусочек:

new_global(«total_net2»,0)
total_net2=total_net2+0
new_global(«cur_bar», 0)
new_global(«send_trans», 0)
new_global(«long», 0)
new_global(«trans_id», 1)
new_global(«bar_enter», 0)
new_global(«number_stop»,0)
new_global(«enter_price»,0)
new_global(«deals»,0)
new_global(«first_start»,0)
new_global(«last2»,0)
new_global(«changeBu»,0)
changeBu=changeBu+0
quant=1
servertime=GET_INFO_PARAM («SERVERTIME»)
hournow=SUBSTR(servertime,0,2)
minnow=SUBSTR(servertime,3,2)
secnow=SUBSTR(servertime,6,2)
SecInfo = GET_SECURITY_INFO("", code)
Lot = GET_VALUE (SecInfo, «LOT_SIZE»)

class=get_class(code)
market=get_market(class)

time=get_datetime()
minute=get_value(time,«MIN»)
hour=get_value(time,«HOUR»)
sec=get_value(time,«SEC»)
curtime=hour*10000+minute*100+sec
dayofweek=get_value(time,«DAYOFWEEK»)
year=get_value(time,«YEAR»)
month=get_value(time,«MONTH»)
day=get_value(time,«DAY»)
curdate=year*10000+month*100+day
TOTAL_NET=get_total_net(market,client,code)+0
CBPLPLANNED=get_CBPLPLANNED(market,client)
timeframe=0
if market&""=«micex»
lot =get_value(get_param_ex(class, code, «LOTSIZE»),«PARAM_VALUE»)+0
total_net=0+total_net'/lot
end if

line=0
string=create_map()
delete_all_items()
last= GET_PARAM (class, code, «LAST»)
bid = GET_PARAM (class, code, «BID»)
offer = GET_PARAM (class, code, «OFFER»)
error=0
open0=0
if first_start==0
if total_net!=0
enter_price=READ_LINE (path&«enter_price.txt», GET_FILE_LEN(path&«enter_price.txt»), error)
end if
first_start=1
end if

if (get_permission()+0)==1




скрипт с интернета, я в этом не разбираюсь
Данная публикация является личным мнением автора. Мнение владельца сайта может не совпадать с мнением автора.
  • обсудить на форуме:
  • Qpile
684 | ★2
9 комментариев

Вряд ли вы тот кусок привели

Если только 

GET_INFO_PARAM («SERVERTIME»)

возвращает не 07:00:00, а 7:00:00, тогда действительно работать не будет.
avatar

Вот тут вам ответ, там в комментах есть код, как подставить 0 впереди

smart-lab.ru/blog/684180.php

avatar
Андрей К, не выходит у меня по тем комментариям, не работает, далек я от программирования)
avatar

'----------------------------------определение текущего времени сервера -------------------------------
SERVTIME = GET_INFO_PARAM («SERVERTIME»)
IF LEN (SERVTIME) < 8
    SERVTIME = «0»&SERVTIME
END IF
HOURS = SUBSTR (SERVTIME, 0, 2) * 100
MINS = SUBSTR (SERVTIME, 3, 2) + 0
SEC = SUBSTR (SERVTIME, 6, 2) + 0
TIME = MINS + HOURS + 0 ' Текущее время без секунд HHMM
IF TIME < 700 OR TIME > 2355
   RETURN
END IF

ipisarev, квик ругается: Произошла ошибка при расчете скрипта, идентификатор организации «FIRM_ID», сообщение об ошибке «File: SberSAR1.qpl, line: 104. Unknown identifier SERVTIME [ LEN (SERVTIME) < 8 ] „

можете в моем выложенном куске заменить нужный фрагмент? 
avatar
Ваша переменная «servertime», моя SERVTIME, надо просто заменить на вашу.
Мой кусок скрипта в ваш без изменений не влезет, я привел пример решения
 Короче говоря, после строки «servertime=GET_INFO_PARAM («SERVERTIME»)»,
вставляете «IF LEN (servertime) < 8
    servertime = «0»&servertime
END IF
»
Примерно так:
servertime=GET_INFO_PARAM («SERVERTIME»)
IF LEN (servertime) < 8
    servertime = «0»&servertime
END IF
hournow=SUBSTR(servertime,0,2)
minnow=SUBSTR(servertime,3,2)
secnow=SUBSTR(servertime,6,2)
Всем привет.
class=get_class(code)
market=get_market(class)
А что каждый из этих параметров возвращает?

Собственно, вопрос больше в том, что при таком варианте работает только с micex, а USDRUB_TOM или бумагу с Спб биржи не тянет.

Читайте на SMART-LAB:
Фото
Эфир на канале «Деньги из Бетона» с участием ПАО «АПРИ»
Эфир на канале «Деньги из Бетона» с участием ПАО «АПРИ» В недавнем эфире «Деньги из бетона – Недвижимость РФ» Мария Глухова ,...
Фото
Рынок облигаций: где дно ОФЗ?
Индекс гособлигаций RGBI вчера не смог удержать уровень потенциальной поддержки в 112,2 п., что усугубляет техническую картину. Следующий...
Фото
Короткий долг против длинного – где компромисс между стоимостью и устойчивостью?
Структура долгового портфеля в 2026 году становится для российских компаний одним из ключевых элементов финансовой устойчивости. Выбор между...
Фото
Интер РАО. Цена min за 10 лет. Пора покупать?
Последние месяцы наш фондовый рынок снижается, но я не буду разбираться в причинах (про них говорят все кому не лень), а поговорим по...

теги блога Tema ☑️

....все тэги



UPDONW
Новый дизайн