Procedure FW_GT que no existe en Fivewin.ch

[Armando_Picon]

Antonio

Estuve haciendo pruebas con Fwh712 utilizando Harbour y xHarbour y salto el error de no encontrar el Procedure FW_GT. Lo he rastreado en los archivos de fuentes y, efectivamente, no existe.

El error se origina en Fivewin.ch y eso compromete a fiveh.lib, fiveh32.lib, fivehg.lib, fivehm.lib y pcodedll.dll

Favor de verificar su implicancia en las sucesivas versiones de Fwh y como corregirlo.

Gracias

[Armando_Picon]

Antonio

Este es el lugar donde se produce la falta del Procedure

Fivewin.ch
=========
.
.
.
80 #ifdef __HARBOUR__
81 #define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )
82 #ifndef __XHARBOUR__
83 REQUEST FW_GT <--- OjO
84 #endif
85 #endif
.
.
.

[Antonio Linares]

Armando,

Puedes proporcionar un PRG para reproducir el error ? gracias

[Armando Picon]

Antonio

Eso saltó durante la compilación y enlace de un modulo de cobranza que se apoya, a su vez, en el modulo principal de un sistema de gestión empresarial.
Voy a aislar el modulo con dbfs en blanco para poder alcanzarte. La empresa se ocupa de Educación a Distancia, en Perú.

Esta aplicación, del cual soy autor, ya tiene bastante tiempo y originalmente se programó para Fw2.0, Clipper 5.2b y Blinker 6 para tu conocimiento.

Gracias por la atención.

[Armando Picon]

Antonio

Este es el volcado de la compilación con FWH712, xHarbour para fwh712 y BCC55. ¿Hay alguna manera de alcanzarte, aparte del correo a Fivetech, un archivo ZIP para que puedas verificar el error? En el ZIP se encuentra el directorio completo con las fuentes, el MAK par compilar y la LIB particular que utilizo (Fwhx712.lib) para las aplicaciones.

xCobra712.mak

