Error al compilar en versión vieja

[nlerdafehn]

Buen dia Foro,

Estoy con la continuación de los sistemas de mi padre, y tenia este compilador y me esta arrojando los siguientes errores que no se como solucionarlos, ya que en teoria antes funcionaba y no entiendo que estoy haciendo mal.

Adjunto el compilador

Code: Select all  Expand view  RUN

@ECHO OFF

rem --------------------------
rem CHANGES the path following
rem for your path machine
rem --------------------------
set hdir =c:\harbour
set bcdir=c:\borland\bcc55\bin
set fwdir=c:\fwh

IF EXIST %1.rc %bcdir%\brc32 -r %1

echo c0w32.obj  + > b32.bc
echo licen.OBJ tget.obj tclipget.obj tmysql.obj tabs.obj ,  + >> b32.bc
echo licen.exe, + >> b32.bc
echo licen.map, + >> b32.bc
echo %fwdir%\lib\hbole.lib + >> b32.bc
echo %fwdir%\lib\twbrw32.lib + >> b32.bc
echo %fwdir%\lib\libmysql.lib + >> b32.bc
echo %fwdir%\lib\mysqlclient.lib + >> b32.bc
echo %fwdir%\lib\mysql.lib + >> b32.bc
echo %fwdir%\lib\FiveH.lib + >> b32.bc
echo %fwdir%\lib\tg3_32.lib + >> b32.bc
echo %fwdir%\lib\FiveHC.lib + >> b32.bc
REM echo %fwdir%\lib\ole2.lib + >> b32.bc
echo %fwdir%\lib\btnget.lib + >> b32.bc
echo %fwdir%\lib\sbuttonh.lib + >> b32.bc
echo %fwdir%\lib\sbrowseh.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\cw32.lib + >> b32.bc
echo %hdir%\lib\import32.lib, +>> b32.bc

rem Uncomment these two lines to use Advantage RDD
REM  echo %fwdir%\lib\rddads.lib + >> b32.bc
REM  echo %hdir%\lib\Ace32.lib,+  >> b32.bc
IF EXIST %1.res echo %1.res >> b32.bc

%bcdir%\ilink32 -Gn -aa -Tpe -s @b32.bc

 del *.c
 del *.il?
 DEL *.MAP

El error que me arroja el DOS es el siguiente

Code: Select all  Expand view  RUN

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_hb_stack' referenced from C:\FWH\LIB\FIVEHC.LIB|FFWNDRUN
Error: Unresolved external '_hb_sxDeCrypt' referenced from C:\XHAR120\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxPtoD' referenced from C:\XHAR120\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxEnCrypt' referenced from C:\XHAR120\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxDtoP' referenced from C:\XHAR120\LIB\RDD.LIB|dbf1
Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\XHAR120\LIB\RTL.LIB|regex
Error: Unresolved external '_HB_FUN_DBFFPT' referenced from C:\XHAR120\LIB\RDD.LIB|rddsys
Error: Unresolved external '_hb_set' referenced from C:\FWH\LIB\FIVEHC.LIB|MSGS
Error: Unresolved external '_HB_FUN_TWORD' referenced from C:\OSPIV\TRAPE\COBROS\COBROSOLD\LICEN.OBJ
No se pudo encontrar C:\ospiv\trape\cobros\cobrosold\*.c
No se pudo encontrar C:\ospiv\trape\cobros\cobrosold\*.il?

Agradezco mucho su ayuda! Calculo que debe ser la versión del 2010. Estoy tratando de hacer toda la migración a la versión nueva, pero hay demasiados cambios por hacer, es un sistema muy grande.

[karinha]

Code: Select all  Expand view  RUN

   hbsix.lib
 

Regards, saludos.

[nlerdafehn]

Grande Karinha!!

Me achico los errores, pero me siguen figurando los siguientes:

Code: Select all  Expand view  RUN

Error: Unresolved external '_hb_stack' referenced from C:\FWH\LIB\FIVEHC.LIB|FFWNDRUN
Error: Unresolved external '_HB_PCREPOS_LIBRARY' referenced from C:\XHAR120\LIB\RTL.LIB|regex
Error: Unresolved external '_HB_FUN_DBFFPT' referenced from C:\XHAR120\LIB\RDD.LIB|rddsys
Error: Unresolved external '_hb_set' referenced from C:\FWH\LIB\FIVEHC.LIB|MSGS
Error: Unresolved external '_HB_FUN_TWORD' referenced from C:\OSPIV\TRAPE\COBROS\COBROSOLD\LICEN.OBJ

