Object: | frmAddCustomer |
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