D:\inpede2\cobra32>make -f xcobra712
MAKE Version 5.2 Copyright (c) 1987, 2000 Borland
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Creadbfs.PRG /a /n /W0
/Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Creadbfs.PRG'...
Lines 516, Functions/Procedures 1
Generating C source output to 'obj\Creadbfs.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Cr
eadbfs obj\Creadbfs.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Creadbfs.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Dbfuses.PRG /a /n /W0 /
Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Dbfuses.PRG'...
Lines 583, Functions/Procedures 1
Generating C source output to 'obj\Dbfuses.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Db
fuses obj\Dbfuses.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Dbfuses.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Brwcobr.PRG /a /n /W0 /
Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Brwcobr.PRG'...
Lines 203, Functions/Procedures 5
Generating C source output to 'obj\Brwcobr.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Br
wcobr obj\Brwcobr.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Brwcobr.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Getcobra.PRG /a /n /W0
/Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Getcobra.PRG'...
Lines 99, Functions/Procedures 2
Generating C source output to 'obj\Getcobra.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Ge
tcobra obj\Getcobra.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Getcobra.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Listacbr.PRG /a /n /W0
/Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Listacbr.PRG'...
Lines 357, Functions/Procedures 9
Generating C source output to 'obj\Listacbr.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Li
stacbr obj\Listacbr.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Listacbr.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Brwprom.PRG /a /n /W0 /
Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Brwprom.PRG'...
Lines 207, Functions/Procedures 5
Generating C source output to 'obj\Brwprom.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Br
wprom obj\Brwprom.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Brwprom.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Getpromo.PRG /a /n /W0
/Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Getpromo.PRG'...
Lines 102, Functions/Procedures 2
Generating C source output to 'obj\Getpromo.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Ge
tpromo obj\Getpromo.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Getpromo.c:
C:\fwh712\xHb712\bin\harbour D:\inpede2\v2020p01\Listapmt.PRG /a /n /W0
/Oobj\ /IC:\fwh712\include;C:\fwh712\xHb712\include;.\include
xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2007, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'D:\inpede2\v2020p01\Listapmt.PRG'...
Lines 349, Functions/Procedures 9
Generating C source output to 'obj\Listapmt.c'...
Done.
C:\fwh712\bcc55\bin\bcc32 -N -c -tWM -IC:\fwh712\xHb712\include -oobj\Li
stapmt obj\Listapmt.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\Listapmt.c:
echo C:\fwh712\bcc55\bin\brc32.exe -r xcobra712.rc
C:\fwh712\bcc55\bin\brc32.exe -r xcobra712.rc
echo off
echo C:\fwh712\bcc55\lib\c0w32.obj + > b32.bc
echo OBJ\Inicio.OBJ + >> b32.bc
echo OBJ\Creadbfs.OBJ + >> b32.bc
echo OBJ\Dbfuses.OBJ + >> b32.bc
echo OBJ\Cobranza.OBJ + >> b32.bc
echo OBJ\Brwcobr.OBJ + >> b32.bc
echo OBJ\Getcobra.OBJ + >> b32.bc
echo OBJ\Listacbr.OBJ + >> b32.bc
echo OBJ\brwprom.OBJ + >> b32.bc
echo OBJ\Getpromo.OBJ + >> b32.bc
echo OBJ\Listapmt.OBJ + >> b32.bc
echo OBJ\brwabono.OBJ + >> b32.bc
echo OBJ\brwbanco.OBJ + >> b32.bc
echo OBJ\brwcomis.OBJ + >> b32.bc
echo OBJ\brwliqui.OBJ + >> b32.bc
echo OBJ\CobReci.OBJ + >> b32.bc
echo OBJ\PendReci.OBJ, + >> b32.bc
echo xCOBRA712.exe, + >> b32.bc
echo xCOBRA712.map, + >> b32.bc
echo C:\fwh712\lib\FiveHX.lib + >> b32.bc
echo C:\fwh712\lib\FiveHC.lib + >> b32.bc
echo C:\fwh712\lib\fwhX712.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\rtl.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\vm.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\gtgui.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\lang.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\macro.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\rdd.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\dbfntx.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\dbfcdx.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\dbffpt.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\hbsix.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\debug.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\common.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\pp.lib + >> b32.bc
echo C:\fwh712\xHb712\lib\pcrepos.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\cw32.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\import32.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\psdk\odbc32.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\psdk\rasapi32.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\psdk\nddeapi.lib + >> b32.bc
echo C:\fwh712\bcc55\lib\psdk\iphlpapi.lib, >> b32.bc
IF EXIST xcobra712.res echo xcobra712.res >> b32.bc
C:\fwh712\bcc55\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_FW_GT' referenced from D:\INPEDE2\COBRA32\OB
J\BRWCOMIS.OBJ

** error 2 ** deleting xCOBRA712.exe

D:\inpede2\cobra32>

[Armando Picon]

Archivo xCobra712.mak

FWDIR=C:\fwh712
HDIRL=C:\fwh712\xHb712
BCDIR=C:\fwh712\bcc55

.path.OBJ = .\obj
.path.CH = $(FWDIR)\include;$(HDIRL)\include

PRG= \
Inicio.PRG \
D:\inpede2\v2020p01\Creadbfs.PRG \
D:\inpede2\v2020p01\Dbfuses.PRG \
Cobranza.PRG \
#
D:\inpede2\v2020p01\Brwcobr.PRG \
D:\inpede2\v2020p01\Getcobra.PRG \
D:\inpede2\v2020p01\Listacbr.PRG \
D:\inpede2\v2020p01\Brwprom.PRG \
D:\inpede2\v2020p01\Getpromo.PRG \
D:\inpede2\v2020p01\Listapmt.PRG \
#
brwabono.PRG \
brwbanco.PRG \
brwcomis.PRG \
brwliqui.PRG \
#
CobReci.PRG \
PendReci.PRG

#OBJ=$(PRG:.prg=.obj)
#OBJS=$(OBJ:.\=.obj\)

PROJECT : xCOBRA712.exe

xCOBRA712.exe : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) xcobra712.res
echo off
echo $(BCDIR)\lib\c0w32.obj + > b32.bc
#
echo OBJ\Inicio.OBJ + >> b32.bc
#
echo OBJ\Creadbfs.OBJ + >> b32.bc
echo OBJ\Dbfuses.OBJ + >> b32.bc
#
echo OBJ\Cobranza.OBJ + >> b32.bc
#
echo OBJ\Brwcobr.OBJ + >> b32.bc
echo OBJ\Getcobra.OBJ + >> b32.bc
echo OBJ\Listacbr.OBJ + >> b32.bc
echo OBJ\brwprom.OBJ + >> b32.bc
echo OBJ\Getpromo.OBJ + >> b32.bc
echo OBJ\Listapmt.OBJ + >> b32.bc
#
echo OBJ\brwabono.OBJ + >> b32.bc
echo OBJ\brwbanco.OBJ + >> b32.bc
echo OBJ\brwcomis.OBJ + >> b32.bc
echo OBJ\brwliqui.OBJ + >> b32.bc
#
echo OBJ\CobReci.OBJ + >> b32.bc
echo OBJ\PendReci.OBJ, + >> b32.bc
#
echo xCOBRA712.exe, + >> b32.bc
echo xCOBRA712.map, + >> b32.bc
echo $(FWDIR)\lib\FiveHX.lib + >> b32.bc
echo $(FWDIR)\lib\FiveHC.lib + >> b32.bc
echo $(FWDIR)\lib\fwhX712.lib + >> b32.bc

# Libreria de xHarbour para Fwh712
echo $(HDIRL)\lib\rtl.lib + >> b32.bc
echo $(HDIRL)\lib\vm.lib + >> b32.bc
echo $(HDIRL)\lib\gtgui.lib + >> b32.bc
echo $(HDIRL)\lib\lang.lib + >> b32.bc
echo $(HDIRL)\lib\macro.lib + >> b32.bc
echo $(HDIRL)\lib\rdd.lib + >> b32.bc
echo $(HDIRL)\lib\dbfntx.lib + >> b32.bc
echo $(HDIRL)\lib\dbfcdx.lib + >> b32.bc
echo $(HDIRL)\lib\dbffpt.lib + >> b32.bc
echo $(HDIRL)\lib\hbsix.lib + >> b32.bc
echo $(HDIRL)\lib\debug.lib + >> b32.bc
echo $(HDIRL)\lib\common.lib + >> b32.bc
echo $(HDIRL)\lib\pp.lib + >> b32.bc
echo $(HDIRL)\lib\pcrepos.lib + >> b32.bc



# Libreria de Bcc55
echo $(BCDIR)\lib\cw32.lib + >> b32.bc
echo $(BCDIR)\lib\import32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\iphlpapi.lib, >> b32.bc

IF EXIST xcobra712.res echo xcobra712.res >> b32.bc

$(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

.PRG.OBJ:
$(HDIRL)\bin\harbour $< /a /n /W0 /Oobj\ /I$(FWDIR)\include;$(HDIRL)\include;.\include
$(BCDIR)\bin\bcc32 -N -c -tWM -I$(HDIRL)\include -oobj\$& obj\$&.c

.C.OBJ:
echo -c -N -tWM -DHB_API_MACROS > tmp
echo -I$(HDIRL)\include;$(FWDIR)\include >> tmp
echo $(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c

# echo -c -N -tWM -D__XHARBOUR__ -DHB_API_MACROS > tmp

del tmp

xcobra712.res : xcobra712.rc
echo $(BCDIR)\bin\brc32.exe -r xcobra712.rc

[Antonio Linares]

Armando,

Añade esta línea en tu PRG principal:

procedure FW_GT ; return