Como puedo hacer

[colthop]

Hola a todos:

Quisiera saber si es posible parar la ejecución hasta que se realize una funcion por ejemplo:

Code: Select all

FUNCTION cueamo03()
store vo01 to dato
SELECT 7
set filter to substr(cuenta,11,1) <> " "
go top
if substr(dato,1,1) = "+"
  cuenbusq()
  if salida = 1
    dato = space (11)
  else
    dato = cuenta
  endif
endif
set filter to
rectcuen ()
SELECT 20
store dato to vo01
store des  to vo02
rdlg10:Refresh()
rdlg11:Refresh()
RETURN (.T.)
 

En el anterior ejemplo tengo dos llamadas a funciones busqcuen() y rectcuen() las primera es para buscar una cuenta en una base de datos y la siguiente linea compruena si ha encontrado una o no con la variable "salida" y la otra es rectcuen que lo que hace es comprobar la variable y ver si existe en la base de datos y si no es asi poder crearla.

Lo que quisiera saber si hay alguna forma de que pare la ejecucion hasta que termine de realizar la funcion busqcuen o rectcuen y cuando salgan con el Return seguir en esta.

Un saludo

Carlos