Error Method
Object: frmsuppliers
Expand/Collapse source code of procedure Error Source Code
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