Sr. Antonio- xHarbour 1.1.0 (Rev. 6195) com FWH 8.02 ?

[MGA]

Sr. Antonio,

Minha configuração: xharb 1.1.0 + fwh 8.02 + bcc55


Posso utilizar o xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195) ??

[Antonio Linares]

No te lo podemos confirmar con total seguridad.

Tendras que probarlo tu mismo

[Ricardo Ramirez E.]

Senhor S.G.S:

Tens a build 8.02 de FWH porque utilizar a Rev. 6195 de Harbour Simplex?


Cumprimentos!

[MGA]

Ricardo, estou tendo alguns problemas com erros do tipo:

hb_cdxpageseekkey: wrong parent key.

Minha esperança é que uma revisão posterior possa solucionar estes erros.

[MGA]

Sr. Antonio,

Fiz testes neste PRG:


#INCLUDE "FIVEWIN.CH"

FUNCTION Main()
Local cTemp := "MYFILE.DBF", cFileCdx := "MYFILE.CDX"
Local nI := 1

SET DATE TO BRITISH
SET EPOCH TO 2000
SET CENTURY ON
SET DELETED ON

REQUEST DBFCDX
RDDSETDEFAULT( "DBFCDX" )

IF FILE("MYFILE.CDX")
ERASE MYFILE.CDX
ENDIF
IF FILE("MYFILE.DBF")
ERASE MYFILE.DBF
ENDIF

DBCreate(cTemp,{ {"COD","C",10,0} ,;
{"DES","C",197,0}}, "DBFCDX" )

SELE 0 ; USE (cTemp) EXCLUSIVE NEW ALIAS TEMP VIA "DBFCDX"
INDEX ON field->COD TAG COD TO (cFileCdx)
INDEX ON field->DES TAG DES TO (cFileCdx)
SET INDEX TO (cFileCdx)
FOR nI = 137 TO 161
DBAppend()
NEXT
FOR nI = 1 TO 250
DBAppend()
NEXT
dbcloseall()
RETURN NIL




Compilar e executar e depois trocar o campo DES de 197 por 201, Compilar e executar novamente:
DBCreate(cTemp,{ {"COD","C",10,0} ,;
{"DES","C",201,0}}, "DBFCDX" )



Com xHarbour Compiler build 1.1.0 (SimpLex)

Erro:
hb_cdxPageLeafEncode: FreeSpace calculated wrong!.


Com xHarbour Compiler build 1.1.0 (SimpLex) (Rev. 6195):

Erro:
Não houve erro!

[MGA]

Sr. Antonio,

UP !

[karinha]

Code: Select all

   //-> CAMPO COM MAIS DE 200 CARACTERES PARA A CHAVE - BASTARIA DESMEMBRAR
   INDEX ON SUBSTR( DES, 10, 4 ) TAG DES TO MYFILE