Вот спасибо! Действительно смешная ошибка .. Даже сам улыбнулся )) .. Правда ржал не так долго и не так громко как )))...
Вот исправленный вариант. Обращаю внимание на то, что пришлось изменить "EXPIRY_DATE" с "GTC" на "TODAY" , иначе получал ошибку
Вот исправленный вариант. Обращаю внимание на то, что пришлось изменить "EXPIRY_DATE" с "GTC" на "TODAY" , иначе получал ошибку
| Код |
|---|
FUNC FUNC_NEW_STOP_ORDER_LIMIT_ACTIVATE_IF_BASE_ORDER(Account,ClientCode, baseOrderKey, seccode,Operation,Stopprise,PriceNewOrder ,f_LOG_BOT)
' процедура НОВЫЙ стоп-лимит по исполнению заявки
'
classcode = "TQBR"
TransID= 4 'FuncTRANS_ID()
NEW_GLOBAL("TRANS_PARAMS", "")
NEW_GLOBAL("TRANS_RESULT", "")
trans_params = CREATE_MAP ()
'
trans_params = set_value (trans_params, "TRANS_ID", TransID)
trans_params = set_value (trans_params, "ACCOUNT", Account) '
trans_params = set_value (trans_params, "CLIENT_CODE", ClientCode) '
trans_params = set_value (trans_params, "ACTION", "NEW_STOP_ORDER")
trans_params = set_value (trans_params, "STOP_ORDER_KIND", "ACTIVATED_BY_ORDER_SIMPLE_STOP_ORDER") ' стоп-лимит по исполнению заявки
trans_params = set_value (trans_params, "BASE_ORDER_KEY", baseOrderKey) ' номер связанной заявки
trans_params = set_value (trans_params, "ACTIVATE_IF_BASE_ORDER_PARTLY_FILLED", "NO") 'Признак активации заявки «по исполнению» при частичном исполнении заявки-условия.
trans_params = set_value (trans_params, "SECCODE", seccode)
trans_params = set_value (trans_params, "CLASSCODE", classcode)
trans_params = set_value (trans_params, "OPERATION", Operation) ' Покупка или продажа (противополож от исполненой заявки )
trans_params = set_value (trans_params, "STOPPRICE", Stopprise) ' Цена исполненой заявки
trans_params = set_value (trans_params, "PRICE", PriceNewOrder) ' Цена новой заявки
trans_params = set_value (trans_params, "USE_BASE_ORDER_BALANCE", "YES") ' Признак использования в качестве объема количество заявки-условия
trans_params = set_value (trans_params, "EXPIRY_DATE","TODAY") ' до конца торгового дня
'
trans_result = SEND_TRANSACTION (20, trans_params)
' WRITELN ( f_LOG_BOT,FunTimeNum() & ": " & "Result: " & get_value (trans_result, "RESULT") & ", Result_ex: " & get_value (trans_result, "RESULT_EX") & ", OrderNum: " & get_value (trans_result, "ORDER_NUMBER") & ", Description: " & get_value (trans_result, "DESCRIPTION"))
WRITELN ( f_LOG_BOT,FunTimeNum() & ": PROCEDURE_NEW_STOP_ORDER_LIMIT_ACTIVATE_IF_BASE_ORDER " & "Result: " & get_value (trans_result, "RESULT") & ", Result_ex: " & get_value (trans_result, "RESULT_EX") & ", OrderNum: " & get_value (trans_result, "ORDER_NUMBER") & ", Description: " & get_value (trans_result, "DESCRIPTION"))
IF GET_VALUE (trans_result, "RESULT_EX") == "3"
RESULT= get_value (trans_result, "ORDER_NUMBER")
RETURN ' ' заявка зарегистрирована
else
MESSAGE (""&"ОТВЕТ СЕРВЕРА : " & get_value (trans_result, "DESCRIPTION") ,3) ' сообщение об ошибке
RESULT="0"
RETURN
END IF
'
END FUNC ' процедура НОВЫЙ стоп-лимит по исполнению заявки
|