Блог им. 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
★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

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

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

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

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

....все тэги



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