CORRUPTION DETECTED

[JUDSON]

Tenho dois programas:

1) RETAGUARDA - em clipper 5.2 - indice .NTX

2) FRENTE DE LOJA - em FW - indice .NTX

Quando e envio dados para o frente de loja ocorre este erro.

Se alguem poder me dar alguma dica.

Obrigado

Judson Rosa

judsonrc@ig.com.br

[evandro]

Olá,

Se você usa o FW+xHarbour, os índices NTX não são compatíveis. Tem de ser o CDX.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 2.4+WS+xBuild+xHarbour.org 0.99

[gsilve]

Ola Evandro,

Tenho feito varios teste com fwh+xhb+ntx, e ate hoje não tive nenhum problema.

Quando e qual problema voce se refere. Pra mim ate hoje não tive corrupcao de dados.

Uso Clip53+ntx, xhb+ntx e fwh+xhb+ntx.

O Unico problema que tive ate hoje, foi com o dbedit(), qdo fechava os indices dentro de um chamada do mesmo, tipo;

.....

USE ARQUIVO NEW SHARED

DBEDIT(L_INICIAL,C_INICIAL,L_FINAL,C_FINAL,V1,"ETEL1",V2,V3)

RETURN NIL

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *>

FUNCTION ETEL1(MODO,INDICE)

LOCAL TECLA, CAMPO, RETORNA

SETCOLOR(COR12) ; TECLA=LASTKEY() ; CAMPO=V1[iNDICE] ; RETORNA=1

IF MODO=1

@ 24,00 SAY PADC("Inicio do Arquivo !",80)

INKEY(3)

@ 24,00 SAY SPAC(80)

RETORNA=1

ELSEIF MODO=2

@ 24,00 SAY PADC("Fim de Arquivo !",80)

INKEY(3)

@ 24,00 SAY SPAC(80)

RETORNA=1

ELSEIF MODO=3

@ 24,00 SAY PADC("Arquivo Vazio !",80)

INKEY(3)

@ 24,00 SAY SPAC(80)

RETORNA=1

ELSEIF MODO == 4

IF TECLA == 27

CLOSE DATA // vazendo assim da erro...

RETORNA:=0

ELSEIF TECLA == 13

.......

Ai tenho que fechar o arquivo depois do dbedit()

USE ARQUIVO NEW SHARED

DBEDIT(L_INICIAL,C_INICIAL,L_FINAL,C_FINAL,V1,"ETEL1",V2,V3)

CLOSE DATA // se nao fizer isto da erro no arquivo

RETURN NIL

Um abraço.

Gilberto Silverio.

[marcos]

Judson,

Se você estiver utilizando FWH, o erro pode ser devido ao clipper ser 16 bits e FWH 32. A única maneira seria converter tudo para 32. O grande problema é que quando você altera a base de dados com clipper (16 bits) e também faz manutenção na mesma base utilizando FWH (32bits), os dados se corrompem mesmo. Agora, se você estiver utilizando FW para clipper, que também é 16 bits, tente excluir os arquivos NTX´s e criá-los novamente.

Abraços

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

[marcos]

Em tempo:

O ideal é converter todos os indices NTX para CDX, mas é interessante se você está utilizando clipper, usar as bibliotecas do clipper 5.3, pois mesmo os CDX no 5.2 podem gerar problemas, mas com 5.3, inclusive eu uso a bastante tempo, não tenho tido problemas.

Marcos - S.B.Campo - SP

marcos_rps@uol.com.br

marcos@siderinox.com.br

[evandro]

Olá,

Gilberto, não sei se com o NTX do Clipper 5.3 há esta compatibilidade. O pessoal do xHarbour diz que não. Você comprova que sim. No meu caso é com o Clipper 5.1 que não dá certo. Dá todo tipo de erro. Às vezes não localiza o registro, outra hora dá mensagem de arquivo corrompido, etc. Ao converter o sistema Clipper para 5.2 dava falta de memória, e nem executava. Agora consegui substituir algumas libs que usava e finalmente o sistema está funcionando em Clipper 5.2 Neste caso passei a usar o CDX.

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na Roça)

FWH 2.4+WS+xBuild+xHarbour.org 0.99

[vagner]

Olá Judson,

Seja muito bem vindo ao fórum ,

Até parece q o pessoal esqueceu de dar as boas vindas

II Encontro Vamos lá , dias 6 e 7 de Novembro de 2004, enviem e-mail de confirmação para 2encontro@fivewin.com.br

Vagner Wirts

São Paulo-Brasil