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