PrivateSubAddProductButtonClick(sender AsObject, e AsSystem.EventArgs)
Try
Dimm_ProductSearchView AsProductSearchView= ConsoleViewManager.Instance.ProductSearchView
m_ProductSearchView.AllowMultiSelect = False
AddHandlerm_ProductSearchView.OnEvent, NewProductSearchView.EventHandler(AddressOfProductSearchViewEventHandler)
DimsearchContextObject AsProductSearchContext= TryCast(m_ProductSearchView.SearchContextObject, ProductSearchContext)
searchContextObject.IsOnHold = False
searchContextObject.IsNonStock = False
searchContextObject.IsGiftCertificate = False
ConsoleViewManager.Instance.Push(m_ProductSearchView)
Catchex AsException
MessageBox.Show(ex.ToString)
EndTry
EndSub
PrivateSubProductSearchViewEventHandler(ByValsender AsObject, ByValargs AsProductSearchView.EventArgs)
ConsoleViewManager.Instance.Pop()
Dimm_ProductSearchView AsProductSearchView= TryCast(sender, ProductSearchView)
RemoveHandlerm_ProductSearchView.OnEvent, NewProductSearchView.EventHandler(AddressOfProductSearchViewEventHandler)
m_ProductSearchView.Dispose()
If(args.EventType = ProductSearchView.EventType.Cancel) Then
Return
EndIf
DimbusinessObject AsProduct= TryCast(args.BusinessObject, Product)
EndSub