How to prevent a FUNCTION from loading more than once

[digitsoft]

How to prevent a FUNCTION from loading more than once

[Tom]

Code: Select all

FUNCTION MyFunction()
STATIC lIAmRunning := .F.
IF lIAmRunning 
  MsgBox('Function runs already')
  RETURN .F.
ENDIF
lIAmRunning := .T.

* CODE 

lIAmRunning := .F.
RETURN xResult

[digitsoft]

Thanks Tom

[Tom]

De nada.