Page 1 of 1
Errores rpreview (Solucionado)
Posted: Thu Jun 15, 2023 9:16 am
by Manuel Aranda
Buenos días, compañeros
Tengo que hacer algún cambio en el rpreview y lo he recompilado con el resto de prg.s de mi aplicación. Sin embargo da algunos errores que no sé a qué se deben. De momento no he hecho ningún cambio, sólo lo he incluido tal cual
No sé qué es lo que hago mal o si me falta incluir algún fichero más.
Re: Errores rpreview
Posted: Thu Jun 15, 2023 10:58 am
by karinha
Buén dia.
Se comprendo, usas FWH2304, entonces: COPY C:\FWH2304\SOURCE\CLASSES\RPREVIEW.PRG - de esta VERSIÓN.
Compile con:
Code: Select all | Expand
%hdir%\bin\harbour RPREVIEW /n /m /w /es1 /gc1 /i%fwhdir%\include;%hdir%\include;%bcdir%\include /w0 /p >> Erro.log 2>> ERROS.LOG
Reporte notícias.
Regards, saludos.
Re: Errores rpreview
Posted: Fri Jun 16, 2023 10:39 am
by Manuel Aranda
Hola Karinha,
Eso es lo que he hecho copiar el fuente rpreview.prg de la carpeta de fivewin y
recompilarlo con los fuentes de mi aplicación como había hecho siempre.
He probado también con el archivo tget.prg y también da errores que no me acabo de explicar.
A no ser que los fuentes que vienen en la carpeta source de la versión 23.04 no se correspondan con la versión compilada.
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:07 pm
by paquitohm
Hola,
Tiene que ver con algun include
Quizas estés usando para compilar una version antigua de fivewin.ch o algun .ch derivado que no se corresponde con el fuente. Tiene toda la pinta
Segun el comando que hay en la linea que canta el error te podria decir algo mas
Salu2
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:36 pm
by Manuel Aranda
Buenas tardes, Paquito
Este es el código de cada una de las líneas con errores
preview.prg
linea305 Error E0022 Invalid lvalue: "Numeric" SIZE IfNil( nBtnW, 26 ), IfNil( nBtnH, If( LargeFonts(), 30, 26 ) )
linea515 Error E0030 Syntax error: "Syntax error at ´CURSOR´ DEFINE CURSOR ::oCursor SEARCH
linea583 Error E0020 Incomplete stament or unbalanced deliminter ::oFactor:Set3dLook( .T. )
linea 1617 Error E0030 Syntax error: sintax error at ´@´ @ 8, 8 GROUP PROMPT FWString( "Printing range" ) SIZE 135, 72 PIXEL OF oDlg
Estoy utilizando este fichero RMK
Code: Select all | Expand
#Borland make
HBDIR=c:\mar\fwh\xharbour
BCDIR=c:\mar\fwh\bcc74
FWDIR=c:\mar\fwh\fivewin
#change these paths as needed
.path.OBJ = .\OBJ
.path.PRG = .\
.path.CH = $(FWDIR)\include;$(HBDIR)\include
.path.C = .\obj
.path.rc = .\
#Archivos PRG.s que se compilan!
PRG = \
aguages.PRG \
altas.PRG \
socios.PRG \
gastos.PRG \
parcelas.PRG \
locks.PRG \
utiles.PRG \
ssay.PRG \
menudato.PRG \
recibos.PRG \
tget.PRG \
help32.PRG \
recipen.PRG \
tword.PRG \
tcalc.PRG \
rpreview.PRG \
banner.PRG \
barlib.PRG \
codabar.PRG \
code3de9.PRG \
code128.PRG \
ean13.PRG \
go_code.PRG \
int25.PRG
#Archivos de c++ que se compilan!
C = \
PROJECT : AGUAGES.exe
AGUAGES.exe : $(PRG:.PRG=.OBJ) $(C:.C=.OBJ) AGUAGES.res
echo off
echo $(BCDIR)\lib\c0w32.OBJ + > b32.bc
echo OBJ\AGUAGES.OBJ \
OBJ\altas.OBJ \
OBJ\socios.OBJ \
OBJ\gastos.OBJ \
OBJ\parcelas.OBJ \
OBJ\locks.OBJ \
OBJ\utiles.OBJ \
OBJ\ssay.OBJ \
OBJ\menudato.OBJ \
OBJ\recibos.OBJ \
OBJ\tget.OBJ \
OBJ\help32.OBJ \
OBJ\recipen.OBJ \
OBJ\tword.OBJ \
OBJ\tcalc.OBJ \
OBJ\rpreview.OBJ\
OBJ\BANNER.OBJ \
OBJ\BARLIB.OBJ \
OBJ\CODABAR.OBJ \
OBJ\CODE3DE9.OBJ \
OBJ\CODE128.OBJ \
OBJ\EAN13.OBJ \
OBJ\GO_CODE.OBJ \
OBJ\INT25.OBJ, + >> b32.bc
echo AGUAGES.exe, + >> b32.bc
echo AGUAGES.map, + >> b32.bc
rem librerias de terceros
rem echo C:\dolphin\TDOLPHIN\LIB\dolphinx.LIB + >> b32.bc
rem echo C:\dolphin\tdolphin\LIB\mysql\omf\libmysql.LIB + >> b32.bc
REM echo C:\fwh\LIB\ttaskpanel.LIB + >> b32.bc
REM echo C:\fwh\LIB\pdfing.LIB + >> b32.bc
echo $(FWDIR)\lib\FiveHx.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
echo $(HBDIR)\lib\rtl.lib + >> b32.bc
echo $(HBDIR)\lib\vm.lib + >> b32.bc
echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
echo $(HBDIR)\lib\lang.lib + >> b32.bc
echo $(HBDIR)\lib\macro.lib + >> b32.bc
echo $(HBDIR)\lib\rdd.lib + >> b32.bc
echo $(HBDIR)\lib\dbfntx.lib + >> b32.bc
echo $(HBDIR)\lib\dbfcdx.lib + >> b32.bc
echo $(HBDIR)\lib\dbffpt.lib + >> b32.bc
echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
echo $(HBDIR)\lib\debug.lib + >> b32.bc
echo $(HBDIR)\lib\common.lib + >> b32.bc
echo $(HBDIR)\lib\pp.lib + >> b32.bc
echo $(HBDIR)\lib\codepage.lib + >> b32.bc
echo $(HBDIR)\lib\ct.lib + >> b32.bc
echo $(HBDIR)\lib\pcrepos.lib + >> b32.bc
echo $(HBDIR)\lib\zlib.lib + >> b32.bc
echo $(HBDIR)\lib\hbzip.lib + >> b32.bc
echo $(HBDIR)\lib\libmisc.lib + >> b32.bc
echo $(HBDIR)\lib\tip.lib + >> b32.bc
echo $(HBDIR)\lib\png.lib + >> b32.bc
rem echo c:\XHB1006\lib\pdfing.lib + >> b32.bc
rem echo C:\XHB1006\LIB\HBZIP.LIB + >> b32.bc
rem echo C:\XHB1006\LIB\ZLIB.LIB + >> b32.bc
rem quitar el comentario en estas 2 lineas si se usa Advantage RDD
REM echo $(HBDIR)\lib\rddads.lib + >> b32.bc
REM echo $(HBDIR)\lib\Ace32.lib + >> b32.bc
REM echo $(FWDIR)\lib\dolphinx.lib + >> b32.bc
REM echo $(FWDIR)\lib\libmysql.lib + >> b32.bc
echo $(BCDIR)\lib\cw32.lib + >> b32.bc
echo $(BCDIR)\lib\import32.lib + >> b32.bc
echo $(BCDIR)\lib\uuid.lib + >> b32.bc
echo $(BCDIR)\lib\ws2_32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\rasapi32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\psapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\wininet.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\shell32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\gdiplus.lib, >> b32.bc
IF EXIST AGUAGES.res echo AGUAGES.res >> b32.bc
$(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
del b32.bc
.PRG.OBJ:
$(HBDIR)\bin\harbour $< /N /m /es2 /gc1 /OOBJ\ /I$(FWDIR)\include;$(HBDIR)\include
#$(HBDIR)\bin\harbour $< /L /N /OOBJ\ /I$(FWDIR)\include;$(HBDIR)\include
$(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oOBJ\$& OBJ\$&.c
.C.OBJ:
echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp2
echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp2
$(BCDIR)\bin\bcc32 -oOBJ\$& @tmp2 $&.c
del tmp2
aguages.res : aguages.rc
# $(BCDIR)\bin\brc32.exe -r aguages.rc
AGUAGES.res : AGUAGES.res
$(BCDIR)\bin\brc32.exe -r AGIAGES.res
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:46 pm
by karinha
Holá, este PATH ejistia antes? Mira los archivos.CFG de Borland, pls.
Regards, saludos.
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:48 pm
by karinha
Porque no:
C:\BCC74
C:\FWH2304
C:\XHBBCC74
C:\HBBCC74
Simples asi.
Regards, saludos.
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:50 pm
by karinha
// BCC32.CFG
Code: Select all | Expand
-6
-DHB_GUI
-DHB_INCLUDE_WINEXCHANDLER
-DHB_NO_PROFILER
-DHB_NO_TRACE
-DHB_WIN32_IO
-Ic:\bcc74\include\windows\crtl;c:\bcc74\include\windows\sdk;c:\bcc74\include\dinkumware
-O
-O1
-O2
-OS
-Ob
-Oc
-Ov
-c
-d
-g0
-k-
-v-
-w
-w!
Re: Errores rpreview
Posted: Fri Jun 16, 2023 12:51 pm
by karinha
Re: Errores rpreview
Posted: Fri Jun 16, 2023 2:04 pm
by paquitohm
Manuel,
Dos ideas, porque no tengo certezas.
Sigo pensando que el problema tiene que ver con #Include y puede ser en dos sentidos.
1º Estes usando, sin querer o queriendo, al compilar, un fivewin.ch antiguo. Asegurate que donde esta el fuente no tienes un fivewin.ch"
2º El orden de los #include es importante: ¿ Que includes tienes para el fuente ? Yo pondria en primer lugar el fivewin.ch
Salu2
Re: Errores rpreview (Solucionado)
Posted: Fri Jun 16, 2023 3:37 pm
by Manuel Aranda
Muchas gracias karinha por tu interés, pero el fichero cfg está correcto.
Y sobre todo, muchas gracias a Paquito, efectivamente en el directorio del fuente tenía un fivewin.ch antiguo. Lo he quitado y ya va perfectamente.