買い／売り注文取消

  '注文取消
  Protected Overrides Function CancelContruct(ByVal buysell As AbstructWebOrder.OrderType, ByVal dt As IDayTrade, Optional ByVal timing As Date = #12:00:00 AM#) As Boolean

    Dim order As TradeOrder
    If buysell = AbstructWebOrder.OrderType.買付 Then
      order = dt.BuyOrder
    Else
      order = dt.SellOrder
    End If
    log.InfoFormat("{0}を取消します。code={1} unit={2} price={3}", buysell.ToString(), dt.company_id, dt.unit, order.price)

    Try
      Dim goPageNo As Integer = 1
      Dim goIndex As Integer = 0
      If timing = _cacheTime Then
        Dim key As String = OrderCache.CreateKey(buysell, dt, order)
        If _orderCacheMap.ContainsKey(key) Then
          Dim cache As OrderCache = _orderCacheMap.Item(key)
          goPageNo = cache.PageNo
          goIndex = cache.Index
        End If
      Else
        If timing > DateTime.MinValue Then
          timing = _cacheTime
          _orderCacheMap.Clear()
        End If
      End If

      _web.GoTop().GoOrderList().Cancel(buysell, dt, _orderCacheMap, goPageNo, goIndex).Cancel()

    Catch ex As Exception
      log.Warn("例外が発生しました。", ex)
    End Try

    log.WarnFormat("{0}の取消に失敗しました。code={1} unit={2} price={3}", buysell.ToString(), dt.company_id, dt.unit, order.price)
    Return False
  End Function