[karinha]

Code: Select all  Expand view  RUN

\FwH27\lib\FiveHX.Lib                   +
\FwH27\lib\FiveHC.Lib                   +
\XHARBOUR\Lib\RddAds.Lib                +
\XHARBOUR\lib\hbzip.Lib                 +
\XHARBOUR\lib\rtl.Lib                   +
\XHARBOUR\lib\vm.Lib                    +
\XHARBOUR\lib\gtgui.Lib                 +
\XHARBOUR\lib\lang.Lib                  +
\XHARBOUR\lib\macro.Lib                 +
\XHARBOUR\lib\rdd.Lib                   +
\XHARBOUR\lib\dbfntx.Lib                +
\XHARBOUR\lib\dbfcdx.Lib                +
\XHARBOUR\lib\dbfdbt.Lib                +
\XHARBOUR\lib\debug.Lib                 +
\XHARBOUR\lib\common.Lib                +
\XHARBOUR\lib\tip.Lib                   +
\XHARBOUR\lib\pp.Lib                    +
\XHARBOUR\lib\dbffpt.Lib                +
\XHARBOUR\lib\codepage.Lib              +
\XHARBOUR\lib\HbSix.Lib                 +
\XHARBOUR\lib\PcRepos.Lib               +
\XHARBOUR\Lib\ct.Lib                    +
\Bcc55\lib\cw32.Lib                     +
\Bcc55\lib\psdk\msimg32.Lib             +
\Bcc55\lib\psdk\odbc32.Lib              +
\Bcc55\lib\psdk\rasapi32.Lib            +
\Bcc55\lib\psdk\nddeapi.Lib             +
\Bcc55\lib\psdk\iphlpapi.Lib            +
\Bcc55\lib\import32.Lib
 

Regards, saludos.

[nlerdafehn]

Fue un problema de que se cambio la carpeta del harbour, y no estaba tomando la variable!!

Pero me aparece este ultimo mensaje:

Code: Select all  Expand view  RUN

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_TWORD' referenced from C:\OSPIV\TRAPE\COBROS\COBROSOLD\LICEN.OBJ

Mi PRG:

Code: Select all  Expand view  RUN

#define MERGEPAINT 12255782 // 0xBB0226
#define SRCAND 8913094
#iNCLUDE "FIVEWIN.CH"
#INCLUDE "DLL.CH"
#include "tsbutton.ch"
#include "TSBrowse.ch"
#include 'report.ch'


#define CLR_1 nRGB( 190, 215, 190 )
....

Karinha mil gracias.

[karinha]

Donde está la Classe WORD.PRG ó TWORD.PRG?

Regards, saludos.

[nlerdafehn]

Karinha, utilizo la clase asi:

Code: Select all  Expand view  RUN

    oWord:=Tword():New( )
    oWord:opendoc("C:\trape\cobros\Noem0207.doc")
x = ndes
    for x = ndes to nhas
    qnom = oHoja:Cells( X, 1 ):Value
    qdom = oHoja:Cells( X, 2 ):Value
    qd3 = oHoja:Cells( X, 3 ):Value
    qd4 = oHoja:Cells( X, 4 ):Value
    qd5 = oHoja:Cells( X, 5 ):Value



    oword:replace("**dat01**",alltrim(qnom))
    oword:replace("**dat02**",alltrim(qdom))
    oword:replace("**dat03**",qd3)
    oword:replace("**dat04**",qd4)
    oword:replace("**dat05**",qd5)
    oword:PrintDoc()
    oword:replace(alltrim(qnom),"**dat01**")
    oword:replace(alltrim(qdom),"**dat02**")
    oword:replace(qd3,"**dat03**")
    oword:replace(qd4,"**dat04**")
    oword:replace(qd5,"**dat05**")

    next

No sé donde integrar la clase tword, ya que no la encuentro en los include.

[nlerdafehn]

Listo Karinha!! Muchisimas gracias.

Tenia el archivo en la carpeta, pero no estaba linkeado. Ahora si!!

Mil gracias por la ayuda