*---------------------- Location Section ---------------------- * Library...........: common30\ccustctl.vcx * Class.............: Cbanquetextbox * Method............: Valid() *-------------------------- Copyright ------------------------- * Author............: José Constant * Project...........: Prosal * Created...........: 11/07/96 15:01:56 * Copyright.........: (c) Terre-Engineering S.A. , 1996 *----------------------- Usage Section ------------------------ LOCAL lAg, ; lCp, ; lMod, ; lAgcp lAg = SUBSTR(this.value,1,3) lCp = SUBSTR(this.value,4,7) lMod = SUBSTR(this.value,11,2) lAgCp = lAg + lCp IF this.Value = "000000000000"; .OR. this.Value = "903000900379"; .OR. lCp = "0000000" this.value = "" this.Refresh() ELSE IF VAL(lAgcp) = 0 .AND. VAL(lMod) =97 RETURN .T. ELSE IF MOD(VAL(lAgcp),97)=0 .AND. VAL(lMod) = 97 RETURN .T. ELSE IF MOD(VAL(lAgcp),97) <> VAL(lMOD) =ErrorMsg(ILLEGALVALUE_LOC) RETURN .F. ELSE RETURN .T. ENDIF ENDIF ENDIF ENDIF RETURNBy the way, Marc, I found back the guy I was researching by checking the phone guides on the Web. He was second on the list I tried!