Page 1 of 1

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

Posted: Mon Nov 24, 2008 7:38 pm
by 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) ??

Posted: Tue Nov 25, 2008 1:52 am
by Antonio Linares
No te lo podemos confirmar con total seguridad.

Tendras que probarlo tu mismo :-)

Posted: Tue Nov 25, 2008 8:51 am
by Ricardo Ramirez E.
Senhor S.G.S:

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


Cumprimentos!

Posted: Tue Nov 25, 2008 10:06 am
by 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.

Posted: Tue Nov 25, 2008 10:45 am
by 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!
:D

Posted: Tue Nov 25, 2008 1:12 pm
by MGA
Sr. Antonio,

UP ! :)

Posted: Tue Nov 25, 2008 1:16 pm
by 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