test

Php code posted by jp
created at 13 Apr 11:30, updated at 15 Apr 21:18

Edit | Back
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ErrorHandler(pEx As RuntimeException, pAction as String)
  mEpisCheckTimer = Nil
  
  mEpisResult = "Error"
  
  Call App.DB.AddEpisFailureMember txtQryLastName.Text.Trim, txtQryFirstName.Text.Trim, txtQryBirthDate.GetDate
  
  UtilGUI.Log pEx, pAction, True, System.LogLevelError, Self.ListBoxLogger1
  
  ShowWarning "EPIS out of order", System.LogLevelWarning
  TabPanel.Value = Integer(PanelEnum.Search)
  
  DisableEpis
End Sub
451 Bytes in 2 ms with coderay