買い注文画面

Public Class LongBuyOrder
  Inherits AbstructOrderFrame

  Private _trade As IDayTrade

  Sub New(ByVal screen As LongBuySearch, ByVal dt As IDayTrade)
    MyBase.new(DirectCast(screen, AbstructWebScreen))
    _trade = dt
  End Sub

  Sub Execute()
    ExecuteCommon(_trade.BuyOrder.price, _trade.unit, AbstructWebOrder.OrderType.買付, OrderActionType.新規注文, _trade.BuyOrder.ConditionType)
    ConfirmPassId()
  End Sub

End Class