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