Object: | frmshippers |
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]) = "COMPANY_NAME" this.Pageframe1.Page1.txtCompany_Name.SetFocus() ENDCASE OTHERWISE tsMaintForm::Error(nError, cMethod, nLine) ENDCASE