FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como puedo hacer
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Como puedo hacer
Posted: Sun Jun 28, 2009 06:37 PM
Hola a todos:

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

Code (fw): Select all Collapse
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
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Continue the discussion