Amiguinhos,
Encontrei no meu arquivo de funções. Não lembro de ter usado, mas vai que alguém precise.
function dbSaveCRC()
if dbFieldCRC()
FieldPut(FCount(),dbCalcCRC())
end
return nil
function dbFieldCRC()
return Right(RTrim(FieldName(FCount())),3) == "CRC"
function dbCalcCRC()
local cSum := ""
local f
local i
*
for i := 1 to FCount()-1
f := FieldGet(i)
cSum += if(ValType(f) = "C", f ,;
if(ValType(f) = "N", Str(f,18,6) ,;
if(ValType(f) = "D", DtoS(f) ,;
if(ValType(f) = "L", if(f,"1","0"), ""))))
next
return .t. // CRC32Calc(cSum)