... checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( Substr( cCad, c, 1 ) ) ) NEXT RETURN IIF( nSum1 == nSum2, .t., .f. ) ////////////////////////////////////////// // // Actualiza los ...