Object: | frmemployee |
LPARAMETERS nError, cMethod, nLine LOCAL laError[AERRORARRAY], ; lcMessage =AERROR(laError) DO CASE CASE nError = 1582 && Field rule violated tsMaintForm::Error(nError, cMethod, nLine) DO CASE CASE UPPER(laError[3]) = "LAST_NAME" this.Pageframe1.Page1.txtLast_Name.SetFocus() ENDCASE OTHERWISE tsMaintForm::Error(nError, cMethod, nLine) ENDCASE