Errores rpreview (Solucionado)

[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.

[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 view  RUN

%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.

[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.

[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

[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 view  RUN

#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
 

[karinha]

Holá, este PATH ejistia antes? Mira los archivos.CFG de Borland, pls.

Regards, saludos.

[karinha]

Porque no:

C:\BCC74
C:\FWH2304
C:\XHBBCC74
C:\HBBCC74

Simples asi.

Regards, saludos.

[karinha]

// BCC32.CFG

Code: Select all  Expand view  RUN

-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!
 

[karinha]

ILINK32.CFG

Code: Select all  Expand view  RUN

-Gn
-Lc:\bcc74\lib;c:\bcc74\lib\psdk
-aa
-x
 

[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

[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.