Вот спасибо! Действительно смешная ошибка .. Даже сам улыбнулся )) .. Правда ржал не так долго и не так громко как Максим )))...
Вот исправленный вариант. Обращаю внимание на то, что пришлось изменить "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 ' процедура НОВЫЙ стоп-лимит по исполнению заявки |