 |
|
|
|
 |
 |
|
|
| GxOrders 이벤트 수행여부 |
 글쓴이 : 인사동 |
조회수 : 5915 |
작성일 : 2014-04-02 |
|
1번첨부 :
없음
|
2번첨부 :
없음
|
3번첨부 :
없음
|
수고하십니다.
모의투자로 엑셀 VB프로그램에서 현재가가 아닌 가격에 주문하면
체결되지 않고 주문 접수만 된 상태에서 OnNewOrder 이벤트가 수행되지 않습니다.
"OnNewOrder 설명에는 새로운 주문이 추가되면(증전접수) 발생합니다" 라고 되어 있는데,
이벤트가 수행되지 않는 것이 맞습니까?
---
Gxorder 의 Fills , Confirms 설명에 "본체결 목록은~~( 본확인 목록은) 이벤트를 발생시키지 않습니다"로
되어 있는데,
GxNewOrder 이벤트가 수행되지 않는다는 것입니까?
아니면, OnNewFill 이벤트 또는 OnnewConform이벤트가 수행되지 않는다는 것입니까?
여러 가지의 경우로 테스트를 해 보는데, 단시간에 확인이 어려워서 문의드립니다.
감사합니다.
--------------------
시그마엔터님!
조금전에 답변이 있었는데, 사라졌군요.
물론 정의부분도 예제에 나와 있는 대로 조치했습니다
제가 실행한 결과와 달라서 문의 드린것입니다
메일을 알려주시면 소스를 보내드리겠습니다
| ∑Enter |
1. 주문 이벤트는 아래와 같이 발생되는게 맞습니다. 고객님 소스 상의 이벤트 정의 부분을 확인하여 주시기 바랍니다. 1) 신규 주문 주문접수(OnNewOrder) 2) 정정, 취소 주문 주문접수(OnNewOrder) - 주문확인(OnNewConfirm) - 주문변경(OnOrderUpdated) 2. 체결과 확인 이벤트는 GxTradeStore의 GxFills, GxConfirms을 사용하여 등록하라는 것이고 GxOrder의 Fills , Confirms은 해당 오더에 대한 체결, 확인 내역을 조회하는 것이지 GxOrder의 Fills , Confirms에 이벤트 등록을 하더라도 체결과 확인에 대한 이벤트가 발생되지 않습니다. 감사합니다 (2014-04-02) |
|
| 인사동 |
아래와 같이 하면 메세지 박스에 "신규"라고 떠야 맞는 것 아닙니까? 잘못된 부분이 있는지요? Option Explicit Public mobjserver As GxServer Public mobjSymbolstore As GxSymbolStore Public mobjTradeStore As GxTradeStore Public mobjAccount As GxAccount Public mobjOrderHandler As GxOrderHandler Public mobjTarget As GxOrder Public WithEvents MobjFillSink As GxFills Public mobjSymbol As GxSymbol Public WithEvents mobjOrderSink As GxOrders Private Sub CommandButton1_Click() Dim ddd As Double Dim aaa As String Dim objAccount As GxAccount Dim objOrder As GxOrder Dim i As Integer Set mobjserver = GetObject(, "p2.Gxserver") Set mobjSymbolstore = mobjserver.SymbolStore CboAccount.Clear Set mobjTradeStore = mobjserver.TradeStore For Each objAccount In mobjserver.TradeStore.Accounts CboAccount.AddItem objAccount.Code Next If CboAccount.ListCount > 0 Then CboAccount.ListIndex = 2 End If Set mobjAccount = mobjTradeStore.Accounts(Trim(CboAccount.Text)) Set mobjOrderSink = Nothing Set mobjOrderSink = mobjTradeStore.Orders Set MobjFillSink = Nothing Set MobjFillSink = mobjTradeStore.Fills INITorder MsgBox ("테스트정상완료") End Sub Private Sub INITorder() Dim objorderreq As GxOrderReq Dim oprice As Double Set mobjOrderHandler = mobjserver.TradeStore.OrderHandler Set objorderreq = mobjOrderHandler.PutNewOrder(Trim(CboAccount.Text), "201J4260", iptShort, iptPrice, 1, 2.87) If objorderreq Is Nothing Then TxtLastMsg.Text = mobjOrderHandler.LastMessage Beep Else TxtLastMsg.Text = "" mobjOrderHandler.Send End If End Sub Private Sub MobjFillSink_OnNewFill(ByVal aGxFill As Object) MsgBox ("체결") End Sub Private Sub mobjOrderSink_OnNewOrder(ByVal aGxOrder As Object) Dim abc As GxOrder Set abc = aGxOrder If abc.TargetOrder Is Nothing Then MsgBox ("신규") Else MsgBox ("정정,취소") End If End Sub Private Sub mobjOrderSink_OnOrderUpdated(ByVal aGxOrder As Object) MsgBox ("주문업데이트") End Sub (2014-04-02) |
|
| ∑Enter |
CommandButton1_Click() 의 MsgBox ("테스트정상완료") 부분을 삭제하고 테스트 해보시기 바랍니다. 아니면 주문을 별도 버튼 컨트롤 이벤트로 하시면 정상적으로 동작할 것으로 보입니다. VBA MsgBox가 떠있는 상황에서는 이벤트 수신이 안되는것 같은데 이건 VBA의 문제로 생각됩니다. 감사합니다. (2014-04-03) |
|
| 인사동 |
씨그마엔터님! 감사합니다. 말씀하신대로 하니, 제대로 이벤트를 발생시킵니다. 일주일 동안 이리 저리 혼자서 해보느라 고민을 했는데 이제 원하는 루틴을 구현할 수 있을 것 같습니다 (2014-04-03) |
|
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Re : 지정가 동시 손익 손절 함께주문넣는방법좀.. |
 |
 |