DATA WIDTH ERROR

[vagner_cip]

OLÁ AMIGOS.


Tenho um relatório que cria um banco de dados apartir de um outro usando o comando copy to, mas dá esse erro, na linha do comando:



ERROR SIXNSX/1021 DATA WIDTH ERROR


Será que tem alguma coisa a ver com campo memo, pois esse banco tem.


Grato.

Vagner - SP

[Dudu_XBase]

Esse outro banco de dados esta em SIXNSX com memo com extensão .smt ?

[vagner_cip]

Não a extensão do memo é *.dbt

[Trazom]

grava alguns registros e depois pára ?

se for isso, é o mesmo que acontece comigo, tem corrupção de dados,

nesse caso a solução é manual, procurar o registro e deleta-lo se for possivel

as vezes acontece eof() no meio do arquivo e outras doideiras

valeu

[Poka]

Tive um problema com campo memo a pouco tempo.
Via sistema não conseguia entrar em quase nenhum registro, dava que estava corrompido.

Eliminar um por um estava impossivel, pra ter uma ideia, de 1500 registros, so salvou 50.

Fiz essa rotina pra fazer o serviço. Resolveu o meu problema, agora, RECUPERAR o texto é praticamente impossivel. O meu arquivo Texto é o FPT, mas acredito que de certo com o DBT.

/////////
// elimina os registros com Campo Memo corrompido
// e cria um arquivo ruim.txt para identificar os registros que foram excluidos
// FA€A UM BACKUP ANTES DE UTILIZAR ESSA ROTINA
// reindexe os arquivos apos usar a rotina
///////////

/*
arquivo utilizado nesse exemplo RECIBO.DBF

DATA D 08
DOCUM C 06
NOME C 30
TEXTO M 10
*/

set dele off
set date briti
set cent on
ERRORBLOCK({|E| erro(E)})
cls
use recibo new // nao acione nenhum indice
goto top
set alte on
set alte to ruim.txt
qterro:=0
do while .not. eof()
x:=texto
if empty(alltrim( x))
x:=dtoc(data) +" "+docum+" "+nome
? x
dele
qterro++
endif
SKIP
ENDDO
?? "total de registros com problemas=> "+str(qterro,6)
set alte off
set alte to
pack
close data
retu nil
///////////////////////////
FUNCT ERRo(E)
RETU .f.
///////////////////


Um abraço

Poka