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) ??
Sr. Antonio- xHarbour 1.1.0 (Rev. 6195) com FWH 8.02 ?
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
- Ricardo Ramirez E.
- Posts: 161
- Joined: Wed Jan 25, 2006 10:45 am
- Location: Praia - Cape Verde
- Contact:
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!
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!
Code: Select all
//-> CAMPO COM MAIS DE 200 CARACTERES PARA A CHAVE - BASTARIA DESMEMBRAR
INDEX ON SUBSTR( DES, 10, 4 ) TAG DES TO MYFILE
João Santos - São Paulo - Brasil