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:
-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
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
Lines 2047, Functions/Procedures 3, pCodes 10441
xHarbour 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 function
10 errors
Y este es el prg, no contiene mas que una funcion
RCA1.prg
*************************
* 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