注文取消画面

Public Class OrderCancel
  Inherits AbstructOrderFrame

  Private _trade As IDayTrade
  Private _buysell As AbstructWebOrder.OrderType

  Sub New(ByVal screen As OrderList, ByVal dt As IDayTrade, ByVal bs As AbstructWebOrder.OrderType)
    MyBase.new(DirectCast(screen, AbstructWebScreen))
    _trade = dt
    _buysell = bs
  End Sub

  Sub Cancel()
    Try
      ConfirmPassId()
      Return
    Catch e As Exception
      DispatchException(e, String.Format("{0}注文の取消", _buysell.ToString()))
    End Try

    Throw New WebScreenException(String.Format("{0}注文の取消", _buysell.ToString()))
  End Sub

End Class