Search the Community
Showing results for tags 'tabelas'.
-
Boas... Alguém saberia me dizer se existem alguns limites para adicionar "Campos" em Arquivos Dbf ou em Tabelas Sql ? Estou desenvolvendo uma rotina de acesso para cada atividade dentro do meu Sistema e já foram consumidos 280 campos. Como ainda estou na metade do trabalho, gostaria de ter certeza que não ocorrerá erros se houver essas limitações. Obrigado
-
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)