ok
Code:
vb Code:
Public Function ReturnNewOrderNumber() As String
Retry:
Try
Dim check = (From d In Me.ObjectContext.OrderMasters
Group d By d.ordnum Into g = Group
Order By ordnum Descending
Select ordnum).First
Dim NewOrder As String = check & Date.Now.Millisecond.ToString
Try
Dim Check2 = (From e In Me.ObjectContext.OrderMasters Where e.ordnum = NewOrder Select e).First
GoTo Retry
Catch ex As Exception
Return NewOrder
End Try
Catch ex As Exception
Return "Could Not obtain order"
End Try
End Function
vb Code:
Private Sub Order_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
ScheduleDatePicker.SelectedDate = Date.Now
OrderDatePicker.SelectedDate = Date.Now
Try
Dim db As New KattDomContext
orderdata = db.ReturnNewOrderNumber()
AddHandler orderdata.Completed, AddressOf orderCompleted
OrderNumberTextBox.IsEnabled = False
Catch ex As Exception
End Try
End Sub
Private Sub OrderRefreshButton_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles OrderRefreshButton.Click
OrderDetailDomainDataSource.Load()
End Sub
Private Sub orderCompleted(ByVal sender As Object, ByVal e As System.EventArgs)
OrderNumberTextBox.Text = orderdata.Value
End Sub