Error en FWH10

[jmua]

Buenas.
Utilizo fwh10 u [x]harbour que venia con la esta version de fwh y verce 5.0
Compilo programa y al ejecutarlo me da el siguiente error:
Unrecoverable error 9000:
'source\dbfdbt\dbfdbt1.c' was compiled by older version, PCODE version 7 is no longer soported - Please recompile
A que puede ser debido.
Gracias

[Antonio Linares]

José,

Por favor comprueba que no tengas instaladas algunas versiones anteriores a la 7.10, tanto de FWH como de xharbour, y que los estes usando en vez de los actuales.

Tambien, si usas alguna librería de terceros, ó un módulo OBJ, tienes que recompilarlos con el nuevo build de xharbour

[jmua]

Antonio.
Solamente tengo un PRG y es el menu principal con unos botones, no estoy utilizando nada mas,
He configurado el verce a xharbour que vino con Fwh10
Este es todo lo que quiero compilar de momento:
//---------------------------------------------------------------------------//
//
// Function........: PRINCIPAL.PRG
// Parameters......:
// System..........: Menu principal Envio emails
// Author..........: José_Martin Uriarte Aguirre
// Date............: 02/11/2007 8:35:29
//
//---------------------------------------------------------------------------//

//---------------------------------------------------------------------------//
//REQUEST DBFCDX,DBFFPT,ORDKEYCOUNT,ORDKEYNO,ORDKEYGOTO,rddsys
//_ADS,ADSKEYCOUNT,ADSGETRELKEYPOS,ADSKEYNO,ADSSetRelKeyPos,rddsys,ORDKEYGOTO,;
//---------------------------------------------------------------------------//
#Include "FiveWin.ch"
//---------------------------------------------------------------------------//
Static oWnd
//---------------------------------------------------------------------------//
Function Main()
//---------------------------------------------------------------------------//
//Variables locales
Local oFont,oIcon,lSalir := .f.
Local cTitle := 'Envio emails'
//Variables privadas
Public oMsgBar
Private oBtn101,oBtn102,oBtn103,oBtn104,oBtn105,oBtn106
Private aRrBtns:= {}
//Variables publicas
//---------------------------------------------------------------------------//
//Parametros SET
//RDDSETDEFAULT('DBFCDX')
Set(_SET_CANCEL,.T.)
Set Epoch To 2000 //Minima fecha de datos año 2000
Set Scoreboard Off
Set Date British //Formato de fecha europea
Set Century On //Activacion de la centuria
Set Confirm Off //Confirmacion de datos
Set Deleted On //Ocultar registros eliminados
Set Exclusive Off //datos exclusivos
SET _3DLOOK ON
Set AutOpen ON //Abrir ficheros de indice al abrir las tablas
//---------------------------------------------------------------------------//
DEFINE ICON oIcon RESNAME "#8001"
DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -12
DEFINE DIALOG oWnd RESNAME "PRINCIPAL" FONT oFont ICON oIcon TITLE cTitle

REDEFINE BUTTON oBtn101 ID 101 OF oWnd FONT oFont
REDEFINE BUTTON oBtn102 ID 102 OF oWnd FONT oFont
REDEFINE BUTTON oBtn103 ID 103 OF oWnd FONT oFont
REDEFINE BUTTON oBtn104 ID 104 OF oWnd FONT oFont
REDEFINE BUTTON oBtn105 ID 105 OF oWnd FONT oFont
REDEFINE BUTTON oBtn106 ID 106 OF oWnd ACTION (oWnd:End()) FONT oFont

aRrBtns := { oBtn101,oBtn102,oBtn103,oBtn104,oBtn105,oBtn106 }
//oWnd:SetColor(CLR_WHITE,CLR_WHITE)
ACTIVATE DIALOG oWnd CENTERED ;
ON INIT (PonStatusBar(oWnd,cTiTle))
//If(AccesoAplic(oWnd),.t.,(oWnd:End(),.f.)),;
//
oIcon:End()
oFont:End()
aFont:End()
If Used()
DbCloseAll()
Endif
Return Nil
//---------------------------------------------------------------------------//
Static Function PonStatusBar(oWnd,cTiTle)

DEFINE MSGBAR oMsgBar OF oWnd PROMPT cTiTle ;
NOINSET CLOCK DATE KEYBOARD CENTERED

Return nil
//---------------------------------------------------------------------------//
#pragma BEGINDUMP

#include "hbstack.h"
#include "hbapiitm.h"

void * hb_stack = &HB_VM_STACK;

PHB_SYMB hb_dynsymSymbol( PHB_DYNS pDynSym )
{
return pDynSym->pSymbol;
}

#pragma ENDDUMP

//---------------------------------------------------------------------------//

[Antonio Linares]

José,

El #pragma BEGINDUMP ... #pragma ENDDUMP ya no te hace falta con la versión de xHarbour que usas. Prueba a quitarlo.

De todas formas, ese error que te aparece es debido a que estás usando algún módulo compilado con una versión anterior de xHarbour. Aqui nuestros ejemplos funcionan bien.

Puedes probar en otro ordenador ? gracias,

[Antonio Linares]

Asegúrate de que no tengas alguna librería LIB de una versión anterior de FWH ó de xHarbour

[jmua]

Antonio,
He probado en otro pc que formatee el el otro dia el disco duro y me pasa lo mismo.
sigue este error:
'source\rdd\dbfdbt\dbfdbt1.c' was compiled by older version, PCODE version 7 is no longer supported - Please recompile.

[jmua]

Antonio,
Si quito EL BEGINDUMP me da esto:
Error: Unresolved external '_hb_stack' referenced from C:\MYSISTEMA\XHARBOUR\LIB\DBFDBT.LIB|dbfdbt1

[Antonio Linares]

José,

Por favor descarga xHarbour desde
www.fivetechsoft.com/files/xharbour.exe
y comprueba que es el que estás usando, gracias

[Antonio Linares]

José,

Ya se lo que te ocurre: Estas enlazando DBFDBT.LIB que ya no se usa y que no está incluida en la versión actual de xHarbour!

Por favor cambia ese fichero por DBFFPT.LIB, gracias

[jmua]

Antonio.
Descargjue y funciono.
eres un artista.
Muchas gracias maestro