Importação da datas com Append
Enviado: 24 Jul 2009 21:10
..
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