ya casi, creo ...
Nos hace falta este problemita
Que flag es el que debo agregar para que el nombre de los archivos prg, los identifique como funciones?
Me explico un poco mejor para esta pregunta:
Cuando hacíamos el llamado de la función R32_TABL() dentro de cualquiera de los prg, lo hacia sin problema, esta función no esta definida como tal dentro de la aplicación. Esa función quedaba definida en el momento en el que agregamos el prg como parte del proyecto.
Ejemplo:
- Code: Select all Expand view
-gui
#los prgs
.\prg\R32_MENU.prg
.\prg\R32_PERM.prg
.\prg\R32_RCA1.prg
#recursos
.\res\CONTABLE.res
-info
#-traceonly
-workdir=
-optim-
-ldflag+=-aa
-Ic:\fwh64_2407\include
-Lc:\fwh64_2407\lib
-lFivehx64
-lFiveC64
-lct
-lhbzip
-ltip
-lhbcomm
-lhbcurl
-llibcurl
-ohymlyma
-run
-inc
Pero nos esta devolviendo este error
- Code: Select all Expand view
hbmk2: Linking... hymlyma.exe
Turbo Incremental Link64 6.98 Copyright (c) 1997-2023 Embarcadero Technologies, Inc.
Error: Unresolved external 'HB_FUN_R32_RCA1' referenced from C:\CMPLAR_64\R32_MENU.O
hbmk2[xhbcmp]: Error: Running linker. 2
ilink64.exe @C:\Users\leandro\AppData\Local\Temp\64\8nbpbx.lnk
hbmk2: Error: Referenced, missing, but unknown function(s): R32_RCA1()
C:\cmplar_64>
También salen estos errores cuando se agrega el prg
- Code: Select all Expand view
Lines
2047, Functions/Procedures
3, pCodes
10441xHarbour
1.3.1 Intl.
(SimpLex
) (Build
20240624)Copyright
1999-2024, http:
//www.xharbour.org http://www.harbour-project.org/Compiling
'.\prg\R32_RCA1.prg'...
.\prg\R32_RCA1.prg
(13) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(14) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(15) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(16) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(17) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(18) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(19) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(21) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(22) Error E0001 Statement not allowed outside
of procedure or
function.\prg\R32_RCA1.prg
(25) Error E0001 Statement not allowed outside
of procedure or
function10 errors
Y este es el prg, no contiene mas que una funcion
RCA1.prg
- Code: Select all Expand view
*************************
* Modulo: Reporte de Cartera *
*************************
#include "fivewin.ch"
#include "report.ch"
#include "Ado.ch"
#include "vrd.ch"
#include "dtpicker.ch"
#include "xbrowse.ch"
SET DATE BRITISH
SET CENTURY ON
SET CONFIRM ON
SET DELETE ON
SET EPOCH TO 1920
SET EXCLUSIVE OFF
SET MULTIPLE ON
SET 3DLOOK ON
SET ESCA OFF
SET AUTOPEN OFF
REQUEST DBFCDX
pImprCar1()
*******************
*INFORME DE CARTERA
*******************
Function pImprCar1()
Local oRptCar
//Creamos el objeto
oRptCar:= cReci():New(oLamcla:oServer)
oRptCar:cartera()
//oRptCar:cartera_hash()
oRptCar:=nil
Return nil