Perdida de control de varias funciones en un prg
Posted: Wed Mar 12, 2025 2: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.
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.