FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Perdida de control de varias funciones en un prg
Posts: 467
Joined: Fri Dec 09, 2005 12:41 AM
Perdida de control de varias funciones en un prg
Posted: Wed Mar 12, 2025 02:29 AM

Buenas noches colegas

tengo un problema que aparece de vez en cuando:

En un fichero PRG con varias funciones definidas dentro como se muestra, lineas abajo.. resulta que algunas veces me ha sucedido que llamo a la función MIPROG02, se ejecuta correctamente hasta cuando llega a la "LineaC" .. se sigue de largo, no considera el RETURN y termina ejecutando la "raya1" el MIPROG03 obviamente con un mensaje de error que "raya1" no existe...

La única solución que encontré es a partir de esa funcion MIPROG03... y todas las otras funciones que siguen, las saco de ese PRG y la pongo en otro archivo PRG. saben a que se debe ? ( nota : mi aplicacion tendra unas 150 prg... y dentro de ellas muchas funciones internas )

FUNCTION MIPRG01(xdata,xpes)

linea1

linea2

liena3

RETURN .T.

FUNCTION MIPRG02(xperso)

LineaA

LineaB

lineaC

RETURN .T.

FUNCTION MIPRG03(xperso)

raya1

raya2

raya3

RETURN .T.

Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM
Re: Perdida de control de varias funciones en un prg
Posted: Wed Mar 12, 2025 02:47 AM

Hola Lubin.

Me suena mas a que sea un tema de llamadas a las funciones a que una función no respete un return.

En error.log te puede dar una pista de eso, si quieres publicarlo podríamos analizarlo

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Perdida de control de varias funciones en un prg
Posted: Wed Mar 12, 2025 01:46 PM

Por favor publique la FUNCIÓN MIPRG02(xperso) completa. O mejor dicho, las tres funciones.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion