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
Antonio
Este es el lugar donde se produce la falta del Procedure
.
.
.
80 #ifdef HARBOUR
81 #define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )
82 #ifndef XHARBOUR
83 REQUEST FW_GT <--- OjO
84 #endif
85 #endif
.
.
.
Armando,
Puedes proporcionar un PRG para reproducir el error ? gracias
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.
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
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
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
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
del tmp
xcobra712.res : xcobra712.rc
echo $(BCDIR)\bin\brc32.exe -r xcobra712.rc
Armando,
A帽ade esta l铆nea en tu PRG principal:
procedure FW_GT ; return