Hola.., yo tambien uso DBU y funciona correctamente "en ocasiones".
No he prestado mucha atención, pero creo que cuando la DBF contiene un campo MEMO es cuando da error (Dice que la DBF esta dañada), y tengo que usar la utilidad DBA...
Sl2
Moderator: Rathinagiri
Hola.., yo tambien uso DBU y funciona correctamente "en ocasiones".
Code: Select all
Function ValidFieldName (cCadena)
LOCAL cValid := .T.
LOCAL i
If ValType (cCadena) <> "C"
Return .F.
EndIf
If SubStr (cCadena,1,1) $"0123456789" .OR. Len (cCadena) > 10
Return .F.
EndIf
For i = 1 To Len (cCadena)
If ! Lower ( SubStr (cCadena,i,1)) $"abcdefghijklmnopqrstuvwxyz0123456789_" // lista de caracteres permitidos
cValid := .F.
EndIf
Next
Return cValid