FiveTech Software tech support forums

Antonio,
He borrado entera la instalación primera que había hecho de las versiones descargadas de la Web.
La he vuelto a instalar.
He sustituido la versión de xHarbour de la Web por la nueva que me has indicado en este hilo.
He modificado los métodos NEW de las clases para añadir SELF a los Return de esos métodos.
He cambiado una función para el método END de la clase TBCOMCLASS para comunicaciones serie debido a algunos cambios entre la librería HBCOMM.LIB antigua que tenía y la nueva de la última construcción de xHarbour.
Y con todo esto uno de los programas parece que va bien a falta de unas pruebas más exahustivas que tengo pendientes de hacer.

Sin embargo en el otro programa me da unos errores que no deberían de darse por lo sencillo del código fuente que no logro entender el porqué, son líneas de código que no se han alterado en años:

ERROR 1: Wges.prg(16280) Error E0030 Syntax error: "syntax error at 'ON'"

Code: Select all  Expand view

   if ResulCalc[1]=.t.
     USE (ResulCalc[2]) new ALIAS 'KK_CALC'
     if nRdb3=2
       [b]INDEX ON TOTALES TO &ResulCalc[2] DESCENDING[/b]  [color=#FF0000]// línea del error[/color]
     endif

ERROR 2:Wges.prg(19527) Error E0030 Syntax error: "syntax error at '&'"

Code: Select all  Expand view

       // Importa los datos desde el fichero antigüo.
        [b]use &(aFilesNew[k]) new[/b]   [color=#FF0000]// línea del error[/color]
          forigen:=substr(aFilesNew[k],2)
          if FILE(forigen)
             APPEND FROM &(forigen)
          endif
        use

genera el fichero PPO (usando el flag /p al llamar a Harbour) y copia aqui la traducción que te aparece en el ppo de esas líneas

Lo he solucionado de esta manera:

El error 1º: sustituyendo la línea existente anterior por:

Code: Select all  Expand view

INDEX ON TOTALES TO (ResulCalc[2]) DESCENDING

El error 2º: sustituyendo por:

Code: Select all  Expand view

       //use &(aFilesNew[k]) new
        dbusearea(.T.,,aFilesNew[k],,.F.)

Y también se corrige sustituyendo por:

Code: Select all  Expand view

use (aFilesNew[k]) new

Mañana intentaré una revisión más exahustiva del resultado con las nuevas versiones de FWH y xHarbour para ver si los sockets y todo lo demás va bien.
Pero de momento, hemos conseguido generar los exe.

Muchas Gracias Antonio.

Muy bien!