Importação da datas com Append

[Grings]

..

[sygecom]

Olá Grings,
Sempre usei o Append From desde o Clipper e nunca tive problemas com DATA, post parte do codigo onde esta dando o problema e se for possivel detalhe mais o que está acontecendo, se gera um erro, ou não grava nada ou algo assim.
Abaixo como uso o Append From

addField( "agenda", "campo", "D", 8, 0 ) // adicionando esse campo que não existia

Código: Selecionar todos

************************************************
Function addField( file, field, type, len, dec )
************************************************
use &file new
aStruct := dbStruct( file )

// campo já existe
if fieldPos( field ) != 0
   close &file
   msginfo( "Erro em "+ProcName()+". Campo "+field+" existe na tabela "+file+"!" )
   return
endif
close &file

aAdd( aStruct, { field, type, len, dec } )
dbCreate( "temp", aStruct )

use temp new
append from &file while BARRA_HWGUI(1->(RECNO()),LASTREC())
close temp

fErase( file+".dbf" )
fRename( "temp.dbf", file+".dbf" )
Return