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!
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