Error Method
Object: frmcustomers
Expand/Collapse source code of procedure Error Source Code
LPARAMETERS nError, cMethod, nLine
DO CASE
  CASE nError = 1884    && Primary key violated
    thisform.pageframe1.page1.cntCustomerInfo.Error(nError, cMethod, nLine)
  CASE nError = 1582    && Field rule violated
    thisform.pageframe1.page1.cntCustomerInfo.Error(nError, cMethod, nLine)
  OTHERWISE
    tsMaintForm::Error(nError, cMethod, nLine)
ENDCASE