******************************** function Zip ******************************** lparameters pcZip, pcField ************************** If empty(pcZip) return .t. endif local lnZipLen lnZipLen=fsize(pcField) && len of the field local lcMask, lcDigits lcMask=replicate('9',lnZipLen) lcDigits = "0123456789" if chrtran( pcZip, lcDigits, replicate("9", 10))<>lcMask or pcZip = "00000" return EvalCode(179, pcField) endif return .t.