Saber si es un Alias es un Cursor

Una función para saber si es un Alias es un cursor. Es el resumen de dos funciones enviadas a Foxite.com/forum por el alemán Stefan Wuebbe y el sueco Anders Altberg

USE (HOME(2) + "Northwind\Customers") IN ("Customers")
CREATE CURSOR MyCursor (Id I)

? IsCursor("Customers") && Table
? IsCursor("MyCursor")  && Cursor

FUNCTION IsCursor(tcAlias)
  RETURN VARTYPE(m.tcAlias) == "C" AND USED(m.tcAlias) ;
    AND CURSORGETPROP("SourceType", m.tcAlias) == 3 ;
    AND UPPER(JUSTEXT(CURSORGETPROP("SourceName", tcAlias))) == "TMP"
ENDFUNC

Fuente: Foxite.com/forum