売り注文画面

Public Class LongSellOrder
  Inherits AbstructOrderFrame

  Private _trade As IDayTrade

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

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

End Class